#!/bin/csh 
set fol=$*
test -d ~/Mail/$fol
if ( $fol == "" || $status > 0) then
echo "you must specify a valid mail folder to clean up"
echo "usage: cleanup <folder>"
exit(0)
else 
#clear
echo "You are about to permanently remove all previously"
echo "deleted (rmm'd) mail from mail folder.."
echo ""
echo  $fol
echo ""
echo "..and from any subfolders within it. Any messages" 
echo "that are left in $fol will be renumbered"       
echo "OK? y or n"
set answer=$< 
if ($answer == "y" || $answer == "ye" || $answer == "yes") then
find ~/Mail/$fol/  \( -name "#*" -o -name ".#*" \) -exec rm {} \;
folder +$fol -pack
scan
echo ""
echo "Your new quota listing after removing mail:"
fs lq ~
else exit(0)
endif
endif