1PUSHDIVERT(-1)
2#
3# Not exciting enough to bother with copyrights and most of the
4# rulesets are based from those provided by DEC.
5# Barb Dijker, Labyrinth Computer Services, barb@labyrinth.com
6#
7# This mailer is only useful if you have DECNET and the
8# mail11 program - gatekeeper.dec.com:/pub/DEC/gwtools.
9#
10# For local delivery of DECNET style addresses to the local
11# DECNET node, you will need feature(use_cw_file) and put
12# your DECNET nodename in in the cw file.
13#
14ifdef(`MAIL11_MAILER_PATH',, `define(`MAIL11_MAILER_PATH', /usr/etc/mail11)')
15ifdef(`MAIL11_MAILER_FLAGS',, `define(`MAIL11_MAILER_FLAGS', nsFx)')
16ifdef(`MAIL11_MAILER_ARGS',, `define(`MAIL11_MAILER_ARGS', mail11 $g $x $h $u)')
17define(`_USE_DECNET_SYNTAX_')
18
19POPDIVERT
20
21PUSHDIVERT(3)
22# DECNET delivery
23R$* < @ $=w .DECNET. >		$#local $: $1			local DECnet
24R$+ < @ $+ .DECNET. >		$#mail11 $@ $2 $: $1		DECnet user
25POPDIVERT
26
27PUSHDIVERT(6)
28CPDECNET
29POPDIVERT
30
31###########################################
32###   UTK-MAIL11 Mailer specification   ###
33###########################################
34
35VERSIONID(`@(#)mail11.m4	8.1 (Berkeley) 05/23/95')
36
37Mmail11, P=MAIL11_MAILER_PATH, F=MAIL11_MAILER_FLAGS, S=15, R=25,
38	A=MAIL11_MAILER_ARGS
39
40S15
41R$+			$: $>25 $1		preprocess
42R$w :: $+		$@ $w :: $1		ready to go
43
44S25
45R$+ < @ $- .UUCP >	$: $2 ! $1		back to old style
46R$+ < @ $- .DECNET >	$: $2 :: $1		convert to DECnet style
47R$+ < @ $- .LOCAL >	$: $2 :: $1		convert to DECnet style
48R$+ < @ $=w. >		$: $2 :: $1		convert to DECnet style
49R$=w :: $+		$2			strip local names
50R$+ :: $+		$@ $1 :: $2		already qualified
51