#! /bin/csh -f
# Last modified on Fri May 25  2:43:04 PDT 1990 by stolfi
#================================================
# Concatenates the messages in a folder and puts the result
# in ~/MailArchive/$2
set fro = "$1"
if ( $#argv == 1) then
  set tto = "~/MailArchive/$1"
else
  set tto = "~/MailArchive/$2"
endif
if (-e $tto) then
  echo "$tto"' exists --- aborted.'
  exit 1
endif
echo "Packing messages from $fro to $tto..."
( cd $fro; pcat `list-folder .`  > $tto )
/udir/stolfi/bin/trim-headers-for-archiving $tto
echo `grep 'File:' $tto | wc -l` ' messages'
echo `cat $tto | wc -c` ' bytes'
echo "Moving $fro to ~/MailJunk..."
mv $fro $HOME/MailJunk/