(defvar mh-folder-mode-hook nil "*Invoked in mh-folder-mode on a new folder.") (defvar mh-letter-mode-hook nil "*Invoked in mh-letter-mode on a new letter.") (defvar mh-compose-letter-hook nil "*Invoked in mh-compose-and-send-mail on an outgoing letter. It is passed three arguments: TO recipients, SUBJECT, and CC recipients.") (defvar mh-auto-fill-letters t "*Non-nil means invoke auto-fill-mode in draft messages.") (defvar mh-clean-message-header nil "*Non-nil means remove invisible header lines in messages.") (defvar mh-use-mhl nil "*Non-nil means use mhl to format messages.") (defvar mh-lpr-command-format "lpr -p -J '%s'" "*Format for Unix command line to print a message. The format should be a unix command line, with the string \"%s\" where the folder and message number should appear.") (defvar mh-summary-height 4 "*Number of lines in summary window.") (defvar mh-ins-buf-prefix ">> " "*String to put before each non-blank line of the the current message as it is inserted in an outgoing letter.") (defvar mh-cmd-note 4 "Offset to insert notation") (defvar mh-invisible-headers "^Received: \\|^Message-Id: \\|^Remailed-\\|^Via: \\|^Mail-from: \\|eturn-Path: \\|^In-Reply-To: \\|^Resent-" "Regexp specifying headers that are not to be shown.") (defvar mh-rejected-letter-start "^ ----- Unsent message follows -----$" "Regexp specifying the beginning of the wrapper around a letter returned by the mail system.") (defvar mh-good-msg-regexp "^....[^D^]" "Regexp specifiying the scan lines that are 'good' messages") (defvar mh-user-path "" "User's mail folder.") (defvar mh-last-destination nil "Destination of last " move " command.") (defvar mh-folder-mode-map (make-sparse-keymap) "Keymap for MH folders.") (defvar mh-letter-mode-map (make-sparse-keymap) "Keymap for composing mail.") (defvar mh-pick-mode-map (make-sparse-keymap) "Keymap for searching folder.") (defvar mh-folder-list nil "List of folder names for completion.") (defmacro push (v l) (byte-code " EE" [l v setq cons] 5)) (defmacro caar (l) (byte-code "DD" [l car] 3)) (defmacro cadr (l) (byte-code "DD" [l car cdr] 3)) (defmacro cdar (l) (byte-code "DD" [l cdr car] 3)) (defmacro cddr (l) (byte-code "DD" [l cdr] 3)) (defmacro when (pred &rest body) (byte-code " BD" [pred body cond] 3)) (defun mapc (func list) (byte-code " @\"A " [list func funcall] 4)) (defun mh-rmail (&optional arg) "\ Inc(orporate) new mail if optional ARG omitted, or scan a MH mail box if arg is present. This front end uses the MH mail system, which uses different conventions from the usual mail system." (interactive "P") (byte-code "ň ? ň 7 #! \". Ђ/ \" *= = " [mh-folder-list arg folder t range nil mh-find-path mh-make-folder-list mh-prompt-for-folder "mh" "+inbox" read-string "Range [all]? " mh-scan-folder equal "" "all" delete-other-windows mh-inc-folder] 9)) (defun mh-smail nil "\ Send mail using the MH mail system." (interactive) (byte-code " !" [nil mh-find-path call-interactively mh-send] 3)) (defun mh-answer (&optional arg) "\ Answer a letter. If given a non-nil ARGUMENT, then include the current message in the reply." (interactive "P") (byte-code "Ɉ ! $!\"+ \"K & E DF \"\"