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