#  ****************************************************************
#
#   File Name:   Read_Mail 
#   Function:    Display selected inbox mail message to the screen,
#                and move the message to the ~/SMS/read directory
#                (renaming it to drop the ".new" extension).
#               
#   Arguments:   $1 
#                
#
#   Invocation:  Read_Mail [MSG_ID]
#               
#   Author:      Demetricus Mosley
#   Date:        22 July, 1997
#  ****************************************************************
set prompt='Read_Mail_%'
set files='ls ~/SMS/inbox/msg_*$1*'
cd ~/SMS/inbox
# loops throught files
# foreach f($files)

echo MAIL READING BEGINS ...
# this section is for all messages
if ($1 == ) then
# Displays all messages
  cd ~/SMS/inbox
  set files = 'ls msg_*$1*'
  foreach f($files)
  more $f 
  exit
# this section is for specific messages
else 
# Displays specific messages
  cd ~/SMS/inbox
  foreach f($files)
  more $f
  exit
endif 
# deletes new suffix and moves messages to read folder
move_to_read_folder.csh $f
echo MAIL READING COMPLETED

exit