;;; -*-LISP-*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;  This file belongs on DM.  DO NOT COPY TO OTHER MACHINES!!
;;;
;;; *NOTE* -- If you are of a mind to modify something in this
;;; file, or want to know what the funny names mean, the file
;;; to read is .MAIL.;NAMES INFO.  Have fun!
;;;					- KLH
;;;
;;; 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!)   
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;Everyone who logs in will see this.(for official use only!)
(SYSTEM-MAIL (EQV-LIST ([SYS;SYSTEM MAIL])))
(SYSTEM (EQV-LIST ([SYS;SYSTEM MAIL])))

;Reports of lossage from demons.
(SYS-OPERATING-TROUBLE (EQV-LIST RAY TAA PDL CSTACY))

(LIAISON (EQV-LIST SWG))
(POSTMASTER (EQV-LIST BUG-MAIL))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;		   Bug reporting lists
;;;
;;; These are the equivalences for :BUG and :FEATUR.
;;; If there is no equivalence for a "BUG-..." name
;;; on DM, the message is forwarded to MC automatically.
;;; If a program exists on all machines, its BUG-... list
;;; normally only needs to be on MC.
;;;
;;; The reasons to define a BUG- name on DM include:
;;; 1) The program is not used on MC.
;;; 2) The program is mainly used on DM, and most of the maintainers
;;; are on DM, and there is an entry on MC which forwards to DM.
;;; In the absence of such reasons, define it on MC only.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(BUG-DDT (EQV-LIST (BUG-DDT MC)))
(BUG-ITS (EQV-LIST (BUG-ITS MC)))
(BUG-LOGGER (EQV-LIST BUG-PWORD))
(BUG-LOGIN (EQV-LIST BUG-PWORD))
(BUG-PANDA (EQV-LIST BUG-PWORD))
(BUG-PASSWORD (EQV-LIST BUG-PWORD))
(BUG-PASSWORDS (EQV-LIST BUG-PWORD))
(BUG-PWORD (EQV-LIST (BUG-PWORD MC)))
(BUG-SCRIBE (EQV-LIST (JAN XX) (RI XX) (WAYNE XX) (ELLEN MC)))
(BUG-TEX (EQV-LIST (BUG-TEX MC)))
(BUG-TCP (EQV-LIST (BUG-TCP MC)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;                                                                ;;;
;;;		   Mailing lists                                   ;;;
;;;                                                                ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(A-AI (EQV-LIST (ACCOUNTS-NOTIFICATION AI)))
(A-MC (EQV-LIST (ACCOUNTS-NOTIFICATION MC)))
(ACCOUNT (EQV-LIST USER-ACCOUNTS))
(ACCOUNTS (EQV-LIST USER-ACCOUNTS))
(ACCOUNTS-HELD-REFUSED (EQV-LIST (ACCOUNTS-HELD-REFUSED MC)))
(ACCOUNTS-NOTIFICATION (EQV-LIST (ACCOUNTS-NOTIFICATION MC)))
(ACOUNT (EQV-LIST USER-ACCOUNTS))
(ACOUNTS (EQV-LIST USER-ACCOUNTS))

(ALL-DMS (EQV-LIST STAFF STUDENTS))

(AP-DIGEST-ENTITIES (EQV-LIST MUFTI COMMON-AP-NEWS))

(BBOARD (EQV-LIST *BBOARD))

(BICYCLISTS (EQV-LIST (BIKES MC)))
(BIKES (EQV-LIST (BIKES MC)))

(BOSTON-CSTALK (EQV-LIST [USERS1;EVANS CSLIST]))

(CALCULATOR (EQV-LIST (CALCULATOR@MC)))


(CASE-STUDIES (EQV-LIST TAA (JSK XX) (HAMMER XX) (SIRBU XX) (ZARMER XX)
			(GREIF XX) (OA.CASE-STUDIES XX) CLU RWS RRA))
(CS (EQV-LIST CASE-STUDIES))

;;; These are for KMP's programs :NYT and :AP which read newswires like Rmail
(COMMON-AP-NEWS (EQV-LIST (FILE [COMMON;_NEWS_ AP] (R-OPTION NEW-FILE))))
(COMMON-NYT-NEWS (EQV-LIST (FILE [COMMON;_NEWS_ NYT] (R-OPTION NEW-FILE))))

(COMPLAIN-CC&F (EQV-LIST (COMPLAIN-CC&F ML)))
(COMPLAIN-CLEAN (EQV-LIST (BUG-CLEAN ML)))

(DATA-BASE (EQV-LIST (hammer xx) (JSK xx) (ri xx) SBZ SKS BERN AC BTB
		      YANNIS))

(DB-ALERTERS (EQV-LIST AV EB SKS SSP  (GPB CCA) (wilson CCA-SDMS)
		       (MARK CCA-SDMS) (HELP CCA-TENEX)  (Geoff SRI-KA)
		       (ARIAV WHARTON) (DREIFU WHARTON) ;(DAVES AI)
		       (MORGAN WHARTON) CSTACY))

(DM-FONT-USERS (EQV-LIST TAA BERN  PDL (SWG XX) RWS AS
			 EBM [.INFO.;FONT MAIL]))

(DM-HEADER-PEOPLE (EQV-LIST [NETDOC;HEADER PEOPLE]))

(DM-INFO-R (EQV-LIST BERN SKS BTB (SWG XX)))

(DM-RMODE-USERS (EQV-LIST [.INFO.;RMODE MAIL] AC BERN BTB JSK PDL SKS 
			  (JHAVERTY BBNE) (MARKT XX) (SWG XX) TAA))

(ECOLE (EQV-LIST BERN (LSR XX) (RI XX) TAA (HAMMER XX) (SBZ XX) (JSK XX) EGBERT
		 (YANNIS XX) (OA.JEN XX) Gumby (WNMOK XX)))

(EMACS-MUDDLE-USERS (EQV-LIST Bauman Brand Devon FNT Lick MJL (MARKT XX)
			      PWD RobG SEB Tim [EMACS;EMXMUD NEWS]
			      (NORI CCA-TENEX) MAZE (Dada XX) (LSR XX)
			      (Mark XX) (RI XX)))

(ENERGY (EQV-LIST (ENERGY@MC)))

(ETUDE (EQV-LIST (GREIF XX) (hammer xx) (ri xx) BERN EGBERT (yannis xx) TAA
		 (MDG XX) (lsr xx) (oa.jen xx) (sirbu xx) (jbs xx) (oa.em xx)
		 (jsk xx) Gumby  (WNMOK XX)))

(FILE-R (EQV-LIST TY))
(FILE-RESTORE (EQV-LIST TY))

(FIX (EQV-LIST (FIX ML)))

(HUMAN-NETS (EQV-LIST (HUMAN-NETS AI)))
(HUMAN-NETS-ARCHIVES (EQV-LIST [COMMON;DUFFEY HNTDST]))
(HUMAN-NETS-REQUEST (EQV-LIST (HUMAN-NETS-REQUEST AI)))

(IN-HOUSE (EQV-LIST (JSK XX) (HAMMER XX) (SIRBU XX)))

(INFO-ADA (EQV-LIST (INFO-ADA MC)))
(INFO-ADA-REQUEST (EQV-LIST (INFO-ADA-REQUEST MC)))

(INFO-APPLE (EQV-LIST (@FILE [CSTACY;IFALST >])))
(INFO-APPLE-REQUEST (EQV-LIST (David.Anderson CMUA)
		     ([CSTACY;IFA REQSTS] (R-OPTION FAST-APPEND))))
(INFO-APPLE-ARCHIVE-FILE (EQV-LIST [CSTACY;IFA003 ARCHIV]))


(INFO-ATARI (EQV-LIST (INFO-ATARI MC)))
(INFO-ATARI-REQUEST (EQV-LIST (INFO-ATARI-REQUEST MC)))

;;; Info-Audio, maintained by Elmo@OZ for Derway
;;; Currently pointing DM => MC => OZ until OZ is up on arpa.

(INFO-AUDIO (EQV-LIST (INFO-AUDIO MC)))
(INFO-AUDIO-REQUEST (EQV-LIST (INFO-AUDIO-REQUEST MC)))

(INFO-CLU (EQV-LIST (RWS  BERN RRA AS EBM MEREY CLUSER STARK JCS
			 SEB [CLU;CLU MAIL])))

(INFO-MICRO (EQV-LIST (INFO-MICRO BRL)))
(INFO-MICRO-REQUEST (EQV-LIST (INFO-MICRO-REQUEST BRL)))

(INFO-PASCAL (EQV-LIST (INFO-PASCAL AI)))

(INFO-POLES (EQV-LIST (TAA XX) (DJC XX) EGBERT (TAA.JTP XX) (SBZ XX) (JSK XX)
		      (RI XX) PDL  (RI.SR XX) (MARKT XX) [DJC;POLES *]))

(INFO-READER (EQV-LIST TAA BTB CLR DJC PDL ROBG MJL))

(INFO-TEX (EQV-LIST (INFO-TEX MC)))
(INFO-TEX-REQUEST (EQV-LIST (INFO-TEX-REQUEST MC)))

(LIB-COMM (EQV-LIST MARIAS (LIB-COMM ML)))

(LIBRARY (EQV-LIST MARIAS))

(LSC (EQV-LIST MP))
(LSC-MOVIES (EQV-LIST MP BERN BTB CLR PDL RRA (SWG XX) (ANN XX) (DIANA XX)
		      (JSK XX) (RI XX) EGBERT JMB TAA DJC (shane xx)
		      (SRF XX)  (Goldfarb XX)  (yannis xx) (INFO-LSC OZ)
		      (FILE [DSK:CSTACY;LSC MOVIES] MC) (ELROD XX)
		      (INFO-LSC MC) (INFO-LSC ML) (MARKT XX) MJL))

(MACLISP-MAINTAINERS (EQV-LIST (MACLISP-MAINTAINERS MIT-OZ)))

(MADMEN (EQV-LIST MARC TAA))

(MAIL-PEOPLE (EQV-LIST AV MARC PDL DANG (MT XX) CSTACY))
(MAIL-SYSTEM (EQV-LIST AV MARC PDL CSTACY))

(MDL-MEETING (EQV-LIST (JAN XX) MARC TAA AV (SHB XX) (AV XX) LICK LIM MD PDL
		       (SSP XX) (CSTACY OZ) CLR (CARUSO XX) (SWG XX)
		       (SANGAL XX) ALI (LH ML)))

(MIDL (EQV-LIST DLD HJB ALI PDL MARC TAA))

(MIM (EQV-LIST MARC LIM ALI (SHB XX) (SCRIMSHAW XX) CLR SEB))

(MORSE-GROUP (EQV-LIST AV PDL MRSGRP))

(MSGDMS (EQV-LIST AV MSGDMS))

(MSGGROUP (EQV-LIST (MSGGROUP MC)))
(MSGGROUP-REQUEST (EQV-LIST (MSGGROUP-REQUEST MC)))
(MSGGRP (EQV-LIST BERN LICK MMH))

(MUDDLE-PAPER (EQV-LIST PDL TAA CLR BKD DLD SWG BTB MARC JMB LICK
			     LIM [PDL;MUDDLE PAPER]))

(NETADR-GROUP (EQV-LIST NETADR KLH RMS MOON CSTACY (DCROCKER USC-ISI)
			(POSTEL ISIC) (MT XX)))

(NEW-ETUDE (EQV-LIST Bern (mdg xx) (ri xx) (jsk xx) (lsr xx) egbert (jbs xx)
		     (hammer xx) (greif xx) (sirbu xx) (yannis xx)))
(NU-ETUDE (EQV-LIST NEW-ETUDE))

(NYT-SUMMARY-ENTITIES (EQV-LIST MUFTI COMMON-NYT-NEWS))


(RAVS (EQV-LIST MARC AC PDL TAA EGBERT DJC JMB MT (JSK XX) (RI XX) CLR (JBS XX)
		(HAMMER XX) (LSR XX) (SBZ XX) (MDG XX)  (SWG XX) (BTB XX)
		(ANN XX) (DIANA XX) LIM (TAA.JTP XX) (RI.SR XX)))
(RAVS-REPLY (EQV-LIST [OA;RAVS REPLY]))

(SCIENCE-CALENDAR (EQV-LIST (SCIENCE-CALENDAR AI)))
(SCIENCE-CALENDAR-DM (EQV-LIST BERN DJC (SWG XX) TAA (ri.sr xx) (MARKT XX)
			       (stark xx)  (JSK XX) (MPH XX)
			       (MT XX) (jcs xx)))

(SF-LOVERS (EQV-LIST (SF-LOVERS AI)))
(SF-LOVERS-ARCHIVES (EQV-LIST [COMMON;DUFFEY SFLDST]))
(SF-LOVERS-REQUEST (EQV-LIST (SF-LOVERS-REQUEST AI)))

(SKY-FANS (EQV-LIST SKY-FANS-CIT SKY-FANS-CMU SKY-FANS-MIT SKY-FANS-SU))
(SKY-FANS-CIT (EQV-LIST (SKY-FANS-CIT MIT-XX)))
(SKY-FANS-CMU (EQV-LIST (SKY-FANS-CMU MIT-XX)))
(SKY-FANS-DC (EQV-LIST LLOYD CSTACY))
(SKY-FANS-MIT (EQV-LIST (SKY-FANS-MIT MIT-XX)))
(SKY-FANS-SU (EQV-LIST (SKY-FANS-SU MIT-XX)))

(STAFF (EQV-LIST (PDL AV LICK TAA CLR LH)))

(STAFF-6035 (EQV-LIST (STAFF-6035 MC)))

(STUDENTS (EQV-LIST BERN BTB DJC JSK SBZ SKS EGBERT (yannis xx) DKK GEOF JCS
		    MKS RWS STARK TOBY LISKOV ALI BEO CATHY (DADA XX) HOLT LIM
		    (MARKT XX) RLBYBS SAR (Schad XX) SIR ;(DAVES AI)
		    (Wallace XX)))

(SUPDUP-EXTENSIONS (EQV-LIST (SUPDUP-EXTENSIONS MIT-OZ)))
(SUPDUP-EXTENTIONS (EQV-LIST (SUPDUP-EXTENSIONS MIT-OZ)))

(TELETEXT (EQV-LIST (TELETEXT AI)))
(TELETEXT-REQUEST (EQV-LIST (Lauren UCLA-Security)))

(TNXMUD (EQV-LIST BTB AV (SWG XX)))

(TOPS-20AN (EQV-LIST AV PDL TAA BERN CSTACY (MT XX)))

(TYPES-SEMINAR (EQV-LIST (Arvind xx) (Wlim xx) (Djc xx) (Stark xx) (Dennis xx)
			 (Hal mc) (Macrak mc) (Meyer dm) (Weiss dm) (JCM DM)
			 (JByrd DM) (Ray ml) (JEN ML) (Ravi ml) (Joyce ml)
			 (ssc mc) (jmw xx)))

(UPDATE-INQUIR (EQV-LIST
	(FILE [INQUIR;.UPD1. >])
	(PGM [INQUIR;INQUPD BIN]
	     (R-PGM-MNTNR (BUG-INQUIR)) 
	     (R-PGM-DISOWN 6)) ))

(USER-A (EQV-LIST USER-ACCOUNTS))
(USER-ACCOUNT (EQV-LIST USER-ACCOUNTS))
(USER-ACCOUNTS (EQV-LIST SWG CSTACY (USER-ACCOUNTS MC)))
(USER-ACOUNT (EQV-LIST USER-ACCOUNTS))
(USER-ACOUNTS (EQV-LIST USER-ACCOUNTS))

(ZORK (EQV-LIST TAA MJL))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;                                                                ;;;
;;;		   Personal Equivalences and options               ;;;
;;;                                                                ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(BRD (EQV-LIST (BRD OZ) (Danielson PARC-MAXC)))
(GILBERT (EQV-LIST [EGBERT;EGBERT MAIL]))
(GRENDEL (EQV-LIST (GREN MC)))
(OA (EQV-LIST (OA XX)))
;(RRA (EQV-LIST [RRA;RRA MAIL] (RRA XX)))
(RRA (EQV-LIST (RRA XX)))
(SANDERS (EQV-LIST (SANDERS MC)))
(SKS (EQV-LIST [SKS;SKS MAIL] (SKS XX)))
(YANNIS (EQV-LIST [YANNIS;YANNIS MAIL]))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Here is the stuff or *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 for each site.
(* (R-OPTION NOTDIST) (EQV-LIST *DM))

;;; *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 *MULTICS *EE *CMU *CIPG *DSPG))
(*MAC (R-OPTION NOTDIST) (EQV-LIST *ITS1 *XX *VX *HT *RTS *OZBB))
(*ITS (R-OPTION NOTDIST) (EQV-LIST *ITS1 (BBITSMSG XX)
				   (ITSMSG XX) (ITSMSG EE) 
				   (itsmsg VX) (itsmsg HT) (itsmsg RTS)))
