From:	CRDGW2::CRDGW2::MRGATE::"SMTP::FALCON::TNIELAND" 18-MAY-1989 11:57
To:	MRGATE::"ARISIA::EVERHART"
Subj:	MAIL Reader/Filter Part 1

Message-Id:  <8905181444.AA10119@crdgw1.ge.com>
Received: from FALCON by AAMRL.AF.MIL; Thu, 18 May 89 10:43 EDT
Date: Thu, 18 May 89 10:02 EST
From: Ted Nieland - SRL <@AAMRL.AF.MIL:TNIELAND@FALCON>
Subject: MAIL Reader/Filter Part 1
To: everhart@arisia.decnet
X-Vms-To: IN%"everhart%arisia.decnet@crdgw1.ge.com"

From:	IN%"TENCATI@dsfvax.JPL.NASA.GOV" 16-MAY-1989 22:19:46.86
To:	TNIELAND@FALCON
CC:	
Subj:	VMS MAIL Reader/Filter part 1 of 2 - FILE_MAIL.COM

Return-path: RELAY-INFO-VAX@CRVAX.SRI.COM
Received: from EAGLE by FALCON; Tue, 16 May 89 22:19 EST
Received: from CRVAX.SRI.COM by AAMRL.AF.MIL; Tue, 16 May 89 22:17 EDT
Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Tue, 16 MAY 89 17:54:59 PDT
Received: from dsfvax.JPL.NASA.GOV by KL.SRI.COM with TCP; Tue, 16 May 89
 17:51:53 PDT
Received: by dsfvax id <0000212E032@dsfvax.JPL.NASA.GOV> ; Tue, 16 May 89
 17:20:09 PDT
Date: Tue, 16 May 89 17:19:35 PDT
From: TENCATI@dsfvax.JPL.NASA.GOV
Subject: VMS MAIL Reader/Filter part 1 of 2 - FILE_MAIL.COM
To: info-vax@kl.sri.COM
X-VMS-To: info-vax@kl.sri.COM
Resent-date: Tue, 16 May 89 22:17 EDT
Resent-to: TNIELAND@FALCON
X-VMS-Mail-To: EXOS%"info-vax@kl.sri.com",TENCATI
Message-ID: <890516171935.0000212E032@dsfvax.JPL.NASA.GOV>

$SET NOON!'f$verify(0)
$!
$ submit/que=sys$fast/restart/after="+3:00:00"/noprint/nolog file_mail.com
$!
$spawn/nolog/output=temp.dat/input=Check_msgs.com
$open/read file temp.dat
$read/end=Done file line
$read/end=Done file line
$close file
$num = f$extract(9,3,line) - "n" - "e"
$num = f$edit(num,"TRIM")
$if num .lt. 1 then goto done
$!-----------------------------------------------------------------------------
$mail
sel newmail
File/all temp_mail
y
sel temp_mail
ext/all/mail sys$login:mail.msgs
exit
$set prot=o:rwd mail.msgs
$@readmail
$!-----------------------------------------------------------------------------
$Done:
$ Hr = f$cvtime(,,"HOUR")
$ if hr .ge. 18 then $CMAIL
$delete/nolog temp.dat;*
$stop/id=0


