;JIM's ZMAIL init file -*-Mode:Lisp;Package:ZWEI;Readtable:CL;Base:10-*-

(LOGIN-SETQ *FROM-HOST* (SI:PARSE-HOST "GSI-CAM"))
(LOGIN-SETQ *FROM-USER-ID* '"jim")
(LOGIN-SETQ *REQUIRE-SUBJECTS* T)
(LOGIN-SETQ *DEFAULT-CC-LIST* '((:NAME "jim" :HOST ("GSI-CAM"))))
(LOGIN-SETQ *DEFAULT-MAIL-WINDOW-CONFIGURATION* ':MSG)
(LOGIN-SETQ *REPLY-WINDOW-MODE* ':YANK)
(LOGIN-SETQ *ZMAIL-USUAL-MAIL-FILE-DIRECTORY* '"angel:/usr/spool/mail")
(LOGIN-SETQ *ZMAIL-STARTUP-FILE-NAME* '"angel://lmi//jim//mail.bb")
(LOGIN-SETQ *OTHER-MAIL-FILE-NAMES*
            '("DJ: JIM.MAIL; BUG-FALCON-COMPILER-FIXED.BB#>" 
              "DJ: JIM.MAIL; BUG-FALCON-FIXED.BB#>" "DJ: JIM.MAIL; INFO-FALCON.BB#>" 
              "DJ: JIM.MAIL; KEITH.BB#>" "DJ: JIM.MAIL; SAZ.BB#>" 
              "DJ: JIM.MAIL; TECHNICAL-STAFF.BB#>" "DJ: JIM.MAIL; BUG-FALCON-COMPILER.BB#>" 
              "DJ: JIM.MAIL; BUG-FALCON.BB#>" "DJ: JIM.MAIL; BUG-FLEABIT.BB#>" 
              "DJ: JIM.MAIL; BUG-LISPM.BB#>" "DJ: JIM.MAIL; FALCON-HARDWARE.BB#>" 
              "DJ: JIM.MAIL; GENERAL-INFO.BB#>" "DJ: JIM.MAIL; PFC.BB#>" 
              "DJ: JIM.MAIL; PROPOSALS.BB#>" "DJ: JIM.MAIL; SILICART.BB#>" 
              "DJ: JIM.MAIL; USEFUL.BB#>"))
(setq zwei:*zmail-usual-mail-file-directory* "angel:/usr/spool/mail")
(setq zwei:*zmail-homedir-real-new-mail-filename* "angel:/usr/spool/mail/jim")

(pushnew '("FALCON"
	    :value "FALCON"
	    :documentation "Report an issue for the Falcon development group")
	 zwei:*zmail-bug-list*
	 :key #'car
	 :test #'string-equal)

(pushnew '("FALCON-COMPILER"
	    :value "FALCON-COMPILER"
	    :documentation "Report an issue for the Falcon Compiler development group")
	 zwei:*zmail-bug-list*
	 :key #'car
	 :test #'string-equal)