Current File : //usr/local/share/emacs/27.2/lisp/mh-e/mh-comp.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\210\305\310\311\"\207" [require mh-e mh-gnus mh-scan sendmail autoload easy-menu-add "easymenu" mml-insert-tag "mml"] 3)
#@89 Name of the MH send program.
Some sites need to change this because of a name conflict.
(defvar mh-send-prog "send" (#$ . 608))
#@321 Non-nil means "send" uses "spost" to submit messages.
If the value of "postproc:" is "spost", you may need to set
this variable to t to tell MH-E to avoid using features of
"post" that are not supported by "spost". You'll know that
you'll need to do this if sending mail fails with an error of
"spost: -msgid unknown".
(defvar mh-send-uses-spost-flag nil (#$ . 743))
#@139 If non-nil redist will be done in background like send.
This allows transaction log to be visible if -watch, -verbose or
-snoop are used.
(defvar mh-redist-background nil (#$ . 1118))
#@216 Name of file to be used as a skeleton for composing messages.
Default is "components".
If not an absolute file 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" (#$ . 1309))
#@220 Name of file to be used as a skeleton for redistributing messages.
Default is "distcomps".
If not an absolute file name, the file is searched for first in the
user's MH directory, then in the system MH lib directory.
(defvar mh-dist-formfile "distcomps" (#$ . 1582))
#@217 Name of file to be used as a skeleton for replying to messages.
Default is "replcomps".
If not an absolute file 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" (#$ . 1858))
#@350 Name of file to be used as a skeleton for replying to messages.
Default is "replgroupcomps".
This file is used to form replies to the sender and all recipients of
a message. Only used if (mh-variant-p \='nmh) is non-nil.
If not an absolute file name, the file is searched for first in the
user's MH directory, then in the system MH lib directory.
(defvar mh-repl-group-formfile "replgroupcomps" (#$ . 2131))
(defvar mh-rejected-letter-start (format "^%s$" "\\(?: \\(?: \\(?: \\(?: Your message follows:\\|----- \\(?:\\(?:Original\\|Unsent\\) message follows -----\\)\\)\\|--- The unsent message follows ---\\)\\|--------Unsent Message below:\\)\\|---\\(?: Below this line is a copy of the message\\.\\|---\\(?: This is a copy of the message, including all the headers\\. ------\\|-\\(?: Unsent Draft\\|--- Original Message ----------\\)\\)\\)\\|Content-\\(?:Description: Returned Content\\|Type: message/rfc822\\)\\)"))
#@168 Regexp of header lines to remove before offering a message as a new draft\<mh-folder-mode-map>.
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:" (#$ . 3062))
#@52 Syntax table used by MH-E while in MH-Letter mode.
(defvar mh-letter-mode-syntax-table (byte-code "\302!\303\304\305 #\210 )\207" [text-mode-syntax-table syntax-table make-syntax-table modify-syntax-entry 37 "."] 4) (#$ . 3390))
#@59 Specify a syntax table for `mh-regexp-in-field-p' to use.
(defvar mh-regexp-in-field-syntax-table nil (#$ . 3627))
#@57 Syntax table used by MH-E while searching an Fcc field.
(defvar mh-fcc-syntax-table (byte-code "\302!\303\304\305 #\210\303\306\305 #\210 )\207" [text-mode-syntax-table syntax-table make-syntax-table modify-syntax-entry 43 "w" 47] 4) (#$ . 3748))
#@61 Syntax table used by MH-E while searching an address field.
(defvar mh-addr-syntax-table (byte-code "\302!\303\304\305 #\210\303\306\305 #\210\303\307\305 #\210\303\310\305 #\210\303\311\305 #\210\303\312\305 #\210\303\313\305 #\210\303\314\305 #\210\303\315\305 #\210\303\316\305 #\210\303\317\305 #\210\303\320\305 #\210\303\321\305 #\210\303\322\305 #\210\303\323\305 #\210\303\324\305 #\210\303\325\305 #\210\303\326\305 #\210\303\327\305 #\210\303\330\305 #\210\303\331\305 #\210 )\207" [text-mode-syntax-table syntax-table make-syntax-table modify-syntax-entry 33 "w" 35 36 37 38 39 42 43 45 47 61 63 94 95 96 123 124 125 126 46 64] 4) (#$ . 4003))
#@39 Extra args to pass to "send" command.
(defvar mh-send-args "" (#$ . 4666))
#@50 Character to use to annotate `mh-sent-from-msg'.
(defvar mh-annotate-char nil (#$ . 4747))
#@36 Field name for message annotation.
(defvar mh-annotate-field nil (#$ . 4844))
#@127 Messages annotated, either a sequence name or a list of message numbers.
This variable can be used by `mh-annotate-msg-hook'.
(defvar mh-annotate-list nil (#$ . 4929))
#@77 Buffer-local variable set when `mh-insert-auto-fields' called successfully.
(defvar mh-insert-auto-fields-done-local nil (#$ . 5103))
(make-variable-buffer-local 'mh-insert-auto-fields-done-local)
#@94 Compose a message with the MH mail system.
See `mh-send' for more details on composing mail.
(defalias 'mh-smail #[nil "\300 \210\301\302!\207" [mh-find-path call-interactively mh-send] 2 (#$ . 5306) nil])
#@110 Compose a message with the MH mail system in other window.
See `mh-send' for more details on composing mail.
(defalias 'mh-smail-other-window #[nil "\300 \210\301\302!\207" [mh-find-path call-interactively mh-send-other-window] 2 (#$ . 5519) nil])
#@143 Compose a message in another window.
See `mh-send' for more information and a description of how the
TO, CC, and SUBJECT arguments are used.
(defalias 'mh-send-other-window #[(to cc subject) "\304\305 \n \306 $)\207" [pop-up-windows to cc subject t mh-send-sub current-window-configuration] 5 (#$ . 5774) (list (mh-interactive-read-address "To: ") (mh-interactive-read-address "Cc: ") (mh-interactive-read-string "Subject: "))])
(defvar mh-error-if-no-draft nil)
#@454 Compose a message with the MH mail system.
This function does not prompt the user for any header fields, and
thus is suitable for use by programs that want to create a mail
buffer. Users should use \[mh-smail] to compose mail.
Optional arguments for setting certain fields include TO,
SUBJECT, and OTHER-HEADERS. Additional arguments are IGNORED.
This function remains for Emacs 21 compatibility. New
applications should use `mh-user-agent-compose'.
(defalias 'mh-smail-batch #[(&optional to subject _other-headers &rest _ignored) "\303 \210\304\305 \206 \306\306\n\206 \306#)\207" [mh-error-if-no-draft to subject mh-find-path t mh-send ""] 4 (#$ . 6246)])
(define-mail-user-agent 'mh-e-user-agent 'mh-user-agent-compose 'mh-send-letter 'mh-fully-kill-draft 'mh-before-send-letter-hook)
#@550 Set up mail composition draft with the MH mail system.
This is the `mail-user-agent' entry point to MH-E. This function
conforms to the contract specified by `define-mail-user-agent'
which means that this function should accept the same arguments
as `compose-mail'.
The optional arguments TO and SUBJECT specify recipients and the
initial Subject field, respectively.
OTHER-HEADERS is an alist specifying additional header fields.
Elements look like (HEADER . VALUE) where both HEADER and VALUE
are strings.
Any additional arguments are IGNORED.
(defalias 'mh-user-agent-compose #[(&optional to subject other-headers &rest _ignored) "\304 \210\305\306 \307\n#\210 \205\" \310 @@\311P @A\"\210 A\211\204 \312)\207" [mh-error-if-no-draft to subject other-headers mh-find-path t mh-send "" mh-insert-fields ":" nil] 5 (#$ . 7047)])
#@1013 Save draft and send message.
When you are all through editing a message, you send it with this
command. You can give a prefix argument ARG to monitor the first stage
of the delivery; this output can be found in a buffer called "*MH-E
Mail Delivery*".
The hook `mh-before-send-letter-hook' is run at the beginning of
this command. For example, if you want to check your spelling in
your message before sending, add the function `ispell-message'.
Unless `mh-insert-auto-fields' had previously been called
manually, the function `mh-insert-auto-fields' is called to
insert fields based upon the recipients. If fields are added, you
are given a chance to see and to confirm these fields before the
message is actually sent. You can do away with this confirmation
by turning off the option `mh-auto-fields-prompt-flag'.
In case the MH "send" program is installed under a different name,
use `mh-send-prog' to tell MH-E the name.
The hook `mh-annotate-msg-hook' is run after annotating the
message and scan line.
(defalias 'mh-send-letter #[(&optional arg) "\306\307!\210\310\311!\203 \203 eb\203 \312\313!\204 \314\315!\210\316 \203( \317 \210\2025 \320 \2042 \321 \2045 \322 \210\323 \210\324\325!\210p \n\326\327!\203J \327 \202r \330\303p\"\203[ \331>\204[ \202r \332\304!\203e \f\206r \333\303!\203q \334\303!\206r \335 > ? @A\204\234 \336BPB\337\340!\203\234 \341\342!\203\234 \341\343!\203\234 \344BPBC\203\307 \345D!\210\346 \210\347E\311\350\351\352\353B!?&\210db\210\354\355!\210@q\210\202\326 \356E\357\350\360\353B!?&\210F\203\362 \361GHF\362I\363\364\365\366\367!\366\370!#&\210C\203\375 \312\371!\203\f\372@!\210>\203\f\373>!\210C\203\324\374!\202\324\375!,\207" [mh-auto-fields-prompt-flag buffer-file-name mh-previous-window-config buffer-file-coding-system sendmail-coding-system coding-system-for-write run-hooks mh-before-send-letter-hook mh-insert-auto-fields t y-or-n-p "Auto fields inserted, send? " error "Send aborted" mh-mh-directive-present-p mh-mh-to-mime mh-mml-tag-present-p mh-ascii-buffer-p mh-mml-to-mime save-buffer message "Sending..." fboundp select-message-coding-system local-variable-p (undecided undecided-unix undecided-dos) boundp default-boundp default-value iso-latin-1 "-msgid " mh-variant-p nmh mh-goto-header-field "Bcc:" "Content-Type:" "-mime " pop-to-buffer erase-buffer mh-exec-cmd-output "-nodraftfolder" "-watch" "-nopush" split-string recenter -1 mh-exec-cmd-daemon nil "-noverbose" mh-annotate-msg "-component" "-text" format "\"%s %s\"" mh-get-header-field "To:" "Cc:" "Kill draft buffer? " kill-buffer set-window-configuration "Sending...done" "Sending...backgrounded" config file-name draft-buffer mh-send-uses-spost-flag mh-send-args arg mh-mail-delivery-buffer mh-send-prog mh-annotate-char mh-sent-from-msg mh-sent-from-folder mh-annotate-field] 12 (#$ . 7890) "P"])
#@252 Quit editing and delete draft message.
If for some reason you are not happy with the draft, you can use
this command to kill the draft buffer and delete the draft
message. Use the command \[kill-buffer] if you don't want to
delete the draft message.
(defalias 'mh-fully-kill-draft #[nil "\303\304!\203( \305\n!\203 \306\n!\210\307\310!\210\311\312 !\210\313\314!\210 \205& \315 !)\207\316\317!\207" [mh-previous-window-config config buffer-file-name y-or-n-p "Kill draft message? " file-exists-p delete-file set-buffer-modified-p nil kill-buffer buffer-name message "" set-window-configuration error "Message not killed"] 2 (#$ . 10764) nil])
#@837 Edit a MESSAGE to send it again.
If you don't complete a draft for one reason or another, and if
the draft buffer is no longer available, you can pick your draft
up again with this command. If you don't use a draft folder, your
last "draft" file will be used. If you use draft folders,
you'll need to visit the draft folder with "\[mh-visit-folder]
drafts <RET>", use \[mh-next-undeleted-msg] to move to the
appropriate message, and then use \[mh-edit-again] to prepare
the message for editing.
This command can also be used to take messages that were sent to
you and to send them to more people.
Don't use this command to re-edit a message from a Mailer-Daemon
who complained that your mail wasn't posted for some reason or
another (see `mh-extract-rejected-mail').
The default message is the current message.
See also `mh-send'.
(defalias 'mh-edit-again #[(message) "\306 \307 !
\203<
\232\203< \310\311\312!!!\313\"\210\314\315\316!\"!\210\317\"#\320=\2037 \321 \210\322$!\210\323 \202D \324\325\312!!\317# %\326e&\317#\210\327 \210\330\331\332\f!\"\210\333\f!\210eb\210\334 \210\335%\336 \317\211\211\211\211\211\n&\n\210\337 \210\340 ,\207" [mh-current-folder from-folder config mh-comp-formfile components-file mh-draft-folder current-window-configuration mh-bare-components pop-to-buffer find-file-noselect mh-msg-filename t rename-buffer format "draft-%d" nil mh-show-mode erase-buffer insert-file-contents buffer-name mh-read-draft "clean-up" mh-clean-msg-header mh-insert-header-separator mh-mapc #[(header-field) "@A\306\307 \310\"\203k \311 \312P!\204$ \313\314!\210 \315\n\316\261\202} \n\317\230\206} \320\211\321\n! \f\203D \322\f!\211\203D @\323\324\325\n!\324Q \"?\205g
\205g \323\324\325
!\324Q \"?\205g \326\n\327\261+\202} \307 \330\"\203y \331 \n\"\202} \331 \n\"+\207" [header-field case-fold-search value field alias mailbox t string-match "^To$\\|^Cc$\\|^From$" mh-goto-header-field ":" mh-goto-header-end 0 ": " "\n" #1="" nil mh-alias-expand ietf-drums-parse-address mh-regexp-in-field-p "\\b" regexp-quote " " "," "^Fcc$" mh-modify-header-field address] 4] mh-components-to-list delete-file save-buffer mh-compose-and-send-mail #1# mh-letter-mode-message mh-letter-adjust-point message buffer-read-only major-mode buffer-file-name draft mh-new-draft-cleaned-headers] 11 (#$ . 11418) (list (mh-get-msg-num t))])
#@121 Extract field name and field value from the field at point.
Returns a list of field name and value (which may be null).
(defalias 'mh-extract-header-field #[nil "\212\302 \210`)\303 !\205\" \212\304\225b\210\304u\210\305\306w\210\307\304!\310`\")B)\207" [end mh-letter-header-field-regexp mh-header-field-end looking-at 1 " " nil match-string-no-properties buffer-substring-no-properties] 4 (#$ . 13798)])
#@66 Convert the COMPONENTS file to a list of field names and values.
(defalias 'mh-components-to-list #[(components) "r\303!q\210\304 \210\305 !\210eb\210\306\307 \203' \310\n\311 C\"\312 \210\313u\210\202 \n*\207" [mh-temp-buffer components header-fields get-buffer-create erase-buffer insert-file-contents nil mh-in-header-p append mh-extract-header-field mh-header-field-end 1] 3 (#$ . 14213)])
#@326 Edit a MESSAGE that was returned by the mail system.
This command prepares the message for editing by removing the
Mailer-Daemon envelope and unneeded header fields. Fix whatever
addressing problem you had, and send the message again with
\[mh-send-letter].
The default message is the current message.
See also `mh-send'.
(defalias 'mh-extract-rejected-mail #[(message) "\306 \307\310\311 !\312# eb\210\313
\312\314#\203* \315\312w\210e`|\210\316e\312#\210\202. \301\317!\210\320 \210eb\210\321 \210\322\n\323\f \324\325!\324\326!\324\327!\312\211 &\n\210\330 +\207" [mh-current-folder message draft config from-folder mh-rejected-letter-start current-window-configuration mh-read-draft "extraction" mh-msg-filename nil re-search-forward t " \n" mh-clean-msg-header "Does not appear to be a rejected letter" mh-insert-header-separator save-buffer mh-compose-and-send-mail "" mh-get-header-field "To:" "From:" "Cc:" mh-letter-mode-message mh-new-draft-cleaned-headers] 11 (#$ . 14618) (list (mh-get-msg-num t))])
#@538 Forward message.
You are prompted for the TO and CC recipients. You are given a
draft to edit that looks like it would if you had run the MH
command "forw". You can then add some text.
You can forward several messages by using a RANGE. All of the
messages in the range are inserted into your draft. Check the
documentation of `mh-interactive-range' to see how RANGE is read
in interactive use.
The hook `mh-forward-hook' is called on the draft.
See also `mh-compose-forward-as-mime-flag',
`mh-forward-subject-format', and `mh-send'.
(defalias 'mh-forward #[(to cc &optional range) "\306\n!\307 \310 @ \" \311\312@\" A\313A!\203# \314\315!\203M \316\317\320\321\322!\2052 B\2052 \323\324 !%\210\325\326A\327#\330\331C\332D$\210\333 \210\202S \325\326A\334# E\334\211 F Gr\335H!q\210\336 \210\337
!\210\340\341!G\340\342!F)\343GF\" I\330\342I\"\210eb\210\344\345!\210\212\346 b\210\347`\350 \")%\344\351!\210%)J\352=\203\212\346 b\210\353\354d\327#\203\355\356!\357\232\203\276 \360\202\301 \355\356!\361\355\362!!\363 K L\364 \210`\356y\210`|\210 \334 M\211 N\203N@MKTK\365\366LK\" M#\210db\210NA\211N\204\340 -\202\252 )\353\367\334\327#\203\370y\210\202 \346 b\210\356y\210\371 \210\372 \373\327#\210\374E\326 CIDO\375\f&\n\210\376 \210\377 \210\201P \201Q !. \207" [mh-current-folder folder range msgs config fwd-msg-file mh-range-to-msg-list current-window-configuration mh-msg-filename expand-file-name "draft" file-exists-p y-or-n-p "The file draft exists; discard it? " mh-exec-cmd "forw" "-build" mh-variant-p nmh "-mime" mh-coalesce-msg-list mh-read-draft "" t mh-insert-fields "To:" "Cc:" save-buffer nil get-buffer-create erase-buffer insert-file-contents mh-get-header-field "From:" "Subject:" mh-forwarded-letter-subject make-local-variable mh-mail-header-separator mh-mail-header-end buffer-substring-no-properties mh-line-end-position mail-header-separator mml re-search-forward "^#forw \\[\\([^]]+\\)\\] \\(\\+\\S-+\\) \\(.*\\)$" match-string 1 "forwarded messages" "forwarded message %d" split-string 3 0 beginning-of-line mh-mml-forward-message format "^------- Forwarded Message" -1 delete-other-windows mh-add-msgs-to-seq forwarded mh-compose-and-send-mail "Forwarded:" mh-letter-mode-message mh-letter-adjust-point mh-user-path draft-name mh-compose-forward-as-mime-flag to cc draft orig-subject orig-from mh-temp-buffer forw-subject mh-compose-insertion i description msg --dolist-tail-- mh-note-forw run-hooks mh-forward-hook] 12 (#$ . 15646) (list (mh-interactive-read-address "To: ") (mh-interactive-read-address "Cc: ") (mh-interactive-range "Forward"))])
#@99 Return a Subject suitable for a forwarded message.
Original message has headers FROM and SUBJECT.
(defalias 'mh-forwarded-letter-subject #[(from subject) "\305\306\"\305\307\"\211\203 \n\310V\203 \311\310\nS#\202+ \203+ \311 TGS#*\312 \f#\207" [from comment addr-start mh-forward-subject-format subject string-match "<" "(" 0 substring format] 5 (#$ . 18284)])
#@652 Redistribute a message.
This command is similar in function to forwarding mail, but it
does not allow you to edit the message, nor does it add your name
to the "From" header field. It appears to the recipient as if
the message had come from the original sender. When you run this
command, you are prompted for the TO and CC recipients. You are
also prompted for the sending IDENTITY to use. The default
MESSAGE is the current message.
Also investigate the command \[mh-edit-again] for another way to
redistribute messages.
See also `mh-redist-full-contents-flag'.
The hook `mh-annotate-msg-hook' is run after annotating the
message and scan line.
(defalias 'mh-redistribute #[(to cc identity &optional message) "\204 \306\307!\310 \311\216\n\312\313 \205 \314!\315#\316\f\317\"\316\f\320\"\316\f\321\"\315\211\211\211 1 2 3 4 5 6 7 8 \203D \322e\323\315#\210\3249! :\325\326\327:!\"\210\330:!\210)\331\332\333\304;2D\334#\335\333\304<1D\334#\336\333\30453D\334#\337\333\3044
D\334#\3406&\n\210\341 \210\300\342!\210\343\211 =\344 \203\233 >\202\240 \3148\"Q= \204\255 =\345P=?\203\277 \346=@\315>$\210\202\311 \347=@\350>$\210\3518A\352\353\354\355\356;<6$&\210)\3577!\210\300\360!. \207" [message #1=#:wconfig mh-current-folder mh-redist-full-contents-flag identity comp-bcc mh-get-msg-num t current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] mh-read-draft "redistribution" mh-msg-filename nil mh-identity-field "From" "Fcc" "Bcc" mh-clean-msg-header "^Message-Id:\\|^Received:\\|^Return-Path:\\|^Date:\\|^Resent-.*:" mh-bare-components mh-mapc #[(header-field) "@A\306\307 \310\"\203 \n\211\202[ \307 \311\"\203&
\206[ \n\211\202[ \307 \312\"\2034 \n\211\202[ \307 \313\"\203B \n\211\202[ \307 \314\"\203P \n\211\202[ \307 \315\"\205[ \316 \n\"+\207" [header-field case-fold-search value field comp-fcc from t string-match "^Resent-Fcc$" "^Resent-From$" "^Resent-To$" "^Resent-Cc$" "^Resent-Bcc$" "^Resent-.*$" mh-insert-fields comp-to comp-cc comp-bcc] 3] mh-components-to-list delete-file mh-insert-fields "Resent-To:" mapconcat ", " "Resent-Cc:" "Resent-Fcc:" "Resent-Bcc:" "Resent-From:" save-buffer "Redistributing..." "mhdist=1" " mhaltmsg=" " mhannotate=1" mh-exec-cmd-env-daemon mh-exec-cmd-error "-push" mh-annotate-msg "-component" "Resent:" "-text" format "\"To: %s Cc: %s From: %s\"" kill-buffer "Redistributing...done" comp-cc comp-to comp-fcc bcc fcc from draft folder mh-dist-formfile components-file to cc env buffer-file-name mh-redist-background mh-send-prog mh-note-dist] 13 (#$ . 18665) (list (mh-read-address "Redist-To: ") (mh-read-address "Redist-Cc: ") (if mh-identity-list (mh-select-identity mh-identity-default) nil) (mh-get-msg-num t))])
#@1967 Reply to a MESSAGE.
When you reply to a message, you are first prompted with "Reply
to whom?" (unless the optional argument REPLY-TO is provided).
You have several choices here.
Response Reply Goes To
from The person who sent the message. This is the
default, so <RET> is sufficient.
to Replies to the sender, plus all recipients in the
"To:" header field.
all cc Forms a reply to the addresses in the
"Mail-Followup-To:" header field if one
exists; otherwise forms a reply to the sender,
plus all recipients.
Depending on your answer, "repl" is given a different argument
to form your reply. Specifically, a choice of "from" or none at
all runs "repl -nocc all", and a choice of "to" runs "repl
-cc to". Finally, either "cc" or "all" runs "repl -cc all
-nocc me".
Two windows are then created. One window contains the message to
which you are replying in an MH-Show buffer. Your draft, in
MH-Letter mode (*note `mh-letter-mode'), is in the other window.
If the reply draft was not one that you expected, check the
things that affect the behavior of "repl" which include the
"repl:" profile component and the "replcomps" and
"replgroupcomps" files.
If you supply a prefix argument INCLUDEP, the message you are
replying to is inserted in your reply after having first been run
through "mhl" with the format file "mhl.reply".
Alternatively, you can customize the option `mh-yank-behavior'
and choose one of its "Automatically" variants to do the same
thing. If you do so, the prefix argument has no effect.
Another way to include the message automatically in your draft is
to use "repl: -filter repl.filter" in your MH profile.
If you wish to customize the header or other parts of the reply
draft, please see "repl" and "mh-format".
See also `mh-reply-show-message-flag',
`mh-reply-default-reply-to', and `mh-send'.
(defalias 'mh-reply #[(message &optional reply-to includep) "\n\306
\307\232\206
\310\232 :\311\312\313\"\203) :\203) ;;\203) ;\2025 <;\2034 <\2025 \314 =\315\316!\210\317\320\321\322\323=\205I \324=D
\325\232\204X
\326\232\203\\ \327\202w
\330\232\203f \331\202w :\205w \311\312\313\"\203v \332\202w \333>\334=\204\205 >\335=\203\211 \336\202\223 ?\203\222 \337\202\223 \314& \210\340\341\342\341@\"\343# A\344 \210\345 \210\346\347!\346\350!\346\351! B C Deb\210\352\353!\210?\204\341 E\203\341 \354 F\355 !\210G\203\330 \356p!\210\357\216\360
\"\210*\361
\362\343#\210\315\363!\210\364A\326
DCBH\365\f&\n\210+>\334=\204>\335=\203 \366 I=\203 \367 \210\370 \210\371 .\207" [mh-current-folder folder mh-show-buffer show-buffer config reply-to current-window-configuration "cc" "all" mh-variant-p nmh gnu-mh nil message "Composing a reply..." mh-exec-cmd "repl" "-build" "-noquery" "-nodraftfolder" "-form" "from" "" ("-nocc" "all") "to" ("-cc" "to") ("-group" "-nocc" "me") ("-cc" "all" "-nocc" "me") autosupercite autoattrib ("-noformat") ("-filter" "mhl.reply") mh-read-draft "reply" expand-file-name t delete-other-windows save-buffer mh-get-header-field "To:" "Subject:" "Cc:" mh-goto-header-end 1 selected-window switch-to-buffer-other-window bury-buffer #[nil "\301!\207" [mh-in-show-buffer-saved-window select-window] 2] mh-display-msg mh-add-msgs-to-seq answered "Composing a reply...done" mh-compose-and-send-mail "Replied:" mh-show-buffer-message-number undo-boundary mh-yank-cur-msg mh-letter-mode-message group-reply mh-repl-group-formfile mh-repl-formfile form-file mh-yank-behavior includep mh-user-path draft cc subject to mh-reply-show-message-flag mh-in-show-buffer-saved-window mh-bury-show-buffer-flag mh-note-repl mh-sent-from-msg] 11 (#$ . 21430) (list (mh-get-msg-num t) (let ((minibuffer-help-form "from => Sender only\nto => Sender and primary recipients\ncc or all => Sender and all recipients")) (or mh-reply-default-reply-to (completing-read "Reply to whom (default from): " '(("from") ("to") ("cc") ("all")) nil t))) current-prefix-arg)])
#@529 Compose a message.
Your letter appears in an Emacs buffer whose mode is
MH-Letter (see `mh-letter-mode').
The arguments TO, CC, and SUBJECT can be used to prefill the
draft fields or suppress the prompts if `mh-compose-prompt-flag'
is on. They are also passed to the function set in the option
`mh-compose-letter-function'.
See also `mh-insert-x-mailer-flag' and `mh-letter-mode-hook'.
Outside of an MH-Folder buffer (`mh-folder-mode'), you must call
either \[mh-smail] or \[mh-smail-other-window] to compose a new
message.
(defalias 'mh-send #[(to cc subject) "\304 \305 \210\306 \n $)\207" [config to cc subject current-window-configuration delete-other-windows mh-send-sub] 5 (#$ . 25518) (list (mh-interactive-read-address "To: ") (mh-interactive-read-address "Cc: ") (mh-interactive-read-string "Subject: "))])
#@127 Read an address.
If `mh-compose-prompt-flag' is non-nil, then read an address with
PROMPT.
Otherwise return the empty string.
(defalias 'mh-interactive-read-address #[(prompt) "\203 \302 !\207\303\207" [mh-compose-prompt-flag prompt mh-read-address ""] 2 (#$ . 26347)])
#@123 Read a string.
If `mh-compose-prompt-flag' is non-nil, then read a string with
PROMPT.
Otherwise return the empty string.
(defalias 'mh-interactive-read-string #[(prompt) "\203 \302 !\207\303\207" [mh-compose-prompt-flag prompt read-string ""] 2 (#$ . 26626)])
#@340 Message number of displayed message in corresponding show buffer.
Return nil if show buffer not displayed.
If in `mh-letter-mode', don't display the message number being replied
to, but rather the message number of the show buffer associated with
our originating folder buffer.
Optional argument BUFFER can be used to specify the buffer.
(defalias 'mh-show-buffer-message-number #[(&optional buffer) "\212\203 q\210 \306=\203 \307\310\n\"\311\312\n T\"!)\202K \313=\2034 \f\2034 \314\f!\2034 \315\f!\202K \316=\203J
\203J \314
!\203J \315
!\202K \317)\207" [buffer major-mode buffer-file-name number-start mh-show-buffer mh-sent-from-folder mh-show-mode mh-search-from-end 47 string-to-number substring mh-folder-mode get-buffer mh-show-buffer-message-number mh-letter-mode nil] 4 (#$ . 26896)])
#@162 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.
(defalias 'mh-send-sub #[(to cc subject config) "\306\307!\310\311!\210\312\313\314 !\315# \316\317
\320\321&\210db\210\322\f\323\n
\307\211&\n\210\324 \210\325 +\207" [mh-current-folder msg-num folder mh-comp-formfile draft to mh-get-msg-num nil message "Composing a message..." mh-read-draft "message" mh-bare-components t mh-insert-fields "To:" "Subject:" "Cc:" mh-compose-and-send-mail "" mh-letter-mode-message mh-letter-adjust-point subject cc config] 11 (#$ . 27708)])
#@99 Generate a temporary, clean components file from FORMFILE.
Return the path to the temporary file.
(defalias 'mh-bare-components #[(formfile) "\304\305\306P\307\"\310\311\312\313\314\315\316 !\" ;\205 \317 D%\210\305\320!\321 \322P\n\307#\210\323 \307\"\210\n*\207" [mh-user-path temp-folder new formfile nil make-temp-file "draftfolder." t mh-exec-cmd "comp" "-nowhatnowproc" "-draftfolder" format "+%s" file-name-nondirectory "-form" "comp." rename-file "/1" delete-directory] 8 (#$ . 28366)])
#@514 Read draft file into a draft buffer and make that buffer the current one.
USE is a message used for prompting about the intended use of the
message.
INITIAL-CONTENTS is filename that is read into an empty buffer, or nil
if buffer should not be modified. Delete the initial-contents file if
DELETE-CONTENTS-FILE flag is set.
Returns the draft folder's name.
If the draft folder facility is enabled in ~/.mh_profile, a new buffer
is used each time and saved in the draft folder. The draft file can
then be reused.
(defalias 'mh-read-draft #[(use initial-contents delete-contents-file) "\203+ \306 \307\310\311\312\313\n!\"!!\210\3141 \315\n\316\"0\202$ \210\202% \210 *\202i \317\320\f\" \307\320!\210\321 \203J \322\323!\203F \324\325!\210\202J \326\327!\210
%\330 \210\331 \210\332
!\203h
&\232\204h \315
!\210\333
!\210)&\203\240 \334 \335U\204\216 \322\311\336'\"!\203\212 (\203\240 \326\337!\202\213 \316\203\240 \340 \210\315&!\210)\203\240 \333&!\210\341\342!\210\203\253 \343 \210\344 \207" [mh-draft-folder default-directory draft-file-name orig-default-dir mh-user-path draft-name mh-new-draft-name pop-to-buffer generate-new-buffer format "draft-%s" file-name-nondirectory (file-error) insert-file-contents t expand-file-name "draft" buffer-modified-p y-or-n-p "Draft has been modified; kill anyway? " set-buffer-modified-p nil error "Draft preserved" clear-visited-file-modtime unlock-buffer file-exists-p delete-file buffer-size 0 "A draft exists. Use for %s? " "A prior draft exists" erase-buffer auto-save-mode 1 save-buffer buffer-name buffer-file-name initial-contents use mh-error-if-no-draft delete-contents-file] 6 (#$ . 28873)])
#@51 Return the pathname of folder for draft messages.
(defalias 'mh-new-draft-name #[nil "\212\301\302\303\304$\210edS{)\207" [mh-draft-folder mh-exec-cmd-quiet t "mhpath" "new"] 5 (#$ . 30545)])
#@155 Insert the NAME-VALUES pairs in the current buffer.
If the field exists, append the value to it.
Do not insert any pairs whose value is the empty string.
(defalias 'mh-insert-fields #[(&rest name-values) "\304 \205C @ A@\305\306 \"\204 \307P\n\203; \n\310\232\204; \311 !\2034 \312\n\206. \310\261\210\202; \312\n\313\261\210 AA*\202 )\207" [case-fold-search name-values value field-name t string-match "^.*:$" ":" "" mh-position-on-field " " "\n"] 4 (#$ . 30745)])
#@596 Edit and compose a draft message in buffer DRAFT and send or save it.
SEND-ARGS is the argument passed to the send command.
SENT-FROM-FOLDER is buffer containing scan listing of current folder,
or nil if none exists.
SENT-FROM-MSG is the message number or sequence name or nil.
The TO, SUBJECT, and CC fields are passed to the
`mh-compose-letter-function'.
If ANNOTATE-CHAR is non-null, it is used to notate the scan listing of
the message. In that case, the ANNOTATE-FIELD is used to build a
string for `mh-annotate-msg'.
CONFIG is the window configuration to restore after sending the
letter.
(defalias 'mh-compose-and-send-mail #[(draft send-args sent-from-folder sent-from-msg to subject cc annotate-char annotate-field config) "\306!\210\307 \210\310 \311\"\210\312 \210\313 \210\314 \210\315 \210\316 \210\317 \210\n\f \320C \321 \210\322\323\324\325\311$\210\326\327!\"#$\207" [draft mh-identity-default sent-from-folder mh-sent-from-folder sent-from-msg mh-sent-from-msg pop-to-buffer mh-letter-mode mh-insert-identity t mh-identity-make-menu mh-identity-add-menu mh-decode-message-subject mh-insert-x-mailer mh-insert-x-face mh-letter-hide-all-skipped-fields " {%b}" mh-logo-display add-hook kill-buffer-hook mh-tidy-draft-buffer nil run-hook-with-args mh-compose-letter-function send-args mh-send-args annotate-char mh-annotate-char annotate-field mh-annotate-field config mh-previous-window-config mode-line-buffer-identification to subject cc] 5 (#$ . 31230)])
#@88 Append an X-Mailer field to the header.
The versions of MH-E, Emacs, and MH are shown.
(defalias 'mh-insert-x-mailer #[nil "\204 \306 !\210\n\203 \204 \307\310\f\311\312\313
\"\210\314\315
\"%\212\n\2050 \316\317!?\2050 \320\321 \")\207" [mh-variant-in-use mh-variant mh-insert-x-mailer-flag mh-x-mailer-string mh-version emacs-version mh-variant-set format "MH-E %s; %s; %sEmacs %s" "GNU " string-match "[0-9]+\\.[0-9]+\\(\\.[0-9]+\\)?" match-string 0 mh-goto-header-field "X-Mailer" mh-insert-fields "X-Mailer:"] 8 (#$ . 32734)])
#@110 Append X-Face, Face or X-Image-URL field to header.
If the field already exists, this function does nothing.
(defalias 'mh-insert-x-face #[nil ";\205C \301!\205C \302!\205C \212\303\304!\206! \303\305!\206! \303\306!?\205B \212`\307!A@\\b\210\310\311!\2048 \312c\210)\310\313!?\205B \314c)\207" [mh-x-face-file file-exists-p file-readable-p mh-position-on-field "X-Face" "Face" "X-Image-URL" insert-file-contents looking-at "^" "\n" "\\(X-Face\\|Face\\|X-Image-URL\\): " "X-Face: "] 3 (#$ . 33280)])
#@39 Run when a draft buffer is destroyed.
(defalias 'mh-tidy-draft-buffer #[nil "\302!\211\205 \303 !)\207" [mh-recipients-buffer buffer get-buffer kill-buffer] 3 (#$ . 33790)])
#@121 Display a help message for users of `mh-letter-mode'.
This should be the last function called when composing the draft.
(defalias 'mh-letter-mode-message #[nil "\300\301\302\303!\"\207" [message "%s" substitute-command-keys "Type \\[mh-send-letter] to send message, \\[mh-help] for help"] 4 (#$ . 33974)])
#@68 Move cursor to first header field if are using the no prompt mode.
(defalias 'mh-letter-adjust-point #[nil "?\205\n db\210\301 \207" [mh-compose-prompt-flag mh-letter-next-header-field] 1 (#$ . 34286)])
#@248 Mark MSG in FOLDER with character NOTE and annotate message with ARGS.
MSG can be a message number, a list of message numbers, or a sequence.
The hook `mh-annotate-msg-hook' is run after annotating; see its
documentation for variables it can use.
(defalias 'mh-annotate-msg #[(msg folder note &rest args) "\306\307\310 <\203 \311 \n\"\202 \nB$\210\212\312!\203\364 q\210 \247\2037 \313 \314\211#\203\364 \315\316 \f
\\#\210\202\364 :\203t @\247\203t A\247\203t \212 @b\210\317 \210` AX\203p m\204p \320!\203j \315\316 \f
\\#\210\321y\210\202P )\202\364 \203\203 9\203\203 \322 !\202\221 ;\203\220 \323 \"\202\221 \324 \211 \316\211 \203\275 @\211 \325 \314 #\210* A\211 \204\240 *\212eb\210\317 \210`dX\203\363 m\204\363 \320!\203\355 \326\314! !\327! \"\203\354 \315\316 \f
\\#\210)\321y\210\202\305 +) \247\203 C\202 \" \330\331!*\207" [folder msg args note mh-cmd-note mh-scan-field-destination-offset apply mh-exec-cmd "anno" append get-buffer mh-goto-msg t mh-notate nil beginning-of-line looking-at 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash mh-get-msg-num gethash run-hooks mh-annotate-msg-hook mh-scan-valid-regexp mh-current-folder #1=#:seq-hash-table #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v mh-annotate-list] 8 (#$ . 34497)])
#@47 Insert `mh-mail-header-separator', if absent.
(defalias 'mh-insert-header-separator #[nil "\212eb\210\301 \210\302\303!\205 c)\207" [mh-mail-header-separator rfc822-goto-eoh looking-at "$"] 2 (#$ . 35803)])
#@528 Insert custom fields if recipient is found in `mh-auto-fields-list'.
Once the header contains one or more recipients, you may run this
command to insert these fields manually. However, if you use this
command, the automatic insertion when the message is sent is
disabled.
In a program, set buffer-local `mh-insert-auto-fields-done-local'
if header fields were added. If NON-INTERACTIVE is non-nil,
perform actions quietly and only if
`mh-insert-auto-fields-done-local' is nil. Return t if fields
added; otherwise return nil.
(defalias 'mh-insert-auto-fields #[(&optional non-interactive) "\203 ?\205\212 \212\306\307!\204 \306\310!\205\211 \n\311\211 \203\207 \f@@\f@A@ \312\307\310#\203 \313\211\204? \314\315\"\210
\211 \203~ @@@A \211 \316\232\203i \317\"\203t \320!\210\202t \321\322\232#\210*A\211\204F )*\fA\211\204 *)\207" [non-interactive mh-insert-auto-fields-done-local mh-auto-fields-list fields-inserted list entries mh-goto-header-field "To:" "cc:" nil mh-regexp-in-field-p t message "Fields for %s added" ":identity" assoc mh-insert-identity mh-modify-header-field "From" regexp entry-list value field mh-identity-list] 6 (#$ . 36019) nil])
#@103 To header FIELD add VALUE.
If OVERWRITE-FLAG is non-nil then the old value, if present, is
discarded.
(defalias 'mh-modify-header-field #[(field value &optional overwrite-flag) "\203 \303 \304P!\203 \305\n\261\210`\306 |\207\204& \307\310\311\n!\310Q \"\206B \2048 \303 \304P!\2038 \305\n\312\261\207\313\314!\210 \315\n\316\261\207" [overwrite-flag field value mh-goto-header-field ":" " " mh-line-end-position mh-regexp-in-field-p "\\b" regexp-quote "," mh-goto-header-end 0 ": " "\n"] 4 (#$ . 37224)])
#@43 Non-nil means REGEXP was found in FIELDS.
(defalias 'mh-regexp-in-field-p #[(regexp &rest fields) "\306 \307\216\212\310\n\203_ \n@\f\2060 \311 \312 \313\"\203! \202/ \312 \314\"\203- \202/ \306 ) \315 !\203T \316!\203T \317\212\320 \210`)\311#\203T \310\311\202W \nA\316!\210*\202 ,\207" [old-syntax-table search-result fields field mh-regexp-in-field-syntax-table case-fold-search syntax-table #[nil "\301!\207" [old-syntax-table set-syntax-table] 2] nil t string-match "^To$\\|^[BD]?cc$\\|^From$" "^Fcc$" mh-goto-header-field set-syntax-table re-search-forward mh-header-field-end mh-addr-syntax-table mh-fcc-syntax-table regexp] 4 (#$ . 37743)])
#@142 Check if current buffer is entirely composed of ASCII.
The function doesn't work for XEmacs since `find-charset-region'
doesn't exist there.
(defalias 'mh-ascii-buffer-p #[nil "\304\305!\205\n \305ed\"\306\307\306:\203. @\211\310=\204' \306\211\211\203. A\211\202 \n\2036 \307\2027 ,\207" [#1=#:--cl-var-- charset #2=#:--cl-var-- #3=#:--cl-var-- fboundp find-charset-region nil t ascii] 4 (#$ . 38419)])
(provide 'mh-comp)
Mini Shell