#!/bin/ksh

set -o noglob

ECHO=/usr/ucb/echo

if [ -z "$*" ]; then
   RM=`pick`
   CODE=$?
elif [ "$*" = "all" ]; then
   RM=`pick`
   CODE=$?
else 
   RM=`pick "$@"`
   CODE=$?
fi

echo "$RM" > /tmp/mailnums

if [ $CODE -eq 0 ]; then
   ${ECHO} "You selected to remove the following from mailbox: "`folder -fast`
   scan -form scan.default ${RM}
   ${ECHO}
   ${ECHO} -n "Is this correct? [y/N] "
   read Y
	#FOO=`scan -form scan.default ${RM} | 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>&3

	case $Y in 
      !([yY]?([eE][sS])))
			${ECHO} "Canceled."
			exit
			;;
	esac

   /usr/local/bin/rmm ${RM}

   ${ECHO} "Done."

#else
   #${ECHO} "An error occurred, exiting."
fi