;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Tue Mar 15 01:42:48 1994 ;;; from file /home/fsf/rms/e19/lisp/mh-comp.el ;;; emacs version 19.22.85. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/home/fsf/rms/e19/lisp/mh-comp.el' was compiled for Emacs 19")) (byte-code "ÀÁ!ˆÂÃ!‡" [provide mh-comp require mh-utils] 2) (defvar mh-note-repl "-" "\ String whose first character is used to notate replied to messages.") (defvar mh-note-forw "F" "\ String whose first character is used to notate forwarded messages.") (defvar mh-note-dist "R" "\ String whose first character is used to notate redistributed messages.") (defvar mh-send-prog "send" "\ Name of the MH send program. Some sites need to change this because of a name conflict.") (defvar mh-yank-hooks nil "\ Obsolete hook for modifying a citation just inserted in the mail buffer. Each hook function can find the citation between point and mark. And each hook function should leave point and mark around the citation text as modified. This is a normal hook, misnamed for historical reasons. It is semi-obsolete and is only used if mail-citation-hook is nil.") (defvar mail-citation-hook nil "\ *Hook for modifying a citation just inserted in the mail buffer. Each hook function can find the citation between point and mark. And each hook function should leave point and mark around the citation text as modified. If this hook is entirely empty (nil), the text of the message is inserted with mh-ins-buf-prefix prefixed to each line. See also the variable mh-yank-from-start-of-msg, which controls how much of the message passed to the hook.") (defvar mail-header-separator "--------" "\ *Line used by MH to separate headers from text in messages being composed.") (defvar mh-delete-yanked-msg-window nil "\ *Controls window display when a message is yanked by \\\\[mh-yank-cur-msg]. If non-nil, yanking the current message into a draft letter deletes any windows displaying the message.") (defvar mh-yank-from-start-of-msg t "\ *Controls which part of a message is yanked by \\\\[mh-yank-cur-msg]. If non-nil, include the entire message. If the symbol `body', then yank the message minus the header. If nil, yank only the portion of the message following the point. If the show buffer has a region, this variable is ignored.") (defvar mh-reply-default-reply-to nil "\ *Sets the person or persons to whom a reply will be sent. If nil, prompt for recipient. If non-nil, then \\`\\[mh-reply]' will use this value and it should be one of \"from\", \"to\", or \"cc\".") (defvar mh-signature-file-name "~/.signature" "\ *Name of file containing the user's signature. Inserted into message by \\\\[mh-insert-signature].") (defvar mh-forward-subject-format "%s: %s" "\ *Format to generate the Subject: line contents for a forwarded message. The two string arguments to the format are the sender of the original message and the original subject line.") (defvar mh-comp-formfile "components" "\ Name of file to be used as a skeleton for composing messages. Default is \"components\". If not a complete path name, the file is searched for first in the user's MH directory, then in the system MH lib directory.") (defvar mh-letter-mode-hook nil "\ Invoked in `mh-letter-mode' on a new letter.") (defvar mh-compose-letter-function nil "\ Invoked in `mh-compose-and-send-mail' on a draft letter. It is passed three arguments: TO recipients, SUBJECT, and CC recipients.") (defvar mh-before-send-letter-hook nil "\ Invoked at the beginning of the \\\\[mh-send-letter] command.") (defvar mh-rejected-letter-start (concat "^ ----- Unsent message follows -----$" "\\|^------- Unsent Draft$" "\\|^---------- Original Message ----------$" "\\|^ --- The unsent message follows ---$" "\\|^ Your message follows:$") "\ Regexp specifying the beginning of the wrapper around a returned letter. This wrapper is generated by the mail system when rejecting a letter.") (defvar mh-new-draft-cleaned-headers "^Date:\\|^Received:\\|^Message-Id:\\|^From:\\|^Sender:\\|^Delivery-Date:\\|^Return-Path:" "\ Regexp of header lines to remove before offering a message as a new draft. Used by the \\`\\[mh-edit-again]' and `\\[mh-extract-rejected-mail]' commands.") (defvar mh-to-field-choices (quote ((116 . "To:") (115 . "Subject:") (99 . "Cc:") (98 . "Bcc:") (102 . "Fcc:"))) "\ Alist of (final-character . field-name) choices for mh-to-field.") (defvar mh-letter-mode-map (copy-keymap text-mode-map) "\ Keymap for composing mail.") (defvar mh-letter-mode-syntax-table nil "\ Syntax table used by mh-e while in MH-Letter mode.") (byte-code "„Á\n!ÃÄÅ#ˆÁ‡" [mh-letter-mode-syntax-table make-syntax-table text-mode-syntax-table modify-syntax-entry 37 "."] 4) (defalias 'mh-smail #[nil "À ˆÁÂ!‡" [mh-find-path call-interactively mh-send] 2 "\ Compose and send mail with the MH mail system. This function is an entry point to mh-e, the Emacs front end to the MH mail system." nil]) (defalias 'mh-edit-again #[(msg) " \fƒ& \fšƒ&ÅÆÇ!!É\"ˆÊËÌ\"!ˆÍ ‚.ÎÏÇ!Ð#ÒeÐ#ˆebˆÔÐ!ˆÕÖ Ð‰‰‰‰‰ &\n+‡" [mh-current-folder from-folder current-window-configuration config mh-draft-folder pop-to-buffer find-file-noselect mh-msg-filename msg t rename-buffer format "draft-%d" buffer-name mh-read-draft "clean-up" nil draft mh-clean-msg-header mh-new-draft-cleaned-headers set-buffer-modified-p mh-compose-and-send-mail ""] 11 "\ Clean-up a draft or a message previously sent and make it resendable. The variable mh-new-draft-cleaned-headers specifies the headers to remove. See also documentation for `\\[mh-send]' function." (list (mh-get-msg-num t))]) (defalias 'mh-extract-rejected-mail #[(msg) "Á ÂÃÄ !Æ# ebˆÊ ÆÌ#ƒ.ÍÆwˆe`|ˆÎeÆ#ˆ‚2ÐÑ!ˆebˆÒÆ!ˆÓÔ ÕÖ!Õ×!ÕØ!Ɖ&\n+‡" [mh-current-folder current-window-configuration mh-read-draft "extraction" mh-msg-filename msg nil draft config from-folder re-search-forward mh-rejected-letter-start t " \n" mh-clean-msg-header mh-new-draft-cleaned-headers message "Does not appear to be a rejected letter." set-buffer-modified-p mh-compose-and-send-mail "" mh-get-field "To:" "From:" "Cc:"] 11 "\ Extract a letter returned by the mail system and make it resendable. Default is the displayed message. The variable mh-new-draft-cleaned-headers gives the headers to clean out of the original message. See also documentation for `\\[mh-send]' function." (list (mh-get-msg-num t))]) (defalias 'mh-forward #[(to cc &optional msg-or-seq) "„ÁÂ! Å ÇÈ \"\nË\n!ƒ\"ÌÍ!ƒ?ÎÏÐ $ˆÑÒ\nÂ#ÓÔÖ$ˆØÙ!ˆ‚EÑÒ\nÙ#ebˆÛÜ!ˆÝyˆ`d}ˆŠÞß!)ŠÞà!)!\"~ˆã\"!\"$ŠÓà$\"ˆ)å ˆ§ƒ†æçÂ#ˆ‚Žæè!çÂ#ˆéÒ\f$*ë&\n.‡" [msg-or-seq mh-get-msg-num t mh-current-folder folder current-window-configuration config expand-file-name "draft" mh-user-path draft-name file-exists-p y-or-n-p "The file 'draft' exists. Discard it? " mh-exec-cmd "forw" "-build" mh-read-draft "" mh-insert-fields "To:" to "Cc:" cc set-buffer-modified-p nil draft re-search-forward "^------- Forwarded Message" -1 mh-get-field "From:" "Subject:" orig-subject orig-from mh-forwarded-letter-subject forw-subject delete-other-windows mh-add-msgs-to-seq forwarded mh-seq-to-msgs mh-compose-and-send-mail mh-note-forw "Forwarded:"] 11 "\ Forward a message or message sequence. Defaults to displayed message. If optional prefix argument provided, then prompt for the message sequence. See also documentation for `\\[mh-send]' function." (list (mh-read-address "To: ") (mh-read-address "Cc: ") (if current-prefix-arg (mh-read-seq-default "Forward" t) (mh-get-msg-num t)))]) (defalias (quote mh-forwarded-letter-subject) #[(from subject) "ÀÁ\n\"ÀÃ\n\"‰ƒ ÆVƒ\nÆ SO‚)\fƒ)\n\fT\nGSO*Ç\n #‡" [string-match "<" from "(" comment addr-start 0 format mh-forward-subject-format subject] 5]) (defalias 'mh-smail-other-window #[nil "À ˆÁÂ!‡" [mh-find-path call-interactively mh-send-other-window] 2 "\ Compose and send mail in other window with the MH mail system. This function is an entry point to mh-e, the Emacs front end to the MH mail system." nil]) (defalias 'mh-redistribute #[(to cc &optional msg) "„ÁÂ!ˇ" [msg mh-get-msg-num t ((byte-code "Á …\nÄ !Æ#ÉÊ!ˆË\fͱˆÏš„)ÐͱˆÑeÒÆ#ˆÓ ˆÔÕ!ˆ ƒSÖ×ÆÊÆØÙÚÛ Ü\"Û $&ˆ‚lÖ×ÆÊÆØÙßÄ \"Ü\"Û $&ˆà !âãäÙå\f#&ˆæ!ˆÔç!*‡" [mh-current-folder mh-read-draft "redistribution" mh-redist-full-contents mh-msg-filename msg nil draft folder mh-goto-header-end 0 "Resent-To: " to "\n" cc "" "Resent-cc: " mh-clean-msg-header "^Message-Id:\\|^Received:\\|^Return-Path:\\|^Sender:\\|^Date:\\|^From:" save-buffer message "Redistributing..." call-process "/bin/sh" "-c" format "mhdist=1 mhaltmsg=%s %s -push %s" buffer-file-name expand-file-name mh-send-prog mh-progs "mhdist=1 mhaltmsg=%s mhannotate=1 %s -push %s" mh-annotate-msg mh-note-dist "-component" "Resent:" "-text" "\"%s %s\"" kill-buffer "Redistributing...done"] 12))] 2 "\ Redistribute a letter. Depending on how your copy of MH was compiled, you may need to change the setting of the variable mh-redist-full-contents. See its documentation." (list (mh-read-address "Redist-To: ") (mh-read-address "Redist-Cc: ") (mh-get-msg-num t))]) (defalias 'mh-reply #[(msg &optional includep) "À\n†\fÃÄÅÆÇ$ Ê  \f ÏÐ!ˆÑÒÓÔÕך„5Øšƒ9Ù‚SÚšƒDÛ‚SÜš„RÝš…SÞ…Yà&ˆáâãâ$\"Ç#%æ ˆçÆ!ˆèé!èê!èë!,-.ebˆïð!ˆ„¥ñ 2ó\f!ˆ4ƒ›õp!ˆöŽ÷ \"ˆ*øùÇ#ˆÏú!ˆû%Ø .-,<ý &\n. ‡" ["from => Sender only\nto => Sender and primary recipients\ncc or all => Sender and all recipients" minibuffer-help-form mh-reply-default-reply-to completing-read "Reply to whom: " (("from") ("to") ("cc") ("all")) nil t mh-current-folder mh-show-buffer current-window-configuration config show-buffer folder reply-to message "Composing a reply..." mh-exec-cmd "repl" "-build" "-noquery" "-nodraftfolder" msg "from" "" ("-nocc" "all") "to" ("-cc" "to") "cc" "all" ("-cc" "all" "-nocc" "me") includep ("-filter" "mhl.reply") mh-read-draft "reply" expand-file-name mh-user-path draft delete-other-windows set-buffer-modified-p mh-get-field "To:" "Subject:" "Cc:" cc subject to mh-goto-header-end 1 selected-window mh-in-show-buffer-saved-window switch-to-buffer-other-window mh-bury-show-buffer bury-buffer ((select-window mh-in-show-buffer-saved-window)) mh-display-msg mh-add-msgs-to-seq answered "Composing a reply...done" mh-compose-and-send-mail mh-note-repl "Replied:"] 11 "\ Reply to a MESSAGE (default: displayed message). If optional prefix argument INCLUDEP provided, then include the message in the reply using filter mhl.reply in your MH directory. Prompts for type of addresses to reply to: from sender only, to sender and primary recipients, cc/all sender and all recipients. See also documentation for `\\[mh-send]' function." (list (mh-get-msg-num t) current-prefix-arg)]) (defalias 'mh-send #[(to cc subject) "À  ˆÃ\f  $)‡" [current-window-configuration config delete-other-windows mh-send-sub to cc subject] 5 "\ Compose and send a letter. The file named by `mh-comp-formfile' will be used as the form. The letter is composed in mh-letter-mode; see its documentation for more details. If `mh-compose-letter-function' is defined, it is called on the draft and passed three arguments: to, subject, and cc. Do not call this function from outside mh-e; use \\[mh-smail] instead." (list (mh-read-address "To: ") (mh-read-address "Cc: ") (read-string "Subject: "))]) (defalias 'mh-send-other-window #[(to cc subject) "À \f Æ $)‡" [t pop-up-windows mh-send-sub to cc subject current-window-configuration] 5 "\ Compose and send a letter in another window. Do not call this function from outside mh-e; use \\[mh-smail-other-window] instead. See also documentation for `\\[mh-send]' function." (list (mh-read-address "To: ") (mh-read-address "Cc: ") (read-string "Subject: "))]) (defalias 'mh-send-sub #[(to cc subject config) "ÁÂ!ÅÆ!ˆÇÈ ÊË\f \"‰ !ƒ\" ‚<ÊË\f\"‰ !ƒ5 ‚<ÏÐÑ \"!)Â#ÓÔÖØ&ˆdbˆÅÚ!ˆÛÜ\f ‰&\n+‡" [mh-current-folder mh-get-msg-num nil msg-num folder message "Composing a message..." mh-read-draft "message" components file-exists-p expand-file-name mh-comp-formfile mh-user-path mh-lib error format "Can't find components file \"%s\"" draft mh-insert-fields "To:" to "Subject:" subject "Cc:" cc "Composing a message...done" mh-compose-and-send-mail "" config] 11 "\ Do the real work of composing and sending a letter. Expects the TO, CC, and SUBJECT fields as arguments. CONFIG is the window configuration before sending mail."]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÆ\"ˆÀÇÈ\"ˆÀÉÊ\"ˆÀËÌ\"ˆÀÍÎ\"‡" [defalias mh-read-draft #[(use initial-contents delete-contents-file) "ƒ  ÅÆÇÈÉ !\"!!ˆÊË̈\f*‚dÍÎ\"ÅÎ!ˆÑ ƒ@ÒÓ!ƒ<ÔÊ!ˆ‚@ÕÖ!ˆØ ˆÙ ˆÚ!ƒcš„cÜ!ˆÝ!ˆ)ƒŒÞ ßU„zÒÇà!\"!„Œâ ˆÜ!ˆ#ƒŒÝ!ˆäå!ˆƒ—æ ˆç ‡" [mh-draft-folder default-directory mh-new-draft-name draft-file-name orig-default-dir pop-to-buffer generate-new-buffer format "draft-%s" file-name-nondirectory nil (insert-file-contents draft-file-name t) ((file-error)) expand-file-name "draft" mh-user-path draft-name buffer-modified-p y-or-n-p "Draft has been modified; kill anyway? " set-buffer-modified-p error "Draft preserved" buffer-file-name clear-visited-file-modtime unlock-buffer file-exists-p initial-contents insert-file-contents delete-file buffer-size 0 "A draft exists. Use for %s? " use erase-buffer delete-contents-file auto-save-mode 1 save-buffer buffer-name] 6] mh-new-draft-name #[nil "ŠÀÁ Ä$ˆedS{)‡" [mh-exec-cmd-quiet t "mhpath" mh-draft-folder "new"] 5] mh-annotate-msg #[(msg buffer note &rest args) "ÀÁ \f %ˆŠÆ !…* qˆ\f9ƒ\"Ç\f T#‚*Ê\f T#)‡" [apply mh-exec-cmd "anno" buffer msg args get-buffer mh-notate-seq note mh-cmd-note mh-notate] 6] mh-insert-fields #[(&rest name-values) "À\n…0\n@\nA@ Åš„(Æ\f!ƒ!Ç ±ˆ‚(\fÇ È±ˆ\nAA*‚)‡" [t case-fold-search name-values value field-name "" mh-position-on-field " " "\n"] 4] mh-position-on-field #[(field &optional ignore) "ÀebˆÂÃ!ˆÄÅÆ\"ÈÀ#…)ÉyˆÊË!ƒ$Éyˆ‚ÌÉ!ˆÀ)‡" [t case-fold-search mh-goto-header-end 0 re-search-backward format "^%s" field nil 1 looking-at "^[ ]" backward-char] 4] mh-goto-header-end #[(arg) "ÀÁ‰#…\n y‡" [re-search-forward "^$\\|^-+$" nil arg] 4] mh-read-address #[(prompt) "À !‡" [read-string prompt] 2]] 3) (defvar mh-sent-from-folder nil "\ Folder of msg associated with this letter.") (defvar mh-sent-from-msg nil "\ Number of msg associated with this letter.") (defvar mh-send-args nil "\ Extra arguments to pass to \"send\" command.") (defvar mh-annotate-char nil "\ Character to use to annotate mh-sent-from-msg.") (defvar mh-annotate-field nil "\ Field name for message annotation.") (put (quote mh-letter-mode) (quote mode-class) (quote special)) (defalias 'mh-letter-mode #[nil "„Á ˆÂ ˆÃÄ!ˆÅ\fPÃÆ!ˆÅPÃÇ!ˆÃÈ!ˆÃÉ!ˆÃÊ!ˆÃË!ˆÃÌ!ˆÃÍ!ˆÎ Ï!ˆÑÓÔ!ˆÕ!ˆ×Ø!ˆÙÚ!ƒbƒbÃÚ!ˆÛÙÜ!ƒtƒtÃÜ!ˆÛ×Ý!‡" [mh-user-path mh-find-path kill-all-local-variables make-local-variable paragraph-start "^[ ]*[-_][-_][-_]+$\\|" paragraph-separate mh-send-args mh-annotate-char mh-annotate-field mh-previous-window-config mh-sent-from-folder mh-sent-from-msg mail-header-separator "--------" use-local-map mh-letter-mode-map mh-letter-mode major-mode mh-set-mode-name "MH-Letter" set-syntax-table mh-letter-mode-syntax-table run-hooks text-mode-hook boundp auto-fill-hook mh-auto-fill-for-letter auto-fill-function mh-letter-mode-hook] 2 "\ Mode for composing letters in mh-e.\\ When you have finished composing, type \\[mh-send-letter] to send the letter. \\{mh-letter-mode-map} Variables controlling this mode (defaults in parentheses): mh-delete-yanked-msg-window (nil) If non-nil, \\[mh-yank-cur-msg] will delete any windows displaying the yanked message. mh-yank-from-start-of-msg (t) If non-nil, \\[mh-yank-cur-msg] will include the entire message. If `body', just yank the body (no header). If nil, only the portion of the message following the point will be yanked. If there is a region, this variable is ignored. mh-signature-file-name (\"~/.signature\") File to be inserted into message by \\[mh-insert-signature]. Upon invoking mh-letter-mode, text-mode-hook and mh-letter-mode-hook are invoked with no args, if those values are non-nil." nil]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"‡" [defalias mh-auto-fill-for-letter #[nil "À ˆÁ …ŠÂyˆÃÄÅ\")‡" [do-auto-fill mh-in-header-p 0 insert-char 9 1] 3] mh-in-header-p #[nil "Š`ebˆÁÂÃÄ#ˆ`W*‡" [cur-point re-search-forward "^-*$" nil t] 4]] 3) (defalias 'mh-to-field #[nil "À ˆÁ Ä\" \"AÆÉ ˆÊ!ƒF` ÌÍxˆ` |ˆ) Ä\"Î=„AŠÏÐ!ˆÑÒ!)„AÓc‚YÔc‚YÊÕ!ƒOÐyˆÖ×\"cˆÏÐ!*‡" [expand-abbrev assoc logior last-input-char 96 mh-to-field-choices t case-fold-search target push-mark mh-position-on-field eol " " nil 115 backward-char 1 looking-at "[:,]" ", " " " "To:" format "%s \n"] 4 "\ Move point to the end of a specified header field. The field is indicated by the previous keystroke (the last keystroke of the command) according to the list in mh-to-field-choices. Create the field if it does not exist. Set the mark to point before moving." nil]) (defalias 'mh-to-fcc #[(&optional folder) "„Á ƒŠebˆ )†ÄÅ#ÆÈ ˆŠÉ ˆÊ!ƒ/ËÌO‚0c*‡" [folder mh-prompt-for-folder "Fcc" mh-msg-folder-hook "" t 6 last-input-char expand-abbrev mh-to-field mh-folder-name-p 1 nil] 4 "\ Insert an Fcc: FOLDER field in the current message. Prompt for the field name with a completion list of the current folders." nil]) (defalias 'mh-insert-signature #[nil "À !ˆÂà !‡" [insert-file-contents mh-signature-file-name set-buffer-modified-p buffer-modified-p] 2 "\ Insert the file named by mh-signature-file-name at the current point." nil]) (defalias 'mh-check-whom #[nil "À  ˆÃÄ!ˆÅ ÇÈ!ˆ ƒÊp!ˆËŽÊp!ˆÌ ˆÍÎÏ #ˆ*ÃÐ!)‡" [buffer-file-name file-name save-buffer message "Checking recipients..." selected-window mh-in-show-buffer-saved-window switch-to-buffer-other-window "*Recipients*" mh-bury-show-buffer bury-buffer ((select-window mh-in-show-buffer-saved-window)) erase-buffer mh-exec-cmd-output "whom" t "Checking recipients...done"] 4 "\ Verify recipients of the current letter." nil]) (defalias (quote mh-compose-and-send-mail) #[(draft send-args sent-from-folder sent-from-msg to subject cc annotate-char annotate-field config) "À !ˆÂ ˆ   \n \f ÏCÑÒ!…_ÒJ…_ÒJ‰<ƒU@Ô=„U…^@#ˆA‰‚>#)‡" [pop-to-buffer draft mh-letter-mode sent-from-folder mh-sent-from-folder sent-from-msg mh-sent-from-msg send-args mh-send-args annotate-char mh-annotate-char annotate-field mh-annotate-field config mh-previous-window-config "{%b}" mode-line-buffer-identification boundp mh-compose-letter-function value lambda to subject cc] 5]) (defalias 'mh-send-letter #[(&optional arg) "ÀÁ!ˆÂÃ!ˆÄ ˆÅÆ!ˆpÇ  \n \fƒBÍÎ!ˆÏ ˆÐÃÒÓÔ\n&ˆdbˆÖ×!ˆ qˆ‚MØÔÙ\n%ˆƒiÛÞàáâãä!ãå!#&ˆ\fƒtæç!ƒƒè !ˆ ƒƒé !ˆ\fƒŽÅê!‚‘Åë!+‡" [run-hooks mh-before-send-letter-hook set-buffer-modified-p t save-buffer message "Sending..." buffer-file-name mh-previous-window-config config file-name draft-buffer arg pop-to-buffer "MH mail delivery" erase-buffer mh-exec-cmd-output mh-send-prog "-watch" "-nopush" "-nodraftfolder" mh-send-args recenter -1 mh-exec-cmd-daemon "-noverbose" mh-annotate-char mh-annotate-msg mh-sent-from-msg mh-sent-from-folder "-component" mh-annotate-field "-text" format "\"%s %s\"" mh-get-field "To:" "Cc:" y-or-n-p "Kill draft buffer? " kill-buffer set-window-configuration "Sending...done" "Sending...backgrounded"] 12 "\ Send the draft letter in the current buffer. If optional prefix argument is provided, monitor delivery. Run mh-before-send-letter-hook before doing anything." "P"]) (defalias 'mh-insert-letter #[(msg folder verbatum) "Œ``}ˆe šƒÃ\f!ÅÆÇÈÉ Ê !\"$ˆ\f?…4Í#ˆÐ!ˆÑ!*‡" [start msg "" int-to-string mh-sent-from-msg mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear" expand-file-name mh-expand-file-name folder verbatum mh-clean-msg-header mh-invisible-headers mh-visible-headers set-mark mh-insert-prefix-string mh-ins-buf-prefix] 8 "\ 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 prefix argument VERBATUM provided, do not indent and do not delete headers. Leaves the mark before the letter and point after it." (list (read-input (format "Message number%s: " (if mh-sent-from-msg (format " [%d]" mh-sent-from-msg) ""))) (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) current-prefix-arg)]) (defalias 'mh-yank-cur-msg #[nil "ƒs ƒs`pqˆ\fƒÅ!ˆqˆÇÈ!ƒ'‚)É ƒ4Ê Ë {‚X\fÍ=ƒJŠebˆÎÏ!ˆ`)d{‚X\fƒUed{‚X`d{\nqˆ ‰}ˆÑ ˆcˆÒ!ˆÔcˆ~+‡ÕÖ!‡" [mh-sent-from-folder mh-sent-from-msg to-buffer to-point mh-delete-yanked-msg-window delete-windows-on mh-show-buffer boundp mark-active mark region-beginning region-end mh-yank-from-start-of-msg body mh-goto-header-end 1 mh-ins-str push-mark mh-insert-prefix-string mh-ins-buf-prefix "\n" error "There is no current message"] 2 "\ Insert the current message into the draft buffer. Prefix each non-blank line in the message with the string in `mh-ins-buf-prefix'. If a region is set in the message's buffer, then only the region will be inserted. Otherwise, the entire message will be inserted if `mh-yank-from-start-of-msg' is non-nil. If this variable is nil, the portion of the message following the point will be yanked. If `mh-delete-yanked-msg-window' is non-nil, any window displaying the yanked message will be deleted." nil]) (defalias (quote mh-insert-prefix-string) #[(mh-ins-string) "ŠÀd!ˆebˆ ƒÂÁ!‚4 ƒÂÃ!‚4n„#Äyˆ`Å W…4cˆÄyˆ‚#)‡" [set-mark mail-citation-hook run-hooks mh-yank-hooks 1 mark mh-ins-string] 2]) (defalias 'mh-fully-kill-draft #[nil "ÀÁ!ƒ*\nÄÅ !ƒÆÅ !ˆÇÈ!ˆÉÊ !ˆËÌ!ˆ …(Í !)‡ÎÏ!‡" [y-or-n-p "Kill draft message? " mh-previous-window-config config file-exists-p buffer-file-name delete-file set-buffer-modified-p nil kill-buffer buffer-name message "" set-window-configuration error "Message not killed"] 2 "\ Kill the draft message file and the draft message buffer. Use \\[kill-buffer] if you don't want to delete the draft message file." nil]) (byte-code "À ÂÃ#ˆÀ ÄÃ#ˆÀ ÅÆ#ˆÀ ÇÃ#ˆÀ ÈÃ#ˆÀ ÉÃ#ˆÀ ÊÃ#ˆÀ ËÆ#ˆÀ ÌÃ#ˆÀ ÍÃ#ˆÀ ÎÏ#ˆÀ ÐÑ#ˆÀ ÒÓ#ˆÀ ÔÕ#ˆÀ Ö×#ˆÀ ØÙ#ˆÀ ÚÛ#ˆÀ ÜÝ#ˆÀ Þß#ˆÀ àá#ˆÀ âã#ˆÀ äå#‡" [define-key mh-letter-mode-map "" mh-to-field "" "" mh-to-fcc "" "" "b" "c" "f" "s" "t" "" mh-fully-kill-draft "" mh-check-whom " " mh-insert-letter "" mh-yank-cur-msg "" mh-insert-signature "" mh-send-letter " " mh-mhn-compose-forw " " mh-mhn-compose-anon-ftp " " mh-mhn-compose-external-compressed-tar " " mh-mhn-compose-insertion "" mh-edit-mhn " " mh-revert-mhn-edit] 4) (autoload (quote mh-mhn-compose-insertion) "mh-mime" "\ Add a directive to insert a message part from a file." t) (autoload (quote mh-mhn-compose-anon-ftp) "mh-mime" "\ Add a directive for an anonymous ftp external body part." t) (autoload (quote mh-mhn-compose-external-compressed-tar) "mh-mime" "\ Add a directive to include a reference to a compressed tar file." t) (autoload (quote mh-mhn-compose-forw) "mh-mime" "\ Add a forw directive to this message." t) (autoload (quote mh-edit-mhn) "mh-mime" "\ Filter the current draft through the mhn program for MIME formatting. Using directives already inserted in the draft, fills in all the MIME components and header fields. This step should be done last just before sending the message. The mhn program is part of MH version 6.8 or later. The `\\[mh-revert-mhn-edit]' command undoes this command. For assistance with creating MIME directives to insert various types of components in a message, see \\[mh-mhn-compose-insertion] (generic insertion from a file), \\[mh-mhn-compose-anon-ftp] (external reference to file via anonymous ftp), \\[mh-mhn-compose-external-compressed-tar] (reference to compressed tar file via anonymous ftp), and \\[mh-mhn-compose-forw] (forward message)." t) (autoload (quote mh-revert-mhn-edit) "mh-mime" "\ Undoes the effect of \\[mh-edit-mhn] by reverting to the backup file." t)