#! /bin/csh -f
# Last modified on Tue Mar  3 21:58:07 1987 by stolfi
#---------------------------------------------------------------------
# Usage: move-folder <folder1> <folder2>
# Moves the messages from folder $1 to folder $2, and renumbers them
# starting with the highest used number in folder2 plus one.
# By definition, a message is a file whose last name is a number.
#---------------------------------------------------------------------
if ($#argv != 2) then
  echo 'Usage: move-folder <original-folder> <destination-folder>
  exit(1)
endif
set from = $1
if (! -d $from) then
  echo $from is not a directory
  exit(1)
endif
set to = $2
if (! -d $to) then
  echo $to is not a directory
  exit(1)
endif
set files = (`list-folder $from`)
if ($#files == 0) then
  echo "Can\'t find any messages in $from."
  exit(1)
endif
move-messages $files $to