#! /bin/csh -f
# Last modified on Thu Jul 28 03:53:12 1988 by stolfi
#==================================================
# Appends ~/Mail/sources/$1 to ~/progs/$2/source
# and soft-deletes the former
#==================================================

set todir = "~/progs/$argv[$#argv]"
set to = "${todir}/source"
if ( ! ( -e $todir ) ) then
  echo "$todir does not exist"
  exit(1)
endif

if ( ! ( -e $to ) ) then
  if ( -e $to.Z ) then
    uncompress $to
  else
    echo "$to does not exist"
    exit(1) 
  endif
endif

set n = $#argv
@ n--
echo "Appending messages $argv[1-$n] to $to..."

while ( $#argv > 1 )
  set f = $1
  shift
  echo -n "$f.."
  cat ~/Mail/sources/$f >> $to
  mv ~/Mail/sources/$f ~/Mail/sources/,$f
end
echo ' '
# END