Current File : //usr/local/share/emacs/27.2/lisp/mail/sendmail.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; 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\"\210\306\307\310\311\312\313\314\315&\210\316\317\320\321\322DD\323\324\325\326\327&\210\316\330\320\321\331DD\332\326\333\324\334&\210\316\335\320\321\336DD\337\324\340\326\341&\210\342\335\343\341\344$\210\316\345\320\321\346DD\347\326\350\324\325&\210\316\351\320\321\352DD\353\326\350\324\354&\210\316\355\320\321\356DD\357\324\325%\210\316\360\320\321\361DD\362\324\325\326\363&\210\316\364\320\321\365DD\366\324\367\326\363&\210\316\370\320\321\371DD\372\324\373\326\333&\210\316\374\320\321\375DD\376\324\377%\210\201@ \374\201A \201B #\210\316\201C \320\321\201D DD\201E \324\201F %\210\316\201G \320\321\201H DD\201I \324\201J %\210\316\201K \320\321\201L DD\201M \324\201N %\210\316\201O \320\321\201P DD\201Q \324\201R %\210\316\201S \320\321\201T DD\201U \324\201V \201W \201X &\207" [require mail-utils rfc2047 autoload message-make-date "message" custom-declare-group sendmail nil "Mail sending commands for Emacs." :prefix "mail-" :group mail custom-declare-variable mail-setup-with-from funcall function #[0 "\300\207" [t] 1] "Non-nil means insert `From:' field when setting up the message." :type boolean :version "22.1" sendmail-program #[0 "\300\301!\206 \302\303!\203 \303\207\302\304!\203 \304\207\302\305!\203 \305\207\301\207" [executable-find "sendmail" file-exists-p "/usr/sbin/sendmail" "/usr/lib/sendmail" "/usr/ucblib/sendmail"] 2] "Program used to send messages." "24.1" file mail-from-style #[0 "\300\207" [angles] 1] "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)) "27.1" make-obsolete-variable "only the `angles' value is valid according to RFC5322." set mail-specify-envelope-from #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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.\nIf you are using `message-mode' to compose messages, customize the\nvariable `message-default-mail-headers' instead." mail-interactive #[0 "\300\207" [t] 1] "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 #[0 "\300\207" ["^\\(?:in-reply-to\\|m\\(?:ail-\\(?:f\\(?:ollowup-to\\|rom\\)\\|reply-to\\)\\|essage-id\\)\\|origin\\|re\\(?:ceived\\|mailed\\|turn-path\\)\\|s\\(?:tatus\\|u\\(?:bject\\|mmary-line\\)\\)\\|to\\|via\\|x-rmail-\\(?:\\(?:attribute\\|keyword\\)s\\)\\):"] 1] "Delete these headers from old message when it's inserted in a reply." regexp send-mail-function #[0 "\301\300!\203\f \203\f \302\207\303\207" [smtpmail-smtp-server boundp smtpmail-send-it sendmail-query-once] 2] "Function to call to send the current buffer as mail.\nThe headers should be delimited by a line which is\nnot a valid RFC 822 (or later) 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 #[0 "\300\301!\207" [purecopy "--text follows this line--"] 2] "Line used to separate headers from text in messages being composed." string put rear-nonsticky (category) mail-archive-file-name #[0 "\300\207" [nil] 1] "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.\nIf you are using `message-mode' to compose messages, customize the\nvariable `message-default-mail-headers' instead." (choice file (const nil)) mail-default-reply-to #[0 "\300\207" [nil] 1] "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.\nIf you are using `message-mode' to compose messages, customize the\nvariable `message-default-mail-headers' instead." (choice (const nil) string) mail-alias-file #[0 "\300\207" [nil] 1] "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 #[0 "\300\301!\207" [purecopy "~/.mailrc"] 2] "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 #[0 "\300\207" [nil] 1] "Normal hook, run each time a new outgoing message is initialized." hook :options (fortune-to-signature spook mail-abbrevs-setup)] 8)
#@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 (#$ . 7023))
#@74 The modification time of your mail alias file when it was last examined.
(defvar mail-alias-modtime nil (#$ . 7343))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\317%\207" [custom-declare-variable mail-yank-prefix funcall function #[0 "\300\207" [#1="> "] 1 #1#] "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) mail-indentation-spaces #[0 "\300\207" [3] 1] "Number of spaces to insert at the beginning of each cited line.\nUsed by `mail-yank-original' via `mail-indent-citation'." integer mail-citation-hook #[0 "\300\207" [nil] 1] "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." hook] 6)
#@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 (#$ . 8562))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable mail-citation-prefix-regexp funcall function #[0 "\300\301!\207" [purecopy "\\([ ]*\\(\\w\\|[_.]\\)+>+\\|[ ]*[>|]\\)+"] 2] "Regular expression to match a citation prefix plus whitespace.\nIt should match whatever sort of citation prefixes you want to handle,\nwith whitespace before and after; it should also match just whitespace.\nThe default value matches citations like `foo-bar>' plus whitespace." :type regexp :version "24.1"] 8)
(defvar mail-abbrevs-loaded nil)
(defvar mail-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\347#\210\301\350\351\300\351!B#\210\301\352\353#\210\301\354\355#\210\301\356\357#\210\301\360\361#\210\301\362\363#\210\301\364\365#\210\301\366\367#\210\301\370\371#\210\301\372\373\300\374!B#\210\301\375\376#\210\301\377\201@ #\210\301\201A \201B #\210\301\201C \201D #\210\301\201E \201F #\210\301\201G \201H #\210\301\201I \201J #\210\301\201K \201L #\210\301\201M \201N #\210\301\201O \201P #\210\211\207" [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)] 7))
#@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" '(#$ . 11735) t)
(byte-code "\300\301\302\303\304DD\305\306\307%\210\310\301\311\312#\210\300\313\302\303\314DD\315\306\316%\210\300\317\302\303\320DD\321\306\322\323\324&\207" [custom-declare-variable mail-signature funcall function #[0 "\300\207" [t] 1] "Text inserted at end of mail buffer when a message is initialized.\nIf nil, no signature is inserted.\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")) put risky-local-variable t mail-signature-file #[0 "\300\301!\207" [purecopy "~/.signature"] 2] "File containing the text inserted at end of mail buffer." file mail-default-directory #[0 "\300\301!\207" [purecopy "~/"] 2] "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"] 8)
(defvar mail-reply-action nil)
#@73 A list of actions to be performed upon successful sending of a message.
(defvar mail-send-actions nil (#$ . 13314))
(defvar mail-return-action nil)
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\317%\210\300\320\302\303\321DD\322\306\323\324\325&\207" [custom-declare-variable mail-default-headers funcall function #[0 "\300\207" [nil] 1] "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.\nIf you are using `message-mode' to compose messages, customize the\nvariable `message-default-mail-headers' instead." :type (choice (const nil) string) mail-bury-selects-summary #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [mime] 1] "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 #[0 "\300\207" [nil] 1] "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"] 8)
#@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 (#$ . 15214))
(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 "\300 \301\302\303#\210\211\207" [make-syntax-table modify-syntax-entry 37 ". "] 5) (#$ . 15747))
#@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)) (#$ . 15934))
#@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 #[0 "\301=\204 \207\302 \211 \210\303\304!\205 \211\305\300\"\207" [send-mail-function sendmail-query-once sendmail-query-user-about-smtp y-or-n-p "Save this mail sending choice?" customize-save-variable] 4 (#$ . 16718)])
(defalias 'sendmail-query-user-about-smtp #[0 "\302\303\205
\304!\205
\305\306\"B\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320\321\322\"\210\323\324!\325\326\327\330#\323\331!\261\210\203R \304!\203R \323\332!\325\333\327\330#\323\334!\323\335!\261\210\323\332!\325\336\327\330#\323\337!\261\210eb\210\340p!\210\322\341\342\343@@\"\344\345\344\211@&+\262\346\322#A\207" [sendmail-program completion-ignore-case ("mail client" . mailclient-send-it) append executable-find (("transport" . sendmail-send-it)) (("smtp" . smtpmail-send-it)) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 rename-buffer "*Emacs Mail Setup Help*" t substitute-command-keys " 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 format "Send mail via (default %s): " nil require-match assoc-string] 10])
(defalias 'sendmail-sync-aliases #[0 "\205 \303!\3048\262 \232\206 \211\305\211\262\207" [mail-personal-alias-file mail-alias-modtime mail-aliases file-attributes 5 t] 3])
(define-mail-user-agent 'sendmail-user-agent 'sendmail-user-agent-compose 'mail-send-and-exit)
#@121
(fn &optional TO SUBJECT OTHER-HEADERS CONTINUE SWITCH-FUNCTION YANK-ACTION SEND-ACTIONS RETURN-ACTION &rest IGNORED)
(defalias 'sendmail-user-agent-compose #[2176 "\203 \302!\210\303\304\305#A\303\306 \305#A\303\307\n\305#A\310
\f\f\f&\204; \204; \311\312!\210\212\313 \210 \203k \314\n@@\315\"\204c @@\316 @A\203_ \202` \317\261\210 A\262\n\202? \211\203u \320y\210\211c\210)\305\207" [use-hard-newlines hard-newline "*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] 21 (#$ . 18843)])
#@68
(fn TO SUBJECT IN-REPLY-TO CC REPLYBUFFER ACTIONS RETURN-ACTION)
(defalias 'mail-setup #[1799 "\204 \306\307!\310 \210 \311=\203 \312\n\203 \313\n!\203 \314 \210\315\316!\210\317\311!\210 \203/ \320 \210\211&eb\210'\203A \321 \210\322c\210\212\203j \323` (\324\261\210\325d\"\210db\210n\204d \326 \210)\266\202m \326 \210\203\220 \323\327c\210` (\324\261\210\325d\"\210db\210n\204\215 \326 \210)\266\203\266 \323\330` ) (\331\324\261\210\325d\"\210db\210n\204\263 \326 \210*\266\332\206\275 \333\324\261\210*\203\312 *c\210\203\324 \334\324\261\210+\203\340 \335,\324\261\210-\203\354 \336-\324\261\210\337`!\324\261\210`S\340\341$\210\203`\262\"\203 \342\311!\210db\210n\204\326 \210)\203 b\210\2040\2040\2040\343\312!\210\344\345!\207" [mail-default-reply-to mail-aliases mail-personal-alias-file current-input-method mail-send-actions mail-reply-action getenv "REPLYTO" sendmail-sync-aliases t nil file-exists-p build-mail-aliases kill-local-variable buffer-file-coding-system set-buffer-multibyte 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 mail-return-action mail-setup-with-from fill-prefix fill-column mail-default-headers mail-self-blind user-mail-address mail-archive-file-name] 13 (#$ . 19473)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable mail-mode-hook funcall function #[0 "\300\207" [nil] 1] "Hook run by Mail mode.\nWhen composing a mail, this runs immediately after creating, or\nswitching to, the `*mail*' buffer. See also `mail-setup-hook'." :type hook :options (footnote-mode)] 8)
(defvar mail-mode-abbrev-table text-mode-abbrev-table)
(defvar mail-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [mail-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar mail-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" [mail-mode-abbrev-table mail-mode-map variable-documentation put purecopy "Keymap for `mail-mode'." boundp mail-mode-syntax-table definition-name mail-mode (lambda (#1=#:def-tmp-var) (defvar mail-mode-syntax-table #1#)) make-syntax-table "Syntax table for `mail-mode'." (lambda (#1#) (defvar mail-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `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 #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
5=\204R \326
\3255C#\210\327 !\210\330\f!\210
5\306\331!\210\306\332!\210\306\333!\210\306\334!\210\335 \3076\306\336!\210\337 \306\340!\210\306\341!\210\342!\306\343!\210\344#\306\345!\2107%7\203\246 \306\346!\210\347\3507!\351Q&\306\352!\210\353*P*\306\354!\210\355,P,\356\357\360\335\361$\210\3508!\3629Q )\363\364!\207" [delay-mode-hooks major-mode mode-name mail-mode-map mail-mode-syntax-table mail-mode-abbrev-table 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 local-abbrev-table buffer-offer-save mail-yank-prefix mail-header-separator page-delimiter] 5 (#$ . 22496) nil])
#@64 Return the buffer location of the end of headers, as a number.
(defalias 'mail-header-end #[0 "\214~\210\212\300 \210`*\207" [rfc822-goto-eoh] 1 (#$ . 25206)])
#@63 Return the buffer location of the start of text, as a number.
(defalias 'mail-text-start #[0 "\214~\210\212\300 \210\301y\210`*\207" [rfc822-goto-eoh 1] 1 (#$ . 25372)])
#@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 #[0 "\301 \210c\210`\207" [mail-header-separator rfc822-goto-eoh] 1 (#$ . 25549)])
#@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 #[0 "eb\210\301\302\303!\304Q\305\306#\203 \307\304!\210\310 \207" [mail-header-separator re-search-forward "^" regexp-quote "\n" nil t replace-match rfc822-goto-eoh] 4 (#$ . 25818)])
#@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 #[0 "`\300 W\203% \301 \302 \205$ \212\303 \210`=\204\" \304\305!\210\306y\210\202 )\307\207\302 \207" [mail-header-end line-beginning-position do-auto-fill beginning-of-line insert-before-markers " " -1 t] 3 (#$ . 26174)])
#@12
(fn ARG)
(defalias 'mail-mode-fill-paragraph #[257 "`\300 W\205t \301\211\211\302\303\301\304#`\262\203 \305\225S{\227\262\306y\210\307\310!\203/ \311 \210\306y\210\202 \312 \262b\210\211\313\235\203P \314\315\316#\203P \307\310!\204< \317c\210\202< \320#\210b\210\306y\210`W\203l \321c\210\306y\210\202] \301\211\223\210\316\266\203\207" [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 " "] 8 (#$ . 26547)])
#@138 Send message like `mail-send', then, if no errors, exit from mail buffer.
Prefix arg means don't delete this window.
(fn &optional ARG)
(defalias 'mail-send-and-exit #[256 "\300 \210\301!\207" [mail-send mail-bury] 3 (#$ . 27241) "P"])
#@110 Don't send the message you have been editing.
Prefix arg means don't delete this window.
(fn &optional ARG)
(defalias 'mail-dont-send #[256 "\300!\207" [mail-bury] 3 (#$ . 27486) "P"])
#@44 Bury this mail buffer.
(fn &optional ARG)
(defalias 'mail-bury #[256 "\301p!\302p!\210\211\2047 \303 \211\2036 \211@\304\305\"\306=\203/ \204/ \307\310\311!\"\204/ \312D\262A\266\202\202 \210\204H \211\203H \313@A\"\202K \314!\207" [mail-return-action other-buffer bury-buffer buffer-list buffer-local-value major-mode rmail-mode string-match "\\` " buffer-name rmail-mail-return apply switch-to-buffer] 9 (#$ . 27679)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315%\207" [custom-declare-variable mail-send-hook funcall function #[0 "\300\207" [nil] 1] "Hook run just before sending a message." :type hook :options (flyspell-mode-off) mail-mailing-lists #[0 "\300\207" [nil] 1] "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)] 8)
#@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 #[0 "\203\n \306\307!\202 \310 \204 \306\311!\205I\312` \205\" \313\314 \312\"\315Q\316\317!\210\316\320!\210\211\203\224 \212\321\322\323\312#\321\324\323\312#\325\205D \326PP!\327\"\203\221 \321\330!\204{ \331 b\210\332\323C\333\334\335\336\337\340!\341\"\342\343%\344\345\312#\"\210\346\347\242\326#\262\350\261\210\321\351!\204\221 \331 b\210\352\321\353!\206\215 \350\261\210\266)\f\354>\204\276 eb\210\355\323w\210`dU\204\276 \f\356=\203\272 \306\357!\204\276 \360\361!\210\202\276 \360\362!\210eb\210\363\364
!d\312#\210\365\224\206\317 deb\210`W\203\354 \366\367!\204\346 \370!\210\360\371!\210\372y\210\202\322 \210b\210@\203\373 \373 \210\323@\374\375!\210\376\377!\210A \210B\2030\201C 1\"\201D B@@B@A\"0\202&\210\202'\210BA\211B\204\f\376\201E !\210?\205F\201F \323!\210\201G \312!)\266\203\207" [buffer-file-name mail-mailing-lists inhibit-read-only user-mail-address mail-send-nonascii mail-header-separator y-or-n-p "Send buffer contents as mail message? " buffer-modified-p "Message already sent; resend? " t "\\(?:[[:space:];,]\\|\\`\\)" regexp-opt "\\(?:[[:space:];,]\\|\\'\\)" mail-combine-fields "To" "Cc" mail-fetch-field "to" nil "cc" mail-strip-quoted-names ", " string-match "mail-followup-to" mail-header-end "Mail-Followup-To: " mapc make-byte-code 257 "\211\300\242\235?\205 \300\300\242B\240\207" vconcat vector [] 4 "\n\n(fn E)" split-string ",[[:space:]]+" mapconcat identity "\n" "mail-reply-to" "Mail-Reply-To: " "reply-to" (t mime) " -" 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..." mail-encode-mml send-mail-function mail-send-actions (error) apply "Sending...done" set-buffer-modified-p delete-auto-save-file-if-necessary] 16 (#$ . 28628) nil])
#@101 Return the envelope mail address to use when sending mail.
This function uses `mail-envelope-from'.
(defalias 'mail-envelope-from #[0 "\301=\203 \302\303\304!!A@\207\207" [mail-envelope-from header mail-extract-address-components mail-fetch-field "From"] 3 (#$ . 30873)])
#@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 (#$ . 31155))
#@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 (#$ . 31491))
#@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 #[0 "\302 \303\304\305\"\203 \306\262 \204 \307\310\261\202\335 \311=\203$ \303\202\335 \312=\204Z \313=\204\226 \304\314\"\203Z \260\304\315\"\203Q \211\316\224\317I\210\211\316\225S\317I\210\202: \304\320\"\262\203\226 \307\261\210e\321\\\322 b\210\323\314\324#\204s \203\214 b\210\325c\210\323\326\324#\203\211 \327\330\306\"\210\202y \325c\210\266\331\332\261\202\335 \307\333\261\210`\203\244 \325c\210c\210\203\256 \325c\210\322 b\210\323\334\324#\203\303 \327\330\306\"\210\202\263 b\210\323\335\324#\203\331 \327\336\306\"\210b\210\202\306 \266\337c\207" [user-mail-address mail-from-style user-full-name nil string-match "[^ -]" 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"] 9 (#$ . 31984)])
#@199 Offer to combine all FIELD fields in buffer into one FIELD field.
If this finds multiple FIELD fields, it asks the user whether
to combine them into one, and does so if the user says y.
(fn FIELD)
(defalias 'mail-combine-fields #[257 "\300\301\"\302\211\211`d\212\214eb\210e\303 }\210\304\302\305#\205\272 \306y\210\304\307\302\305#\210\310 \210\311 \262\312\305\"\210\304\302\305#\203\266 \204X \214e}\210\212b\210\305\262\313\300\314 \"!\203W \305\262*\2031 \315 \302\211\306y\210\304\307\302\305#\210\310 \210`\262{\262|\210\212b\210\316u\210\317c\210b\210\212\211c\210)\320 !\210\321\322!G\323\324!\210\211S\322\211W\203\256 \211\324c\266\211T\262\202\234 \266)\266\2021 \302\211\223*\207" [format "^%s[ ]*:" nil mail-header-end re-search-forward t 1 "^[^ ]" beginning-of-line point-marker set-marker-insertion-type y-or-n-p "Message contains multiple %s fields. Combine? " line-beginning-position -1 "," looking-at match-string 0 replace-match " "] 15 (#$ . 33167)])
#@146 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.
(fn BEG END)
(defalias 'mail-encode-header #[514 "\214}\210\302 \211\203 \303\304\"\203 \211B\202 \305 \306\307 \210\211\305 U*\266\202)\207" [mm-coding-system-priorities rfc2047-encode-encoded-words select-message-coding-system coding-system-get :mime-charset buffer-chars-modified-tick nil rfc2047-encode-message-header] 6 (#$ . 34181)])
(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 #[0 "\306\307!\210\203 \310\311!\202 \312\313C\310\314! \313\315 \313\211\211p\n\205& \316 \206& \317\312\320\321\322#\323\"\324$\216rq\210\325 \210\204K \326\313!\210\327!\210\330!\210db\210h\331U\204` \331c\210\332 b\210`\313\210`|\210\333 \262\334 \210
\203{ \335e\"\210eb\210\336\337\340#\203\223 `W\203\223 \341\342!\210\202~ eb\210\340 eb\210\336\343\340#\203\327 \214`\212\344y\210\345\346!\203\265 \344y\210\202\251 `)}\210\347\350 \")\262\212\351 \210\345\352!)\203\233 \353 \353\324!|\210\202\233 eb\210\336\354\340#\203\351 \341\355!\210\202\374 \336\356\340#\203\374 \312\225U\203\374 \341\355!\210eb\210\336\357\340#\204\n\360 \210\313\211eb\210\336\361\340#\262eb\210@\362=\203_\336\363\340#\204_\364\313w\210`dU\204_\203_\365\366\"\211\262\203_b\210\367\370\371!\372\261\210\211\203_\211b\210\373 \344y\210`|\210\266Tb\210\374A!\203o\375 \210eb\210\336\376\340#\203\201\340\262\377!\210\203\216r\nq\210\325 \210))\201I e\"\210eb\210\340 \206\246\336\201J \340#)\203O\201K B C\347edD\313\313\201L \257\205\311\201M DE\205\325\201N EPC\203\336F\202\340G \206\350\201O H\205\373\201P \201Q \371H\201R #D&\201S \201T \"\211\203I\211\312=\204I\211\247\203% \340\240\210\201U \201V \"\210\202I\211;\203; \340\240\210\201U \201W \"\210\202I \340\240\210\201U \201X \"\210*\266\202[\204[\201U \201Y !\210\205\224r\nq\210eb\210\336\201Z \313\340#\203z\341\201[ !\210\202g\201\\ \312U?\205\223 \340\240\210\201U \201] ed{\")+\207" [mail-interactive enable-multibyte-characters mail-specify-envelope-from user-mail-address case-fold-search mail-aliases require mail-utils generate-new-buffer " sendmail errors" 0 nil " sendmail temp" select-message-coding-system mail-envelope-from make-byte-code "\303\302!\210\304\300!\205 \301\242\203 \305\300!\207\303\300!\207" vconcat vector [kill-buffer buffer-live-p switch-to-buffer-other-window] 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 "^Subject:\\([ ]*\n\\)+\\b" "" "^Subject:\\([ ]*\n\\)+" "^From:" mail-insert-from-field "^Content-type:" mime "^MIME-version:" " -" 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-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 mail-encode-header "^To:\\|^cc:\\|^bcc:" "/" "-oi" "-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* *" "; " buffer-size "Sending...failed to %s"] 22 (#$ . 34800)])
(autoload 'rmail-output-to-rmail-buffer "rmailout")
#@334 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.
(fn HEADER-END)
(defalias 'mail-do-fcc #[257 "\305!\204\n \306\307!\210\310p\311 \212eb\210\312\313\314\312#\2035 `\310\210\315\310x\210`{B\262\316\224\317y\210`|\210\202 )\320\321!r\211q\210\322\316\323\324\325!\326\"\327$\216\330\331 \332\333!\334\261\210\335u\210\336\335!\210\337\340!\210\341!\332\261\210db\210\342\343 \334\261\210\344!\210db\210\345c\210\327b\210\310\346\330\310\312#\203\220 \347u\210\350c\210\202 )\211\205\222\211@\351!p\310\211ed\212eb\210\327y\210`)\203rq\210\352 ?\205\275 \353!\262\354\301!\205\306 \310\211\203\364 \320\355!\322\316\356\324\325!\357\"\327$\216r\211q\210\344T#\210)\360\"\210)\210\202\214~\210db\210\344#\210)\204\361\362\363 \"!\203\364 \210\312\262)\210)\204w\365!\203c\366!\203c \2060\367 \320\321!r\211q\210\322\316\323\324\325!\370\"\327$\216\371\372 \334\261\210\344#\210\373c\210\374ed \312$\210*\210)\202w\374\365 !\203oe\202qeTd\n\312$\210\203\211\204\211rq\210\375 \210)\266A\266\202\202\222 \262*\262)\207" [case-fold-search rmail-current-message buffer-read-only rmail-file-coding-system coding-system-for-write markerp error "Value of `header-end' must be a marker" nil current-time t re-search-forward "^Fcc:[ ]*" " " 0 1 generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\nFrom " user-login-name " " current-time-string "\n" -1 forward-word-strictly require mail-utils mail-rfc822-time-zone "Date: " message-make-date insert-buffer-substring 10 search-forward -5 62 find-buffer-visiting buffer-modified-p verify-visited-file-modtime boundp " *mail-do-fcc" "\301\300!\207" [kill-buffer] rmail-output-to-rmail-buffer y-or-n-p format "Save file %s? " save-buffer file-exists-p mail-file-babyl-p emacs-mule [buffer-name kill-buffer] "\f\n0, unseen,,\n*** EOOH ***\nDate: " mail-rfc822-date "\n " write-region set-visited-file-modtime] 22 (#$ . 38235)])
#@61 Make a Sent-via header line from each To or Cc header line.
(defalias 'mail-sent-via #[0 "\212\301\302 !\303eb\210\304\305\303#\205/ `\304\306\303#\203! \307u\210\202$ b\210`{\310\311\"\266\202\n )\262)\207" [case-fold-search copy-marker mail-header-end t re-search-forward "^\\(to\\|cc\\):" "^[^ \n]" -1 insert-before-markers "Sent-via:"] 6 (#$ . 40525) 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 #[0 "\300 \210\301\302!\207" [expand-abbrev mail-position-on-field "To"] 2 (#$ . 40976) nil])
#@63 Move point to end of Subject field, creating it if necessary.
(defalias 'mail-subject #[0 "\300 \210\301\302!\207" [expand-abbrev mail-position-on-field "Subject"] 2 (#$ . 41152) nil])
#@58 Move point to end of Cc field, creating it if necessary.
(defalias 'mail-cc #[0 "\300 \210\301\302\303\"\206 \301\304!\210\305c\207" [expand-abbrev mail-position-on-field "cc" t "to" "\nCC: "] 3 (#$ . 41343) nil])
#@59 Move point to end of Bcc field, creating it if necessary.
(defalias 'mail-bcc #[0 "\300 \210\301\302\303\"\206 \301\304!\210\305c\207" [expand-abbrev mail-position-on-field "bcc" t "to" "\nBcc: "] 3 (#$ . 41564) nil])
#@62 Add a new Fcc field, with file name completion.
(fn FOLDER)
(defalias 'mail-fcc #[257 "\300 \210\301\302\303\"\204 \301\304!\210\305\261\207" [expand-abbrev mail-position-on-field "fcc" t "to" "\nFcc: "] 4 (#$ . 41789) "FFolder carbon copy: "])
#@64 Move point to end of Reply-To field, creating it if necessary.
(defalias 'mail-reply-to #[0 "\300 \210\301\302!\207" [expand-abbrev mail-position-on-field "Reply-To"] 2 (#$ . 42044) nil])
#@69 Move point to end of Mail-Reply-To field, creating it if necessary.
(defalias 'mail-mail-reply-to #[0 "\300 \210\301\302\303\"\206 \301\304!\210\305c\207" [expand-abbrev mail-position-on-field "mail-reply-to" t "to" "\nMail-Reply-To: "] 3 (#$ . 42238) nil])
#@72 Move point to end of Mail-Followup-To field, creating it if necessary.
(defalias 'mail-mail-followup-to #[0 "\300 \210\301\302\303\"\206 \301\304!\210\305c\207" [expand-abbrev mail-position-on-field "mail-followup-to" t "to" "\nMail-Followup-To: "] 3 (#$ . 42503) nil])
#@256 Move to the end of the contents of header field FIELD.
If there is no such header, insert one, unless SOFT is non-nil.
If there are multiple FIELD fields, this goes to the first.
Returns non-nil if FIELD was originally present.
(fn FIELD &optional SOFT)
(defalias 'mail-position-on-field #[513 "\301\302\303 \262eb\210\304\305\306!\307Q\302#\203( \304\310\301\311#\210\312 \210\313\301x\210\302\2029 \2048 \211b\210\314\261\210\313\301x\210\301)\207" [case-fold-search nil t mail-header-end re-search-forward "^" regexp-quote ":" "^[^ ]" move beginning-of-line "\n" ": \n"] 7 (#$ . 42781)])
#@40 Move point to beginning of text field.
(defalias 'mail-text #[0 "\300 \210\301 b\207" [expand-abbrev mail-text-start] 1 (#$ . 43387) nil])
#@288 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.
(fn &optional ATPOINT)
(defalias 'mail-signature #[256 "\302>\203 \303 !\204 \304\305!\205I \306\307 \"\207\212\211\204* db\210\310\311x\210\311\210`d|\210;\2034 c\202H \312>\203E \313c\210\314\315 !!\202H \316!)\207" [mail-signature mail-signature-file (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] 4 (#$ . 43533) "*P"])
#@121 Fill the paragraphs of a message yanked into this one.
Numeric argument means justify as well.
(fn &optional JUSTIFYP)
(defalias 'mail-fill-yanked-message #[256 "\212\301 b\210\302`d$)\207" [mail-citation-prefix-regexp mail-text-start fill-individual-paragraphs] 6 (#$ . 44274) "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 #[0 "\302\303 \304 \"\210\204 \305\303 \304 #\207\212\306 \304 \307\223\303 b\210`W\205- c\210\310y\210\202 \262)\207" [mail-yank-prefix mail-indentation-spaces mail-yank-clear-headers region-beginning region-end indent-rigidly make-marker nil 1] 4 (#$ . 44568)])
#@361 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.
(fn ARG)
(defalias 'mail-yank-original #[257 "\205\246 `\306\307!:\203 @\310=\203 A@\262:\2034 \311@A\"\210\211\306\307!=\203Z \312 \210\202Z \313\307\"\210\310!\210\314\315\301! \"\203R \316 \317rq\210 )!\"\320`\306\307!\321#\210:\204\222 b\210\203l \322!\202m \n\307\f\203\216 \323\212\214d}\210b\210\324 \210`*\" \325\304!\210)\202\221 \326 \210*\306\307!\327 `p\223\210b\210l?\205\244 \330c\266\203\207" [mail-reply-action buffer-file-coding-system mail-indentation-spaces mark-even-if-inactive mail-citation-hook mail-citation-header 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-indent-citation mark-marker 10] 8 (#$ . 45193) "P"])
#@18
(fn START END)
(defalias 'mail-yank-clear-headers #[514 "\211W\203 \302\262\262\262\205E \212b\210\303\304\305#\205D \214`}\210b\210\305\306\302\305#)\205C \307 \210`\306\310!\210\311u\210`|\210\202' ))\207" [mail-yank-ignored-headers case-fold-search nil search-forward "\n\n" t re-search-forward beginning-of-line "\n[^ ]" -1] 6 (#$ . 46418)])
#@367 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.
(fn ARG)
(defalias 'mail-yank-region #[257 ":\205k @\305>\205k rA@q\210\306\307!\206 \310\311p\")\205k A@`\307rq\210\312`\306 \")c\210\313!\210:?\205h \203F \314!\202G \n \203e rq\210\312e\212eb\210\315 \210`)\") \316\303!)\202g \317 ))\266\202\207" [mail-reply-action mark-even-if-inactive mail-indentation-spaces mail-citation-hook mail-citation-header (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-indent-citation] 6 (#$ . 46788) "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 #[0 "\301!\207" [mail-yank-prefix split-line] 2 (#$ . 47725) "*"])
#@94 Insert a file at the end of the buffer, with separator lines around it.
(fn &optional FILE)
(defalias 'mail-insert-file #[256 "\212db\210n\204 \300 \210\300 \210`\301\302\303\"c\210\304\305\306\307iZ]\"\210\300 \210`\262\310c\210\311 \210\211b\210\312!\210n\2049 \300 \210b\266\202)\207" [newline nil format "===File %s===" insert-char 61 0 60 "============================================================\n" push-mark insert-file-contents] 8 (#$ . 47962) "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)
#@89 Add FILE as a MIME attachment to the end of the mail message being composed.
(fn FILE)
(defalias 'mail-add-attachment #[257 "\301\302!\206 \303\304#\210\305\211\207" [mail-encode-mml mml-attach-file mm-default-file-encoding "application/octet-stream" nil t] 5 (#$ . 48578) "fAttach file: "])
#@2148 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'.
(fn &optional NOERASE TO SUBJECT IN-REPLY-TO CC REPLYBUFFER ACTIONS RETURN-ACTION)
(defalias 'mail #[2048 "\306=\203 \307\310\311!!\210\202\" \203 \312\311!\204 \313\262\307\311!\210\314\315!!\316!\203/ \211\210\n\2038 \203@ \n\204D \203D \317\n!\210\320 \210\313\203T \306=\203\247 \f\203} \321 \203p \322\323!\203\247 \322\324!\203\214 \325\313!\210\202\214 \322\326!\203\247 \325\313!\210\202\214 \321 \203\210 \322\327!\202\211 \330\203\247 \330 \331 \210\332&\210\330\262) \203\265 \316 !\203\265 \333\334!\210\211\207" [mail-default-directory default-directory auto-save-default buffer-auto-save-file-name buffer-file-name inhibit-read-only 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"] 17 (#$ . 48883) "P"])
#@76 Pop up a list of auto-saved draft messages so you can recover one of them.
(defalias 'mail-recover-1 #[0 "\304 \305\306\211\307G\310\311!G\312#\262\313\314#\315P\262\316!\204' \317\320!\202f \321\322!\210\305\323\n\324P\"\210)\325\326\305\"\210\212eb\210\327\330!\204J \305\331c\210))\332\333 \334\335 \"\210\211\262!\210\336\335 \337\340#\210\336\335 \341\342#)\207" [ls-lisp-support-shell-wildcards dired-trivial-filenames dired-listing-switches inhibit-read-only make-auto-save-file-name t nil - make-temp-name "" 1 substring 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" #[0 "\301\302 )\207" [coding-system-for-read utf-8-emacs-unix dired-view-file] 1 nil nil] "" #[0 "\303 \304\305\306!\210\307\310 \210\311\307\"\210\312\302!\211*\207" [coding-system-for-read 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] 4 nil nil]] 9 (#$ . 52175) 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 #[0 "\306\307!\210\310\311!!\312!\203 \211\210\n\313=\204 \313 \210 \211\203z \312!\203z \314\f\315P\"\316 r\317\320\321\322\323!\324\"\325$\216\326!\210eb\210\325y\210\327 \210\330\331\332\"\262*\210\333\334\335\"!\204_ \336\337!\202u \340
\341 % &\342 \210\343\340\"\210\211\211*\266\202\262\202| \344 \207" [mail-default-directory default-directory major-mode buffer-auto-save-file-name dired-listing-switches buffer-file-coding-system switch-to-buffer "*mail*" expand-file-name file-name-as-directory file-exists-p mail-mode dired-noselect " -t" internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 switch-to-buffer-other-window dired-move-to-filename rename-buffer "*Directory*" t yes-or-no-p format "Recover mail draft from auto save file %s? " error "mail-recover canceled" nil utf-8-emacs-unix erase-buffer insert-file-contents mail-recover-1 coding-system-for-read buffer-read-only] 9 (#$ . 53765) nil])
#@139 Like `mail' command, but display mail buffer in another window.
(fn &optional NOERASE TO SUBJECT IN-REPLY-TO CC REPLYBUFFER SENDACTIONS)
(defalias 'mail-other-window #[1792 "\300\301!\210\302&\207" [switch-to-buffer-other-window "*mail*" mail] 15 (#$ . 55092) "P"])
#@138 Like `mail' command, but display mail buffer in another frame.
(fn &optional NOERASE TO SUBJECT IN-REPLY-TO CC REPLYBUFFER SENDACTIONS)
(defalias 'mail-other-frame #[1792 "\300\301!\210\302&\207" [switch-to-buffer-other-frame "*mail*" mail] 15 (#$ . 55381) "P"])
(provide 'sendmail)
Mini Shell