(*TENS (R-OPTION NOTDIST) (EQV-LIST *ITS1 *XX *EE *OZ))
(*ITS1 (R-OPTION NOTDIST) (EQV-LIST *ML *MC *DM))

;;; BBOARD goes most everywhere but is not shown by :MSGS by default.
(BBOARD (EQV-LIST (*BBOARD)))
(*BBOARD (EQV-LIST *MSGS-TO-ITSES
		   (*VX (R-OPTION NOTDIST)) (*HT (R-OPTION NOTDIST))
		   (*RTS (R-OPTION NOTDIST)) (*OZBB (R-OPTION NOTDIST))
		   (*XX (R-OPTION NOTDIST)) (*EE (R-OPTION NOTDIST))
		   (*MULTICS (R-OPTION NOTDIST))
		   (*CMU (R-OPTION NOTDIST))))

;;; Hosts that can receive *msgs
(*MC (EQV-LIST *MSGS-TO-ITSES))
(*ML (EQV-LIST *MSGS-TO-ITSES))
(*DM (EQV-LIST *MSGS-TO-ITSES))
(*MSGS-TO-ITSES (R-OPTION NOTDIST) ; This just makes above 4 simpler.
  (EQV-LIST
	(*MSG-SINK @MC (R-OPTION NOTDIST))
	(*MSG-SINK @ML (R-OPTION NOTDIST))
	(*MSG-SINK @DM (R-OPTION NOTDIST)) ))

