#!/bin/sh
# xlmdscan - show overview of unread mail

# with mblaze:
export MAILSEQ=/home/leah/.mblaze/xlseq
mdirs ~/Mail ~/work/Mail | grep -v -e "Sent Mail" -e "hott" | mlist -s |
  msort -rd | mseq -S | head -n20 |
  COLUMNS=${2:-80} mscan -f "%5d %2n %16f %t %s" 2>/dev/null |
  perl -C -pe 's/\p{Mn}//g'
exit $?

# old, with MH:
ls ~/Mail/*/*/*2, | grep -v -e "Sent Mail" -e hott |
  xargs -i scan -file '{}' -width $2 -format \
'%(date2local{date})%(void(rclock{date}))\
%<(gt 15768000)%03(month{date})%(void(year{date}))%02(modulo 100)\
%?(gt 604800)%02(mday{date})%03(month{date})\
%?(gt 86400) %(day{date}) %|\
%02(hour{date}):%02(min{date})%>\
%<{date} %|*%>\
%<(mymbox{from})%<{to}To:%14(decode(friendly{to}))%>%>\
%<(zero)%17(decode(friendly{from}))%>  \
%(decode{subject})%<{body}<<%{body}%>' | 
  iconv -t latin1 -c