#! /bin/csh -f
# Last modified on Thu Oct  2 04:17:51 1986 by stolfi
#-------------------------------------------------------------
# Usage: print-folder <folder>
# Prints the messages in the given folder, supressing irrelevent headers
# Uses enscript with the environment settings
# Each message begins in a new page
#-------------------------------------------------------------

if (($#argv != 1) | (! (-d $1))) then
  echo 'Usage: print-folder <folder>'
  exit(1)
endif

echo 'Connecting to folder'"'"'s parent directory...'
cd $1
set full = `pwd`
cd ..
set folder = $full:t

echo "Concatenating messages > ,temp-$folder"
echo  $full > ,temp-$folder
foreach f (`list-folder $folder`)
  echo message $f
  echo '' >> ,temp-$folder
  cat $f >> ,temp-$folder
end
cat ,temp-$folder | sed -f /udir/stolfi/bin/print-folder-cleanup.sed \
    | expand | fold >> ,print-$folder
echo "Messages are in file ,print-$folder"