Current File : //usr/local/share/emacs/27.2/lisp/mh-e/mh-letter.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\303\304\305\"\210\303\306\305\"\210\303\307\310\"\207" [require mh-e gnus-util autoload mh-tool-bar-letter-buttons-init "mh-tool-bar" mh-tool-bar-init mml-insert-tag "mml"] 3)
#@57 Alist of header fields and completion functions to use.
(defvar mh-letter-complete-function-alist '((bcc . mh-alias-letter-expand-alias) (cc . mh-alias-letter-expand-alias) (dcc . mh-alias-letter-expand-alias) (fcc . mh-folder-expand-at-point) (from . mh-alias-letter-expand-alias) (mail-followup-to . mh-alias-letter-expand-alias) (mail-reply-to . mh-alias-letter-expand-alias) (reply-to . mh-alias-letter-expand-alias) (to . mh-alias-letter-expand-alias)) (#$ . 623))
#@28 Menu for MH-E letter mode.
(defvar mh-letter-menu nil (#$ . 1099))
(byte-code "\301\302\303\304$\210\305\300\306\"\207" [mh-letter-mode-map easy-menu-do-define mh-letter-menu "Menu for MH-E letter mode." ("Letter" ["Send This Draft" mh-send-letter t] ["Split Current Line" mh-open-line t] ["Check Recipient" mh-check-whom t] ["Yank Current Message" mh-yank-cur-msg t] ["Insert a Message..." mh-insert-letter t] ["Insert Signature" mh-insert-signature t] ("Encrypt/Sign Message" ["Sign Message" mh-mml-secure-message-sign mh-pgp-support-flag] ["Encrypt Message" mh-mml-secure-message-encrypt mh-pgp-support-flag] ["Sign+Encrypt Message" mh-mml-secure-message-signencrypt mh-pgp-support-flag] ["Disable Security" mh-mml-unsecure-message mh-pgp-support-flag] "--" "Security Method" ["PGP (MIME)" (setq mh-mml-method-default "pgpmime") :style radio :selected (equal mh-mml-method-default "pgpmime")] ["PGP" (setq mh-mml-method-default "pgp") :style radio :selected (equal mh-mml-method-default "pgp")] ["S/MIME" (setq mh-mml-method-default "smime") :style radio :selected (equal mh-mml-method-default "smime")] "--" ["Save Method as Default" (customize-save-variable 'mh-mml-method-default mh-mml-method-default) t]) ["Compose Insertion..." mh-compose-insertion t] ["Compose Compressed tar (MH)..." mh-mh-compose-external-compressed-tar t] ["Compose Get File (MH)..." mh-mh-compose-anon-ftp t] ["Compose Forward..." mh-compose-forward t] ["Pull in All Compositions (MH)" mh-mh-to-mime (mh-mh-directive-present-p)] ["Pull in All Compositions (MML)" mh-mml-to-mime (mh-mml-tag-present-p)] ["Revert to Non-MIME Edit (MH)" mh-mh-to-mime-undo (equal mh-compose-insertion 'mh)] ["Kill This Draft" mh-fully-kill-draft t]) gnus-define-keys-1 (" " mh-letter-complete-or-space "," mh-letter-confirm-address "?" mh-help " " mh-fully-kill-draft " " mh-insert-signature "" mh-send-letter "" mh-insert-identity "" mh-mh-to-mime "" mh-to-field "" mh-to-field "" mh-to-field "" mh-to-field "" mh-to-fcc "\f" mh-to-field "
" mh-to-field "" mh-to-field "" mh-to-field "" mh-to-field "a" mh-to-field "b" mh-to-field "c" mh-to-field "d" mh-to-field "f" mh-to-fcc "l" mh-to-field "m" mh-to-field "r" mh-to-field "s" mh-to-field "t" mh-to-field " " mh-insert-letter "
" mh-mml-secure-message-encrypt "
" mh-compose-forward "
" mh-mh-compose-anon-ftp "
" mh-compose-insertion "
" mh-mml-to-mime "
" mh-mml-unsecure-message "
" mh-mml-secure-message-sign "
" mh-mh-compose-external-compressed-tar "
" mh-mh-to-mime-undo "
" mh-mh-compose-external-type "
ee" mh-mml-secure-message-encrypt "
es" mh-mml-secure-message-signencrypt "
f" mh-compose-forward "
g" mh-mh-compose-anon-ftp "
i" mh-compose-insertion "
m" mh-mml-to-mime "
n" mh-mml-unsecure-message "
se" mh-mml-secure-message-signencrypt "
ss" mh-mml-secure-message-sign "
t" mh-mh-compose-external-compressed-tar "
u" mh-mh-to-mime-undo "
x" mh-mh-compose-external-type "" mh-open-line "" mh-fully-kill-draft "" mh-insert-signature "" mh-letter-toggle-header-field-display "" mh-check-whom "" mh-yank-cur-msg "\344" mh-insert-auto-fields "\211" mh-letter-complete " " mh-letter-next-header-field-or-indent [backtab] mh-letter-previous-header-field)] 5)
#@418 Key binding cheat sheet.
This is an associative array which is used to show the most
common commands. The key is a prefix char. The value is one or
more strings which are concatenated together and displayed in the
minibuffer if ? is pressed after the prefix character. The
special key nil is used to display the non-prefixed commands.
The substitutions described in `substitute-command-keys' are
performed as well.
(defvar mh-letter-mode-help-messages '((nil "Send letter: \\[mh-send-letter] " "Open line: \\[mh-open-line]\n" "Kill letter: \\[mh-fully-kill-draft] " "Check recipients: \\[mh-check-whom]\n\n" "Insert:\n" " Current message: \\[mh-yank-cur-msg]\n" " Attachment: \\[mh-compose-insertion]\n" " Message to forward: \\[mh-compose-forward]\n" " Signature: \\[mh-insert-signature]\n\n" "Security:\n" " Encrypt message: \\[mh-mml-secure-message-encrypt]\n" " Sign message: \\[mh-mml-secure-message-sign]\n" " Sign+Encrypt message: \\[mh-mml-secure-message-signencrypt]")) (#$ . 4393))
#@59 Additional expressions to highlight in MH-Letter buffers.
(defvar mh-letter-font-lock-keywords (byte-code "\300\301 \302\"\207" [append mh-show-font-lock-keywords-with-cite ((mh-font-lock-field-data (1 'mh-letter-header-field prepend t)))] 3) (#$ . 5454))
#@51 Find header field region between point and LIMIT.
(defalias 'mh-font-lock-field-data #[(limit) "`\306 W\205r `W\205r \306 ^`\307\211\211 \307\210\310\311
\312#\203* \313\224\202+
\211Sb\210\314\315\307\312#\204= e\202D \313\225\316\317!\f\n]\f \232\203S T\202T b\210 \203h \320 !\203h \321\307!\210\307\202q \321\n \n F!\210\312-\207" [limit field data-begin data-end point end mh-letter-header-end nil re-search-forward "^[^ ]" t 0 re-search-backward "\\(^[^ ][^:]*\\):[ ]*" match-string 1 mh-letter-skipped-header-field-p set-match-data] 6 (#$ . 5716)])
#@156 Find the end of the message header.
This function is to be used only for font locking. It works by
searching for `mh-mail-header-separator' in the buffer.
(defalias 'mh-letter-header-end #[nil "\212eb\210\301\232\203 e\202 \302\303\304\"\305\306#\203 \307\310!\202 e)\207" [mh-mail-header-separator "" search-forward format "\n%s\n" nil t mh-line-beginning-position 0] 4 (#$ . 6297)])
(put 'mh-letter-mode 'mode-class 'special)
(defvar mh-letter-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [mh-letter-mode-hook variable-documentation put "Hook run after entering MH-Letter mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp mh-letter-mode-map definition-name mh-letter-mode] 4)
(defvar mh-letter-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [mh-letter-mode-abbrev-table mh-letter-mode-map variable-documentation put purecopy "Keymap for `mh-letter-mode'." boundp mh-letter-mode-syntax-table definition-name mh-letter-mode (lambda (#1=#:def-tmp-var) (defvar mh-letter-mode-syntax-table #1#)) make-syntax-table "Syntax table for `mh-letter-mode'." (lambda (#1#) (defvar mh-letter-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `mh-letter-mode'." derived-mode-parent mail-mode] 5)
#@734 Mode for composing letters in MH-E\<mh-letter-mode-map>.
When you have finished composing, type \[mh-send-letter] to send
the message using the MH mail handling system.
There are two types of tags used by MH-E when composing MIME
messages: MML and MH. The option `mh-compose-insertion' controls
what type of tags are inserted by MH-E commands. These tags can
be converted to MIME body parts by running \[mh-mh-to-mime] for
MH-style directives or \[mh-mml-to-mime] for MML tags.
Options that control this mode can be changed with
\[customize-group]; specify the "mh-compose" group.
When a message is composed, the hooks `text-mode-hook',
`mail-mode-hook', and `mh-letter-mode-hook' are run (in that
order).
\{mh-letter-mode-map}
(defalias 'mh-letter-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324>\325\"\204V >?=\204V \326>\325?C#\210\327 !\210\330\f!\210>?\331 \210\306\332!\210\306\333!\210\306\334!\210\306\335!\210\306\336!\210\306\337!\210@\204\205 \340 \210\341\342!\203\223 \306\342!\210@\"\306\343!\210\212\344 b\210\345`\346 \")#\306\347!\210#'\350A!\210\351B\306\352!\210\307*\353 \210\306\354!\210C\355=\204\320 C\356=\203\326 \357,\202\331 \360,\361D!\210\362 \363\364#\210EF\365\366\367\370\371$\210:\203\373 \306\372!\210\373:)\374\375!\207" [delay-mode-hooks major-mode mode-name mh-letter-mode-map mh-letter-mode-syntax-table parent make-local-variable t mail-mode mh-letter-mode "MH-Letter" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table mh-find-path mh-send-args mh-annotate-char mh-annotate-field mh-previous-window-config mh-sent-from-folder mh-sent-from-msg mh-tool-bar-letter-buttons-init boundp tool-bar-map mh-mail-header-separator mh-mail-header-end buffer-substring-no-properties mh-line-end-position mail-header-separator mh-set-help ((vanish . t) t) line-move-ignore-invisible buffer-enable-undo font-lock-defaults font-lock gnus (mh-letter-font-lock-keywords t) ((mh-show-font-lock-keywords) t) easy-menu-add define-key [menu-bar mail] undefined add-hook completion-at-point-functions mh-letter-completion-at-point nil local auto-fill-function mh-auto-fill-for-letter run-mode-hooks mh-letter-mode-hook mh-letter-mode-abbrev-table local-abbrev-table mh-letter-tool-bar-map mh-letter-mode-help-messages buffer-invisibility-spec mh-highlight-citation-style mh-letter-menu mh-letter-fill-column fill-column] 6 (#$ . 7921) nil])
#@215 Verify recipients, showing expansion of any aliases.
This command expands aliases so you can check the actual address(es)
in the alias. A new buffer named "*MH-E Recipients*" is created with
the output of "whom".
(defalias 'mh-check-whom #[nil "\305 \210\306\307!\210\310 \311 !\210\f\203 \312p!\210\313\216\312p!\210\314 \210\315\316\317 #\210*\306\320!)\207" [buffer-file-name file-name mh-in-show-buffer-saved-window mh-recipients-buffer mh-bury-show-buffer-flag save-buffer message "Checking recipients..." selected-window switch-to-buffer-other-window bury-buffer #[nil "\301!\207" [mh-in-show-buffer-saved-window select-window] 2] erase-buffer mh-exec-cmd-output "whom" t "Checking recipients...done"] 4 (#$ . 10603) nil])
#@634 Insert a message.
This command prompts you for the FOLDER and MESSAGE number, which
defaults to the current message in that folder. It then inserts
the message, indented by `mh-ins-buf-prefix' ("> ") unless
`mh-yank-behavior' is set to one of the supercite flavors in
which case supercite is used to format the message. Certain
undesirable header fields (see
`mh-invisible-header-fields-compiled') are removed before
insertion.
If given a prefix argument VERBATIM, the header is left intact, the
message is not indented, and "> " is not inserted before each line.
This command leaves the mark before the letter and point after it.
(defalias 'mh-insert-letter #[(folder message verbatim) "\306\232\203\n \307\310!\210\214``}\210e\311\312\313\n!\"!\210 ?\2051 \314 \f\315#\210db\210\316 \210eb\210\317
!*\207" [message start folder verbatim mh-invisible-header-fields-compiled mh-ins-buf-prefix "" error "No message number given" insert-file-contents expand-file-name mh-expand-file-name mh-clean-msg-header nil push-mark mh-insert-prefix-string] 5 (#$ . 11345) (let* ((folder (mh-prompt-for-folder "Message from" mh-sent-from-folder nil)) (default (if (equal folder mh-sent-from-folder) (or mh-sent-from-msg (nth 0 (mh-translate-range folder "cur"))) (nth 0 (mh-translate-range folder "cur")))) (message (read-string (concat "Message number" (or (and default (format " (default %d): " default)) ": ")) nil nil (if (numberp default) (int-to-string default) default)))) (list folder message current-prefix-arg))])
#@724 Insert signature in message.
This command inserts your signature at the current cursor location.
By default, the text of your signature is taken from the file
"~/.signature". You can read from other sources by changing the
option `mh-signature-file-name'.
A signature separator ("-- ") will be added if the signature block
does not contain one and `mh-signature-separator-flag' is on.
The hook `mh-insert-signature-hook' is run after the signature is
inserted. Hook functions may access the actual name of the file or the
function used to insert the signature with `mh-signature-file-name'.
The signature can also be inserted using Identities (see
`mh-identity-list').
In a program, you can pass in a signature FILE.
(defalias 'mh-insert-signature #[(&optional file) "\212\306c\210\206 \307 \310 \214``}\210\311 !\2038 \f\312=\203* \313 \314\261\210\202r \315\316 !\317\320 !\261\210\202r \203D \321\322\261\210\202S \n\203S \323\324\325\326\327\330\331\332&\210 \203r ;\203i \333 !\203i \334 !\210\202r \335 !\203r \210\214~\210\336\337!\210)eb\210\311 !\204\247
\203\247 deV\203\247 \340 \204\247 \203\234 \341y\210\202\243 \n\203\243 \342y\210&c\210deV\204\261 \343\344!\210-\345 \207" [file mh-signature-file-name mh-mml-p mh-mh-p mh-compose-insertion mh-signature-separator-flag "\n" mh-mh-directive-present-p mh-mml-tag-present-p mh-file-is-vcard-p mml "<#part type=\"text/x-vcard\" filename=\"" "\" disposition=inline description=VCard>\n<#/part>" "#text/x-vcard; name=\"" file-name-nondirectory "\" [VCard] " expand-file-name "#\n" "Content-Description: Signature\n" mml-insert-tag part type "text/plain" disposition "inline" description "Signature" file-readable-p insert-file-contents functionp run-hooks mh-insert-signature-hook mh-signature-separator-p 2 1 message "No signature found" force-mode-line-update mh-signature-separator] 8 (#$ . 12868) nil])
#@226 Return the completion data at point for MH letters.
This provides alias and folder completion in header fields according to
`mh-letter-complete-function-alist' and falls back on
`mh-letter-complete-function-alist' elsewhere.
(defalias 'mh-letter-completion-at-point #[nil "\303 \205 \304\305 \"A\211\203 \206 \306\202 \n)\207" [mh-letter-complete-function-alist func mh-letter-complete-function mh-in-header-p assoc mh-letter-header-field-at-point ignore] 4 (#$ . 14764)])
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\207" [defalias mh-letter-complete fboundp completion-at-point #[nil "\304 \305!\203 \202( :\205( @A@\3068\307\310 \n\" \n$+)\207" [data table end start mh-letter-completion-at-point functionp 2 mh-complete-word buffer-substring-no-properties] 5 "Perform completion on header field or word preceding point.\n\nIf the field contains addresses (for example, \"To:\" or \"Cc:\")\nor folders (for example, \"Fcc:\") then this command will provide\nalias completion. In the body of the message, this command runs\n`mh-letter-complete-function' instead, which is set to\n`ispell-complete-word' by default." nil]] 4)
#@244 Perform completion or insert space.
Turn on the option `mh-compose-space-does-completion-flag' to use
this command to perform completion in the header. Otherwise, a
space is inserted; use a prefix argument ARG to specify more than
one space.
(defalias 'mh-letter-complete-or-space #[(arg) "\212\304 b\210\304\305!) \204 \306\n!\2020 `V\203 \306\n!\2020 \307\310 )\203- \311 \2020 \306\n!)\207" [end-of-prev mh-compose-space-does-completion-flag arg mh-letter-complete-function mh-beginning-of-word -1 self-insert-command nil mh-letter-completion-at-point mh-letter-complete] 2 (#$ . 15927) "p"])
#@189 Flash alias expansion.
Addresses are separated by a comma; when you press the comma,
this command flashes the alias expansion in the minibuffer if
`mh-alias-flash-on-comma' is turned on.
(defalias 'mh-letter-confirm-address #[nil "\301 \204 \302\303!\207\304\305 \"A\306=\203 \307 \210\310 \207\302\303!\207" [mh-letter-complete-function-alist mh-in-header-p self-insert-command 1 assoc mh-letter-header-field-at-point mh-alias-letter-expand-alias mh-alias-reload-maybe mh-alias-minibuffer-confirm-address] 3 (#$ . 16536) nil])
#@484 Cycle to next field.
Within the header of the message, this command moves between
fields that are highlighted with the face
`mh-letter-header-field', skipping those fields listed in
`mh-compose-skipped-header-fields'. After the last field, this
command then moves point to the message body before cycling back
to the first field. If point is already past the first line of
the message body, then this command indents by calling
`indent-relative' with the given prefix argument ARG.
(defalias 'mh-letter-next-header-field-or-indent #[(arg) "\212\302 b\210\303y\210`)`V\203 \304 !\202 \305 )\207" [header-end arg mh-mail-header-end nil indent-relative mh-letter-next-header-field] 2 (#$ . 17075) "P"])
#@279 Cycle to the previous header field.
This command moves backwards between the fields and cycles to the
body of the message after the first field. Unlike the command
\[mh-letter-next-header-field-or-indent], it will always take
point to the last field from anywhere in the body.
(defalias 'mh-letter-previous-header-field #[nil "\302 `Y\203 b\210\202 \303 \210\304 \305\306#\2030 \307\310\311!!\203' \312 \2025 \313\225b\210\314 \2025 b\210\305y)\207" [header-end mh-letter-header-field-regexp mh-mail-header-end mh-header-field-beginning re-search-backward nil t mh-letter-skipped-header-field-p match-string 1 mh-letter-previous-header-field 0 mh-letter-skip-leading-whitespace-in-header-field] 4 (#$ . 17787) nil])
#@339 Insert a newline and leave point before it.
This command is similar to the command \[open-line] in that it
inserts a newline after point. It differs in that it also inserts
the right number of quoting characters and spaces so that the
next line begins in the same column as it was. This is useful
when breaking up paragraphs in replies.
(defalias 'mh-open-line #[nil "i\302 G V\203 \303\304!\202' \305\306!\210c\210 iV\203% \307c\210\202 \310y*\207" [prefix column mh-current-fill-prefix message "Sorry, point seems to be within the line prefix" newline 2 " " -1] 2 (#$ . 18517) nil])
#@118 Move to "Fcc:" header field.
This command will prompt you for the FOLDER name in which to file
a copy of the draft.
(defalias 'mh-to-fcc #[(&optional folder) "\302\303 \210\212\304 \210\305 !\203 \306 \307\"\202 c*\207" [last-input-event folder 6 expand-abbrev mh-to-field mh-folder-name-p substring 1] 3 (#$ . 19116) (list (mh-prompt-for-folder "Fcc" (or (and mh-default-folder-for-message-function (save-excursion (goto-char (point-min)) (funcall mh-default-folder-for-message-function))) "") t))])
#@68 Alist of (final-character . field-name) choices for `mh-to-field'.
(defvar mh-to-field-choices '(("a" . "Mail-Reply-To:") ("b" . "Bcc:") ("c" . "Cc:") ("d" . "Dcc:") ("f" . "Fcc:") ("l" . "Mail-Followup-To:") ("m" . "From:") ("r" . "Reply-To:") ("s" . "Subject:") ("t" . "To:")) (#$ . 19628))
#@256 Move to 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 "\305 \210\306\307\310\311\"! \"\206 \306\310\311\" \"A\312\313 \210\314 !\203L ` \315\316x\210`\f|\210)\310\311\"\317=\204G \212\320u\210\321\322!)\204G \323c\202] \324c\202] \314\325!\203U \326y\210\327\330 \"c\210\320u*\207" [last-input-event mh-to-field-choices case-fold-search target eol expand-abbrev assoc char-to-string logior 96 t push-mark mh-position-on-field " " nil 115 -1 looking-at "[:,]" ", " " " "To:" 1 format "%s \n"] 5 (#$ . 19928) nil])
#@1359 Insert the current message into the draft buffer.
It is often useful to insert a snippet of text from a letter that
someone mailed to provide some context for your reply. This
command does this by adding an attribution, yanking a portion of
text from the message to which you're replying, and inserting
`mh-ins-buf-prefix' (`> ') before each line.
The attribution consists of the sender's name and email address
followed by the content of the option
`mh-extract-from-attribution-verb'.
You can also turn on the option
`mh-delete-yanked-msg-window-flag' to delete the window
containing the original message after yanking it to make more
room on your screen for your reply.
You can control how the message to which you are replying is
yanked into your reply using `mh-yank-behavior'.
If this isn't enough, you can gain full control over the
appearance of the included text by setting `mail-citation-hook'
to a function that modifies it. For example, if you set this hook
to `trivial-cite' (which is NOT part of Emacs), set
`mh-yank-behavior' to "Body and Header" (see URL
`http://shasta.cs.uiuc.edu/~lrclause/tc.html').
Note that if `mail-citation-hook' is set, `mh-ins-buf-prefix' is
not inserted. If the option `mh-yank-behavior' is set to one of
the supercite flavors, the hook `mail-citation-hook' is ignored
and `mh-ins-buf-prefix' is not inserted.
(defalias 'mh-yank-cur-msg #[nil "\306 \203r q\210\n)\203r q\210\307\n!)\211\203 \203`p \2032 r q\210\310!\210)rq\210\311 !\312\313!\205B \211 \"\203k #\314=\204] #\315=\204] #\316=\203k e\317 {\320\321 \322 {Q\202\272 \"\203x \321 \322 {\202\272 #\323=\204\215 #\324=\204\215 #\325=\203\234 \212eb\210\326\327!\210`)d{\202\272 #\314=\204\261 #\315=\204\261 #\316=\203\267 ed{\202\272 `d{ $r\fq\210\214
\211}\210\330$!c\210db\210\331 \210eb\210\332%!\210#\324=\204\347 #\325=\203\362 !c\210\333\306!\210\334c\210\331 \210db\210\"?\205 \335 .\202\336\337!)\207" [show-buffer mh-sent-from-folder mh-show-buffer mh-sent-from-msg to-buffer to-point nil get-buffer delete-windows-on mh-extract-from-attribution boundp mark-active supercite autosupercite t mh-mail-header-end "\n" region-beginning region-end body attribution autoattrib mh-goto-header-end 1 mh-filter-out-non-text push-mark mh-insert-prefix-string mh-identity-insert-attribution-verb "\n\n" mh-exchange-point-and-mark-preserving-active-mark error "There is no current message" mh-delete-yanked-msg-window-flag from-attr yank-region mh-yank-behavior mh-ins-str mh-ins-buf-prefix] 5 (#$ . 20686) nil])
#@106 Perform auto-fill for message.
Header is treated specially by inserting a tab before continuation
lines.
(defalias 'mh-auto-fill-for-letter #[nil "\301 \203 \302\303 )\207\303 \207" [fill-prefix mh-in-header-p " " do-auto-fill] 1 (#$ . 23250)])
#@72 Return STRING but without adornments such as MIME buttons and smileys.
(defalias 'mh-filter-out-non-text #[(string) "\304\305!rq\210\306\216 c\210eb\210\307\310 \203K \311`\312\"\204- \n\203- `S`|\210\310\202 \311`\312\"\203B `\212\310y\210`)|\210\307\202 \310y\313U\211\204 *\314ed\"+\207" [#1=#:temp-buffer string in-button can-move-forward generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] t nil get-text-property mh-data 0 buffer-substring-no-properties] 4 (#$ . 23503)])
#@59 Return the `fill-prefix' on the current line as a string.
(defalias 'mh-current-fill-prefix #[nil "\212\301 \210\302\303\304#\203 \305\306!\202 \307)\207" [adaptive-fill-regexp beginning-of-line re-search-forward nil t match-string 0 ""] 4 (#$ . 24039)])
#@105 Cycle to the next header field.
If we are at the last header field go to the start of the message
body.
(defalias 'mh-letter-next-header-field #[nil "\302 `Y\203 eb\210\202( `\303 \210\304 \305 \306#\210`W\203% \303 \210\202( \307\210\304 \306#\203B \310\311\312!!\203= \313 \202G \314 \202G b\210\307y)\207" [header-end mh-letter-header-field-regexp mh-mail-header-end beginning-of-line re-search-forward mh-line-end-position t nil mh-letter-skipped-header-field-p match-string 1 mh-letter-next-header-field mh-letter-skip-leading-whitespace-in-header-field] 5 (#$ . 24304)])
#@205 Move to the end of the FIELD in the header.
Move to end of entire header if FIELD not found.
Returns non-nil if FIELD was found.
The optional second arg is for pre-version 4 compatibility and is
IGNORED.
(defalias 'mh-position-on-field #[(field &optional ignored) "\301!\203 \302 \210\303\207\304\305!\205 \306\207" [field mh-goto-header-field mh-header-field-end t mh-goto-header-end 0 nil] 2 (#$ . 24894)])
#@125 Return the header field name at point.
A symbol is returned whose name is the string obtained by
downcasing the field name.
(defalias 'mh-letter-header-field-at-point #[nil "\212\301\210\302\301\303#\205 \304\305\306!\227!)\207" [mh-letter-header-field-regexp nil re-search-backward t intern match-string 1] 4 (#$ . 25313)])
#@48 Do folder name completion in Fcc header field.
(defalias 'mh-folder-expand-at-point #[nil "\302 \212b\210\302\303!)\211`Y\205 \304\305!\203 \202 `\306E*\207" [beg end mh-beginning-of-word -1 fboundp completion-at-point mh-folder-completion-function] 4 (#$ . 25647)])
#@82 Complete WORD from CHOICES.
Any match found replaces the text from BEGIN to END.
(defalias 'mh-complete-word #[(word choices begin end) "\306 \"\307\211\310=\203$ \3111 \312\n!0\202 \210\202 \210\313\314\"\202\237 \204? \31513 \312\n!0\2027 \210\2028 \210\313\316\"\202\237 ;\205\237 \232\203\207 \f r\317\n!q\210p\320 \210
\321\211 \310\211 \310 \322 \210\323\324!\210+\211 !\325\326\327 \"\330\321#!\331 !\210+\202\237 \3321\222 \312\n!0\202\226 \210\202\227 \210\"#|\210 c*\207" [word choices completions-buffer completion default-directory #1=#:old-dir try-completion "*Completions*" t (error) kill-buffer message "Completed: %s" (error) "No completion for %s" get-buffer-create kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook display-completion-list completion-hilit-commonality all-completions 3 internal-temp-output-buffer-show (error) buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output begin end] 6 (#$ . 25928)])
#@35 Return t if FILE is a .vcf vcard.
(defalias 'mh-file-is-vcard-p #[(file) "\302 ;\205 \303 !\205 \304 \204 \305\306 \"??\206 \307 !\310\230)\207" [case-fold-search file t file-exists-p mh-have-file-command string-match "\\.vcf$" mh-file-mime-type "text/x-vcard"] 3 (#$ . 26979)])
#@176 Toggle header field display at location of EVENT.
This function does the same thing as
`mh-letter-toggle-header-field-display' except that it is
callable from a mouse button.
(defalias 'mh-letter-toggle-header-field-display-button #[(event) "\212\306\307!\205 \310!\211@\262\306\311!\205 \311\310!!\312 \313 !q\210\314 \315 \316 \317\216\320 !\210\nb\210\321\316!.\207" [event #1=#:event-window #2=#:event-position #3=#:original-window #4=#:original-position #5=#:modified-flag fboundp posn-window event-start posn-point selected-window window-buffer point-marker buffer-modified-p nil #[nil "\303!\210 b\210 \304\211\223\210\305\n!\207" [#5# #4# #3# set-buffer-modified-p nil select-window] 3] select-window mh-letter-toggle-header-field-display buffer-read-only] 3 (#$ . 27270) "e"])
#@51 Extract phrase or comment from From header field.
(defalias 'mh-extract-from-attribution #[nil "\212\300\301!\205J \302\303w\210\304\305!\203 \306\307\310\311!\310\312!#\202J \304\313!\203, \306\314\310\311!\"\202J \304\315!\203> \306\316\310\312!\310\311!#\202J \304\317!\205J \306\314\310\311!\")\207" [mh-goto-header-field "From: " " " nil looking-at "\"\\([^\"\n]+\\)\" \\(<.+>\\)" format "%s %s " match-string 1 2 "\\([^<\n]+<.+>\\)$" "%s " "\\([^ ]+@[^ ]+\\) +(\\(.+\\))$" "%s <%s> " " *\\(.+\\)$"] 5 (#$ . 28075)])
#@225 Insert prefix string before each line in buffer.
The inserted letter is cited using `sc-cite-original' if
`mh-yank-behavior' is one of `supercite' or `autosupercite'.
Otherwise, simply insert MH-INS-STRING before each line.
(defalias 'mh-insert-prefix-string #[(mh-ins-string) "eb\210\303=\204 \304=\203 \305 \207 \203 \306\301!\207n\204! \307y\210`dW\2030 \nc\210\307y\210\202! eb\207" [mh-yank-behavior mail-citation-hook mh-ins-string supercite autosupercite sc-cite-original run-hooks 1] 2 (#$ . 28605)])
(provide 'mh-letter)
Mini Shell