(*MSG-SINK (R-OPTION NOTDIST)) ; This is final "sink".
                               ; Mailer converts to filename.

(*XX (EQV-LIST (FORUM XX)))
(*EE (EQV-LIST (FORUM EE)))
(*OZ (EQV-LIST (SYSTEM OZ)))
(*OZBB (EQV-LIST (FORUM OZ)))
(*VX (EQV-LIST (msgs VX (R-HEADER-FORCE NET))))
(*HT (EQV-LIST (msgs MIT-HTVAX (R-HEADER-FORCE NET))))
(*RTS (EQV-LIST (msgs RTS (R-HEADER-FORCE NET))))
(*CIPG (EQV-LIST (msgs CIPG (R-HEADER-FORCE NET))))
(*DSPG (EQV-LIST (msgs DSPG (R-HEADER-FORCE NET))))
(*MULTICS (EQV-LIST (graffiti.IPC Multics (R-HEADER-FORCE NET))))
(*CMU (EQV-LIST (MIT-MESSAGES CMU-A (R-HEADER-FORCE NET))))

;;; Here are some DM frobs that I dont know what to do with.
;(FORUM (EQV-LIST MSGSRV))
(FORUM (EQV-LIST (*BBOARD)))
;(* (EQV-LIST MSGSRV))
(* (EQV-LIST (*BBOARD)))  
;(.BATCH (EQV-LIST ([SWG;.BA SINK]))
(.BATCH (EQV-LIST ([HUDINI;BATCH >])))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; MAILER MAINTENANCE STUFF - DO NOT CHANGE!

(COMSAT (EQV-LIST (MAIL-MAINTAINERS)))	;in case people send to it.
(NET-ORIGIN (EQV-LIST			;default sender name for incoming net msgs.
	([.MAIL.;FAILED NETORG] (R-OPTION FAST-APPEND))
	(MAIL-MAINTAINERS)))
(MAIL-MAINTAINERS (EQV-LIST ([.MAIL.;FAILED STUFF] (R-OPTION FAST-APPEND))))