.key mailfile/a,username
.bra {
.ket }
.dot ~

; This script is only for archiving outgoing mail
; It is stored in $maildir/$archive

set maildir= "T:folders"
set archive= "mail.sent"
IF exists "{mailfile}"
 IF NOT exists $maildir
    makedir $maildir
 ENDIF
 echo >>$maildir/$archive From rob (ARCHIVE)
 echo >>$maildir/$archive "Date: " NOLINE
 date >>$maildir/$archive
 type >>$maildir/$archive "{mailfile}"
 IF "{username}" EQ ""
    sendmail <{mailfile}
 ELSE
    sendmail <{mailfile} -f "{username}"
 ENDIF
ELSE
 echo "{mailfile} not found!"
ENDIF
unset maildir
unset archive
