Xref: rpi vmsnet.mail.mx:133 vmsnet.mail.pmdf:1843
Path: rpi!usc!samsung!munnari.oz.au!brolga!uqvax.cc.uq.oz.au!ccrob
From: ccrob@uqvax.cc.uq.oz.au
Newsgroups: vmsnet.mail.mx,vmsnet.mail.pmdf
Subject: All-In-One mail via PMDF, MX
Message-ID: <1991May10.114356.15398@uqvax.cc.uq.oz.au>
Date: 10 May 91 01:43:56 GMT
Organization: The Prentice Centre, Uni of Queensland, Brisbane, Australia
Lines: 102


A little while ago, George Greenwade posted an article in
vmsnet.mail.mx for a fix to a problem that exists when interfacing 
All-In-One (v2.1A) mail with MX. The solution is equally applicable to PMDF.

He posted an updated copy of the command file SPECIAL.COM. Unfortunately,
this can "hang" if users have the /CC qualifier set as default in their
VMS mail account. To fix this, replace the following line,

$       WRITE OUTFILE "SEND/NOEDIT/NOSELF ''FILE'"

to

$       WRITE OUTFILE "SEND/NOEDIT/NOSELF/NOCC ''FILE'"

This should solve any problems. The new version of SPECIAL.COM appears
below.

Version 2.4 of A1 has a slightly different SPECIAL.COM. However, the
changes appear to be mostly cosmetic, with apparently no change in
functionality.

(BTW - thanks Ned, Jim and George for alleviating a thorn in our side).

Cheers,
Rob.

----------------------+-------------------------------------------------------
Rob McMillan          |  E-mail: ccrob@uqvax.cc.uq.oz.au (DTE 050527372000094)
Asst Systems Prog     |  Phone:  +61 07 365 4290          FAX: +61 07 365 4477
The Prentice Centre   |  Post:   University of Queensland, QLD 4072, AUSTRALIA

vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv

$ !     OALIB:SPECIAL.COM       V2.1A   Last edited: 4-Nov-1985
$ !     Electronic Mail Subsystem
$ !     Deliver mail to the "SPECIAL" destination
$ !
$       ASSIGN/USER NLA0: SYS$OUTPUT
$       ASSIGN/USER NLA0: SYS$ERROR
$       ON WARNING THEN GOTO NOT_SENT
$       ORIG_DIR :==    'F$LOGICAL("SYS$DISK")''F$DIRECTORY()'
$       MY_NODE :=      'F$LOGICAL("SYS$NODE")
$
$ UNDERLINE_LOOP:
$       IF "''F$EXTRACT(0,1,MY_NODE)'" .NES. "_" THEN GOTO SETUP_PARAM
$       MY_NODE :=      'F$EXTRACT(1,99,MY_NODE)
$       GOTO UNDERLINE_LOOP
$
$ SETUP_PARAM:
$       WRITE OAMAILBOX "OA GET PROFIL.DIRECT[OA$USER]"
$       @DCLMAILBOX:
$       HOME_DIR        :=      "''RESULT'"
$       WRITE OAMAILBOX "OA GET #MAILSUBJ"
$       @DCLMAILBOX:
$       SUBJ    :=      "''RESULT'"
$       WRITE OAMAILBOX "OA GET #MAILFILE"
$       @DCLMAILBOX:
$       FILE    :=      'RESULT
$       WRITE OAMAILBOX "OA GET #MAILNODE"
$       @DCLMAILBOX:
$       NODE    :=      'RESULT
$       IF NODE .EQS. "" THEN GOTO SEND_IT
$       IF 'F$LOCATE("::",NODE) .EQ. 'F$LENGTH(NODE) THEN NODE := 'NODE'::
$       IF "''MY_NODE'" .EQS. "''NODE'" THEN NODE := ""
$       WRITE OAMAILBOX "OA GET OA$STATUS=""1"""
$       @DCLMAILBOX:
$
$ SEND_IT:
$       WRITE OAMAILBOX "OA GET #MAILADDR"
$       @DCLMAILBOX:
$       TO      :=      "''NODE'''RESULT'"
$ LOOP1:
$       IF F$EXTRACT(0,1,TO) .NES. "_" THEN GOTO REALLY_SEND
$       TO      :=      'F$EXTRACT(1,99,TO)
$       GOTO LOOP1
$ REALLY_SEND:
$       ASSIGN/USER NLA0: SYS$OUTPUT
$       ASSIGN/USER NLA0: SYS$ERROR
$       SET DEFAULT 'HOME_DIR
$       TO = "MX%" + """""" + F$EDIT(TO,"LOWERCASE") + """"""
$       OPEN/WRITE OUTFILE SPECIAL_TEMP.COM
$       WRITE OUTFILE "$MAIL"
$!      WRITE OUTFILE "SEND/NOEDIT/NOSELF ''FILE'"
$       WRITE OUTFILE "SEND/NOEDIT/NOSELF/NOCC ''FILE'"
$       WRITE OUTFILE "''TO'"
$       WRITE OUTFILE "''SUBJ'"
$       WRITE OUTFILE "EXIT"
$       WRITE OUTFILE "$EXIT"
$       CLOSE OUTFILE
$       @SPECIAL_TEMP
$       DELETE/NOCONFIRM SPECIAL_TEMP.COM.*
$!      MAIL/SUBJ="''SUBJ'" 'FILE' 'TO'
$!      IF $STATUS THEN GOTO DONE
$!
$! NOT_SENT:
$!      Status = '$STATUS
$!      WRITE OAMAILBOX "OA GET OA$STATUS=""''STATUS'"""
$!      @DCLMAILBOX:
$ DONE:
$       SET DEFAULT 'ORIG_DIR
$       EXIT