lisp/mh-e/mh-e.el

110  'emacs-lisp-mode
205 (defvar mh-folder-mode-map (make-keymap)
206   "Keymap for MH-Folder mode.")
217 (defvar mh-letter-mode-map (copy-keymap text-mode-map)
218   "Keymap for MH-Letter mode.")
223 (defvar mh-search-mode-map (make-sparse-keymap)
224   "Keymap for MH-Search mode.")
226 (defvar mh-show-mode-map (make-sparse-keymap)
227   "Keymap MH-Show mode.")
265 (defvar mh-mode-line-annotation nil
292 (defvar mh-showing-mode nil
321 `mh-mail-header-separator' in `mh-letter-mode'; in other
982 ;;    the groups mh-faces and mh-hooks which are last .
993 ;;    All hooks must be placed in the mh-hook group; in addition, add
996 ;;    section, the hooks will appear at the end of these other groups.
1145 (defgroup-mh mh-hooks nil
1146   "MH-E hooks."
1344   "*Additional arguments for \"sortm\"\\<mh-folder-mode-map>.
1558   "Default identity to use when `mh-letter-mode' is called.
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,
1818   "*Fill column to use in MH Letter mode.
1866 \\<mh-letter-mode-map>\\[mh-insert-signature] or with the option
1913   "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
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>.
2599 (defvar mh-delay-invisible-header-generation-flag t
2600   "Non-nil means to delay the generation of invisible header fields.
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>.
2835   "*Default directory for \\<mh-folder-mode-map>\\[mh-store-msg].
2847   "*Number of lines in MH-Folder buffer (including the mode line).
2871   "*Non-nil means new folders start in threaded mode.
2936 ;;; Hooks (:group 'mh-hooks + group where hook described)
2939   "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] after performing outstanding refile and delete requests.
2946   :group 'mh-hooks
2953   :group 'mh-hooks
2958   "Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] before performing outstanding refile and delete requests.
2964   :group 'mh-hooks
2969   "Hook run by \\<mh-folder-mode-map>\\[mh-quit] before quitting MH-E.
2977   :group 'mh-hooks
2982   "Hook run at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command.
2988   :group 'mh-hooks
2993   "Hook run by \\<mh-letter-mode-map>\\[mh-delete-msg] after marking each message for deletion.
2998   :group 'mh-hooks
3009   :group 'mh-hooks
3013 (defcustom-mh mh-folder-mode-hook nil
3014   "Hook run by `mh-folder-mode' when visiting a new folder."
3016   :group 'mh-hooks
3023   :group 'mh-hooks
3028   "Hook run by \\<mh-folder-mode-map>\\[mh-inc-folder] after incorporating mail into a folder."
3030   :group 'mh-hooks
3035   "Hook run by \\<mh-letter-mode-map>\\[mh-insert-signature] after signature has been inserted.
3041   :group 'mh-hooks
3045 (defcustom-mh mh-kill-folder-suppress-prompt-hooks '(mh-search-p)
3046   "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder].
3059   :group 'mh-hooks
3063 (defcustom-mh mh-letter-mode-hook nil
3064   "Hook run by `mh-letter-mode' on a new letter.
3072   :group 'mh-hooks
3077   "Hook run on the formatted letter by \\<mh-letter-mode-map>\\[mh-mh-to-mime]."
3079   :group 'mh-hooks
3083 (defcustom-mh mh-search-mode-hook nil
3084   "Hook run upon entry to `mh-search-mode'\\<mh-folder-mode-map>.
3091   :group 'mh-hooks
3096   "Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E.
3103   :group 'mh-hooks
3108   "Hook run by \\<mh-folder-mode-map>\\[mh-refile-msg] after marking each message for refiling."
3110   :group 'mh-hooks
3115   "Hook run after \\<mh-folder-mode-map>\\[mh-show] shows a message.
3119 `mh-show-mode-hook' is too early. See `mh-show-mode-hook'."
3121   :group 'mh-hooks
3125 (defcustom-mh mh-show-mode-hook nil
3126   "Hook run upon entry to `mh-show-mode'.
3132   :group 'mh-hooks
3143   :group 'mh-hooks
3568 ;; indent-tabs-mode: nil