LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031598. :SYSTEM-TYPE :LOGICAL :VERSION 9. :TYPE "LISP" :NAME "OPTIONS" :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 2758716022. :AUTHOR "REL3" :LENGTH-IN-BYTES 2013. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ;;;-*- Mode:Common-Lisp; Package:MAIL; 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.(defvar *PROBE-FOR-NEW-MAIL-P* t  "When T, probe inboxes defined by mail files and notify of new mail")(defvar *MAIL-BACKGROUND-SLEEP-TIME* (* 20 60)  "Time in seconds for the mail delivery daemon to sleep")(defvar *INBOX-PROBE-SLEEP-TIME* (* 10 60)  "Time in seconds between probes and notifications of new mail")(defvar *MAILING-LIST-HOST* nil  "Host to check for mailing lists")(defvar *MAILING-LIST-DIRECTORY* "mailing-lists"  "Name of the top level directory that contains the mailing lists")(defvar *TRY-MAIL-NOW-P* t  "Attempt to send mail in foreground before queueing.")(defvar *DEFAULT-BLIND-COPY-ADDRESS-LIST* '())(defvar *MAIL-USER-PERSONAL-NAME* nil  "Overrides the PERSONAL-NAME user attribute in Name Space.  Personal name of logged in user forgenerating mail addresses.")(defvar *USER-MAIL-ADDRESS* nil  "Overrides the MAIL-ADDRESS user attribute in Name Space.  Preferred mailing address of logged in user.")(defvar *RETURN-PATH-ALWAYS-LOCAL* nil  "When T, always use the local machine and user-id for return path; otherwise return-pathis the user's mail address as specified in USER namespace object or MAIL:*USER-MAIL-ADDRESS*.")(defvar *REJECT-MAIL-CONNECTIONS* nil  "If non nil and lm is not a mail server reject mail server connections")(defvar *POSTMASTER-ADDRESS* nil  "Address for person maintaining the mail system")(defvar *FOLD-ADDRESS-HEADER-COLUMN* 60))       (return t)))) (if (boun