From:	UUCP%"gjc@mitech.com"  1-AUG-1989 13:15:15.78
To:	VMSNET@DRYCAS.CLUB.CC.CMU.EDU
CC:	
Subj:	

Received: from crash by simpact.UUCP (DECUS UUCP w/Smail);
          Tue,  1 Aug 89 13:15:13 PDT
Received: by crash.cts.com (smail2.5)
          id AA05250; 1 Aug 89 13:12:16 PDT (Tue)
Received: from DRYCAS.CLUB.CC.CMU.EDU by trout.nosc.mil (5.59/1.27)
          id AA28081; Tue, 1 Aug 89 11:18:47 PDT
Received: from bu-it.BU.EDU by DRYCAS.CLUB.CC.CMU.EDU; Tue, 1 Aug 89 14:00 EDT
Received: from BUITA.BU.EDU by bu-it.BU.EDU (5.58/4.7) id AA25855; Tue, 1 Aug
          89 14:00:34 EDT
Received: by buita.bu.edu (3.2/4.7) id AA23711; Tue, 1 Aug 89 14:00:40 EDT
Received: by mitech.com (DECUS UUCP w/Smail); Tue,  1 Aug 89 14:00:27 EDT
Date: Tue,  1 Aug 89 14:00:27 EDT
From: gjc@mitech.com
To: VMSNET@DRYCAS.CLUB.CC.CMU.EDU
Message-Id: <8908011800.AA23711@buita.bu.edu>
X-Vms-Mail-To: UUCP%"VMSNET@DRYCAS.CLUB.CC.CMU.EDU"

Some suggestions for UUXQT_DCL.COM,

The processing in DCL to recognize the address "postmaster" happens
before any mail rewrite rules. In my case I am getting addresses
of the form "mitech!postmaster" through my forwarder, so I needed
to change the explicit translating code after the "DO_RMAIL".
I also added a few more aliases for UUCP_POSTMASTER, which are
sometimes used by people and programs.

$!
$! This is a rewrite of the code in UUXQT_DCL.COM after "DO_RMAIL:"
$!
$! NOTE: (GJC 2-AUG-89) It seems it would be better to
$!       use the VMS SET MAIL/FORWARD mechanism instead of
$!       this explicit translation here, because we are
$!       manipulating addresses here before the [INBOUND-TO]
$!       translations in MAIL_REWRITE.RULES have been run.
$!       For now I wont bother with doing it correctly, and
$!       just add a DCL version of a needed rewrite rule,
$!       since my forwarder is sticking me with addresses of
$!       the form "myhost!...".
$!       
$	addr = addressee
$       xaddr = f$edit(addressee,"UPCASE")
$       xt = F$EDIT(F$TRN("UUCP_HOST_NAME"),"UPCASE") + "!"
$       nt = f$length(xt)
$       xn = f$length(xaddr)
$       kn = f$locate(xt,xaddr)
$       if kn .ne. xn then xaddr = f$extract(kn+nt,xn-kn-nt,xaddr)
$       J = 0
$!
$       EL = "POSTMASTER,POSTMAST,USENET,ROOT,MAILER-DAEMON,UUCP"
$!
$XT_LOOP:
$       E = F$ELEMENT(J,",",EL)
$       IF E .EQS. "," THEN GOTO XT_DONE
$       IF E .EQS. XADDR THEN addr = "UUCP_POSTMASTER"
$       J = J + 1
$       GOTO XT_LOOP
$XT_DONE: