#!/bin/ksh

ECHO=/usr/ucb/echo 

if [ "$*" ]; then
   #/usr/local/libexec/nmh/mhl -form mhl.format $* | less -c -~
   mhshow-custom $*
   #mark $* -sequence read -add
fi

${ECHO}

NEXTEMAILS=`scan -form scan.default next:+10`
#| ggrep -A 10 "^>" | ggrep -v "^>"`

if [ ! -z "${NEXTEMAILS}" ]; then
   COUNT=`${ECHO} "${NEXTEMAILS}" | wc -l | awk '{print $1}'`
else 
   COUNT=0
fi

MSG=
if [ ${COUNT} -eq 0 ]; then
   MSG="[ No remaining mail ]"
elif [ ${COUNT} -eq 1 ]; then
   MSG="[ Next mail ]"
elif [ ${COUNT} -lt 10 ]; then
   MSG="[ Next ${COUNT} mails ]"
else
   MSG="[ Next 10 mails ]"
fi

# Yeah, I'm sad... but here we go anyway...

perl -MTerm::Size -e '
$eq = "==";
($m,$f) = @ARGV;
$f = "[ Folder: $f ]";
open(TTY, "/dev/tty");
($r,$c) = Term::Size::chars(*TTY{IO});
$len = $r;
print "$eq" x 2;
print $m;
print "$eq" x ($len - 4 - length($m) - length($f));
print $f;
print "$eq" x 2;
print "\n";
' "$MSG" `folder -fast`

[ "${NEXTEMAILS}" ] && ${ECHO} "${NEXTEMAILS}"