lisp/mh-e/mh-e.el

48 ;;   M-x mh-smail to send mail.  From within the mail reader, "s" works, too.
205 (defvar mh-folder-mode-map (make-keymap)
208 (defvar mh-folder-seq-tool-bar-map nil
211 (defvar mh-folder-tool-bar-map nil
214 (defvar mh-inc-spool-map (make-sparse-keymap)
217 (defvar mh-letter-mode-map (copy-keymap text-mode-map)
220 (defvar mh-letter-tool-bar-map nil
223 (defvar mh-search-mode-map (make-sparse-keymap)
226 (defvar mh-show-mode-map (make-sparse-keymap)
229 (defvar mh-show-seq-tool-bar-map nil
232 (defvar mh-show-tool-bar-map nil
259 (defvar mh-index-msg-checksum-map nil)
261 (defvar mh-index-checksum-origin-map nil)
373 (defvar mh-thread-scan-line-map nil
375 (make-variable-buffer-local 'mh-thread-scan-line-map)
377 (defvar mh-thread-scan-line-map-stack nil
378   "Old map of message index to various parts of the scan line.
379 This is the original map that is stored when the folder is
381 (make-variable-buffer-local 'mh-thread-scan-line-map-stack)
393 (eval-when-compile (require 'gnus))
395 (defmacro mh-macro-expansion-time-gnus-version ()
399 gnus-version)
401 (defun mh-run-time-gnus-version ()
403   (require 'gnus)
404   gnus-version)
417          (gnus-compiled-version (if compiled-mhe
418                                     (mh-macro-expansion-time-gnus-version)
421             " Gnus (compile-time):\t" gnus-compiled-version "\n"
422             " Gnus (run-time):\t" (mh-run-time-gnus-version) "\n\n"))
1328 (defcustom-mh mh-recenter-summary-flag nil
1329   "*Non-nil means to recenter the summary window.
1331 If this option is turned on, recenter the summary window when the
1344   "*Additional arguments for \"sortm\"\\<mh-folder-mode-map>.
1502 When you send the message, MH will put a copy of your message in this
1518 can just send the message and the fields will be added automatically.
1607 This program generates a one-line summary for each of the new
1762   "*Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header."
1771 yanking it with \\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make
1778   "*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
1811 \\<mh-letter-mode-map>\\[mh-letter-complete] runs this function,
1866 \\<mh-letter-mode-map>\\[mh-insert-signature] or with the option
1900 `http://quimby.gnus.org/circus/face/make-face').
1913   "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
2106 to write and send the message for you. This function is passed
2143 letter for redistribution, which is the case if \"send\" is
2208   "*Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>.
2245   "*Non-nil means attachments are handled\\<mh-folder-mode-map>.
2275   "*Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>.
2368 italics, and so on. See the option `gnus-emphasis-alist' for the
2377 (defcustom-mh mh-highlight-citation-style 'gnus
2387   :type '(choice (const :tag "Multicolor" gnus)
2486     "X-Gnus-Mail-Source:"               ; gnus
2680   "*Command used to print\\<mh-folder-mode-map>.
2753   "Default directory to use for \\<mh-folder-mode-map>\\[mh-mime-save-parts].
2769   "*Non-nil means messages should be printed in the background\\<mh-folder-mode-map>.
2811 `http://quimby.gnus.org/circus/face/'. Next is the traditional
2835   "*Default directory for \\<mh-folder-mode-map>\\[mh-store-msg].
2846 (defcustom-mh mh-summary-height nil
2939   "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] after performing outstanding refile and delete requests.
2958   "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] before performing outstanding refile and delete requests.
2969   "Hook run by \\<mh-folder-mode-map>\\[mh-quit] before quitting MH-E.
2981 (defcustom-mh mh-before-send-letter-hook nil
2982   "Hook run at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command.
2993   "Hook run by \\<mh-letter-mode-map>\\[mh-delete-msg] after marking each message for deletion.
3028   "Hook run by \\<mh-folder-mode-map>\\[mh-inc-folder] after incorporating mail into a folder."
3035   "Hook run by \\<mh-letter-mode-map>\\[mh-insert-signature] after signature has been inserted.
3046   "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder].
3077   "Hook run on the formatted letter by \\<mh-letter-mode-map>\\[mh-mh-to-mime]."
3084   "Hook run upon entry to `mh-search-mode'\\<mh-folder-mode-map>.
3096   "Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E.
3108   "Hook run by \\<mh-folder-mode-map>\\[mh-refile-msg] after marking each message for refiling."
3115   "Hook run after \\<mh-folder-mode-map>\\[mh-show] shows a message.