Inc(orporate) new mail (no arg) or scan a MH mail box (arg given).
This front end uses the MH mail system, which uses different conventions
from the usual mail system." (interactive "P") (byte-code "ˋÈ´ Ȉ˜!Á¯ Ç" [arg nil mh-find-path call-interactively mh-visit-folder mh-inc-folder] 4))
(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-smail-other-window nil "\
Send mail in other window using the MH mail system." (interactive) (byte-code "¹Èˋ È´ˆ!Ç" [nil mh-find-path call-interactively mh-send-other-window] 3))
(defun mh-burst-digest nil "\
Burst apart the current message, which should be a digest. Message is
replaced by its table of contents and the letters from the digest are inserted
into the folder after that message." (interactive) (byte-code "˜È¯ˋ!˘
!È˙¨!Ȳ˚
¸$ȳ
˝˛\"\"È˙ˇ!)Ç" [digest t mh-current-folder mh-first-msg-num nil mh-get-msg-num mh-process-or-undo-commands message "Bursting digest..." mh-exec-cmd "burst" "-inplace" mh-scan-folder format "%d-last" "Bursting digest...done"] 9))
If (optional) prefix argument provided, then include the message in the reply." (interactive (byte-code "´ˋ!DÇ" [current-prefix-arg t mh-get-msg-num] 3)) (byte-code "¯È½Å¾àá¯ˋ$â! ã
Append MESSAGE to the end of a FILE." (interactive (byte-code "´¹!ˆ˜¯˘ @= AÁ˙\"!DÇ" [t mh-last-destination mh-get-msg-num expand-file-name read-file-name "Save message in file: " write ""] 7)) (byte-code "¯È˘
Sort the messages in the current folder by date." (interactive "") (byte-code "´Èˆ!ȘÉȯ˘!È˙¨\"ȯ²!È˚¸\"Ç" [mh-current-folder mh-next-direction nil mh-process-or-undo-commands forward message "sorting folder..." mh-exec-cmd "sortm" "sorting folder...done" mh-scan-folder "all"] 7))
(defun mh-toggle-summarize nil "\
Turn the summary mode of displaying messages on or off." (interactive) (byte-code "´Èˆ˜ˋ!!Á¯ Ç" [mh-summarize t nil mh-show mh-get-msg-num mh-set-scan-mode] 4))
(defun mh-undo (prefix-provided msg-or-seq) "\
Undo the deletion or refile of the specified MESSAGE(s)
(default: displayed message).
If (optional) prefix argument provided, then prompt for the message sequence." (interactive (byte-code "ˆ˜ˋ
Major mode for \"editing\" an MH folder scan listing.
Messages can be marked for refiling and deletion. However, both actions
are deferred until you request execution with \\[mh-execute-commands].
\\{mh-folder-mode-map}
A prefix argument (\\[universal-argument]) to delete, refile, list, or undo applies the action to a message sequence.
Variables controlling mh-e operation are (defaults in parentheses):
mh-bury-show-buffer (t)
Non-nil means that the buffer used to display message is buried.
It will never be offered as the default other buffer.
mh-clean-message-header (nil)
Non-nil means remove header lines matching the regular expression
specified in mh-invisible-headers from messages.
mh-visible-headers (nil)
If non-nil, it contains a regexp specifying the headers that are shown in
a message if mh-clean-message-header is non-nil. Setting this variable
overrides mh-invisible-headers.
mh-do-not-confirm (nil)
Non-nil means do not prompt for confirmation before executing some
non-recoverable commands such as mh-kill-folder and mh-undo-folder.
mhl-formfile (nil)
Name of format file to be used by mhl to show messages.
A value of T means use the default format file.
Nil means don't use mhl to format messages.
mh-lpr-command-format (\"lpr -p -J '%s'\")
Format for command used to print a message on a system printer.
mh-recenter-summary-p (nil)
If non-nil, then the scan listing is recentered when the window displaying
a messages is toggled off.
mh-summary-height (4)
Number of lines in the summary window.
mh-ins-buf-prefix (\">> \")
String to insert before each non-blank line of a message as it is
inserted in a letter being composed." (byte-code "´!ȈÉȘ¯!È˘˙!Ç" [mh-folder-mode-map major-mode use-local-map mh-folder-mode mh-set-mode-name "mh-e folder" run-hooks mh-folder-mode-hook] 4))
#Èˇ—!ȱ Ç" [folder t range get-buffer mh-make-folder mh-process-or-undo-commands switch-to-buffer mh-regenerate-headers count-lines 0 equal "all" message "Folder %s is empty" "No messages in %s, range %s" sit-for 5 mh-goto-cur-msg] 12))
Insert a Fcc: field in the current message, prompting for the field
name with a completion list of the current folders." (interactive) (byte-code "ˋÈ´ Èʈ˜¯˘˙¹#¨ˋO\")Ç" [t nil expand-abbrev mh-insert-fields "Fcc:" mh-prompt-for-folder "Fcc" "" 1] 7))
(defun mh-insert-signature nil "\
Insert the file ~/.signature at the current point." (interactive "") (byte-code "¹Èˋ´!Ç" [nil insert-file-contents "~/.signature"] 2))
(defun mh-check-whom nil "\
Verify recipients of the current letter." (interactive) (byte-code "´Èˆ ˜ˋ!ȯ È˘˙!Ȩ²!È˚p!ȸ ȳ˝ˋ#È˛ˇ!È˘—!)Ç" [file-name t nil buffer-file-name set-buffer-modified-p save-buffer message "Checking recipients..." switch-to-buffer-other-window "*Mail Recipients*" bury-buffer erase-buffer mh-exec-cmd-output "whom" other-window -1 "Checking recipients...done"] 11))
Insert a message from any folder into the current letter.
Removes the message's headers using mh-invisible-headers.
Prefixes each non-blank line with mh-ins-buf-prefix (default \">> \").
If (optional) prefix argument provided, do not indent and do not delete
headers.
Leaves the mark before the letter and point after it." (interactive (byte-code "˜¯ ´#˘˙¨Â˙²\"Á˚\"!EÇ" [current-prefix-arg mh-sent-from-folder nil mh-sent-from-msg mh-prompt-for-folder "Message from" read-input format "Message number%s: " " [%d]" ""] 9)) (byte-code "´È̸``\"Èe³˝\"IJˇ\"ÉÈ—±¼½¾¾!\"$È?Ä;à #Èá!Èâ
*Ç" [prompt default name mh-folder-list nil new-file-p t format "%s folder%s" equal "" "? " " [%s]? " mh-make-folder-list completing-read "+" 0 1 "+%s" file-exists-p mh-expand-file-name y-or-n-p "Folder %s does not exist. Create it? " message "Creating %s" call-process "mkdir" "Creating %s...done" error assoc] 24))
(defun mh-make-folder-list nil "\
Return a list of the user's folders.
Result is in a form suitable for completing read." (interactive) (byte-code "´È˘˙!ȨËÇ" [mh-recursive-folders list nil start t folder message "Collecting folder names..." ((byte-code "˘˙¨²Â˚Á¸$ÈebÈ´m?Ä7`³˝´˜#È˛`ˇZ\"—±\"C BÉ))ÈÁȼ½!È )Ç" [mh-recursive-folders list nil start t folder mh-exec-cmd-quiet " *mh-temp*" "folders" "-fast" "-recurse" "-norecurse" search-forward "