;COMPARISON OF DSK:SYSNET;COMSAT 583 AND DSK:PAUL;COMSAT 3
;OPTIONS ARE    /3

**** FILE DSK:SYSNET;COMSAT 583, 4-37 (9959)
ATRLIM==110	; Current limit for attrib codes. All must be less than this!!
**** FILE DSK:PAUL;COMSAT 3, 4-37 (9959)
ATRLIM==111	; Current limit for attrib codes. All must be less than this!!
***************

**** FILE DSK:SYSNET;COMSAT 583, 4-108 (14349)
**** FILE DSK:PAUL;COMSAT 3, 4-108 (14349)
ATTRIB 110,A$ROK:,|R-RELAY-OK|		; V Exists when rcpt is ok to relay.
***************

**** FILE DSK:SYSNET;COMSAT 583, 4-198 (17847)
MR$MAX==:4		; Max possible MR$ value
MR$TAB==:MR$MAX+1	; For checking dispatch tables.
comment |
MR$TEM ? - Temp Err for Msg; implies some temporary error associated with
	the message itself, rather than with the host or a specific rcpt.
	This might possibly happen for weirdness in a message such as
	^C's or the like, but that is supposed to be circumvented
	by MLFL or quoting.  May happen for overly long msg text,
	if a remote site has a very low length tolerance; in this case
	we won't want to keep re-trying for every rcpt!!
MR$PEM ? - Perm Err for Msg; Ditto, but permanent.
	Same mumblings as for MR$TEM.
|
**** FILE DSK:PAUL;COMSAT 3, 4-199 (17917)
MR$TEM==:5 ; Temp Err for Msg; implies some temporary error associated with
		; the message itself, rather than with the host or a specific rcpt.
		; This might possibly happen for weirdness in a message such as
		; ^C's or the like, but that is supposed to be circumvented
		; by MLFL or quoting.  May happen for overly long msg text,
		; if a remote site has a very low length tolerance; in this case
		; we won't want to keep re-trying for every rcpt!!
MR$PEM==:6 ; Perm Err for Msg; Ditto, but permanent.
		;Same mumblings as for MR$TEM.
MR$MAX==:6		; Max possible MR$ value
MR$TAB==:MR$MAX+1	; For checking dispatch tables.
***************

**** FILE DSK:SYSNET;COMSAT 583, 5-8 (18672)
**** FILE DSK:PAUL;COMSAT 3, 5-8 (18750)
RELAY:	0	;non-z allows relaying of remote mail
***************

**** FILE DSK:SYSNET;COMSAT 583, 71-161 (258887)
**** FILE DSK:PAUL;COMSAT 3, 71-161 (259013)
	MAKELN D,[A$ROK,,0
		%LTVAL,,0]
	LNAPP [B ? D]		; Append "relay ok" attrib to rcpt's list.
***************

**** FILE DSK:SYSNET;COMSAT 583, 90-11 (327181)
		 JRST SNDN95]	; Don't ret err msg but do fail temporarily.
**** FILE DSK:PAUL;COMSAT 3, 90-11 (327402)
		JRST SNDN95]	; Don't ret err msg but do fail temporarily.
	SKIPN RELAY		; If we don't allow relaying
	 SKIPN HDRNMH		;  and sender is non-local
	  JRST .+2
	FINDA B,[A$ROK,,[C]]	;   and recipient is not ok to relay
	 JRST [	MOVEI A,MR$PEM	;    Sorry, relaying not allowed
		MAKELN B,[0 ? %LTSTR,,[LITSTR [Sorry, no relaying]]]
		JRST POPCJ]	;
***************

**** FILE DSK:SYSNET;COMSAT 583, 90-26 (327594)
SNDN90:	CAIE A,MR$TER	; Investigate failure return.
	 CAIN A,MR$TEH
	  CAIA
	   JRST POPCJ	; SLP to message in B.
SNDN95:	MOVEI B,0	; Temporary return.
	JRST POPCJ
**** FILE DSK:PAUL;COMSAT 3, 90-34 (328108)
SNDN90:	TRNN A,1	; Investigate failure return.
SNDN95:	MOVEI B,0	; Temporary return.
	JRST POPCJ	; SLP to message in B.
***************