#!/bin/ksh

[ $# -eq 0 ] && set -- `pick`
pick $* > /tmp/mailnums

FOO=$(scan -form scan.md $(cat /tmp/mailnums) | paste /tmp/mailnums - | perl -ne "s/\"/'/g;"'m/^(\S+)\s+(.*$)/ && print "$1 \"$2\" 0 "')

sh -c "dialog --checklist \"Mail to remove from \"`folder -fast` 20 75 15 $FOO"  2> /tmp/maildels

DELS=`cat /tmp/maildels`

[ ! -z $DELS ] && d $DELS

rm /tmp/maildels /tmp/mailnums