;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue Apr 25 19:10:29 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/mh-comp.el ;;; emacs version 19.28.90.40. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/mh-comp.el' was compiled for Emacs 19")) (byte-code "ÀÁ!ˆÂÃ!‡" [provide mh-comp require mh-utils] 2) #@89 Name of the MH send program. Some sites need to change this because of a name conflict. (defvar mh-send-prog "send" (#$ . 543)) #@212 Non-nil if the `dist' command needs whole letter for redistribution. This is the case only when `send' is compiled with the BERK option. If MH will not allow you to redist a previously redist'd msg, set to nil. (defvar mh-redist-full-contents nil (#$ . 678)) #@69 String whose first character is used to notate replied to messages. (defvar mh-note-repl "-" (#$ . 943)) #@68 String whose first character is used to notate forwarded messages. (defvar mh-note-forw "F" (#$ . 1054)) #@72 String whose first character is used to notate redistributed messages. (defvar mh-note-dist "R" (#$ . 1165)) #@352 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 mh-yank-hooks nil (#$ . 1281)) #@450 *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-citation-hook nil (#$ . -1678)) #@76 *Line used by MH to separate headers from text in messages being composed. (defvar mail-header-separator "--------" (#$ . -2178)) #@199 *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-delete-yanked-msg-window nil (#$ . -2315)) #@319 *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-yank-from-start-of-msg t (#$ . -2574)) #@201 *String to put before each non-blank line of a yanked or inserted message. \Used when the message is inserted into an outgoing letter by \[mh-insert-letter] or \[mh-yank-cur-msg]. (defvar mh-ins-buf-prefix "> " (#$ . -2949)) #@261 *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", "cc", or "all". The values "cc" and "all" do the same thing. (defvar mh-reply-default-reply-to nil (#$ . -3201)) #@118 *Name of file containing the user's signature. Inserted into message by \\[mh-insert-signature]. (defvar mh-signature-file-name "~/.signature" (#$ . -3520)) #@182 *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-forward-subject-format "%s: %s" (#$ . -3704)) #@214 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-comp-formfile "components" (#$ . 3949)) #@215 Name of file to be used as a skeleton for replying to messages. Default is "replcomps". 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-repl-formfile "replcomps" (#$ . 4220)) #@46 Invoked in `mh-letter-mode' on a new letter. (defvar mh-letter-mode-hook nil (#$ . 4490)) #@114 Invoked when setting up a letter draft. It is passed three arguments: TO recipients, SUBJECT, and CC recipients. (defvar mh-compose-letter-function nil (#$ . 4587)) #@81 Invoked at the beginning of the \\[mh-send-letter] command. (defvar mh-before-send-letter-hook nil (#$ . 4758)) #@144 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-rejected-letter-start (concat "^ ----- Unsent message follows -----$" "\\|^ ----- Original message follows -----$" "\\|^------- Unsent Draft$" "\\|^---------- Original Message ----------$" "\\|^ --- The unsent message follows ---$" "\\|^ Your message follows:$" "\\|^Content-Description: Returned Content$") (#$ . 4897)) #@172 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-new-draft-cleaned-headers "^Date:\\|^Received:\\|^Message-Id:\\|^From:\\|^Sender:\\|^Errors-To:\\|^Delivery-Date:\\|^Return-Path:" (#$ . 5389)) #@66 Alist of (final-character . field-name) choices for mh-to-field. (defvar mh-to-field-choices (quote (("t" . "To:") ("s" . "Subject:") ("c" . "Cc:") ("b" . "Bcc:") ("f" . "Fcc:") ("r" . "From:") ("d" . "Dcc:"))) (#$ . 5721)) #@28 Keymap for composing mail. (defvar mh-letter-mode-map (copy-keymap text-mode-map) (#$ . 5951)) #@52 Syntax table used by mh-e while in MH-Letter mode. (defvar mh-letter-mode-syntax-table nil (#$ . 6052)) (byte-code "„Á\n!ÃÄÅ#ˆÁ‡" [mh-letter-mode-syntax-table make-syntax-table text-mode-syntax-table modify-syntax-entry 37 "."] 4) #@203 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. See documentation of `\[mh-send]' for more details on composing mail. (defalias 'mh-smail #[nil "À ˆÁÂ!‡" [mh-find-path call-interactively mh-send] 2 (#$ . 6295) nil]) #@228 Clean-up a draft or a message previously sent and make it resendable. Default is the current message. The variable mh-new-draft-cleaned-headers specifies the headers to remove. See also documentation for `\[mh-send]' function. (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 (#$ . 6602) (list (mh-get-msg-num t))]) #@251 Extract a letter returned by the mail system and make it resendable. Default is the current 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. (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-header-field "To:" "From:" "Cc:"] 11 (#$ . 7315) (list (mh-get-msg-num t))]) #@198 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. (defalias 'mh-forward #[(to cc &optional msg-or-seq) "„ÁÂ! Å ÇÈ \"\nË\n!ƒ\"ÌÍ!ƒ?ÎÏÐ $ˆÑÒ\nÂ#ÓÔÖ$ˆØÙ!ˆ‚EÑÒ\nÙ#Ù‰ebˆÝÞ!ˆßyˆàÙwˆŒ`d}ˆáâ!áã!)ä\"%Óã%\"ˆebˆÝÞ!ˆæyˆç ˆ§ƒ”èéÂ#ˆ‚œèê!éÂ#ˆëÒ\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 orig-subject orig-from re-search-forward "^------- Forwarded Message" 1 " \n" mh-get-header-field "From:" "Subject:" mh-forwarded-letter-subject forw-subject -1 delete-other-windows mh-add-msgs-to-seq forwarded mh-seq-to-msgs mh-compose-and-send-mail mh-note-forw "Forwarded:"] 11 (#$ . 8111) (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 '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]) #@219 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. See documentation of `\[mh-send]' for more details on composing mail. (defalias 'mh-smail-other-window #[nil "À ˆÁÂ!‡" [mh-find-path call-interactively mh-send-other-window] 2 (#$ . 9517) nil]) #@171 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. (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 (#$ . 9866) (list (mh-read-address "Redist-To: ") (mh-read-address "Redist-Cc: ") (mh-get-msg-num t))]) #@462 Reply to MESSAGE (default: current 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. If the file named by `mh-repl-formfile' exists, it is used as a skeleton for the reply. See also documentation for `\[mh-send]' function. (defalias 'mh-reply #[(message &optional includep) "À\n†\fÃÄÅÆÇ$ Ê  \f ÏÐ!ˆÑÒÓÔÕ;…-×DØš„?ÙšƒCÚ‚]ÛšƒNÜ‚]Ýš„\\Þš…]ß …cá& ˆâãäã%\"Ç#&ç ˆèÆ!ˆéê!éë!éì!-./ebˆðñ!ˆ „¯ò 3ô\f!ˆ5ƒ¥ö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" mh-repl-formfile "-form" "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-header-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 (#$ . 10990) (list (mh-get-msg-num t) current-prefix-arg)]) #@364 Compose and send a letter. The file named by `mh-comp-formfile' will be used as the form. Do not call this function from outside mh-e; use \[mh-smail] instead. 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. (defalias 'mh-send #[(to cc subject) "À  ˆÃ\f  $)‡" [current-window-configuration config delete-other-windows mh-send-sub to cc subject] 5 (#$ . 12794) (list (mh-read-address "To: ") (mh-read-address "Cc: ") (read-string "Subject: "))]) #@179 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. (defalias 'mh-send-other-window #[(to cc subject) "À \f Æ $)‡" [t pop-up-windows mh-send-sub to cc subject current-window-configuration] 5 (#$ . 13405) (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]) (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]) (defalias 'mh-new-draft-name #[nil "ŠÀÁ Ä$ˆedS{)‡" [mh-exec-cmd-quiet t "mhpath" mh-draft-folder "new"] 5]) (defalias '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]) (defalias '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]) (defalias 'mh-position-on-field #[(field &optional ignore) "À !…\n ˆÃ‡" [mh-goto-header-field field mh-header-field-end t] 2]) (defalias 'mh-get-header-field #[(field) "À !ƒÂÃwˆ`Å ˆ\f`{)‡Æ‡" [mh-goto-header-field field " " nil start mh-header-field-end ""] 2]) (fset (quote mh-get-field) (quote mh-get-header-field)) (defalias 'mh-goto-header-field #[(field) "ebˆÀŠÁÂ!ˆ`)ÅÆÇ\" À#*‡" [t mh-goto-header-end 0 headers-end case-fold-search re-search-forward format "^%s" field] 4]) (defalias 'mh-header-field-end #[nil "ÀyˆÁÂ!ƒÀyˆ‚ÃÀ!‡" [1 looking-at "^[ ]" backward-char] 2]) (defalias 'mh-goto-header-end #[(arg) "ÀÁ‰#…\n y‡" [re-search-forward "^-*$" nil arg] 4]) (defalias 'mh-read-address #[(prompt) "À !‡" [read-string prompt] 2]) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ BÀÅ!„ ÂÅ BÀÆ!„-ÂÆ BÀÇ!„:ÂÇ BÈÉÊË#‡" [boundp mh-sent-from-folder nil current-load-list mh-sent-from-msg mh-send-args mh-annotate-char mh-annotate-field put mh-letter-mode mode-class special] 4) #@1107 Mode for composing letters in mh-e.\ When you have finished composing, type \[mh-send-letter] to send the message using the MH mail handling system. See the documentation for \[mh-edit-mhn] for information on composing MIME messages. \{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-ins-buf-prefix ("> ") String to insert before each non-blank line of a message as it is inserted in a draft letter. 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. (defalias 'mh-letter-mode #[nil "„Á ˆÂÃ!ˆÄ PÂÅ!ˆÄ PÂÆ!ˆÂÇ!ˆÂÈ!ˆÂÉ!ˆÂÊ!ˆÂË!ˆÂÌ!ˆÍ\fÎ!ˆÐÒÓ!ˆÔ!ˆÖ×!ˆØÙ!ƒ]ƒ]ÂÙ!ˆÚØÛ!ƒoƒoÂÛ!ˆÚÖÜ!‡" [mh-user-path mh-find-path 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 (#$ . 16733) nil]) (defalias 'mh-auto-fill-for-letter #[nil "À ƒ Áà )‡Ã ‡" [mh-in-header-p " " fill-prefix do-auto-fill] 1]) (defalias 'mh-in-header-p #[nil "Š`ebˆÁÂÃÄ#ˆ`W*‡" [cur-point re-search-forward "^-*$" nil t] 4]) #@273 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 the variable mh-to-field-choices. Create the field if it does not exist. Set the mark to point before moving. (defalias 'mh-to-field #[nil "À ˆÁÂÃ\fÅ\"!\"†ÁÃ\fÅ\"\"AÇ Ê ˆË !ƒT`\fÍÎxˆ`\f|ˆ)Ã\fÅ\"Ï=„OŠÐÑ!ˆÒÓ!)„OÔc‚gÕc‚gËÖ!ƒ]Ñyˆ×Ø \"cˆÐÑ!*‡" [expand-abbrev assoc char-to-string 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"] 5 (#$ . 18721) nil]) #@126 Insert an Fcc: FOLDER field in the current message. Prompt for the field name with a completion list of the current folders. (defalias 'mh-to-fcc #[(&optional folder) "„Á ƒŠebˆ )†ÄÅ#ÆÈ ˆŠÉ ˆÊ!ƒ/ËÌO‚0c*‡" [folder mh-prompt-for-folder "Fcc" mh-default-folder-for-message-function "" t 6 last-input-char expand-abbrev mh-to-field mh-folder-name-p 1 nil] 4 (#$ . 19390) nil]) #@71 Insert the file named by mh-signature-file-name at the current point. (defalias 'mh-insert-signature #[nil "À !ˆÂ ‡" [insert-file-contents mh-signature-file-name force-mode-line-update] 2 (#$ . 19785) nil]) #@76 Verify recipients of the current letter, showing expansion of any aliases. (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 (#$ . 19998) nil]) (defalias '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ÑÒ!…_…_‰<ƒ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]) #@159 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. (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-header-field "To:" "Cc:" y-or-n-p "Kill draft buffer? " kill-buffer set-window-configuration "Sending...done" "Sending...backgrounded"] 12 (#$ . 21066) "P"]) #@323 Insert a message into the current letter. Removes the message's headers using mh-invisible-headers. Prefixes each non-blank line with mh-ins-buf-prefix. Prompts for FOLDER and MESSAGE. If prefix argument VERBATIM provided, do not indent and do not delete headers. Leaves the mark before the letter and point after it. (defalias 'mh-insert-letter #[(folder message verbatim) "Œ``}ˆe šƒÃ\f!ÅÆÇÈÉ Ê !\"$ˆ\f?…4Í#ˆÐ!ˆÑ!*‡" [start message "" int-to-string mh-sent-from-msg mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear" expand-file-name mh-expand-file-name folder verbatim mh-clean-msg-header mh-invisible-headers mh-visible-headers set-mark mh-insert-prefix-string mh-ins-buf-prefix] 8 (#$ . 22067) (list (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) (read-input (format "Message number%s: " (if mh-sent-from-msg (format " [%d]" mh-sent-from-msg) ""))) current-prefix-arg)]) #@500 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. (defalias 'mh-yank-cur-msg #[nil "ƒr ƒr`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 (#$ . 22983) nil]) (defalias 'mh-insert-prefix-string #[(mh-ins-string) "Àd!ˆebˆ ƒÂÁ!‡ ƒÂÃ!‡n„ÄyˆÅ`Ç W…2cˆÄyˆ‚!)‡" [set-mark mail-citation-hook run-hooks mh-yank-hooks 1 nil zmacs-regions mark mh-ins-string] 2]) #@130 Kill the draft message file and the draft message buffer. Use \[kill-buffer] if you don't want to delete the draft message file. (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 (#$ . 24200) nil]) (byte-code "À ÂÃ#ˆÀ ÄÃ#ˆÀ ÅÃ#ˆÀ ÆÇ#ˆÀ ÈÃ#ˆÀ ÉÃ#ˆÀ ÊÃ#ˆÀ ËÃ#ˆÀ ÌÃ#ˆÀ ÍÃ#ˆÀ ÎÇ#ˆÀ ÏÃ#ˆÀ ÐÃ#ˆÀ ÑÃ#ˆÀ ÒÓ#ˆÀ ÔÕ#ˆÀ ÖÕ#ˆÀ ×Ø#ˆÀ ÙØ#ˆÀ ÚÛ#ˆÀ ÜÝ#ˆÀ Þß#ˆÀ àá#ˆÀ âã#ˆÀ äå#ˆÀ æç#ˆÀ èé#ˆÀ êë#‡" [define-key mh-letter-mode-map "" mh-to-field "" "" "" mh-to-fcc "" "" "" "b" "c" "d" "f" "r" "s" "t" " " mh-insert-letter "" mh-fully-kill-draft "" "" mh-insert-signature "" "" mh-check-whom "" mh-yank-cur-msg "" 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) #@148 Add a directive to insert a MIME message part from a file. This is the typical way to insert non-text parts in a message. See also \[mh-edit-mhn]. (autoload (quote mh-mhn-compose-insertion) "mh-mime" '(#$ . 25304) t) #@196 Add a directive for a MIME anonymous ftp external body part. This directive tells MH to include a reference to a message/external-body part retrievable by anonymous FTP. See also \[mh-edit-mhn]. (autoload (quote mh-mhn-compose-anon-ftp) "mh-mime" '(#$ . 25528) t) #@225 Add a directive to include a MIME reference to a compressed tar file. The file should be available via anonymous ftp. This directive tells MH to include a reference to a message/external-body part. See also \[mh-edit-mhn]. (autoload (quote mh-mhn-compose-external-compressed-tar) "mh-mime" '(#$ . 25799) t) #@160 Add a forw directive to this message, to forward a message with MIME. This directive tells MH to include another message in this one. See also \[mh-edit-mhn]. (autoload (quote mh-mhn-compose-forw) "mh-mime" '(#$ . 26114) t) #@771 Format the current draft for MIME, expanding any mhn directives. Process the current draft with the mhn program, which, 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 mhn 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). (autoload (quote mh-edit-mhn) "mh-mime" '(#$ . 26345) t) #@130 Undoes the effect of \[mh-edit-mhn] by reverting to the backup file. Optional non-nil argument means don't ask for confirmation. (autoload (quote mh-revert-mhn-edit) "mh-mime" '(#$ . 27179) t)