#!/bin/sh

MHPATH='/usr/local/bin/mh'
SCAN="${MHPATH}/scan"
PICK="${MHPATH}/pick"
FOLDERS="${MHPATH}/folders"
PERL="/usr/local/bin/perl"

maildir="`${MHPATH}/mhpath +`"
histfile="$maildir/.history"
alistfile="$maildir/.mew-id-alist"

folderlist=`$FOLDERS -recurse |
	awk '
		/has +[0-9]+ messages/ && $1 !~ /^[A-Z]/ && $1 !~ /\+$/ {
				print $1
		}
	'`

if [ -f $histfile ]; then
	rm $histfile
fi

for f in $folderlist
do

format="%{message-id}	+$f	%(msg)"

	$SCAN +$f -width 120 -format "$format" `$PICK +$f -after -10` \
		>> $histfile
done

$PERL -e '
	print "(";
	while (<>){
	    chop;
	    s/"/\\\\"/g;
	    @F = split(/\t/);
	    printf ("(\"%s\" (\"%s\" \"%s\")) ", @F);
	}
	print ")\n";
' $histfile > $alistfile

