LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031589. :SYSTEM-TYPE :LOGICAL :VERSION 6. :TYPE "LISP" :NAME "DEFSYSTEM" :DIRECTORY ("REL3-SOURCE" "MAIL-DAEMON") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758715878. :AUTHOR "REL3" :LENGTH-IN-BYTES 3087. :LENGTH-IN-BLOCKS 4. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ;;; -*- Mode:Common-Lisp; Package:USER; Base:10 -*-;;;                           RESTRICTED RIGHTS LEGEND;;;Use, duplication, or disclosure by the Government is subject to;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in;;;Technical Data and Computer Software clause at 52.227-7013.;;;                     TEXAS INSTRUMENTS INCORPORATED.;;;                              P.O. BOX 2909;;;                           AUSTIN, TEXAS 78769;;;                                 MS 2151;;; Copyright (C) 1985,1987 Texas Instruments Incorporated. All rights reserved.(eval-when (load eval)  (unless (find-package "MAIL")  (make-package "MAIL" :size 700)))(defsystem MAIL-DAEMON  (:name "Mail-Daemon")  (:short-name "Mailer")  (:pathname-default "SYS:MAIL-DAEMON;")  (:patchable "SYS:PATCH.MAIL-DAEMON;" PATCH)  (:warnings-pathname-default "SYS:CWARNS;MAIL-DAEMON.LISP")  (:module definitions ("options" "definitions"))  (:module basic ("name" "address" "header"))  (:module main ("server" "client" "message" "mailer"))  (:module compile-flavor-methods ("compile-flavor-methods"))  (:compile-load definitions)  (:compile-load basic (:fasload definitions))  (:compile-load main (:fasload definitions basic))  (:compile-load compile-flavor-methods (:fasload definitions basic main))  )(eval-when (load eval)  (import '(    zwei::*interval*    zwei::*msg*    zwei::*mail-buffer*    zwei::*user-mail-reading-mode*    zwei::*sticky-mail-window-configuration-p*    zwei::*sticky-mail-buffer-selection-p*    zwei::*mail-summary-window-fraction*    zwei::*default-mail-summary-template*    zwei::*mail-summary-template*    zwei::*mail-summary-attribute-char-alist*    zwei::*user-default-mail-file*    zwei::*always-check-inboxes*    zwei::*save-mail-file-in-background*    zwei::*mail-file-versions-kept*    zwei::*reformat-headers-automatically*    zwei::*reformat-headers-include-list*    zwei::*reformat-headers-exclude-list*    zwei::*reformat-headers-case*    zwei::*reformat-headers-body-goal-column*    zwei::*yank-message-headers-include-list*    zwei::*yank-message-prefix*    zwei::*delete-message-after-copy*    zwei::*choose-from-all-mail-keywords-p*    zwei::*unsent-message-query-p*    zwei::*two-window-reply*    zwei::*default-print-message-printer*    zwei::*mail-mode-hook*    zwei::*default-bcc-string*    zwei::*default-fcc-string*    zwei::*default-reply-to-string*    zwei::*default-other-mail-file*    zwei::*unix-inbox-pathname*    zwei::*inhibit-mail-file-format-warnings*    zwei::*forwarded-message-begin*    zwei::*forwarded-message-end*    zwei::*dont-reply-to*    zwei::*default-in-reply-to-template*    zwei::*in-reply-to-template*    zwei::*upcase-message-keywords-p*    zwei::*backup-file-append-string*    zwei::*reformat-one-header-hook*    zwei::*box-summary-lines*    zwei::define-mail-template    zwei::define-mail-filter    zwei::preload-mail-file    zwei::message-node    zwei::message-interval    )  'mail))e-variables  (:default-init-plist :allow-other-keys t))(defflavor BAD-ADDRESS   (error-report-string)   (address)  :gettable-instance-variables  :initable-instance-variables  (:default-init-plist :allow-other-keys t))(defmethod (ADDRESS :PRINT-SELF) (stream depth slashify)  (declare (ignore depth))  (if slashify      (format stream "#<~S ~S ~O>"      (type-of self) (send self :address-string) (sys:%pointer self))      (princ (send self :address-string) stream)))(defmethod (GROUP-ADDRESS :AFTER :DESCRIBE) ()  (format t "~2%ADDRESS-LIST:~%")  (dolist (address address-list)    (describe address)))(defun MAILBOX-P (address)  (or (and (typep address 'basic-address)   (not (typep address 'route-address)))      (typep address 'named-address)))(defun NAMED-ADDRESS-P (address)  (typep address 'named-address))(defun ROUTE-ADDRESS-P (address)  (and (typep address 'route-address)       (not (typep address 'named-address))))(defun BASIC-ADDRESS-P (address)  (and (t