;;-*- Mode:LISP; Package:ZWEI; Base:10; Readtable:CL -*-

(login-setq *zmail-startup-file-name* "angel:/lmi/keith/mail.bb")

(login-setq *from-user-id* "keith")

(login-setq *from-host* (si:parse-host "angel"))

(login-setq fs:user-personal-name-first-name-first "Keith Corbett")

(login-setq *zmail-usual-mail-file-directory* "angel:/lmi/keith/")

(login-setq *zmail-homedir-real-new-mail-filename* "angel:/usr/spool/mail/keith")

(login-setq *allow-lm-in-from-field* t)

(login-setq *require-subjects* t)

(login-setq *notify-on-new-mail-in-background* :notify)

;;Nobody wants the default value of this crud:
(setq zwei:*run-gmsgs-p* nil)

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