*** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: (ZMAIL-ERROR "The command ~S has invalid self-documentation ~S" COMMAND DOC))) *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: (ZMAIL-ERROR "The command ~S has invalid self-documentation ~S." COMMAND DOC))) *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: (BARF "There is no current message"))) (NO-MSG-OK (OR *ZMAIL-BUFFER* (BARF "There is no current zmail buffer"))) (NO-ZMAIL-BUFFER-OK)))) (CADR (ASSQ ARGUMENT-CONDITION '((NO-ARG (AND *NUMERIC-ARG-P* (BARF "This command does not take an argument") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: (BARF "There is no current message."))) (NO-MSG-OK (OR *ZMAIL-BUFFER* (BARF "There is no current zmail buffer."))) (NO-ZMAIL-BUFFER-OK)))) (CADR (ASSQ ARGUMENT-CONDITION '((NO-ARG (AND *NUMERIC-ARG-P* (BARF "This command does not take an argument.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: (DEFVAR *OTHER-COMMAND-ALIST* NIL "List of commands for the OTHER menu.") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: (DEFVAR *OTHER-COMMAND-ALIST* NIL "List of commands for the menu which appears after clicking on /"Other/".") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: ("Return-Path" . :RETURN-PATH) ;;I don't think this is official, but its legal *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: ("Return-Path" . :RETURN-PATH) ;;I don't think this is official, but it's legal *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: "The list of all the valid fields in a header.") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: "The list of all possible header fields.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: "The list of all the fields valid as recipient headers.") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: "The list of all valid header fields which may be used to designate a message's recipient(s).") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: "The list of all the fields valid as sender headers.") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: "The list of all valid header fields which may be used to designate a message's sender.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: (DEFVAR *SENDER-OR-RECIPIENT-TYPE-HEADERS* `(,@*SENDER-TYPE-HEADERS* . ,*RECIPIENT-TYPE-HEADERS*) "The list of all valid header fields which may be used to designate a message's sender or its recipient(s).") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: (DEFVAR *SENDER-OR-RECIPIENT-TYPE-HEADERS* `(,@*SENDER-TYPE-HEADERS* . ,*RECIPIENT-TYPE-HEADERS*) "The list of all the fields valid as sender or recipient headers.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: ;;; These are properties which are not dependent on the text of the message ;;; Other properties which gotten from the text indirectly and hence not in the ;;; keyword package are: LOSING-HEADERS, REFERENCES, ITS-HEADER-P, HEADERS-END-BP, LENGTH, ;;; HASH-ID *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: ;;; These are properties which are not dependent on the text of the message. ;;; Other properties, gotten from the text indirectly and hence not in the ;;; keyword package, are: LOSING-HEADERS, REFERENCES, ITS-HEADER-P, HEADERS-END-BP, LENGTH, ;;; and HASH-ID. *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: "The properties a message could have. They are one or more of the following: last, unseen, deleted, bad-header, answered, forwarded, redistributed, filed, recent.") (DEFVAR *SORT-KEY-ALIST-1* '(("Date" :VALUE MSG-DATE-SORT-LESSP :DOCUMENTATION "Chronologically by date.") ("To" :VALUE MSG-TO-STRING-LESSP :DOCUMENTATION "Alphabetically by To: field.") ("From" :VALUE MSG-FROM-STRING-LESSP :DOCUMENTATION "Alphabetically by From: field.") ("Subject" :VALUE MSG-SUBJECT-STRING-LESSP :DOCUMENTATION "Alphabetically by Subject: field.") ("Keywords" :VALUE MSG-KEYWORD-LESSP :DOCUMENTATION "Alphabetically by keywords present.") ("Text" :VALUE MSG-TEXT-STRING-LESSP :DOCUMENTATION "Alphabetically by actual message text.") ("Length" :VALUE MSG-LENGTH-LESSP :DOCUMENTATION "Numerically by length of message in characters.")) *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: "The list of properties a message may have. A message may have one or more of the following properties: last, unseen, deleted, bad-header, answered, forwarded, redistributed, filed, recent.") (DEFVAR *SORT-KEY-ALIST-1* '(("Date" :VALUE MSG-DATE-SORT-LESSP :DOCUMENTATION "In forward chronological order.") ("To" :VALUE MSG-TO-STRING-LESSP :DOCUMENTATION "In alphabetical order, by To: field.") ("From" :VALUE MSG-FROM-STRING-LESSP :DOCUMENTATION "In alphabetical order, by From: field.") ("Subject" :VALUE MSG-SUBJECT-STRING-LESSP :DOCUMENTATION "In alphabetical order, by Subject: field.") ("Keywords" :VALUE MSG-KEYWORD-LESSP :DOCUMENTATION "In alphabetical order, by existing keywords.") ("Text" :VALUE MSG-TEXT-STRING-LESSP :DOCUMENTATION "In alphabetical order, by first word of message text.") ("Length" :VALUE MSG-LENGTH-LESSP :DOCUMENTATION "In order of increasing message length (in characters).")) *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: (TICK NIL :DOCUMENTATION "Last time something munged in some way") (MAIL-FILE-BUFFER NIL :DOCUMENTATION "The file this lives in") (SUMMARY-LINE NIL :DOCUMENTATION "String displayed in summary window") (DISPLAYED-INDEX 0 :DOCUMENTATION "Number for when displayed in summary window") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: (TICK NIL :DOCUMENTATION "Last time something changed in some way") (MAIL-FILE-BUFFER NIL :DOCUMENTATION "The file this lives in") (SUMMARY-LINE NIL :DOCUMENTATION "String displayed in summary window") (DISPLAYED-INDEX 0 :DOCUMENTATION "Number for display in summary window") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: (DEFVAR *DRAFT-TEXT-WINDOW* :UNBOUND "Text when sending") (DEFVAR *MSG-WINDOW* :UNBOUND "Text of message being read, or headers and text when sending. Note that each mail composition configuration includes uses *MSG-WINDOW* or both *DRAFT-HEADER-WINDOW* and *DRAFT-TEXT-WINDOW* for composing the message. In the latter case, it may use *MSG-WINDOW* for the message being replied to.") (DEFVAR *SUMMARY-WINDOW* :UNBOUND "Summary of messages") (DEFVAR *FILTER-WINDOW* :UNBOUND "Hairy menu pane for filter mode") (DEFVAR *PROFILE-WINDOW* :UNBOUND "Frame for changing profile") (DEFVAR *PROFILE-EDITOR* :UNBOUND "Editor that goes with above and below") (DEFVAR *PROFILE-EDITOR-WINDOW* :UNBOUND) (DEFVAR *COMMAND-MENU* :UNBOUND "The main command menu") (DEFVAR *KEYWORD-WINDOW* :UNBOUND "Menu for hacking keywords") (DEFVAR *WINDOW-CONFIGURATION* :UNBOUND "The present configuration") (DEFVAR *CURRENT-MSG-NAME* :UNBOUND "The number of the current msg as a string") (DEFVAR *ZMAIL-INTERVAL-NAME* :UNBOUND "Name of interval in reply for mode line") (DEFVAR *ZMAIL-BUFFER* :UNBOUND "The buffer being hacked") (DEFVAR *ZMAIL-BUFFER-LIST* :UNBOUND "The list of ones known about") (DEFVAR *PRIMARY-ZMAIL-BUFFER* :UNBOUND "The one associated with new mail") (DEFVAR *ZMAIL-FILE-NAME* :UNBOUND "Name of that file for the mode line") (DEFVAR *MSG* :UNBOUND "The current message") (DEFVAR *MSG-NO* :UNBOUND "Numerical index of above") (DEFVAR *MSG-POINT-PDL* :UNBOUND "Saved positions") (DEFVAR *ZMAIL-BACKGROUND-PROCESS* :UNBOUND "Handles asynchronous tasks") (DEFVAR *ZMAIL-BACKGROUND-PROCESS-LOCK* :UNBOUND "Lock for synchronizing") (DEFVAR *ZMAIL-BACKGROUND-REQUEST-CELL* :UNBOUND "Locative for communication") (DEFVAR *BACKGROUND-RESPONSE-QUEUE* :UNBOUND "Locative to list of responses from background process.") (DEFVAR *CURRENT-MSG-KEYWORDS-STRING* :UNBOUND "String of current messages keywords") (DEFVAR *SELECTABLE-MODE-LINE-ELEMENTS* :UNBOUND "Alist of modeline element and command") (DEFVAR *MSG-MORE-STRING* :UNBOUND "When can scroll message from mode line") (DEFVAR *DRAFT-LIST* :UNBOUND "List of drafts for continue") (DEFVAR *DEFAULT-MOVE-ZMAIL-BUFFER* :UNBOUND "When clicking left on move command") (DEFVAR *MOVE-ZMAIL-BUFFER-MENU* :UNBOUND "Pop-up for choosing where") (DEFVAR *ZMAIL-MAP-COMMAND-MENU* :UNBOUND "Things you can do to all messages") (DEFVAR *SELECT-ZMAIL-BUFFER-MENU* :UNBOUND "For select command") (DEFVAR *FILTER-SELECTION-FRAME* :UNBOUND "Frame for choosing a filter") (DEFVAR *UNIVERSE-SELECTION-MENU* :UNBOUND "Menu for choosing a universe for filter") (DEFVAR *UNIVERSE-DEFINITION-FRAME* :UNBOUND "Frame for defining a new universe") (DEFVAR *OVERLYING-WINDOW* :UNBOUND "For scrolling typeout of message texts") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: (DEFVAR *DRAFT-TEXT-WINDOW* :UNBOUND "Text when sending") (DEFVAR *MSG-WINDOW* :UNBOUND "Text of message being read, or headers and text when sending. Note that each mail composition configuration includes *MSG-WINDOW* or both *DRAFT-HEADER-WINDOW* and *DRAFT-TEXT-WINDOW* for composing the message. In the latter case, it may use *MSG-WINDOW* for the message being replied to.") (DEFVAR *SUMMARY-WINDOW* :UNBOUND "Summary of messages") (DEFVAR *FILTER-WINDOW* :UNBOUND "Menu pane for filter mode") (DEFVAR *PROFILE-WINDOW* :UNBOUND "Frame for changing profile") (DEFVAR *PROFILE-EDITOR* :UNBOUND "Editor that goes with *PROFILE-WINDOW* and *PROFILE-EDITOR-WINDOW*") (DEFVAR *PROFILE-EDITOR-WINDOW* :UNBOUND) (DEFVAR *COMMAND-MENU* :UNBOUND "The main command menu") (DEFVAR *KEYWORD-WINDOW* :UNBOUND "Menu for keywords") (DEFVAR *WINDOW-CONFIGURATION* :UNBOUND "The present configuration") (DEFVAR *CURRENT-MSG-NAME* :UNBOUND "The number of the current msg as a string") (DEFVAR *ZMAIL-INTERVAL-NAME* :UNBOUND "Name of interval in reply for mode line") (DEFVAR *ZMAIL-BUFFER* :UNBOUND "The buffer being hacked") (DEFVAR *ZMAIL-BUFFER-LIST* :UNBOUND "The list of ones known about") (DEFVAR *PRIMARY-ZMAIL-BUFFER* :UNBOUND "The one associated with new mail") (DEFVAR *ZMAIL-FILE-NAME* :UNBOUND "Name of that file for the mode line") (DEFVAR *MSG* :UNBOUND "The current message") (DEFVAR *MSG-NO* :UNBOUND "Numerical index of above") (DEFVAR *MSG-POINT-PDL* :UNBOUND "Saved positions") (DEFVAR *ZMAIL-BACKGROUND-PROCESS* :UNBOUND "Handles asynchronous tasks") (DEFVAR *ZMAIL-BACKGROUND-PROCESS-LOCK* :UNBOUND "Lock for synchronizing") (DEFVAR *ZMAIL-BACKGROUND-REQUEST-CELL* :UNBOUND "Locative for communication") (DEFVAR *BACKGROUND-RESPONSE-QUEUE* :UNBOUND "Locative to list of responses from background process.") (DEFVAR *CURRENT-MSG-KEYWORDS-STRING* :UNBOUND "String of current messages keywords") (DEFVAR *SELECTABLE-MODE-LINE-ELEMENTS* :UNBOUND "Alist of modeline element and command") (DEFVAR *MSG-MORE-STRING* :UNBOUND "When can scroll message from mode line") (DEFVAR *DRAFT-LIST* :UNBOUND "List of drafts for continue") (DEFVAR *DEFAULT-MOVE-ZMAIL-BUFFER* :UNBOUND "When clicking left on move command") (DEFVAR *MOVE-ZMAIL-BUFFER-MENU* :UNBOUND "Pop-up for choosing where") (DEFVAR *ZMAIL-MAP-COMMAND-MENU* :UNBOUND "Things you can do to all messages") (DEFVAR *SELECT-ZMAIL-BUFFER-MENU* :UNBOUND "For select command") (DEFVAR *FILTER-SELECTION-FRAME* :UNBOUND "Frame for choosing a filter") (DEFVAR *UNIVERSE-SELECTION-MENU* :UNBOUND "Menu for choosing a universe for filter") (DEFVAR *UNIVERSE-DEFINITION-FRAME* :UNBOUND "Frame for defining a new universe") (DEFVAR *OVERLYING-WINDOW* :UNBOUND "For scrolling typeout of message texts") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: :DOCUMENTATION "Just the summary window.") ("Both" :VALUE :BOTH :DOCUMENTATION "Summary window at the top and message at the bottom.") ("Message only" :VALUE :MSG :DOCUMENTATION "Just display current message.") ("Experimental" :VALUE :NEW :DOCUMENTATION "Every command takes a filter.")) *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: :DOCUMENTATION "Just the summary window; no message display.") ("Both" :VALUE :BOTH :DOCUMENTATION "Summary window at the top, and message window at the bottom.") ("Message only" :VALUE :MSG :DOCUMENTATION "Just display current message; no summary window.") ("Experimental" :VALUE :NEW :DOCUMENTATION "Both kinds of windows, and every command takes a filter.")) *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: "Actually remove this message from this temporary buffer.") ("No" :VALUE :NO :DOCUMENTATION "Do not move after the deletion."))) *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: "Delete this message and remove it from this temporary buffer.") ("No" :VALUE :NO :DOCUMENTATION "Do not move after deleting this message."))) *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: (DEFVAR *REPLY-MODES-ALIST* '((("All" :VALUE :ALL :DOCUMENTATION "To Sender and original To, Cc original Cc.") ("All-Cc" :VALUE :ALL-CC :DOCUMENTATION "To Sender, Cc original To and Cc.") ("Cc-All" :VALUE :CC-ALL :DOCUMENTATION "To original To, Cc Sender and original Cc.") ("To" :VALUE :TO :DOCUMENTATION "To Sender and original To.") ("To-Cc" :VALUE :TO-CC :DOCUMENTATION "To Sender, Cc original To.") ("Cc-To" :VALUE :CC-TO :DOCUMENTATION "To original To, Cc Sender.") ("Sender" :VALUE :SENDER :DOCUMENTATION "To Sender.")) (("Like Mail" :VALUE :LIKE-MAIL :DOCUMENTATION "Just text of reply, like Mail command.") ("Show Original" :VALUE :SHOW-ORIGINAL :DOCUMENTATION "Message being replied to on top and reply below.") ("Yank" :VALUE :YANK :DOCUMENTATION "Just text of reply with message being replied to yanked in."))) "List of all the reply modes available.") ;; Like the previous, but has entries for the obsolete mode keywords. ;; Used in creating documentation lines from keywords. *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: (DEFVAR *REPLY-MODES-ALIST* '((("All" :VALUE :ALL :DOCUMENTATION "To: Sender and Original /"To:/" Recipients. Cc: Original /"Cc:/" Recipients.") ("All-Cc" :VALUE :ALL-CC :DOCUMENTATION "To: Sender. Cc: Original To and Cc Recipients.") ("Cc-All" :VALUE :CC-ALL :DOCUMENTATION "To: Original /"To:/" Recipients. Cc: Sender and Original /"Cc:/" Recipients.") ("To" :VALUE :TO :DOCUMENTATION "To: Sender and Original /"To:/" Recipients") ("To-Cc" :VALUE :TO-CC :DOCUMENTATION "To: Sender. Cc: Original /"To:/" Recipients.") ("Cc-To" :VALUE :CC-TO :DOCUMENTATION "To: Original /"To:/" Recipients. Cc: Sender.") ("Sender" :VALUE :SENDER :DOCUMENTATION "To: Sender. Cc: None.")) (("Like Mail" :VALUE :LIKE-MAIL :DOCUMENTATION "Show only the text of the reply as it is being typed.") ("Show Original" :VALUE :SHOW-ORIGINAL :DOCUMENTATION "Show text of the message that is being replied to, as the reply text is being typed.") ("Yank" :VALUE :YANK :DOCUMENTATION "Insert the text of the originial message into the reply."))) "A list of the available reply modes and their meanings.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: "List of things for the YES-NO-ASK menu that pops up sometimes.") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: "A list of responses to the YES-NO-ASK menu.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: :DOCUMENTATION "Mail via the ethernet mail protocol.") ("SMTP" :value smtp-send-it :SITE-KEYWORD :SMTP :documentation "Send mail via the SMTP protocol.") )) (DEFVAR *HEADER-FORCE-ALIST* '(("None" :VALUE :NONE :DOCUMENTATION "No special header force, COMSAT chooses.") ("RFC733" :VALUE :RFC733 :DOCUMENTATION "RFC733 standard headers.") ("Network" :VALUE :NETWORK :DOCUMENTATION "Network standard headers.") ("ITS" :VALUE :ITS :DOCUMENTATION "Single line ITS headers.")) "List of the ways headers could be.") (DEFVAR *HEADER-FORMAT-ALIST* '(("Short" :VALUE :SHORT :DOCUMENTATION "Use /"@/" to separate user and host, no personal names.") ("Long" :VALUE :LONG :DOCUMENTATION "Use /" at /" to separate user and host, no personal names.") ("Include personal" :VALUE :INCLUDE-PERSONAL :DOCUMENTATION "Include the user's personal name if any.") ("Use original" :VALUE :USE-ORIGINAL :DOCUMENTATION "Use the exact text of the address from the original.")) "A list of the header formats available.") (DEFVAR *BUG-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation for sending a bug report using the BUG option on the MAIL menu.") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: :DOCUMENTATION "Mail using the ethernet mail protocol.") ("SMTP" :value smtp-send-it :SITE-KEYWORD :SMTP :documentation "mail using the SMTP protocol.") )) (DEFVAR *HEADER-FORCE-ALIST* '(("None" :VALUE :NONE :DOCUMENTATION "No special headers; let COMSAT do the work.") ("RFC733" :VALUE :RFC733 :DOCUMENTATION "Use the standard RFC733 headers.") ("Network" :VALUE :NETWORK :DOCUMENTATION "Use standard network headers.") ("ITS" :VALUE :ITS :DOCUMENTATION "Use single line ITS headers.")) "A list of possible header parsing styles and their meanings.") (DEFVAR *HEADER-FORMAT-ALIST* '(("Short" :VALUE :SHORT :DOCUMENTATION "Use the /"@/" character to separate user and host fields. Do not use personal names.") ("Long" :VALUE :LONG :DOCUMENTATION "Use /" at /" to separate user and host. Do not use personal names.") ("Include personal" :VALUE :INCLUDE-PERSONAL :DOCUMENTATION "Include the user's personal name, if one can be found.") ("Use original" :VALUE :USE-ORIGINAL :DOCUMENTATION "Use the address exactly as it appears in the original message.")) "A list of the header formats available.") (DEFVAR *BUG-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation string for sending bug reports using the MAIL command.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: ("Mail" :VALUE :MAIL :DOCUMENTATION "Normal mail.") ("Forward" :VALUE :FORWARD :DOCUMENTATION "Forward this message. Starts sending a message with this as its text.") ("Redistribute" :VALUE :REDISTRIBUTE :DOCUMENTATION "Redistribute this message. Sends a message with the original headers plus Redistributed.") ("Local" :VALUE :LOCAL :DOCUMENTATION "Create new message in current buffer and edit it."))) (DEFVAR *MOVE-TO-NEXT-MENU-ALIST* '(("Next undeleted" :VALUE :NEXT-UNDELETED :DOCUMENTATION "Move to next undeleted message.") ("Next unseen" :VALUE :NEXT-UNSEEN :DOCUMENTATION "Move to next message you have not seen the text of") ("Next" :VALUE :NEXT :DOCUMENTATION "Move to next message, even if deleted.") ("Last undeleted" :VALUE :LAST-UNDELETED :DOCUMENTATION "Move to last undeleted message in the buffer.") ("Last unseen" :VALUE :LAST-UNSEEN :DOCUMENTATION "Move to last message in buffer you have not seen the text of") ("Last" :VALUE :LAST :DOCUMENTATION "Move to last message in buffer, even if deleted")) "List of items for the NEXT menu of zmail.") (DEFVAR *MOVE-TO-PREVIOUS-MENU-ALIST* '(("Previous undeleted" :VALUE :PREVIOUS-UNDELETED :DOCUMENTATION "Move to previous undeleted message.") ("Previous unseen" :VALUE :PREVIOUS-UNSEEN :DOCUMENTATION "Move to previous message you have not seen the text of") ("Previous" :VALUE :PREVIOUS :DOCUMENTATION "Move to previous message, even if deleted.") ("First undeleted" :VALUE :FIRST-UNDELETED :DOCUMENTATION "Move to first undeleted message in the buffer.") ("First unseen" :VALUE :FIRST-UNSEEN :DOCUMENTATION "Move to first message in buffer you have not seen the text of") ("First" :VALUE :FIRST :DOCUMENTATION "Move to first message in buffer, even if deleted")) "List of items for the PREVIOUS menu of zmail.") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: ("Mail" :VALUE :MAIL :DOCUMENTATION "Send mail in the normal fashion.") ("Forward" :VALUE :FORWARD :DOCUMENTATION "Forward this message; start up a draft buffer with this message as its text.") ("Redistribute" :VALUE :REDISTRIBUTE :DOCUMENTATION "Redistribute this message. Sends a message with the original headers plus a Redistributed: field.") ("Local" :VALUE :LOCAL :DOCUMENTATION "Create a new message in the current buffer and edit it."))) (DEFVAR *MOVE-TO-NEXT-MENU-ALIST* '(("Next undeleted" :VALUE :NEXT-UNDELETED :DOCUMENTATION "Move to the next undeleted message.") ("Next unseen" :VALUE :NEXT-UNSEEN :DOCUMENTATION "Move to the next message whose text has not yet been seen.") ("Next" :VALUE :NEXT :DOCUMENTATION "Move to the next message, even if it is deleted.") ("Last undeleted" :VALUE :LAST-UNDELETED :DOCUMENTATION "Move to the last message in the buffer (not including deleted messages).") ("Last unseen" :VALUE :LAST-UNSEEN :DOCUMENTATION "Move to the last message in the buffer whose text has not yet been seen.") ("Last" :VALUE :LAST :DOCUMENTATION "Move to the last message in the buffer (including deleted messages).")) "List of possible behaviors for the NEXT command's menu choices.") (DEFVAR *MOVE-TO-PREVIOUS-MENU-ALIST* '(("Previous undeleted" :VALUE :PREVIOUS-UNDELETED :DOCUMENTATION "Move to the preceding message (not including deleted messages).") ("Previous unseen" :VALUE :PREVIOUS-UNSEEN :DOCUMENTATION "Move to the first message before this one whose text has not yet been seen.") ("Previous" :VALUE :PREVIOUS :DOCUMENTATION "Move to the message before this one, even if it is deleted.") ("First undeleted" :VALUE :FIRST-UNDELETED :DOCUMENTATION "Move to the first message in the buffer that has not been deleted.") ("First unseen" :VALUE :FIRST-UNSEEN :DOCUMENTATION "Move to the first message in the buffer whose text has not yet been seen.") ("First" :VALUE :FIRST :DOCUMENTATION "Move to the first message in the buffer, even if it is deleted.")) "List of possible behaviors for the PREVIOUS command's menu choices.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: "The documentation on commands for the KEYWORD menu") (DEFVAR *SUMMARY-MOVE-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation on commands for SUMMARY move.") (DEFVAR *SUMMARY-REPLY-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation on SUMMARY replying.") (DEFVAR *EDIT-MSG-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation for the editting messages.") (DEFVAR *UNIVERSE-BUTTON-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation for universe buttons.") (DEFVAR *FILTER-BUTTON-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation for FILTER buttons.") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: "Documentation for commands in the KEYWORD menu") (DEFVAR *SUMMARY-MOVE-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation for commands involved in moving messages from the Summary Window.") (DEFVAR *SUMMARY-REPLY-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation for commands involved in replying to messages from the Summary Window.") (DEFVAR *EDIT-MSG-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation for commands involved in editing messages.") (DEFVAR *UNIVERSE-BUTTON-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation for the buttons in a Universe menu.") (DEFVAR *FILTER-BUTTON-DOCUMENTATION* (MAKE-EMPTY-STRING 95.) "Documentation for the buttons in a Filter menu.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: `(("Continue" :VALUE :REPLY :DOCUMENTATION "Continue sending this draft message.") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: `(("Continue" :VALUE :REPLY :DOCUMENTATION "Continue sending the unfinished draft of this message.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: "Append this message to the end of another: L: current message; R: specify from summary.") ("Filter" :VALUE :FILTER :DOCUMENTATION "Filter according to some attribute of this message.")) "The list of things in the summary menu.") (DEFVAR *SUMMARY-MOUSE-MIDDLE-MENU-ALIST* `(("Delete//Undelete" :VALUE :DELETE-OR-UNDELETE :DOCUMENTATION "Delete if not deleted, else undelete.") ("Delete//Remove" :VALUE :DELETE-OR-REMOVE :DOCUMENTATION "Delete if from file buffer, else remove.") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: "Append this message to the end of L: the current message; R: another message chosen from the Summary Window.") ("Filter" :VALUE :FILTER :DOCUMENTATION "Filter all messages according to one of this message's attributes.")) "The list of commands available from clicking right on a message in the Summary Window.") (DEFVAR *SUMMARY-MOUSE-MIDDLE-MENU-ALIST* `(("Delete//Undelete" :VALUE :DELETE-OR-UNDELETE :DOCUMENTATION "Delete this message if it is currently undeleted; undelete this message if it is currently deleted.") ("Delete//Remove" :VALUE :DELETE-OR-REMOVE :DOCUMENTATION "Remove this message completely if in a temporary buffer; otherwise, merely mark it as deleted.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: ("On bug reports" :VALUE :BUG) ("Initial but not required" :VALUE :INIT))) ;;; This is for defining things that should be reset when the user changes (DEFVAR *ZMAIL-GLOBAL-INITIALIZATION-LIST* NIL) *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: ("On bug reports only" :VALUE :BUG) ("Provide /"Subjects: /" tokens when starting all drafts, but do not require them for sending" :VALUE :INIT))) *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: (DEFVAR *OPTIONS-NOT-IN-ALIST* NIL "List of options not in *ZMAIL-USER-OPTION-ALIST*.") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: (DEFVAR *OPTIONS-NOT-IN-ALIST* NIL "A list of the options not found in *ZMAIL-USER-OPTION-ALIST*.") *** File DJ: L.ZMAIL; DEFS.LISP#283 HAS: (DEFVAR *ZMAIL-COMTAB* nil "Main keyboard comtab") *** File DJ: L.ZMAIL; DEFS.LISP#284 HAS: (DEFVAR *ZMAIL-COMTAB* nil "The main keyboard command table for ZMail") (DEFVAR *MSG-COMTAB* nil "COMTAB in the message window") (DEFVAR *MSG-COMTAB* nil "The command table for message-viewing windows") (DEFVAR *MSG-CONTROL-X-COMTAB* nil "C-X comtab in message window") (DEFVAR *MSG-CONTROL-X-COMTAB* nil "The Control-X command table for message-viewing windows") (DEFVAR *REPLY-COMTAB* nil "COMTAB in the sending window") (DEFVAR *REPLY-COMTAB* nil "The command table for message-sending windows") (DEFVAR *REPLY-CONTROL-X-COMTAB* nil "C-X comtab in the sending window") (DEFVAR *REPLY-CONTROL-X-COMTAB* nil "The Control-X command table for message-sending windows") (DEFVAR *MY-ADDRESS*) ;String of network address (DEFVAR *MY-ADDRESS*) ;String containing network address (DEFINE-ZMAIL-GLOBAL *USER-FILTER-ALIST* NIL "Currently defined user filters") (DEFINE-ZMAIL-GLOBAL *USER-FILTER-ALIST* NIL "Currently defined filters for users") "Fraction of the frame occupied by the summary in filter mode") "Fraction of the frame occupied by the Summary Window when making new filters") (DEFINE-ZMAIL-USER-OPTION *SUMMARY-WINDOW-FRACTION* 0.45s0 :NUMBER "Fraction of the frame occupied by the summary") (DEFINE-ZMAIL-USER-OPTION *SUMMARY-WINDOW-FRACTION* 0.45 :NUMBER "Fraction of the frame normally occupied by the Summary Window") (DEFINE-ZMAIL-USER-OPTION *SUMMARY-SCROLL-FRACTION* 0.2s0 :NUMBER "Amount by which to glitch summary window") (DEFINE-ZMAIL-USER-OPTION *SUMMARY-SCROLL-FRACTION* 0.2 :NUMBER "A Jump to a distant message displays this fraction of the Summary Window's height beyond the target message") (DEFINE-ZMAIL-USER-OPTION *NEW-MAIL-FILE-APPEND-P* :STICKY :MENU-ALIST "Should newly created mail files append" '(("Append" :VALUE :APPEND :DOCUMENTATION "New mail files append messages.") ("Prepend" :VALUE :PREPEND :DOCUMENTATION "New mail files prepend messages.") ("Sticky" :VALUE :STICKY :DOCUMENTATION "New mail files inherit whether they append messages from the current mail file.") ("Ask" :VALUE :ASK :DOCUMENTATION "User is always queried when creating a new mail file as to whether it appends messages."))) (DEFINE-ZMAIL-USER-OPTION *NEW-MAIL-FILE-APPEND-P* :STICKY :MENU-ALIST "How should mail files merge their new messages?" '(("Append" :VALUE :APPEND :DOCUMENTATION "New mail files should append messages to the end of current sequence.") ("Prepend" :VALUE :PREPEND :DOCUMENTATION "New mail files should prepend messages to the beginning of current sequence.") ("Sticky" :VALUE :STICKY :DOCUMENTATION "New mail files should use the same mail merging scheme as the current mail file uses.") ("Ask" :VALUE :ASK :DOCUMENTATION "Query the user for a merging scheme whenever creating a new mail file."))) (DEFINE-ZMAIL-USER-OPTION *GMSGS-OTHER-SWITCHES* "//Z" :STRING "Other switches to supply to GMSGS server") (DEFINE-ZMAIL-USER-OPTION *GMSGS-OTHER-SWITCHES* "//Z" :STRING "Other switches to supply to a GMSGS server, if one exists") (TV:RESTRICT-USER-OPTION *GMSGS-OTHER-SWITCHES* :IF :GMSGS) (TV:RESTRICT-USER-OPTION *GMSGS-OTHER-SWITCHES* :IF :GMSGS) (DEFINE-ZMAIL-USER-OPTION *RUN-GMSGS-P* :NO :ASSOC "Run GMSGS before getting new mail" '(("Yes" . :YES) ("No" . :NO) ("Once only" . :ONCE-ONLY))) (DEFINE-ZMAIL-USER-OPTION *RUN-GMSGS-P* :NO :ASSOC "Run GMSGS before getting new mail" '(("Yes" . :YES) ("No" . :NO) ("Once only" . :ONCE-ONLY))) (TV:RESTRICT-USER-OPTION *RUN-GMSGS-P* :IF :GMSGS) (TV:RESTRICT-USER-OPTION *RUN-GMSGS-P* :IF :GMSGS) (DEFINE-ZMAIL-USER-OPTION *MAIL-FILE-FOR-DRAFTS* NIL :PATHNAME-OR-NIL "Mail file to store drafts in") (DEFINE-ZMAIL-USER-OPTION *MAIL-FILE-FOR-DRAFTS* NIL :PATHNAME-OR-NIL "Default mail file in which to save a draft as a message (using Meta-X Save Draft As Msg)") (DEFINE-ZMAIL-USER-OPTION *DEFAULT-DRAFT-FILE-NAME* NIL :PATHNAME-OR-NIL "Default file for saving draft") (DEFINE-ZMAIL-USER-OPTION *DEFAULT-DRAFT-FILE-NAME* NIL :PATHNAME-OR-NIL "Default file (not necessarily a mail file) for saving the text of a draft") (DEFINE-ZMAIL-USER-OPTION *DEFAULT-MOVE-MAIL-FILE-NAME* NIL :PATHNAME-OR-NIL "Default file for moving a message to a new file") (DEFINE-ZMAIL-USER-OPTION *DEFAULT-MOVE-MAIL-FILE-NAME* NIL :PATHNAME-OR-NIL "Default mail file for the Move command to use") (DEFINE-ZMAIL-USER-OPTION *MOVE-FILE-NAME-STICKY-FN2* T :BOOLEAN "Take file type for moving to a new file from default") (DEFINE-ZMAIL-USER-OPTION *MOVE-FILE-NAME-STICKY-FN2* T :BOOLEAN "Use the default file name when moving files?") (DEFINE-ZMAIL-USER-OPTION *TEXT-MAIL-FILE-SEPARATOR* "" :STRING "Line between messages in text mail file") (DEFINE-ZMAIL-USER-OPTION *TEXT-MAIL-FILE-SEPARATOR* "" :STRING "The separating line between messages in the body of the mail file") (DEFINE-ZMAIL-USER-OPTION *ZMAIL-STARTUP-FILE-NAME* NIL :PATHNAME-OR-NIL "File read in at startup") (DEFINE-ZMAIL-USER-OPTION *ZMAIL-STARTUP-FILE-NAME* NIL :PATHNAME-OR-NIL "Mail file to read in when starting up ZMail") (DEFINE-ZMAIL-USER-OPTION *ZMAIL-USUAL-MAIL-FILE-DIRECTORY* () :PATHNAME-OR-NIL "Directory where most of your mail files live") (DEFINE-ZMAIL-USER-OPTION *ZMAIL-USUAL-MAIL-FILE-DIRECTORY* () :PATHNAME-OR-NIL "Directory where most of your mail files live") (DEFINE-ZMAIL-USER-OPTION *FORWARDED-MESSAGE-END* "" :STRING "Format line after forwarded messages") (DEFINE-ZMAIL-USER-OPTION *FORWARDED-MESSAGE-END* "" :STRING "Format line to be inserted after forwarded messages") (DEFINE-ZMAIL-USER-OPTION *FORWARDED-MESSAGE-SEPARATOR* "" :STRING "Format line between forwarded messages") (DEFINE-ZMAIL-USER-OPTION *FORWARDED-MESSAGE-SEPARATOR* "" :STRING "Format line to be inserted between forwarded messages") (DEFINE-ZMAIL-USER-OPTION *FORWARDED-MESSAGE-BEGIN* "" :STRING "Format line before forwarded messages") (DEFINE-ZMAIL-USER-OPTION *FORWARDED-MESSAGE-BEGIN* "" :STRING "Format line to be inserted before forwarded messages") (DEFINE-ZMAIL-USER-OPTION *DONT-REPLY-TO* '("INFO-*") :STRING-LIST "People not to reply to") (DEFINE-ZMAIL-USER-OPTION *DONT-REPLY-TO* '("INFO-*") :STRING-LIST "Never reply to these addresses [e.g., (INFO-*, MAILER)]") (DEFINE-ZMAIL-USER-OPTION *MIDDLE-REPLY-MODE* :SENDER :MENU-ALIST "Default reply to for middle button" (CAR *REPLY-MODES-ALIST*)) (DEFINE-ZMAIL-USER-OPTION *MIDDLE-REPLY-MODE* :SENDER :MENU-ALIST "Initial setting for recipient fields when middle button is clicked on Reply" (CAR *REPLY-MODES-ALIST*)) (DEFINE-ZMAIL-USER-OPTION *MIDDLE-REPLY-WINDOW-MODE* :SHOW-ORIGINAL :MENU-ALIST "Default reply window setup for middle button" (CADR *REPLY-MODES-ALIST*)) (DEFINE-ZMAIL-USER-OPTION *MIDDLE-REPLY-WINDOW-MODE* :SHOW-ORIGINAL :MENU-ALIST "Initial setting for display of original message when middle button is clicked on Reply" (CADR *REPLY-MODES-ALIST*)) (DEFINE-ZMAIL-USER-OPTION *1R-REPLY-MODE* :SENDER :MENU-ALIST "Default reply with argument of 1 to" (CAR *REPLY-MODES-ALIST*)) (DEFINE-ZMAIL-USER-OPTION *1R-REPLY-MODE* :SENDER :MENU-ALIST "Initial setting for recipient fields when an argument of 1 is supplied to the R Command" (CAR *REPLY-MODES-ALIST*)) (DEFINE-ZMAIL-USER-OPTION *REPLY-MODE* :ALL :MENU-ALIST "Default reply to" (CAR *REPLY-MODES-ALIST*)) (DEFINE-ZMAIL-USER-OPTION *REPLY-MODE* :ALL :MENU-ALIST "Initial setting for recipient fields when replying normally" (CAR *REPLY-MODES-ALIST*)) (DEFINE-ZMAIL-USER-OPTION *REPLY-WINDOW-MODE* :LIKE-MAIL :MENU-ALIST "Default reply window setup" (CADR *REPLY-MODES-ALIST*)) (DEFINE-ZMAIL-USER-OPTION *REPLY-WINDOW-MODE* :LIKE-MAIL :MENU-ALIST "Initial setting for display of original message when replying normally" (CADR *REPLY-MODES-ALIST*)) (DEFINE-ZMAIL-USER-OPTION *DEFAULT-MAIL-WINDOW-CONFIGURATION* :NORMAL :MENU-ALIST "Default window configuration when mailing" `(("Normal" :VALUE :NORMAL :DOCUMENTATION "Draft message replaces message being read.") ("Send" :VALUE :SEND :DOCUMENTATION "Separate headers and text windows.") . ,(CDR *WINDOW-CONFIGURATION-ALIST*))) (DEFINE-ZMAIL-USER-OPTION *DEFAULT-MAIL-WINDOW-CONFIGURATION* :NORMAL :MENU-ALIST "Initial setting for window configuration when sending mail" `(("Normal" :VALUE :NORMAL :DOCUMENTATION "Same as top level, except entire draft occupies the usual message display window.") ("Send" :VALUE :SEND :DOCUMENTATION "Two windows only, one for headers of draft and one for text of draft.") . ,(CDR *WINDOW-CONFIGURATION-ALIST*))) (DEFINE-ZMAIL-USER-OPTION *SEND-HEADER-FORMAT* :INCLUDE-PERSONAL :MENU-ALIST "Format of recipients in headers sent (except via COMSAT)" *HEADER-FORMAT-ALIST*) (DEFINE-ZMAIL-USER-OPTION *SEND-HEADER-FORMAT* :INCLUDE-PERSONAL :MENU-ALIST "Format of recipients in headers sent (except via COMSAT)" *HEADER-FORMAT-ALIST*) (DEFINE-ZMAIL-USER-OPTION *REPLY-HEADER-FORMAT* :SHORT :MENU-ALIST "Format of recipients inserted for reply" *HEADER-FORMAT-ALIST*) (DEFINE-ZMAIL-USER-OPTION *REPLY-HEADER-FORMAT* :SHORT :MENU-ALIST "Format of recipients inserted for reply" *HEADER-FORMAT-ALIST*) (DEFINE-ZMAIL-USER-OPTION *DEFAULT-HEADER-FORCE* :NONE :MENU-ALIST "Default header force (via COMSAT)" *HEADER-FORCE-ALIST*) (DEFINE-ZMAIL-USER-OPTION *DEFAULT-HEADER-FORCE* :NONE :MENU-ALIST "Default header force (via COMSAT)" *HEADER-FORCE-ALIST*) (TV:RESTRICT-USER-OPTION *DEFAULT-HEADER-FORCE* :IF :COMSAT) (TV:RESTRICT-USER-OPTION *DEFAULT-HEADER-FORCE* :IF :COMSAT) (DEFINE-ZMAIL-USER-OPTION *LOCAL-MAIL-HEADER-FORCE* :ITS :MENU-ALIST "Header force for local messages" *HEADER-FORCE-ALIST*) (DEFINE-ZMAIL-USER-OPTION *LOCAL-MAIL-HEADER-FORCE* :ITS :MENU-ALIST "Header force for local messages" *HEADER-FORCE-ALIST*) (DEFINE-ZMAIL-USER-OPTION *LOCAL-MAIL-INCLUDE-SUBJECT* T :BOOLEAN "Local mail starts out with a subject") (DEFINE-ZMAIL-USER-OPTION *LOCAL-MAIL-INCLUDE-SUBJECT* T :BOOLEAN "Use a subject field in all local mail") (DEFINE-SITE-ALIST-USER-OPTION (*MAIL-SENDING-MODE* *ZMAIL-USER-OPTION-ALIST*) "Mail sending mode" *MAIL-SENDING-MODE-ALIST* :DEFAULT-MAIL-MODE) (DEFINE-SITE-ALIST-USER-OPTION (*MAIL-SENDING-MODE* *ZMAIL-USER-OPTION-ALIST*) "Initial setting for sending mail" *MAIL-SENDING-MODE-ALIST* :DEFAULT-MAIL-MODE) (DEFINE-ZMAIL-USER-OPTION *DELETE-EXPIRED-MSGS* :PER-FILE :MENU-ALIST "Automatically delete expired messages" `(,@*YES-NO-ASK-ALIST* ("Per file" . :PER-FILE))) (DEFINE-ZMAIL-USER-OPTION *DELETE-EXPIRED-MSGS* :PER-FILE :MENU-ALIST "Automatically delete messages that have expired" `(,@*YES-NO-ASK-ALIST* ("Per file" . :PER-FILE))) (DEFINE-ZMAIL-USER-OPTION *DEFAULT-FCC-LIST* NIL :PATHNAME-LIST "Default initial Fcc list") (DEFINE-ZMAIL-USER-OPTION *DEFAULT-FCC-LIST* NIL :PATHNAME-LIST "Initial setting for files into which to write copies of each message sent") (DEFINE-ZMAIL-USER-OPTION *DEFAULT-CC-LIST* NIL :ADDRESS-LIST "Default initial Cc list") (DEFINE-ZMAIL-USER-OPTION *DEFAULT-CC-LIST* NIL :ADDRESS-LIST "Initial setting for recipients who should receive copies of all messages sent") (DEFINE-ZMAIL-USER-OPTION *REQUIRE-SUBJECTS* NIL :MENU-ALIST "Require subjects on outgoing messages" *REQUIRE-SUBJECTS-ALIST*) (DEFINE-ZMAIL-USER-OPTION *REQUIRE-SUBJECTS* NIL :MENU-ALIST "Require subjects on outgoing messages" *REQUIRE-SUBJECTS-ALIST*) (DEFINE-ZMAIL-USER-OPTION *GENERATE-IN-REPLY-TO-FIELD* T :BOOLEAN "Automatically generate In-reply-to fields") (DEFINE-ZMAIL-USER-OPTION *GENERATE-IN-REPLY-TO-FIELD* T :BOOLEAN "Automatically supply an In-reply-to field for replies?") (DEFINE-ZMAIL-USER-OPTION *GENERATE-MESSAGE-ID-FIELD* T :BOOLEAN "Automatically generate Message-ID fields") (DEFINE-ZMAIL-USER-OPTION *GENERATE-MESSAGE-ID-FIELD* T :BOOLEAN "Automatically supply a Message-ID field for all messages?") (define-zmail-user-option *preserve-msg-references-across-expunge* T :boolean "Preserve conversations inspite of intervening expunged messages") (define-zmail-user-option *preserve-msg-references-across-expunge* T :boolean "Preserve conversations even if intervening messages have been expunged") (DEFINE-ZMAIL-USER-OPTION *SUMMARY-MOUSE-MIDDLE-MODE* :DELETE-OR-UNDELETE :MENU-ALIST "Middle button on summary window" *SUMMARY-MOUSE-MIDDLE-MENU-ALIST*) (DEFINE-ZMAIL-USER-OPTION *SUMMARY-MOUSE-MIDDLE-MODE* :DELETE-OR-UNDELETE :MENU-ALIST "Initial setting for command to execute when the middle button is clicked while in the Summary Window" *SUMMARY-MOUSE-MIDDLE-MENU-ALIST*) (DEFINE-ZMAIL-USER-OPTION *NEXT-MIDDLE-MODE* :LAST-UNDELETED :MENU-ALIST "Middle button on Next command" *MOVE-TO-NEXT-MENU-ALIST*) (DEFINE-ZMAIL-USER-OPTION *NEXT-MIDDLE-MODE* :LAST-UNDELETED :MENU-ALIST "Initial setting for behavior of message pointer when the middle button is clicked on the Next command" *MOVE-TO-NEXT-MENU-ALIST*) (DEFINE-ZMAIL-USER-OPTION *PREVIOUS-MIDDLE-MODE* :FIRST-UNDELETED :MENU-ALIST "Middle button on Previous command" *MOVE-TO-PREVIOUS-MENU-ALIST*) (DEFINE-ZMAIL-USER-OPTION *PREVIOUS-MIDDLE-MODE* :FIRST-UNDELETED :MENU-ALIST "Initial setting for behavior of message pointer when the middle button is clicked on the Previous command" *MOVE-TO-PREVIOUS-MENU-ALIST*) (DEFINE-ZMAIL-USER-OPTION *MAP-MIDDLE-MODE* NIL :ASSOC "Middle button on Map command" *ZMAIL-MAP-COMMAND-ALIST*) (DEFINE-ZMAIL-USER-OPTION *MAP-MIDDLE-MODE* NIL :ASSOC "Initial setting for command to use when the middle button is clicked on the Map command" *ZMAIL-MAP-COMMAND-ALIST*) (DEFINE-ZMAIL-USER-OPTION *MAIL-MIDDLE-MODE* :BUG :MENU-ALIST "Middle button on Mail command" *ZMAIL-MAIL-MENU-ALIST*) (DEFINE-ZMAIL-USER-OPTION *MAIL-MIDDLE-MODE* :BUG :MENU-ALIST "Initial setting for command to execute when the middle button is clicked on the Mail command" *ZMAIL-MAIL-MENU-ALIST*) (DEFINE-ZMAIL-USER-OPTION *DEFAULT-INITIAL-WINDOW-CONFIGURATION* :BOTH :MENU-ALIST "Default startup window setup" *WINDOW-CONFIGURATION-ALIST*) (DEFINE-ZMAIL-USER-OPTION *DEFAULT-INITIAL-WINDOW-CONFIGURATION* :BOTH :MENU-ALIST "Initial setting for the appearance of the windows in a ZMail frame" *WINDOW-CONFIGURATION-ALIST*) (DEFINE-ZMAIL-USER-OPTION *DELETE-MIDDLE-MODE* :BACKWARD :MENU-ALIST "Direction to move for click middle on delete" *DELETE-DIRECTION-ALIST*) (DEFINE-ZMAIL-USER-OPTION *DELETE-MIDDLE-MODE* :BACKWARD :MENU-ALIST "Direction in which to move the message pointer when the middle button is clicked on the Delete command" *DELETE-DIRECTION-ALIST*) (DEFINE-ZMAIL-USER-OPTION *NEXT-AFTER-DELETE* :FORWARD :MENU-ALIST "Direction to move after delete" *DELETE-DIRECTION-ALIST*) (DEFINE-ZMAIL-USER-OPTION *NEXT-AFTER-DELETE* :FORWARD :MENU-ALIST "Direction to move the current message pointer after deleting the current message with the /"D/" command" *DELETE-DIRECTION-ALIST*) (DEFINE-ZMAIL-USER-OPTION *PRUNE-HEADERS-AFTER-YANKING* NIL :BOOLEAN "Prune headers of yanked messages") (DEFINE-ZMAIL-USER-OPTION *PRUNE-HEADERS-AFTER-YANKING* NIL :BOOLEAN "Remove uninteresting lines from the headers of yanked messages?") (DEFINE-ZMAIL-USER-OPTION *INHIBIT-BACKGROUND-MAIL-CHECKS* NIL :BOOLEAN "Do not check for new mail in the background") (DEFINE-ZMAIL-USER-OPTION *INHIBIT-BACKGROUND-MAIL-CHECKS* NIL :BOOLEAN "Refrain from always checking for new mail in the background?") (DEFINE-ZMAIL-USER-OPTION *INHIBIT-BACKGROUND-SAVES* NIL :BOOLEAN "Do not automatically save after get new mail") (DEFINE-ZMAIL-USER-OPTION *INHIBIT-BACKGROUND-SAVES* NIL :BOOLEAN "Refrain from automatically saving the current mail file every time new mail is read in?") (DEFINE-ZMAIL-USER-OPTION *ONE-WINDOW-AFTER-YANK* T :BOOLEAN "Just show headers and text after yanking in message") (DEFINE-ZMAIL-USER-OPTION *ONE-WINDOW-AFTER-YANK* T :BOOLEAN "When replying, hide the Summary Window after having inserted the original message with Control-Meta-Y?") (DEFINE-ZMAIL-USER-OPTION *ALWAYS-JUMP-AFTER-GET-NEW-MAIL* NIL :BOOLEAN "Move to first message even when no new mail") (DEFINE-ZMAIL-USER-OPTION *ALWAYS-JUMP-AFTER-GET-NEW-MAIL* NIL :BOOLEAN "Move to the first message in the current sequence after Get New Mail (even if no new mail exists)?") (DEFINE-ZMAIL-USER-OPTION *FORWARDED-ADD-SUBJECT* T :BOOLEAN "Forwarded messages are supplied with a subject") (DEFINE-ZMAIL-USER-OPTION *FORWARDED-ADD-SUBJECT* T :BOOLEAN "Always supply forwarded messages with a subject?") (DEFINE-ZMAIL-USER-OPTION *QUERY-BEFORE-EXPUNGE* NIL :BOOLEAN "Show headers and ask before expunging deleted messages") (DEFINE-ZMAIL-USER-OPTION *QUERY-BEFORE-EXPUNGE* NIL :BOOLEAN "Show relevant headers and ask for confirmation before expunging deleted messages?") (DEFINE-ZMAIL-USER-OPTION *DELETE-AFTER-MOVE-TO-FILE* T :BOOLEAN "Delete message when moved into another buffer") (DEFINE-ZMAIL-USER-OPTION *DELETE-AFTER-MOVE-TO-FILE* T :BOOLEAN "After Moving messages into other mail buffers, Delete them from the current buffer?") (DEFINE-ZMAIL-USER-OPTION *MAIL-HEADER-DELIMITER* "--Text Follows This Line--" :STRING "Separator between headers and text in draft messages.") (DEFINE-ZMAIL-USER-OPTION *MAIL-HEADER-DELIMITER* "--Text Follows This Line--" :STRING "Line separating headers section and text when composing drafts") (DEFINE-ZMAIL-USER-OPTION *DELETE-UNDIGESTIFIED-MESSAGE* T :BOOLEAN "Delete original message after undigestification") (DEFINE-ZMAIL-USER-OPTION *DELETE-UNDIGESTIFIED-MESSAGE* T :BOOLEAN "Delete original digest messages after breaking them up into their individual messages?") ;;;Unsure what this means... (DEFINE-ZMAIL-USER-OPTION *CLIP-UNDIGESTIFIED-MESSAGE* () :BOOLEAN "Clip contents of original message after undigestification") (DEFINE-ZMAIL-USER-OPTION *CLIP-UNDIGESTIFIED-MESSAGE* () :BOOLEAN "Clip contents of original message after undigestification?") (DEFINE-ZMAIL-USER-OPTION *INHERIT-SUBJECT-FIELD* T :BOOLEAN "Messages from a digest show which one in Subject: line") (DEFINE-ZMAIL-USER-OPTION *INHERIT-SUBJECT-FIELD* T :BOOLEAN "Retain Subject: lines of each message when breaking up a digest message?") (DEFINE-ZMAIL-USER-OPTION *DEFAULT-REFORMATTING-TEMPLATE* NIL :SEXP "Name (a symbol) of DEFINE-MAIL-TEMPLATE template for reformatting incoming mail headers.") (DEFINE-ZMAIL-USER-OPTION *DEFAULT-REFORMATTING-TEMPLATE* NIL :SEXP "Name (a symbol) of DEFINE-MAIL-TEMPLATE template for reformatting incoming mail headers.") (define-zmail-user-option *from-user-id* nil :string-or-nil "If non-NIL, this is the user-name that goes in From: fields of mail, by default.") (define-zmail-user-option *from-user-id* nil :string-or-nil "Initial setting for username string in From: field") (define-zmail-user-option *FROM-HOST* NIL :host-or-nil "If non-NIL, this is the host whose name goes in From: fields of mail, by default.") (define-zmail-user-option *FROM-HOST* NIL :host-or-nil "Initial setting for hostname string in From: field")