;;; -*- Fundamental -*-                          
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; This file belongs on MD.  DO NOT COPY TO OTHER MACHINES!!
;;;
;;; The format of this file is documented in .MAIL.;NAMES INFO.
;;; You should read that before modifying it.  Also, there are
;;; restrictions on tourists creating mailing lists; see
;;; AI:ACOUNT;TURIST POLICY.
;;;
;;; If you DO mung this file, after writing it out look for a file
;;; called "NNAMED ERRnnn" or "NAMED ERRnnn" to appear, where nnn is
;;; the same version number you wrote.  This file will tell you if you
;;; won or not, hopefully with explanations if it didn't.  If this
;;; report file DOESN'T appear, either the mailer isn't around, or is
;;; busy, or is falling down in flames.  (Congratulations!)
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Try to use only domain-style host names.
; (Except for specially known ITS hosts.)


;;; Various special sacred lists - don't mung these!

(SYS-OPERATING-TROUBLE (EQV-LIST EJS))
(MAGIC-DRAGON-KEEPER (EQV-LIST EJS))

; Mail maintenance stuff.  Do not fuck with this.
(BUG-MAIL (EQV-LIST BUG-QMAIL))
(BUG-MAILER (EQV-LIST BUG-QMAIL))
(BUG-QMAIL (EQV-LIST BUG-MAIL-AND-POSTMASTER EJS
			[KSC;MAIL BUGS]))
(BUG-MAIL-AND-POSTMASTER (EQV-LIST EJS))
(POSTMASTER (EQV-LIST BUG-MAIL-AND-POSTMASTER))
(MAIL-DIR-MAINT (EQV-LIST EJS))
(MAIL-MAINTAINERS (EQV-LIST ([.MAIL.;FAILED STUFF] (R-OPTION FAST-APPEND))))
(COMSAT (EQV-LIST MAIL-MAINTAINERS))
(DEAD-MAIL-RECEIPTS (EQV-LIST [NUL:])) ; out for dead msgs
;; See message about this in mc:.mail.;names:
(NET-ORIGIN (EQV-LIST ; ([.MAIL.;FAILED NETORG] (R-OPTION FAST-APPEND))
			MAIL-MAINTAINERS))


; Inquire database daemon.  These are needed in order to update
; the database!
(UPDATE-ITS-INQUIR (EQV-LIST
			;;UPDATE-INQUIR@NX
			;; UPDATE-INQUIR@AI UPDATE-INQUIR@MC
			;; UPDATE-INQUIR@ML
			;;UPDATE-INQUIR@MD
			UPDATE-INQUIR@DB
			     ))
(UPDATE-INQUIR (EQV-LIST ([INQUIRE;INQUPD RECORD] (R-OPTION APPEND))
			  [INQUIR;.UPD1. >]
			  (PGM [INQUIR;INQUPD BIN]
			       (R-PGM-MNTNR BUG-INQUIR)
			       (R-PGM-DISOWN 6))))
(UPDATE-INQUIR-LOSSAGE (EQV-LIST [NUL:INQUIR;INQUPD BARFS]))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Here is the stuff for *MSG message hackery.  Any name beginning with "*"
;;; is by default of type *MSG, and will be given a *MSG-style header unless
;;; otherwise forced.
;;; All *MSG-type recipients will appear in the DISTRIB field, unless
;;; they have the NOTDIST option.  Any attempt to actually send the message
;;; to a *MSG-type rcpt will throw away the name itself and send instead
;;; to the file [DSK:.MSGS.;1 2] where 1 and 2 default to *MSG and > unless
;;; explicitly specified via MSG-FN1 and MSG-FN2.

