;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:36 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/sendmail.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; Function definitions are lazy-loaded.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317\320\311\304\321\322&	\210\313\323\324\325\321\326\311\312\317\327&	\210\313\330\331\332\317\333\321\334\311\304&	\210\313\335\305\336\321\337\317\320\311\304&	\210\313\340\305\341\321\337\317\342\311\304&	\210\313\343\305\344\317\320\311\304&\210\313\345\315\346\317\320\321\347\311\304&	\210\313\350\351\352\317\353\311\304\321\347&	\210\313\354\355\356\317\357\321\326\311\304&	\210\313\360\361\362\317\363\311\304&\210\364\360\365\366#\210\313\367\305\370\317\371\311\304&\210\313\372\305\373\317\374\311\304&\210\313\375\305\376\317\377\311\304&\210\313\201@\201A\201B\317\201C\311\304&\210\313\201D\305\201E\317\201F\201G\201H\311\304&	\207" [require mail-utils rfc2047 custom-declare-group sendmail nil "Mail sending commands for Emacs." :prefix "mail-" :group mail custom-declare-variable mail-setup-with-from t "Non-nil means insert `From:' field when setting up the message." :type boolean :version "22.1" sendmail-program (or (executable-find "sendmail") (cond ((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail") ((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail") ((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail") (t "sendmail"))) "Program used to send messages." "24.1" file mail-from-style 'default "Specifies how \"From:\" fields look.\n\nIf `nil', they contain just the return address like:\n	king@grassland.com\nIf `parens', they look like:\n	king@grassland.com (Elvis Parsley)\nIf `angles', they look like:\n	Elvis Parsley <king@grassland.com>\n\nOtherwise, most addresses look like `angles', but they look like\n`parens' if `angles' would need quoting and `parens' would not." (choice (const :tag "simple" nil) (const parens) (const angles) (const default)) "20.3" mail-specify-envelope-from "If non-nil, specify the envelope-from address when sending mail.\nThe value used to specify it is whatever is found in\nthe variable `mail-envelope-from', with `user-mail-address' as fallback.\n\nOn most systems, specifying the envelope-from address is a\nprivileged operation.  This variable affects sendmail and\nsmtpmail -- if you use feedmail to send mail, see instead the\nvariable `feedmail-deduce-envelope-from'." "21.1" mail-envelope-from "If non-nil, designate the envelope-from address when sending mail.\nThis only has an effect if `mail-specify-envelope-from' is non-nil.\nThe value should be either a string, or the symbol `header' (in\nwhich case the contents of the \"From\" header of the message\nbeing sent is used), or nil (in which case the value of\n`user-mail-address' is used)." (choice (string :tag "From-name") (const :tag "Use From: header from message" header) (const :tag "Use `user-mail-address'" nil)) mail-self-blind "Non-nil means insert BCC to self in messages to be sent.\nThis is done when the message is initialized,\nso you can remove or alter the BCC field to override the default." mail-interactive "Non-nil means when sending a message wait for and display errors.\nOtherwise, let mailer send back a message to report errors." "23.1" mail-yank-ignored-headers (concat "^" (regexp-opt '("via" "mail-from" "origin" "status" "remailed" "received" "message-id" "summary-line" "to" "subject" "in-reply-to" "return-path" "mail-reply-to" "x-rmail-attributes" "x-rmail-keywords" "mail-followup-to") "\\(?:") ":") "Delete these headers from old message when it's inserted in a reply." regexp send-mail-function (if (and (boundp 'smtpmail-smtp-server) smtpmail-smtp-server) 'smtpmail-send-it 'sendmail-query-once) "Function to call to send the current buffer as mail.\nThe headers should be delimited by a line which is\nnot a valid RFC822 header or continuation line,\nthat matches the variable `mail-header-separator'.\nThis is used by the default mail-sending commands.  See also\n`message-send-mail-function' for use with the Message package." (radio (function-item sendmail-send-it :tag "Use Sendmail package") (function-item sendmail-query-once :tag "Query the user") (function-item smtpmail-send-it :tag "Use SMTPmail package") (function-item feedmail-send-it :tag "Use Feedmail package") (function-item mailclient-send-it :tag "Use Mailclient package") function) mail-header-separator (purecopy "--text follows this line--") "Line used to separate headers from text in messages being composed." string put rear-nonsticky (category) mail-archive-file-name "Name of file to write all outgoing messages in, or nil for none.\nThis is normally an mbox file, but for backwards compatibility may also\nbe a Babyl file." (choice file (const nil)) mail-default-reply-to "Address to insert as default Reply-to field of outgoing messages.\nIf nil, it will be initialized from the REPLYTO environment variable\nwhen you first send mail." (choice (const nil) string) mail-alias-file "If non-nil, the name of a file to use instead of the sendmail default.\nThis file defines aliases to be expanded by the mailer; this is a different\nfeature from that of defining aliases in `.mailrc' to be expanded in Emacs.\nThis variable has no effect unless your system uses sendmail as its mailer.\nThe default file is defined in sendmail's configuration file, e.g.\n`/etc/aliases'." (choice (const :tag "Sendmail default" nil) file) mail-personal-alias-file (purecopy "~/.mailrc") "If non-nil, the name of the user's personal mail alias file.\nThis file typically should be in same format as the `.mailrc' file used by\nthe `Mail' or `mailx' program.\nThis file need not actually exist." (choice (const nil) file) mail-setup-hook "Normal hook, run each time a new outgoing message is initialized." hook :options (fortune-to-signature spook mail-abbrevs-setup)] 10)
#@279 Alist of mail address aliases,
or t meaning should be initialized from your mail aliases file.
(The file's name is normally `~/.mailrc', but `mail-personal-alias-file'
can specify a different file name.)
The alias definitions in the file have this form:
    alias ALIAS MEANING
(defvar mail-aliases t (#$ . 6328))
#@74 The modification time of your mail alias file when it was last examined.
(defvar mail-alias-modtime nil (#$ . 6648))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable mail-yank-prefix "> " "Prefix insert on lines of yanked message being replied to.\nIf this is nil, use indentation, as specified by `mail-indentation-spaces'." :type (choice (const nil) string) :group sendmail mail-indentation-spaces 3 "Number of spaces to insert at the beginning of each cited line.\nUsed by `mail-yank-original' via `mail-indent-citation'." integer] 8)
#@346 Obsolete hook for modifying a citation just inserted in the mail buffer.
Each hook function can find the citation between (point) and (mark t).
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 obsolete and mail agents should no longer use it.
(defvar mail-yank-hooks nil (#$ . 7259))
(byte-code "\300\301\302\303#\210\304\302\305\306\307\310\311\312&\207" [make-obsolete-variable mail-yank-hooks mail-citation-hook "19.34" custom-declare-variable nil "Hook for modifying a citation just inserted in the mail buffer.\nEach hook function can find the citation between (point) and (mark t),\nand should leave point and mark around the citation text as modified.\nThe hook functions can find the header of the cited message\nin the variable `mail-citation-header', whether or not this is included\nin the cited portion of the message.\n\nIf this hook is entirely empty (nil), a default action is taken\ninstead of no action." :type hook :group sendmail] 8)
#@211 While running `mail-citation-hook', this variable holds the message header.
This enables the hook functions to see the whole message header
regardless of what part of it (if any) is included in the cited text.
(defvar mail-citation-header nil (#$ . 8322))
#@276 Regular expression to match a citation prefix plus whitespace.
It should match whatever sort of citation prefixes you want to handle,
with whitespace before and after; it should also match just whitespace.
The default value matches citations like `foo-bar>' plus whitespace.
(custom-declare-variable 'mail-citation-prefix-regexp '(purecopy "\\([ 	]*\\(\\w\\|[_.]\\)+>+\\|[ 	]*[]>|]\\)+") '(#$ . 8585) :type 'regexp :group 'sendmail :version "24.1")
(defvar mail-abbrevs-loaded nil)
(defvar mail-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352\301\352!B#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210\302\373\374\301\375!B#\210\302\376\377#\210\302\201@\201A#\210\302\201B\201C#\210\302\201D\201E#\210\302\201F\201G#\210\302\201H\201I#\210\302\201J\201K#\210\302\201L\201M#\210\302\201N\201O#\210\302\201P\201Q#\210)\207" [map make-sparse-keymap define-key "\211" completion-at-point "?" describe-mode "" mail-to "" mail-bcc "" mail-fcc "" mail-cc "" mail-subject "" mail-reply-to "
" mail-mail-reply-to "\f" mail-mail-followup-to "" mail-text "" mail-yank-original "" mail-yank-region [remap split-line] mail-split-line "" mail-fill-yanked-message "" mail-signature "" mail-send-and-exit "" mail-send "	" mail-insert-file [menu-bar mail] "Mail" [menu-bar mail attachment] ("Attach File" . mail-add-attachment) [menu-bar mail fill] ("Fill Citation" . mail-fill-yanked-message) [menu-bar mail yank] (menu-item "Cite Original" mail-yank-original :enable mail-reply-action) [menu-bar mail signature] ("Insert Signature" . mail-signature) [menu-bar mail mail-sep] ("--") [menu-bar mail cancel] ("Cancel" . mail-dont-send) [menu-bar mail send-stay] ("Send, Keep Editing" . mail-send) [menu-bar mail send] ("Send Message" . mail-send-and-exit) [menu-bar headers] "Headers" "Move to Header" [menu-bar headers text] ("Text" . mail-text) [menu-bar headers expand-aliases] ("Expand Aliases" . expand-mail-aliases) [menu-bar headers mail-reply-to] ("Mail-Reply-To" . mail-mail-reply-to) [menu-bar headers mail-followup-to] ("Mail-Followup-To" . mail-mail-followup-to) [menu-bar headers reply-to] ("Reply-To" . mail-reply-to) [menu-bar headers bcc] ("Bcc" . mail-bcc) [menu-bar headers fcc] ("Fcc" . mail-fcc) [menu-bar headers cc] ("Cc" . mail-cc) [menu-bar headers subject] ("Subject" . mail-subject) [menu-bar headers to] ("To" . mail-to)] 6))
#@140 Read mail aliases from personal aliases file and set `mail-aliases'.
By default, this is the file specified by `mail-personal-alias-file'.
(autoload 'build-mail-aliases "mailalias" '(#$ . 11431) t)
(byte-code "\300\301\302\303\304\305\306\307&\210\310\301\311\302#\210\300\312\313\314\304\315\306\307&\210\300\316\317\320\304\321\306\307\322\323&	\207" [custom-declare-variable mail-signature t "Text inserted at end of mail buffer when a message is initialized.\nIf t, it means to insert the contents of the file `mail-signature-file'.\nIf a string, that string is inserted.\n (To make a proper signature, the string should begin with \\n\\n-- \\n,\n  which is the standard way to delimit a signature in a message.)\nOtherwise, it should be an expression; it is evaluated\nand should insert whatever you want to insert." :type (choice (const :tag "None" nil) (const :tag "Use `.signature' file" t) (string :tag "String to insert") (sexp :tag "Expression to evaluate")) :group sendmail put risky-local-variable mail-signature-file (purecopy "~/.signature") "File containing the text inserted at end of mail buffer." file mail-default-directory (purecopy "~/") "Value of `default-directory' for Mail mode buffers.\nThis directory is used for auto-save files of Mail mode buffers.\n\nNote that Message mode does not use this variable; it auto-saves\nin `message-auto-save-directory'." (directory :tag "Directory") :version "22.1"] 10)
(defvar mail-reply-action nil)
#@73 A list of actions to be performed upon successful sending of a message.
(defvar mail-send-actions nil (#$ . 12903))
(defvar mail-return-action nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\210\300\320\302\321\306\307\304\322\323\324&	\207" [custom-declare-variable mail-default-headers nil "A string containing header lines, to be inserted in outgoing messages.\nIt can contain newlines, and should end in one.  It is inserted\nbefore you edit the message, so you can edit or delete the lines." :type (choice (const nil) string) :group sendmail mail-bury-selects-summary t "If non-nil, try to show Rmail summary buffer after returning from mail.\nThe functions \\[mail-send-on-exit] or \\[mail-dont-send] select\nthe Rmail summary buffer before returning, if it exists and this variable\nis non-nil." boolean mail-send-nonascii 'mime "Specify whether to allow sending non-ASCII characters in mail.\nIf t, that means do allow it.  nil means don't allow it.\n`query' means ask the user each time.\n`mime' means add an appropriate MIME header if none already present.\nThe default is `mime'.\nIncluding non-ASCII characters in a mail message can be problematical\nfor the recipient, who may not know how to decode them properly." (choice (const t) (const nil) (const query) (const mime)) mail-use-dsn "Ask MTA for notification of failed, delayed or successful delivery.\nNote that only some MTAs (currently only recent versions of Sendmail)\nsupport Delivery Status Notification." (repeat (radio (const :tag "Failure" failure) (const :tag "Delay" delay) (const :tag "Success" success))) :version "22.1"] 10)
#@268 Set this non-nil if the system's mailer runs the header and body together.
The actual value should be an expression to evaluate that returns
non-nil if the problem will actually occur.
(As far as we know, this is not an issue on any system still supported
by Emacs.)
(defvar mail-mailer-swallows-blank-line nil (#$ . 14597))
(byte-code "\300\301\302\303#\210\304\301\305\306\307$\207" [put mail-mailer-swallows-blank-line risky-local-variable t make-obsolete-variable "no need to set this on any modern system." "24.1" set] 5)
#@41 Syntax table used while in `mail-mode'.
(defvar mail-mode-syntax-table (byte-code "\301 \302\303\304#\210)\207" [st make-syntax-table modify-syntax-entry 37 ". "] 4) (#$ . 15130))
#@51 Additional expressions to highlight in Mail mode.
(defvar mail-font-lock-keywords '(("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face) ("^\\(B?CC\\|Reply-to\\|Mail-\\(reply\\|followup\\)-to\\):" . font-lock-keyword-face) ("^\\(Subject:\\)[ 	]*\\(.+\\)?" (1 font-lock-comment-face)) (eval let ((separator (if (zerop (length mail-header-separator)) " \\`\\' " (regexp-quote mail-header-separator)))) (cons (concat "^" separator "$") 'font-lock-warning-face)) ("[>|}]" ("\\=[ 	]*\\(\\(\\([[:alpha:]]+[[:alpha:]0-9_.@-`'\"]*\\)?\\([>|}][ 	]*\\)\\)+\\)\\(.*\\)" (beginning-of-line) (end-of-line) (1 font-lock-comment-delimiter-face nil t) (5 font-lock-comment-face nil t))) ("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ 	]+.*\\)*$" . font-lock-string-face)) (#$ . 15319))
#@120 Query for `send-mail-function' and send mail with it.
This also saves the value of `send-mail-function' via Customize.
(defalias 'sendmail-query-once #[nil #@108 ("\301=\203	
0\302 \210 \207" . [send-mail-function sendmail-query-once sendmail-query-user-about-smtp])(#$ . 16266) nil 2 (#$ . 16103)])
(defalias 'sendmail-query-user-about-smtp #[nil #@1364 ("\305\306\205

0\307!\205

0\310\311\"B\312\313!r\nq\210\314\216\315\316\317\"\210\320\321\322\323\324#\325\261\210\203@
0\307!\203@
0\326\321\327\323\324#\330\331\261\210\326\321\332\323\324#\333\261\210eb\210\334p!\210\317\335\336	\337\340$,\341\342\343\f	\317#A\"*\207" . [sendmail-program options #1=#:temp-buffer completion-ignore-case choice ("mail client" . mailclient-send-it) append executable-find (("transport" . sendmail-send-it)) (("smtp" . smtpmail-send-it)) generate-new-buffer " *temp*" ((byte-code "\301!\203\n
0\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) rename-buffer "*Emacs Mail Setup Help*" t " Emacs is about to send an email message, but it has not been\n configured for sending email.  To tell Emacs how to send email:\n\n - Type `" propertize "mail client" face bold "' to start your default email client and\n   pass it the message text.\n\n" " - Type `" "transport" "' to invoke the system's mail transport agent\n   (the `" "' program).\n\n" "smtp" "' to send mail directly to an \"outgoing mail\" server.\n   (Emacs may prompt you for SMTP settings).\n\n Emacs will record your selection and will use it thereafter.\n To change it later, customize the option `send-mail-function'.\n" display-buffer completing-read "Send mail via: " nil require-match customize-save-variable send-mail-function assoc-string])(#$ . 16462) nil 6])
(defalias 'sendmail-sync-aliases #[nil #@145 ("\205
0\304\305!8\n	\232\206
0	\306\211)\207" . [mail-personal-alias-file modtime mail-alias-modtime mail-aliases 5 file-attributes t])(#$ . 17891) nil 3])
(define-mail-user-agent 'sendmail-user-agent 'sendmail-user-agent-compose 'mail-send-and-exit)
(defalias 'sendmail-user-agent-compose #[(&optional to subject other-headers continue switch-function yank-action send-actions return-action &rest ignored) #@548 ("\203
0\306!\210\307\310	\311#A\307\312	\311#A\307\313	\311#A\314
\f&\2048
0
\2048
0\315\316!\210\212\317 \210	\203e
0\320	@@\321\"\204^
0	@@\322	@A\203Z
0\202[
0\323\261\210	A\211\204@
0\n\203o
0\324y\210\nc\210,\311\207" . [switch-function other-headers body in-reply-to cc continue "*mail*" assoc-string "cc" t "in-reply-to" "body" mail error "Message aborted" rfc822-goto-eoh member-ignore-case ("in-reply-to" "cc" "body") ": " "\n" 1 to subject yank-action send-actions return-action use-hard-newlines hard-newline])(#$ . 18313) nil 10])
(defalias 'mail-setup #[(to subject in-reply-to cc replybuffer actions return-action) #@1543 ("\204
0\306\307!\310 \210	\311=\203 
0\312\n\203 
0\313\n!\203 
0\314 \210\315\316!\210\317\320\321!!\210\2031
0\322 \210\f()*+eb\210,\203F
0\323 \210\324c\210\212-\203o
0\325`./-\326\261\210\327.d\"\210db\210n\204k
0\330 \210*\202r
0\330 \2100\203\227
0\325\331c\210`./0\326\261\210\327.d\"\210db\210n\204\226
0\330 \210*1\203\275
0\325\332`.2/\3331\326\261\210\327.d\"\210db\210n\204\274
0\330 \210+\3343\206\304
0\335\326\261\2104\203\321
04c\210\203\333
0\336\326\261\2105\203\347
0\3376\326\261\2107\203\363
0\3407\326\261\210\341`#\326\261\210`S\342\343$\210-\203	

`-$\203

\344\311!\210db\210n\204

\330 \210)-\203&

-b\210-\2049

3\2049

1\2049

\345\312!\210\346\347!\207" . [mail-default-reply-to mail-aliases mail-personal-alias-file current-input-method actions mail-send-actions getenv "REPLYTO" sendmail-sync-aliases t nil file-exists-p build-mail-aliases kill-local-variable buffer-file-coding-system set-buffer-multibyte default-value enable-multibyte-characters deactivate-input-method mail-insert-from-field "To: " "	" "\n" fill-region-as-paragraph newline "CC: " 78 "In-reply-to: " "Subject: " "" "Reply-to: " "BCC: " "FCC: " put-text-property category mail-header-separator mail-signature set-buffer-modified-p run-hooks mail-setup-hook replybuffer mail-reply-action return-action mail-return-action mail-setup-with-from to address-start fill-prefix cc in-reply-to fill-column subject mail-default-headers mail-self-blind user-mail-address mail-archive-file-name])(#$ . 18975) nil 5])
#@152 Hook run by Mail mode.
When composing a mail, this runs immediately after creating, or
switching to, the `*mail*' buffer.  See also `mail-setup-hook'.
(custom-declare-variable 'mail-mode-hook nil '(#$ . 20544) :group 'sendmail :type 'hook :options '(footnote-mode))
(defvar mail-mode-abbrev-table text-mode-abbrev-table)
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [mail-mode-hook variable-documentation put purecopy "Hook run when entering Mail mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp mail-mode-map definition-name mail-mode] 5)
(defvar mail-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [mail-mode-map variable-documentation put purecopy "Keymap for `mail-mode'." boundp mail-mode-syntax-table definition-name mail-mode] 5)
(defvar mail-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [mail-mode-syntax-table variable-documentation put purecopy "Syntax table for `mail-mode'." mail-mode-abbrev-table definition-name mail-mode] 5)
(defvar mail-mode-abbrev-table (progn (define-abbrev-table 'mail-mode-abbrev-table nil) mail-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [mail-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `mail-mode'." mail-mode derived-mode-parent text-mode] 5)
#@1064 Major mode for editing mail to be sent.
Like Text Mode but with these additional commands:

\[mail-send]  mail-send (send the message)
\[mail-send-and-exit]  mail-send-and-exit (send the message and exit)

Here are commands that move to a header field (and create it if there isn't):
	 \[mail-to]  move to To:	\[mail-subject]  move to Subj:
	 \[mail-bcc]  move to BCC:	\[mail-cc]  move to CC:
	 \[mail-fcc]  move to FCC:	\[mail-reply-to] move to Reply-To:
         \[mail-mail-reply-to]  move to Mail-Reply-To:
         \[mail-mail-followup-to] move to Mail-Followup-To:
\[mail-text]  move to message text.
\[mail-signature]  mail-signature (insert `mail-signature-file' file).
\[mail-yank-original]  mail-yank-original (insert current message, in Rmail).
\[mail-fill-yanked-message]  mail-fill-yanked-message (fill what was yanked).
\[mail-insert-file] insert a text file into the message.
\[mail-add-attachment] attach to the message a file as binary attachment.
Turning on Mail mode runs the normal hooks `text-mode-hook' and
`mail-mode-hook' (in that order).
(defalias 'mail-mode #[nil #@1631 ("\306\300!\210\307\310 \210\311\312\310\313N\203
0\314\311\313\310\313N#\210\315!\204'
0\316\317 \"\210\320\f!\211\2036
0
\321 =\203<
0\322\f\323 \"\210)\3247\325\"\204V
078=\204V
0\3267\3258C#\210\327!\210\330\f!\21078\306\331!\210\306\332!\210\306\333!\210\306\334!\210\335\3079\306\336!\210\337\306\340!\210\306\341!\210\342!\306\343!\210\344#\306\345!\210:%:\203\253
0\306\346!\210\347\350:!\351Q&\306\352!\210\353*P*\306\354!\210\355,P,\356\357\360\335\361$\210\350;!\362\363\364<\260 )\365\366!\207" . [delay-mode-hooks major-mode mode-name mail-mode-map mail-mode-syntax-table parent make-local-variable t text-mode mail-mode "Mail" 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 mail-reply-action mail-send-actions mail-return-action mail-encode-mml nil font-lock-defaults (mail-font-lock-keywords t t) paragraph-separate normal-auto-fill-function mail-mode-auto-fill fill-paragraph-function mail-mode-fill-paragraph comment-start comment-start-skip "^" regexp-quote "[ 	]*" adaptive-fill-regexp "[ 	]*[-[:alnum:]]+>+[ 	]*\\|" adaptive-fill-first-line-regexp "[ 	]*[-[:alnum:]]*>+[ 	]*\\|" add-hook completion-at-point-functions mail-completion-at-point-function local "$\\|	*[-–!|#%;>*·•‣⁃◦ ]+$" "\\|[ 	]*[-[:alnum:]]*>+[ 	]*$\\|[ 	]*$\\|" "--\\( \\|-+\\)$\\|" run-mode-hooks mail-mode-hook mail-mode-abbrev-table local-abbrev-table buffer-offer-save mail-yank-prefix mail-header-separator page-delimiter])(#$ . 23214) nil 6 (#$ . 22116) nil])
#@64 Return the buffer location of the end of headers, as a number.
(defalias 'mail-header-end #[nil #@54 ("\214~\210\212\300 \210`*\207" . [rfc822-goto-eoh])(#$ . 24989) nil 1 (#$ . 24887)])
#@63 Return the buffer location of the start of text, as a number.
(defalias 'mail-text-start #[nil #@65 ("\214~\210\212\300 \210\301y\210`*\207" . [rfc822-goto-eoh 1])(#$ . 25182) nil 1 (#$ . 25081)])
#@139 Set up whatever header delimiter convention sendmail will use.
Concretely: replace the first blank line in the header with the separator.
(defalias 'mail-sendmail-delimit-header #[nil #@68 ("\301 \210c\210`\207" . [mail-header-separator rfc822-goto-eoh])(#$ . 25476) nil 1 (#$ . 25286)])
#@122 Remove header separator to put the message in correct form for sendmail.
Leave point at the start of the delimiter line.
(defalias 'mail-sendmail-undelimit-header #[nil #@55 ("\300 \210`\301\210`|\207" . [rfc822-goto-eoh nil])(#$ . 25758) nil 2 (#$ . 25583)])
#@109 Carry out Auto Fill for Mail mode.
If within the headers, this makes the new lines into continuation lines.
(defalias 'mail-mode-auto-fill #[nil #@232 ("`\301 W\203'
0\302 \303 \205%
0\212\304 \210`=\204#
0\305\306!\210\307y\210\202
0)\310)\207\303 \207" . [old-line-start mail-header-end line-beginning-position do-auto-fill beginning-of-line insert-before-markers "   " -1 t])(#$ . 26004) nil 2 (#$ . 25852)])
(defalias 'mail-mode-fill-paragraph #[(arg) #@639 ("`\304 W\205r
0\305\211\211\306\307\305\310#`\203
0\n\311\225S{\227\312y\210\313\314!\2030
0\315 \210\312y\210\202!
0\316 \nb\210\317\235\203P
0\320\321	\322#\203P
0\313\314!\204<
0\323c\210\202<
0\324\n	#\210\nb\210\312y\210`	W\203k
0\325c\210\312y\210\202\\
0	\305\211\223\210+\322\207" . [fieldname end beg arg mail-header-end nil re-search-backward "^[-a-zA-Z]+:" yes 0 1 looking-at "[ 	]" delete-horizontal-space point-marker ("to" "cc" "bcc" "from" "reply-to" "mail-reply-to" "mail-followup-to" "resent-to" "resent-cc" "resent-bcc" "resent-from" "resent-reply-to") search-forward "," t " " fill-region-as-paragraph "  "])(#$ . 26319) nil 4])
#@118 Send message like `mail-send', then, if no errors, exit from mail buffer.
Prefix arg means don't delete this window.
(defalias 'mail-send-and-exit #[(&optional arg) #@53 ("\301 \210\302!\207" . [arg mail-send mail-bury])(#$ . 27155) nil 2 (#$ . 26984) "P"])
#@90 Don't send the message you have been editing.
Prefix arg means don't delete this window.
(defalias 'mail-dont-send #[(&optional arg) #@34 ("\301!\207" . [arg mail-bury])(#$ . 27389) nil 2 (#$ . 27250) "P"])
#@24 Bury this mail buffer.
(defalias 'mail-bury #[(&optional arg) #@407 ("\306p!\307p!\210	\204<
0\310 \311\211\203;
0\f@\312\313\"\314=\2034
0	\2044
0\315\316\317!\"\2044
0\320D\fA\211\204
0*
\204M
0	\203M
0\321	@	A\"\202P
0\322\n!*\207" . [mail-return-action return-action newbuf buffer --dolist-tail-- arg other-buffer bury-buffer buffer-list nil buffer-local-value major-mode rmail-mode string-match "\\` " buffer-name rmail-mail-return apply switch-to-buffer])(#$ . 27534) nil 5 (#$ . 27465)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\302\313\304\314\310\311&\207" [custom-declare-variable mail-send-hook nil "Hook run just before sending a message." :type hook :options (flyspell-mode-off) :group sendmail mail-mailing-lists "List of mailing list addresses the user is subscribed to.\nThe variable is used to trigger insertion of the \"Mail-Followup-To\"\nheader when sending a message to a mailing list." (repeat string)] 10)
#@220 Send the message in the current buffer.
If `mail-interactive' is non-nil, wait for success indication
or error messages, and inform user.
Otherwise any failure is reported in a message back to
the user from the mailer.
(defalias 'mail-send #[nil #@1917 ("\203\n
0\306\307!\202
0\310 \204
0\306\311!\205&

\312`	\205\"
0\313\314	\312\"\315Q\n\203\211
0\212\316\317\320\312#\316\321\320\312#;\322
;\205B
0\323;PP!<\324\n<\"\203\210
0\316\325!\204q
0\326 b\210\327\320=\330\331\332<\333\312#\"\210\334\335=\323#)\336\261\210\316\337!\204\210
0\326 b\210\340\316\341!\206\204
0>\336\261\210,?\342>\204\265
0eb\210\343\320w\210`dU\204\265
0?\344=\203\261
0\306\345!\204\265
0\346\347!\210\202\265
0\346\350!\210eb\210\351\352@!d\312#\210\353\224\206\307
0dAeb\210`AW\203\347
0\354\355!\204\341
0\356!\210\346\357!\210\360y\210\202\314
0)b\210B\203\366
0\361 \210\320B\362\363!\210\364\365!\210C \210D\203

\320\366\367\217\210DA\211D\204

\364\370!\210?\205%

\371\320!\210\372\312!+\207" . [buffer-file-name mail-mailing-lists ml opoint inhibit-read-only to y-or-n-p "Send buffer contents as mail message? " buffer-modified-p "Message already sent; resend? " t "\\(?:[[:space:];,]\\|\\`\\)" regexp-opt "\\(?:[[:space:];,]\\|\\'\\)" mail-fetch-field "to" nil "cc" mail-strip-quoted-names ", " string-match "mail-followup-to" mail-header-end "Mail-Followup-To: " mapc #[(e) "	\235?\205\f
0	B\211\207" [e l] 2] split-string ",[[:space:]]+" mapconcat identity "\n" "mail-reply-to" "Mail-Reply-To: " "reply-to" (t mime) "
0-" query "Message contains non-ASCII characters; send anyway? " error "Aborted" "Message contains non-ASCII characters" re-search-forward regexp-quote 0 looking-at "[ 	]\\|.*:\\|$" push-mark "Invalid header line (maybe a continuation line lacks initial whitespace)" 1 mml-to-mime run-hooks mail-send-hook message "Sending..." (byte-code "\301@@@A\"\207" [mail-send-actions apply] 3) ((error)) "Sending...done" set-buffer-modified-p delete-auto-save-file-if-necessary cc new-header-values l user-mail-address mail-send-nonascii mail-header-separator header-end mail-encode-mml send-mail-function mail-send-actions])(#$ . 28695) nil 8 (#$ . 28441) nil])
#@101 Return the envelope mail address to use when sending mail.
This function uses `mail-envelope-from'.
(defalias 'mail-envelope-from #[nil #@130 ("\301=\203
0\302\303\304!!A@\207\207" . [mail-envelope-from header mail-extract-address-components mail-fetch-field "From"])(#$ . 30798) nil 3 (#$ . 30655)])
#@281 Coding system for encoding the outgoing mail.
This has higher priority than the default `buffer-file-coding-system'
and `default-sendmail-coding-system',
but lower priority than the local value of `buffer-file-coding-system'.
See also the function `select-message-coding-system'.
(defvar sendmail-coding-system nil (#$ . 30967))
#@421 Default coding system for encoding the outgoing mail.
This variable is used only when `sendmail-coding-system' is nil.

This variable is set/changed by the command `set-language-environment'.
User should not set this variable manually,
instead use `sendmail-coding-system' to get a constant encoding
of outgoing mails regardless of the current language environment.
See also the function `select-message-coding-system'.
(defvar default-sendmail-coding-system 'iso-latin-1 (#$ . 31303))
#@165 Insert the "From:" field of a mail header.
The style of the field is determined by the variable `mail-from-style'.
This function does not perform RFC2047 encoding.
(defalias 'mail-insert-from-field #[nil #@1063 ("\306 \307\310\311\n\"\203
0\312\f\204
0\313	\314\261\202\355
0\f\315=\203&
0\307\202\355
0\f\316=\204\\
0\f\317=\204\236
0\310\320\n\"\203\\
0\n\307P\310\321
\"\203T
0
\322\224\323I\210
\322\225S\323I\210\202=
0\310\324
\")\203\236
0\313\n\261\210e\325\\\326 $\211%b\210\327\320$\330#\204z
0\203\225
0%b\210\331c\210\327\332$\330#\203\222
0\333\334\312\"\210\202\201
0\331c\210*\335	\336\261\202\355
0\313	\337\261\210`%\203\256
0\331c\210\nc\210\203\270
0\331c\210\326 $%b\210\327\340$\330#\203\321
0\333\334\312\"\210\202\300
0%b\210\327\341$\330#\203\352
0\333\342\312\"\210%b\210\202\325
0*\343c+\207" . [user-mail-address login fullname quote-fullname mail-from-style tmp user-full-name nil string-match "[^
0-]" t "From: " "\n" system-default angles parens "[^- !#-'*+/-9=?A-Z^-~]" "([^()]*)" 0 45 "[\\()]" 6 point-marker re-search-forward 1 "\"" "[\"\\]" replace-match "\\\\\\&" " <" ">\n" " (" "[()\\]" "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" "\\1(\\3)" ")\n" fullname-end fullname-start])(#$ . 32008) nil 5 (#$ . 31796)])
#@132 Encode the mail header between BEG and END according to RFC2047.
Return non-nil if and only if some part of the header is encoded.
(defalias 'mail-encode-header #[(beg end) #@304 ("\214	}\210\306 \211\203
0\307\n\310\"\203
0\nB\202
0\311 \312\313 \210\f\311 U-\207" . [beg end selected mm-coding-system-priorities tick rfc2047-encode-encoded-words select-message-coding-system coding-system-get :mime-charset buffer-chars-modified-tick nil rfc2047-encode-message-header])(#$ . 33290) nil 4 (#$ . 33110)])
(defvar sendmail-error-reporting-interactive '("-oep" "-odi"))
(defvar sendmail-error-reporting-non-interactive '("-oem" "-odb"))
#@177 Send the current mail buffer using the Sendmail package.
This is a suitable value for `send-mail-function'.  It sends using the
external program defined by `sendmail-program'.
(defalias 'sendmail-send-it #[nil #@3211 ("\306\307!\210\203
0\310\311!\202
0\312\310\313!	\314\315 \314\211\211p\n\205$
0\316 \206$
0@ABCDEFG\317\216rFq\210\320 \210E\204I
0\321\314!\210\322
!\210\323C!\210db\210h\324U\204^
0\324c\210\325 b\210`\314\210`|\210\326 A\327 \210H\203{
0\330eA\"\210eb\210\331\332A\333#\203\225
0`AW\203\225
0\334\335!\210\202~
0eb\210\333Deb\210\331\336A\333#\203\333
0\214`\212\337y\210\340\341!\203\271
0\337y\210\202\255
0`)}\210\342\343 B\")B\212\344 \210\340\345!)\203\236
0\346 \346\347!|\210\202\236
0eb\210\331\350A\333#\203\356
0\334\351!\210\202

\331\352A\333#\203

\312\225AU\203

\334\351!\210eb\210\331\353A\333#\204

\354 \210\314\211IJeb\210\331\355A\333#Ieb\210K\356=\203o

\331\357A\333#\204o

\360\314w\210`dU\204o

C\203o

\361C\362\"\211J\203o

Ab\210\363\364\365J!\366\261\210I\203o

Ib\210\367 \337y\210`|\210*ATb\210\370L!\203

\371 \210eb\210\331\372A\333#\203\223

\333@\373A!\210\203\240

rGq\210\320 \210))\374eA\"\210eb\210\333DB\206\270

\331\375A\333#)\203X\376MCN\342edO\314G\314\377\257\f\205\330

\201V
0\fDP\205\344

\201W
0PPC\203\355

Q\202\357

RB\206\367

\201X
0S\205\n\201Y
0\201Z
0\365S\201[
0#D&T\201\\
0\201]
0T\"\211U\203TU\312=\204TU\247\2037\201^
0\201_
0U\"\210\202TU;\203J\201^
0\201`
0U\"\210\202T\201^
0\201a
0U\"\210,\202e@\204e\201^
0\201b
0!\210\205\233rGq\210eb\210\331\201c
0\314\333#\203\204\334\201d
0!\210\202q\201e
0\201f
0 !?\205\232\201^
0\201g
0ed{\").\f\207" . [mail-interactive enable-multibyte-characters mail-specify-envelope-from user-mail-address envelope-from mailbuf require mail-utils generate-new-buffer " sendmail errors" 0 " sendmail temp" nil select-message-coding-system mail-envelope-from ((byte-code "\302!\210\303	!\203
0\302	!\210\302\207" [tembuf errbuf kill-buffer bufferp] 2)) erase-buffer set-buffer-multibyte insert-buffer-substring set-buffer-file-coding-system 10 mail-header-end point-marker sendmail-sync-aliases expand-mail-aliases re-search-forward "\n\n\n*" t replace-match "\n" "^Resent-\\(to\\|cc\\|bcc\\):" 1 looking-at "^[ 	]" append mail-parse-comma-list beginning-of-line "resent-bcc" line-beginning-position 2 "^Subject:\\([ 	]*\n\\)+\\b" "" "^Subject:\\([ 	]*\n\\)+" "^From:" mail-insert-from-field "^Content-type:" mime "^MIME-version:" "
0-" coding-system-get :mime-charset "MIME-version: 1.0\n" "Content-type: text/plain; charset=" symbol-name "\nContent-Transfer-Encoding: 8bit\n" point-at-bol eval newline "^FCC:" mail-do-fcc mail-encode-header "^To:\\|^cc:\\|^bcc:" "/" "-oi" fcc-was-found delimline resend-to-addresses selected-coding case-fold-search multibyte tembuf errbuf mail-aliases where-content-type charset mail-send-nonascii mail-mailer-swallows-blank-line default-directory coding-system-for-write sendmail-program mail-alias-file sendmail-error-reporting-interactive sendmail-error-reporting-non-interactive mail-use-dsn args exit-value "-f" "-oA" ("-t") "-N" mapconcat "," apply call-process-region error "Sending...failed with exit value %d" "Sending...terminated by signal: %s" "SENDMAIL-SEND-IT -- fall through: %S" "No recipients" "\n\n* *" "; " zerop buffer-size "Sending...failed to %s"])(#$ . 33981) nil 12 (#$ . 33763)])
(autoload 'rmail-output-to-rmail-buffer "rmailout")
#@317 Find and act on any FCC: headers in the current message before HEADER-END.
If a buffer is visiting the FCC file, append to it before
offering to save it, if it was modified initially.  If this is an
Rmail buffer, update Rmail as needed.  If there is no buffer,
just append to the file, in Babyl format if necessary.
(defalias 'mail-do-fcc #[(header-end) #@1981 ("\306!\204\n
0\307\310!\210\311p\312 \212eb\210\313\314\315\313#\2037
0`\311\210\316\311x\210`{B\317\224\320y\210`|\210\202
0)\321\322!r
q\210\323\216\324\325 \326\327	!\330\261\210\331u\210\331v\210\332\333!\210\334	!\326\261\210db\210\335\n!\210db\210\336c\210\337b\210\311\340\324\311\313#\203\201
0\341u\210\342c\210\202p
0)\3118\2119\205\231

9@8\3438!:p;\311\211<=e>d?\212eb\210\337y\210`)@:\203 

r:q\210\344 ?\205\305
0\345:!=\346\347!\205\317
0'\311A\211B\203\372
0\321\350!C\351\216rCq\210\335;>T?#\210)\352CB\"\210*\202\n

\214~\210db\210\335;>?#\210)=\204
_

\353\354\3558\"!\203

\356 \210\313<+<\204z

\3578!\203f

\3608!\203f

D\2069

\361E\321\322!FrFq\210\362\216\363\364 \330\261\210\335;@?#\210\365c\210\366ed8\313$\210,\202z

\366\3578!\203r

e\202t

eTd8\313$\210:\203\215

<\204\215

r:q\210\367 \210).9A\2119\204\214
0\311.	\207" . [header-end time mailbuf fcc-list case-fold-search #1=#:temp-buffer markerp error "Value of `header-end' must be a marker" nil current-time t re-search-forward "^FCC:[ 	]*" " 	" 0 1 generate-new-buffer " *temp*" ((byte-code "\301!\203\n
0\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "\nFrom " user-login-name " " current-time-string "\n" -1 require mail-utils mail-rfc822-time-zone insert-buffer-substring 10 2 search-forward -5 62 find-buffer-visiting buffer-modified-p verify-visited-file-modtime boundp rmail-current-message " *mail-do-fcc" ((kill-buffer buff)) rmail-output-to-rmail-buffer y-or-n-p format "Save file %s? " save-buffer file-exists-p mail-file-babyl-p emacs-mule ((byte-code "\301!\203\n
0\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) "\f\n0, unseen,,\n*** EOOH ***\nDate: " mail-rfc822-date "\n
_" write-region set-visited-file-modtime fcc --dolist-tail-- buffer curbuf dont-write-the-file buffer-matches-file beg end beg2 buffer-read-only msg buff rmail-file-coding-system coding-system-for-write #2#])(#$ . 37646) nil 6 (#$ . 37284)])
#@61 Make a Sent-via header line from each To or CC header line.
(defalias 'mail-sent-via #[nil #@277 ("\212\303\304 !\305eb\210\306\307	\305#\2051
0`\306\310	\305#\203\"
0\311u\210\202%
0	b\210`{\312\313\n\"\210)\202
0+\207" . [case-fold-search end to-line copy-marker mail-header-end t re-search-forward "^\\(to\\|cc\\):" "^[^ 	\n]" -1 insert-before-markers "Sent-via:"])(#$ . 39763) nil 5 (#$ . 39665) nil])
(make-obsolete 'mail-sent-via "nobody can remember what it is for." "24.1")
#@58 Move point to end of To field, creating it if necessary.
(defalias 'mail-to #[nil #@74 ("\300 \210\301\302!\207" . [expand-abbrev mail-position-on-field "To"])(#$ . 40246) nil 2 (#$ . 40158) nil])
#@63 Move point to end of Subject field, creating it if necessary.
(defalias 'mail-subject #[nil #@79 ("\300 \210\301\302!\207" . [expand-abbrev mail-position-on-field "Subject"])(#$ . 40460) nil 2 (#$ . 40362) nil])
#@58 Move point to end of CC field, creating it if necessary.
(defalias 'mail-cc #[nil #@120 ("\300 \210\301\302\303\"\206
0\301\304!\210\305c\207" . [expand-abbrev mail-position-on-field "cc" t "to" "\nCC: "])(#$ . 40670) nil 3 (#$ . 40581) nil])
#@59 Move point to end of BCC field, creating it if necessary.
(defalias 'mail-bcc #[nil #@122 ("\300 \210\301\302\303\"\206
0\301\304!\210\305c\207" . [expand-abbrev mail-position-on-field "bcc" t "to" "\nBCC: "])(#$ . 40923) nil 3 (#$ . 40832) nil])
#@49 Add a new FCC field, with file name completion.
(defalias 'mail-fcc #[(folder) #@134 ("\301 \210\302\303\304\"\204
0\302\305!\210\306\261\207" . [folder expand-abbrev mail-position-on-field "fcc" t "to" "\nFCC: "])(#$ . 41173) nil 3 (#$ . 41087) "FFolder carbon copy: "])
#@64 Move point to end of Reply-To field, creating it if necessary.
(defalias 'mail-reply-to #[nil #@80 ("\300 \210\301\302!\207" . [expand-abbrev mail-position-on-field "Reply-To"])(#$ . 41469) nil 2 (#$ . 41369) nil])
#@69 Move point to end of Mail-Reply-To field, creating it if necessary.
(defalias 'mail-mail-reply-to #[nil #@142 ("\300 \210\301\302\303\"\206
0\301\304!\210\305c\207" . [expand-abbrev mail-position-on-field "mail-reply-to" t "to" "\nMail-Reply-To: "])(#$ . 41702) nil 3 (#$ . 41591) nil])
#@72 Move point to end of Mail-Followup-To field, creating it if necessary.
(defalias 'mail-mail-followup-to #[nil #@148 ("\300 \210\301\302\303\"\206
0\301\304!\210\305c\207" . [expand-abbrev mail-position-on-field "mail-followup-to" t "to" "\nMail-Followup-To: "])(#$ . 42003) nil 3 (#$ . 41886) nil])
(defalias 'mail-position-on-field #[(field &optional soft) #@307 ("\304\305\306 eb\210\307\310\311\n!\312Q	\305#\203(
0\307\313\304\314#\210\315 \210\316\304x\210\305\2029
0\2048
0	b\210\n\317\261\210\316\304x\210\304*\207" . [case-fold-search end field soft nil t mail-header-end re-search-forward "^" regexp-quote ":" "^[^ 	]" move beginning-of-line "\n" ": \n"])(#$ . 42253) nil 4])
#@40 Move point to beginning of text field.
(defalias 'mail-text #[nil #@59 ("\300 \210\301 b\207" . [expand-abbrev mail-text-start])(#$ . 42657) nil 1 (#$ . 42585) nil])
#@264 Sign letter with signature.
If the variable `mail-signature' is a string, inserts it.
If it is t or nil, inserts the contents of the file `mail-signature-file'.
Otherwise, evals `mail-signature'.
Prefix argument ATPOINT means insert at point rather than the end.
(defalias 'mail-signature #[(&optional atpoint) #@412 ("\303>\203
0\304	!\204
0\305\306!\205I
0\307\310	\"\207\212\n\204*
0db\210\311\312x\210\312\210`d|\210;\2034
0c\202H
0\313>\203E
0\314c\210\315\316	!!\202H
0\317!)\207" . [mail-signature mail-signature-file atpoint (t nil) file-readable-p called-interactively-p interactive message "The signature file `%s' could not be read" " 	\n" nil (t nil) "\n\n-- \n" insert-file-contents expand-file-name eval])(#$ . 43077) nil 3 (#$ . 42759) "*P"])
#@96 Fill the paragraphs of a message yanked into this one.
Numeric argument means justify as well.
(defalias 'mail-fill-yanked-message #[(&optional justifyp) #@118 ("\212\302 b\210\303`d	$)\207" . [justifyp mail-citation-prefix-regexp mail-text-start fill-individual-paragraphs])(#$ . 43693) nil 5 (#$ . 43532) "P"])
#@316 Modify text just inserted from a message to be cited.
The inserted text should be the region.
When this function returns, the region is again around the modified text.

Normally, indent each nonblank line `mail-indentation-spaces' spaces.
However, if `mail-yank-prefix' is non-nil, insert that prefix on each line.
(defalias 'mail-indent-citation #[nil #@260 ("\303\304 \305 \"\210\204
0\306\304 \305 	#\207\212\307 \305 \310\223\304 b\210`\nW\205.
0c\210\311y\210\202
_
0*\207" . [mail-yank-prefix mail-indentation-spaces end mail-yank-clear-headers region-beginning region-end indent-rigidly make-marker nil 1])(#$ . 44214) nil 4 (#$ . 43854)])
#@351 Insert the message being replied to, if any (in Rmail).
Puts point after the text and mark before.
Normally, indents each nonblank line ARG spaces (default 3).
However, if `mail-yank-prefix' is non-nil, insert that prefix on each line.

Just \[universal-argument] as argument means don't indent, insert no prefix,
and don't delete any header fields.
(defalias 'mail-yank-original #[(arg) #@901 ("\205\271
0`\306\307!\n:\203
0\n@\310=\203
0\nA@\n:\2037
0\311\n@\nA\"\210	\306\307!=\203]
0\312`!\210\202]
0\313\n\307\"\210\310\n!\210\314\315\304!\f\"\203U
0\316\f\317r\nq\210\f)!\"\320`\306\307!\321#\210
:\204\246
0b\210
\203o
0\322
!\202q
0\307\203\226
0\323\212\214d}\210b\210\324 \210`*\"\325\326!\210)\202\245
0\203\242
0\325\327!\210\202\245
0\330 \210*\306\307!\331 `p\223\210b\210l?\205\270
0\332c+\207" . [mail-reply-action omark original start buffer-file-coding-system arg mark t insert-buffer apply push-mark delete-windows-on coding-system-equal default-value coding-system-change-text-conversion coding-system-base set-text-properties nil prefix-numeric-value buffer-substring-no-properties rfc822-goto-eoh run-hooks mail-citation-hook mail-yank-hooks mail-indent-citation mark-marker 10 mail-indentation-spaces mark-even-if-inactive mail-citation-header])(#$ . 44908) nil 4 (#$ . 44513) "P"])
(defalias 'mail-yank-clear-headers #[(start end) #@302 ("	W\203
0\305	\n)\205E
0\212	b\210\306\307\310#\205D
0\214	`}\210	b\210\310\311\305\310#)\205C
0\312 \210`\311\313!\210\314u\210`|\210\202'
0))\207" . [end start temp mail-yank-ignored-headers case-fold-search nil search-forward "\n\n" t re-search-forward beginning-of-line "\n[^ 	]" -1])(#$ . 45901) nil 4])
#@357 Insert the selected region from the message being replied to.
Puts point after the text and mark before.
Normally, indents each nonblank line ARG spaces (default 3).
However, if `mail-yank-prefix' is non-nil, insert that prefix on each line.

Just \[universal-argument] as argument means don't indent, insert no prefix,
and don't delete any header fields.
(defalias 'mail-yank-region #[(arg) #@580 (":\205x
0@\306>\205x
0rA@q\210\307\310!\206
0\311\312p\")\205x
0A@`\310rq\210\313`\307 \")c\210\314\n!\210\f:?\205w
0\f\203H
0\315\f!\202I
0
\203i
0rq\210\313e\212eb\210\316 \210`)\")\317\320!)\202v
0\203t
0\317\321!\202v
0\322 )+\207" . [mail-reply-action mark-even-if-inactive start buffer arg mail-indentation-spaces (rmail-yank-current-message insert-buffer) mark t error "No mark set: %S" buffer-substring-no-properties push-mark prefix-numeric-value rfc822-goto-eoh run-hooks mail-citation-hook mail-yank-hooks mail-indent-citation mail-citation-header])(#$ . 46628) nil 3 (#$ . 46229) "P"])
#@137 Split current line, moving portion beyond point vertically down.
If the current line has `mail-yank-prefix', insert it on the new line.
(defalias 'mail-split-line #[nil #@48 ("\301!\207" . [mail-yank-prefix split-line])(#$ . 47426) nil 2 (#$ . 47251) "*"])
#@73 Insert a file at the end of the buffer, with separator lines around it.
(defalias 'mail-insert-file #[(&optional file) #@334 ("\212db\210n\204
0\303 \210\303 \210`\304\305\306\n\"c\210\307\310\311\312iZ]\"\210\303 \210`\313c\210\314 \210b\210\315\n!\210n\204:
0\303 \210	b+\207" . [middle start file newline nil format "===File %s===" insert-char 61 0 60 "============================================================\n" push-mark insert-file-contents])(#$ . 47642) nil 5 (#$ . 47516) "fAttach file: "])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias mail-attach-file mail-insert-file nil make-obsolete "24.1"] 4)
#@78 Add FILE as a MIME attachment to the end of the mail message being composed.
(defalias 'mail-add-attachment #[(file) #@149 ("\302\303!\206	
0\304\305#\210\306\211\207" . [file mail-encode-mml mml-attach-file mm-default-file-encoding "application/octet-stream" nil t])(#$ . 48284) nil 4 (#$ . 48160) "fAttach file: "])
#@2064 Edit a message to be sent.  Prefix arg means resume editing (don't erase).
When this function returns, the buffer `*mail*' is selected.
The value is t if the message was newly initialized; otherwise, nil.

Optionally, the signature file `mail-signature-file' can be inserted at the
end; see the variable `mail-signature'.

\<mail-mode-map>
While editing message, type \[mail-send-and-exit] to send the message and exit.

Various special commands starting with C-c are available in sendmail mode
to move to message header fields:
\{mail-mode-map}

If `mail-self-blind' is non-nil, a BCC to yourself is inserted
when the message is initialized.

If `mail-default-reply-to' is non-nil, it should be an address (a string);
a Reply-to: field with that address is inserted.

If `mail-archive-file-name' is non-nil, an FCC field with that file name
is inserted.

The normal hook `mail-setup-hook' is run after the message is
initialized.  It can add more default fields to the message.

The first argument, NOERASE, determines what to do when there is
an existing modified `*mail*' buffer.  If NOERASE is nil, the
existing mail buffer is used, and the user is prompted whether to
keep the old contents or to erase them.  If NOERASE has the value
`new', a new mail buffer will be created instead of using the old
one.  Any other non-nil value means to always select the old
buffer without erasing the contents.

The second through fifth arguments,
 TO, SUBJECT, IN-REPLY-TO and CC, specify if non-nil
 the initial contents of those header fields.
 These arguments should not have final newlines.
The sixth argument REPLYBUFFER is a buffer which contains an
 original message being replied to, or else an action
 of the form (FUNCTION . ARGS) which says how to insert the original.
 Or it can be nil, if not replying to anything.
The seventh argument ACTIONS is a list of actions to take
 if/when the message is sent.  Each action looks like (FUNCTION . ARGS);
 when the message is sent, we apply FUNCTION to ARGS.
 This is how Rmail arranges to mark messages `answered'.
(defalias 'mail #[(&optional noerase to subject in-reply-to cc replybuffer actions return-action) #@1196 ("\306=\203
0\307\310\311!!\210\202
_
0\203
0\312\311!\204
0\313\307\311!\210\314\315	!!\316\n!\203-
0\n)\f\2036
0
\203>
0\f\204B
0
\203B
0\317\f!\210\320 \210\313\203R
0\306=\203\247
0\203|
0\321 \203o
0\322\323!\203\247
0\322\324!\203\213
0\325\313!\210\202\213
0\322\326!\203\247
0\325\313!\210\202\213
0\321 \203\207
0\322\327!\202\210
0\330\203\247
0\330
_\331 \210\332 !\"#$%&&\210\330)
\203\265
0\316
!\203\265
0\333\334!\210)\207" . [noerase mail-default-directory dir default-directory auto-save-default buffer-auto-save-file-name new pop-to-buffer-same-window generate-new-buffer "*mail*" get-buffer nil expand-file-name file-name-as-directory file-exists-p auto-save-mode mail-mode buffer-modified-p y-or-n-p "Buffer has unsaved changes; reinitialize it and discard them? " "Disconnect buffer from visited file? " set-visited-file-name "Reinitialize buffer, and disconnect it from the visited file? " "Unsent message being composed; erase it? " t erase-buffer mail-setup message "Auto save file for draft message exists; consider M-x mail-recover" initialized buffer-file-name inhibit-read-only to subject in-reply-to cc replybuffer actions return-action])(#$ . 50659) nil 8 (#$ . 48490) "P"])
#@76 Pop up a list of auto-saved draft messages so you can recover one of them.
(defalias 'mail-recover-1 #[nil #@1491 ("\306 \307\310\211\311G\312\313!G\314#\315	O\316P\317!\204&
0\320\321!\202i
0\322\323!\210\307\324
\325P\"\210)\326\327\307\"\210\212eb\210\330\331!\204J
0\307$\332c\210))\333\334 %\335%\336 \"\210%)!\210\337\336 \340\341#\210\337\336 \342\343#,\207" . [wildcard non-random-len ls-lisp-support-shell-wildcards file-name dired-trivial-filenames dired-listing-switches make-auto-save-file-name t nil - make-temp-name "" 1 0 "*" file-expand-wildcards message "There are no auto-saved drafts to recover" require dired dired-other-window " -t" rename-buffer "*Auto-saved Drafts*" looking-at " Move to the draft file you want to recover," " Move to the draft file you want to recover, then type C-c C-c\n to recover text of message whose composition was interrupted.\n To browse text of a draft, type v on the draft file's line.\n\n You can also delete some of these files;\n type d on a line to mark that file for deletion.\n\n List of possible auto-save files for recovery:\n\n" use-local-map make-sparse-keymap set-keymap-parent current-local-map define-key "v" #[nil "\301\302 )\207" [coding-system-for-read utf-8-emacs-unix dired-view-file] 1 nil nil] "" #[nil "\304 \305\306\307!\210\310\311 \210\312	\310\"\210\313\303!\211+\207" [coding-system-for-read fname buffer-read-only buffer-file-coding-system dired-get-filename utf-8-emacs-unix switch-to-buffer-other-window "*mail*" nil erase-buffer insert-file-contents default-value] 3 nil nil] inhibit-read-only map])(#$ . 52012) nil 4 (#$ . 51897) nil])
#@295 Recover interrupted mail composition from auto-save files.

If the mail buffer has a current valid auto-save file,
the command recovers that file.  Otherwise, it displays a
buffer showing the existing auto-saved draft messages;
you can move to one of them and type C-c C-c to recover that one.
(defalias 'mail-recover #[nil #@993 ("\306\307!\210\310\311!!\312	!\203
0	)\313=\204
0\313 \210\f\211\203x
0\312
!\203x
0\314
 \315P\"!\316 \"r\317\216\320!!\210eb\210\321y\210\322 \210\323\324\325\"!+\326\327\330
\"!\204\\
0\331\332!\202t
0\333#\334$%&\335 \210\336
\333\"\210%\211#+)\202z
0\337 )\207" . [mail-default-directory dir default-directory major-mode buffer-auto-save-file-name file-name switch-to-buffer "*mail*" expand-file-name file-name-as-directory file-exists-p mail-mode dired-noselect " -t" internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) switch-to-buffer-other-window 2 dired-move-to-filename rename-buffer "*Directory*" t yes-or-no-p format "Recover mail draft from auto save file %s? " error "mail-recover cancelled" nil utf-8-emacs-unix erase-buffer insert-file-contents mail-recover-1 dired-listing-switches dispbuf save-selected-window--state buffer-file-coding-system coding-system-for-read buffer-coding buffer-read-only])(#$ . 53877) nil 5 (#$ . 53546) nil])
#@65 Like `mail' command, but display mail buffer in another window.
(defalias 'mail-other-window #[(&optional noerase to subject in-reply-to cc replybuffer sendactions) #@145 ("\306\307!\210\310	\n\f
	&\207" . [noerase to subject in-reply-to cc replybuffer switch-to-buffer-other-window "*mail*" mail sendactions])(#$ . 55084) nil 8 (#$ . 54912) "P"])
#@64 Like `mail' command, but display mail buffer in another frame.
(defalias 'mail-other-frame #[(&optional noerase to subject in-reply-to cc replybuffer sendactions) #@144 ("\306\307!\210\310	\n\f
	&\207" . [noerase to subject in-reply-to cc replybuffer switch-to-buffer-other-frame "*mail*" mail sendactions])(#$ . 55441) nil 8 (#$ . 55271) "P"])
(provide 'sendmail)