#! /bin/csh -f
# Last modified on Thu Jul 28 03:49:23 1988 by stolfi
#==================================================
# Moves ~/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 already exists"
  exit(1)
endif

mkdir $todir
set n = $#argv
@ n--
echo "Moving 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