;; The entry for "*" is the only one which varies in the NAMES file for
;; each site.
(* (R-OPTION NOTDIST) (EQV-LIST *DB))
;; *msg mailing lists -- see .MAIL.;BBOARD INFO for accepted policy on
;; which list to use for what purpose.
;(*MIT (R-OPTION NOTDIST)
;      (EQV-LIST *MAC *CIPG *DSPG *INFOODS *LIDS *PFC *XV *AMT *RANDOMS))
;(*MAC (R-OPTION NOTDIST)
;      (EQV-LIST *ITS *HX *LCS-UVAX *MLSITE *REAGAN *THEORY *WH))
(*TENS (R-OPTION NOTDIST) (EQV-LIST *ITS))
(*ITS (R-OPTION NOTDIST) (EQV-LIST
				DB
				;;*NX
				;; *AI *MC
				;; *MD *ML
				    ))
;; BBOARD goes most everywhere but is not shown by :MSGS by default
;(BBOARD (EQV-LIST (*BBOARD)))
;(*BBOARD (EQV-LIST *MSGS-TO-ITSES
;		   (*REAGAN (R-OPTION NOTDIST)) (*WH-BBOARD (R-OPTION NOTDIST))
;	           (*HX (R-OPTION NOTDIST)) (*LCS-UVAX (R-OPTION NOTDIST))
;		   (*MLSITE (R-OPTION NOTDIST))
;                   (*THEORY-BBOARD (R-OPTION NOTDIST))
;		   (*AMT (R-OPTION NOTDIST))
;                   (*EDDIE (R-OPTION NOTDIST))
;		   (*INFOODS (R-OPTION NOTDIST))
;		   (*LIDS (R-OPTION NOTDIST))
;		   (*PFC (R-OPTION NOTDIST))
;	           (*RANDOMS (R-OPTION NOTDIST))))

;; Hosts that can receive *msgs
;;(*NX (EQV-LIST *MSGS-TO-ITSES))
;; (*AI (EQV-LIST *MSGS-TO-ITSES))
;; (*MC (EQV-LIST *MSGS-TO-ITSES))
;; (*ML (EQV-LIST *MSGS-TO-ITSES))
;;(*MD (EQV-LIST *MSGS-TO-ITSES))
(*DB (EQV-LIST *MSGS-TO-ITSES))
(*MSGS-TO-ITSES (R-OPTION NOTDIST)      ; This just makes above 4 simpler.
  (EQV-LIST
        ;;(*MSG-SINK@NX (R-OPTION NOTDIST))
        ;; (*MSG-SINK@AI (R-OPTION NOTDIST))
        ;; (*MSG-SINK@MC (R-OPTION NOTDIST))
        ;; (*MSG-SINK@ML (R-OPTION NOTDIST))
	;; (*MSG-SINK@MD (R-OPTION NOTDIST))
        (*MSG-SINK@DB (R-OPTION NOTDIST))
	))
; This is final "sink". Mailer converts to filename specially.
(*MSG-SINK (R-OPTION NOTDIST))

; Messages addressed to a BUG-type recipient that doesn't exist are
; vectored to (BUG RANDOM-PROGRAM) instead, at a host address patched
; into COMSAT at location BUGHST.

(BUG-RANDOM-PROGRAM (EQV-LIST EJS))


;; The remaining names are not necessary to the operation of ITS but
;; are generally useful, I suppose.

; Plausible generic contact names.
(NETWORK-LIAISON (EQV-LIST EJS))
(LIASON (EQV-LIST NETWORK-LIAISON))
(LIAISON (EQV-LIST NETWORK-LIAISON))
(ACTION (EQV-LIST NETWORK-LIAISON))

; Personal lists and stuff.

(EJS (EQV-LIST [EJS;EJS MAIL]))	; Avoid clash with INQUIR mail address

(INFO-EJS10 (EQV-LIST
		([EJS;EJS10 ARCHIV] (R-OPTION FAST-APPEND))	; Msg log
		(@FILE [EJS;EJS10 PEOPLE])	; Distrib list
		))

(ACCOUNTS-NOTIFICATION (EQV-LIST EJS))
(USER-ACCOUNTS (EQV-LIST EJS))
(ACCOUNTS-HELD-REFUSED (EQV-LIST EJS))
(USER-ACCOUNTS-ARCHIVE (EQV-LIST EJS))
(PASSWORD-SYSTEM (EQV-LIST EJS))
(BUGGY-PWORD (EQV-LIST EJS))
