| Current Path : /usr/share/emacs/24.3/lisp/gnus/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/gnus/message.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:14 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/message.el
;;; in Emacs version 24.3.1
;;; 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!\204
\302\301\303\304B\"\210\305\306!\210\305\307!\210\305\310!\210\305\311!\210\305\312!\210\305\313!\210\305\314!\210\305\315!\210\316\317\320\"\210\321\322\323\324\325\326\327\330\327\331& \210\332\333\334\335#\210\332\336\334\335#\210\321\337\340\341\325\342\327\322&\210\321\343\340\344\325\345\327\322&\210\321\346\340\347\325\350\327\322&\210\321\351\340\352\325\353\327\322&\210\321\354\340\355\325\356\327\351&\210\321\357\340\360\325\361\327\322&\210\321\362\340\363\325\364\327\322&\210\321\365\340\366\327\322%\210\321\367\340\370\327\322%\210\321\371\340\372\327\322\327\373&\210\374\375\376\377\327\337\201@ \201A &\210\374\201B \201C \201D \327\343\201@ \201E &\210\374\201F \340\201G \327\343\201@ \201H &\210\374\201I \201J \201K \201@ \201L \327\346&\210\374\201M \340\201N \201O \201P \201@ \201Q \327\346& \210\374\201R \201S \201T \327\346\201@ \201U &\210\374\201V \201W \201X \327\351\201@ \201Y &\210\374\201Z \201[ \201\\ \201O \201] \201@ \201^ \327\362& \210\374\201_ \201` \201a \201O \201P \327\362\201@ \201Q & \210\374\201b \201c \201d \327\365\201@ \201e &\210\374\201f \201g \201h \201O \201P \327\365\327\362\325\201i \201@ \201j &
\210\374\201k \201l \201m \201O \201P \327\365\327\362\325\201n \201@ \201o &
\210\374\201p \201q \201r \327\365\327\362\325\201s \201@ \201t & \210\374\201u \201v \201w \327\367\327\362\325\201x \201@ \201y & \210\374\201z \340\201{ \201O \201| \327\367\327\362\325\201} \201@ \201~ &
\210\374\201 \201\200 \201\201 \327\362\325\201\202 \201@ \201\203 & \210\374\201\204 \201\205 \201\206 \327\365\327\362\325\201\207 \201@ \201\210 & \210\374\201\211 \201\212 \201\213 \327\367\327\362\325\201\214 \201@ \201Y & \210\374\201\215 \201\216 \201\217 \327\351\325\201\220 \201@ \201\221 & \210\374\201\222 \201\223 \201\224 \327\337\325\201\225 \201@ \201Y & \210\374\201\226 \201` \201\227 \201O \201| \201@ \201\230 \325\201\231 \327\337& \210\374\201\232 \201\233 \201\234 \201O \201P \327\337\325\201\235 \201@ \201Y & \210\374\201\236 \201\237 \201\240 \201O \201P \327\337\325\201\241 \201@ \201Y & \210\374\201\242 \201\243 \201\244 \201O \201P \201@ \335\325\201\245 \327\337& \210\374\201\246 \201\247 \201\250 \201O \201P \201@ \335\325\201\251 \327\337& \210\374\201\252 \201\253 \201\254 \201O \201P \201@ \335\325\201\255 \327\337& \210\374\201\256 \201\257 \201\260 \201O \201P \201@ \201\261 \325\201\262 \327\337& \207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require mailheader gmm-utils mail-utils mailabbrev mail-parse mml rfc822 format-spec autoload mailclient-send-it "mailclient" custom-declare-group message ((user-mail-address custom-variable) (user-full-name custom-variable)) "Mail and news message composing." :link (custom-manual "(message)Top") :group mail news put user-mail-address custom-type string user-full-name message-various nil "Various Message Variables." (custom-manual "(message)Various Message Variables") message-buffers "Message Buffers." (custom-manual "(message)Message Buffers") message-sending "Message Sending." (custom-manual "(message)Sending Variables") message-interface "Message Interface." (custom-manual "(message)Interface") message-forwarding "Message Forwarding." (custom-manual "(message)Forwarding") message-insertion "Message Insertion." (custom-manual "(message)Insertion") message-headers "Message Headers." (custom-manual "(message)Message Headers") message-news "Composing News Messages." message-mail "Composing Mail Messages." message-faces "Faces used for message composing." faces custom-declare-variable message-directory "~/Mail/" "*Directory from which all other mail file variables are derived." :type directory message-max-buffers 10 "*How many buffers to keep before starting to kill them off." integer message-send-rename-function "Function called to rename the buffer after sending it." (choice function (const nil)) message-fcc-handler-function 'message-output "*A function called to save outgoing articles.\nThis function will be called with the name of the file to store the\narticle in. The default function is `message-output' which saves in Unix\nmailbox format." (radio (function-item message-output) (function :tag "Other")) message-fcc-externalize-attachments "If non-nil, attachments are included as external parts in Fcc copies." :version "22.1" boolean message-courtesy-message "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n" "*This is inserted at the start of a mailed copy of a posted message.\nIf the string contains the format spec \"%s\", the Newsgroups\nthe article has been posted to will be inserted there.\nIf this variable is nil, no such courtesy message will be added." (radio string (const nil)) message-ignored-bounced-headers "^\\(Received\\|Return-Path\\|Delivered-To\\):" "*Regexp that matches headers to be removed in resent bounced mail." regexp message-from-style mail-from-style "Specifies how \"From\" headers 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." "23.2" (choice (const :tag "simple" nil) (const parens) (const angles) (const default)) message-insert-canlock t "Whether to insert a Cancel-Lock header in news postings." message-syntax-checks (if message-insert-canlock '((sender . disabled)) nil) "*Controls what syntax checks should not be performed on outgoing posts.\nTo disable checking of long signatures, for instance, add\n `(signature . disabled)' to this list.\n\nDon't touch this variable unless you really know what you're doing.\n\nChecks include `approved', `bogus-recipient', `continuation-headers',\n`control-chars', `empty', `existing-newsgroups', `from', `illegible-text',\n`invisible-text', `long-header-lines', `long-lines', `message-id',\n`multiple-headers', `new-text', `newsgroups', `quoting-style',\n`repeated-newsgroups', `reply-to', `sender', `sendsys', `shoot',\n`shorten-followup-to', `signature', `size', `subject', `subject-cmsg'\nand `valid-newsgroups'." (repeat sexp) message-required-headers '((optional . References) From) "*Headers to be generated or prompted for when sending a message.\nAlso see `message-required-news-headers' and\n`message-required-mail-headers'." (custom-manual "(message)Message Headers") (repeat sexp) message-draft-headers '(References From Date) "*Headers to be generated when saving a draft message." (custom-manual "(message)Message Headers") (repeat sexp) message-required-news-headers '(From Newsgroups Subject Date Message-ID (optional . Organization) (optional . User-Agent)) "*Headers to be generated or prompted for when posting an article.\nRFC977 and RFC1036 require From, Date, Newsgroups, Subject,\nMessage-ID. Organization, Lines, In-Reply-To, Expires, and\nUser-Agent are optional. If you don't want message to insert some\nheader, remove it from this list." (custom-manual "(message)Message Headers") (repeat sexp) message-required-mail-headers '(From Subject Date (optional . In-Reply-To) Message-ID (optional . User-Agent)) "*Headers to be generated or prompted for when mailing a message.\nIt is recommended that From, Date, To, Subject and Message-ID be\nincluded. Organization and User-Agent are optional." (custom-manual "(message)Message Headers") (repeat sexp) message-prune-recipient-rules "Rules for how to prune the list of recipients when doing wide replies.\nThis is a list of regexps and regexp matches." "24.1" (custom-manual "(message)Wide Reply") (repeat regexp) message-deletable-headers '(Message-ID Date Lines) "Headers to be deleted if they already exist and were generated by message previously." (custom-manual "(message)Message Headers") sexp message-ignored-news-headers "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:" "*Regexp of headers to be removed unconditionally before posting." (custom-manual "(message)Message Headers") (repeat :value-to-internal (lambda (widget value) (custom-split-regexp-maybe value)) :match (lambda (widget value) (or (stringp value) (widget-editable-list-match widget value))) regexp) message-ignored-mail-headers "^\\([GF]cc\\|Resent-Fcc\\|Xref\\|X-Draft-From\\|X-Gnus-Agent-Meta-Information\\):" "*Regexp of headers to be removed unconditionally before mailing." (custom-manual "(message)Mail Headers") message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|^X-Trace:\\|^X-ID:\\|^X-Complaints-To:\\|Return-Path:\\|^Supersedes:\\|^NNTP-Posting-Date:\\|^X-Trace:\\|^X-Complaints-To:\\|^Cancel-Lock:\\|^Cancel-Key:\\|^X-Hashcash:\\|^X-Payment:\\|^Approved:\\|^Injection-Date:\\|^Injection-Info:" "*Header lines matching this regexp will be deleted before posting.\nIt's best to delete old Path and Date headers before posting to avoid\nany confusion." (custom-manual "(message)Superseding") (repeat :value-to-internal (lambda (widget value) (custom-split-regexp-maybe value)) :match (lambda (widget value) (or (stringp value) (widget-editable-list-match widget value))) regexp) message-subject-re-regexp "^[ ]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ ]*\\)*[ ]*" "*Regexp matching \"Re: \" in the subject line." (custom-manual "(message)Message Headers") message-subject-trailing-was-query "*What to do with trailing \"(was: <old subject>)\" in subject lines.\nIf nil, leave the subject unchanged. If it is the symbol `ask', query\nthe user what do do. In this case, the subject is matched against\n`message-subject-trailing-was-ask-regexp'. If\n`message-subject-trailing-was-query' is t, always strip the trailing\nold subject. In this case, `message-subject-trailing-was-regexp' is\nused." (choice (const :tag "never" nil) (const :tag "always strip" t) (const ask)) (custom-manual "(message)Message Headers") message-subject-trailing-was-ask-regexp "[ ]*\\([[(]+[Ww][Aa][Ss]:?[ ]*.*[])]+\\)" "*Regexp matching \"(was: <old subject>)\" in the subject line.\n\nThe function `message-strip-subject-trailing-was' uses this regexp if\n`message-subject-trailing-was-query' is set to the symbol `ask'. If\nthe variable is t instead of `ask', use\n`message-subject-trailing-was-regexp' instead.\n\nIt is okay to create some false positives here, as the user is asked." (custom-manual "(message)Message Headers") message-subject-trailing-was-regexp "[ ]*\\((*[Ww][Aa][Ss]:[ ]*.*)\\)" "*Regexp matching \"(was: <old subject>)\" in the subject line.\n\nIf `message-subject-trailing-was-query' is set to t, the subject is\nmatched against `message-subject-trailing-was-regexp' in\n`message-strip-subject-trailing-was'. You should use a regexp creating very\nfew false positives here." (custom-manual "(message)Message Headers") message-mark-insert-begin "--8<---------------cut here---------------start------------->8---\n" "How to mark the beginning of some inserted text." (custom-manual "(message)Insertion Variables") message-mark-insert-end "--8<---------------cut here---------------end--------------->8---\n" "How to mark the end of some inserted text." (custom-manual "(message)Insertion Variables") message-archive-header "X-No-Archive: Yes\n" "Header to insert when you don't want your article to be archived.\nArchives (such as groups.google.com) respect this header." (custom-manual "(message)Header Commands") message-archive-note "X-No-Archive: Yes - save http://groups.google.com/" "Note to insert why you wouldn't want this posting archived.\nIf nil, don't insert any text in the body." (radio string (const nil)) (custom-manual "(message)Header Commands")] 14)
#@43 Old target for cross-posts or follow-ups.
(defvar message-cross-post-old-target nil (#$ . 12400))
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313& \210\302\314\315\316\306\307\310\317\312\313& \210\302\320\321\322\306\307\310\317\312\313& \210\302\323\324\325\306\307\310\326\312\313& \210\302\327\330\331\310\332\306\333\334\335\312\313& \210\302\336\337\340\310\317\334\341\312\313& \210\302\342\343\344\306\345\312\346\312\347\334\350\310\311&
\210\302\351\352\353\312\346\312\347\306\354\334\355\310\311&
\210\302\356\357\360\306\361\312\362\334\363\310\364& \210\302\365\352\366\312\362\334\367\310\311& \210\302\370\304\371\306\354\312\362\310\311& \210\302\372\373\374\312\375\310\376&\210\302\377\201@ \201A \310\201B \334\201C \312\375& \210\302\201D \201E \201F \312\201G \334\201H \310\201I & \210\302\201J \304\201K \306\201L \312\201G \334\201M \310\311& \210\302\201N \201O \201P \306\201L \312\201G \310\201Q & \210\302\201R \304\201S \312\201G \310\311&\210\302\201T \352\201U \312\201G \334\201V \310\311& \210\302\201W \201X \201Y \312\201Z \334\201[ \310\201\\ & \210\302\201] \201^ \201_ \306\201L \312\201G \310\201` & \210\302\201a \201b \201c \312\201d \334\201e \310\201f & \210\302\201g \201h \201i \306\361\312\201d \334\201j \310\201f \201k \201l &
\210\302\201m \201n \201o \312\201Z \334\201p \310\317& \207" [make-variable-buffer-local message-cross-post-old-target custom-declare-variable message-cross-post-default t "When non-nil `message-cross-post-followup-to' will perform a crosspost.\nIf nil, `message-cross-post-followup-to' will only do a followup. Note that\nyou can explicitly override this setting by calling\n`message-cross-post-followup-to' with a prefix." :version "22.1" :type boolean :group message-various message-cross-post-note "Crosspost & Followup-To: " "Note to insert before signature to notify of cross-post and follow-up." string message-followup-to-note "Followup-To: " "Note to insert before signature to notify of follow-up only." message-cross-post-note-function 'message-cross-post-insert-note "Function to use to insert note about Crosspost or Followup-To.\nThe function will be called with four arguments. The function should not only\ninsert a note, but also ensure old notes are deleted. See the documentation\nfor `message-cross-post-insert-note'." function message-signature-separator "^-- $" "Regexp matching the signature separator.\nThis variable is used to strip off the signature from quoted text\nwhen `message-cite-function' is\n`message-cite-original-without-signature'. Most useful values\nare \"^-- $\" (strict) and \"^-- *$\" (loose; allow missing\nwhitespace)." (choice (const :tag "strict" "^-- $") (const :tag "loose" "^-- *$") regexp) "22.3" :link (custom-manual "(message)Various Message Variables") message-elide-ellipsis "\n[...]\n\n" "*The string which is inserted for elided text.\nThis is a format-spec string, and you can use %l to say how many\nlines were removed, and %c to say how many characters were\nremoved." (custom-manual "(message)Various Commands") message-interactive mail-interactive "Non-nil means when sending a message wait for and display errors.\nA value of nil means let mailer mail back a message to report errors." "23.2" message-sending message-mail (custom-manual "(message)Sending Variables") message-confirm-send nil "When non-nil, ask for confirmation when sending a message." "23.1" (custom-manual "(message)Sending Variables") message-generate-new-buffers 'unsent "*Say whether to create a new message buffer to compose a message.\nValid values include:\n\nnil\n Generate the buffer name in the Message way (e.g., *mail*, *news*,\n *mail to whom*, *news on group*, etc.) and continue editing in the\n existing buffer of that name. If there is no such buffer, it will\n be newly created.\n\n`unique' or t\n Create the new buffer with the name generated in the Message way.\n\n`unsent'\n Similar to `unique' but the buffer name begins with \"*unsent \".\n\n`standard'\n Similar to nil but the buffer name is simpler like *mail message*.\n\nfunction\n If this is a function, call that function with three parameters:\n The type, the To address and the group name (any of these may be nil).\n The function should return the new buffer name." "24.1" message-buffers (custom-manual "(message)Message Buffers") (choice (const nil) (sexp :tag "unique" :format "unique\n" :value unique :match (lambda (widget value) (memq value '(unique t)))) (const unsent) (const standard) (function :format "\n %{%t%}: %v")) message-kill-buffer-on-exit "*Non-nil means that the message buffer will be killed after sending a message." (custom-manual "(message)Message Buffers") message-kill-buffer-query "*Non-nil means that killing a modified message buffer has to be confirmed.\nThis is used by `message-kill-buffer'." message-user-organization (or (getenv "ORGANIZATION") t) "String to be used as an Organization header.\nIf t, use `message-user-organization-file'." message-headers (choice string (const :tag "consult file" t)) message-user-organization-file (let (orgfile) (dolist (f (list "/etc/organization" "/etc/news/organization" "/usr/lib/news/organization")) (when (file-readable-p f) (setq orgfile f))) orgfile) "*Local news organization file." file (custom-manual "(message)News Headers") message-make-forward-subject-function #'message-forward-subject-name-subject "*List of functions called to generate subject headers for forwarded messages.\nThe subject generated by the previous function is passed into each\nsuccessive function.\n\nThe provided functions are:\n\n* `message-forward-subject-author-subject' Source of article (author or\n newsgroup), in brackets followed by the subject\n* `message-forward-subject-name-subject' Source of article (name of author\n or newsgroup), in brackets followed by the subject\n* `message-forward-subject-fwd' Subject of article with 'Fwd:' prepended\n to it." message-forwarding (custom-manual "(message)Forwarding") (radio (function-item message-forward-subject-author-subject) (function-item message-forward-subject-fwd) (function-item message-forward-subject-name-subject) (repeat :tag "List of functions" function)) message-forward-as-mime "*Non-nil means forward messages as an inline/rfc822 MIME section.\nOtherwise, directly inline the old message in the forwarded message." "21.1" (custom-manual "(message)Forwarding") message-forward-show-mml 'best "*Non-nil means show forwarded messages as MML (decoded from MIME).\nOtherwise, forwarded messages are unchanged.\nCan also be the symbol `best' to indicate that MML should be\nused, except when it is a bad idea to use MML. One example where\nit is a bad idea is when forwarding a signed or encrypted\nmessage, because converting MIME to MML would invalidate the\ndigital signature." (choice (const :tag "use MML" t) (const :tag "don't use MML " nil) (const :tag "use MML when appropriate" best)) message-forward-before-signature "*Non-nil means put forwarded message before signature, else after." message-wash-forwarded-subjects "*Non-nil means try to remove as much cruft as possible from the subject.\nDone before generating the new subject of a forward." (custom-manual "(message)Forwarding") message-ignored-resent-headers "^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From \\|^Delivered-To:" "*All headers that match this regexp will be deleted when resending a message." message-interface (custom-manual "(message)Resending") (repeat :value-to-internal (lambda (widget value) (custom-split-regexp-maybe value)) :match (lambda (widget value) (or (stringp value) (widget-editable-list-match widget value))) regexp) message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus" "*All headers that match this regexp will be deleted when forwarding a message." (repeat :value-to-internal (lambda (widget value) (custom-split-regexp-maybe value)) :match (lambda (widget value) (or (stringp value) (widget-editable-list-match widget value))) regexp) message-ignored-cited-headers "." "*Delete these headers from the messages you yank." message-insertion (custom-manual "(message)Insertion Variables") regexp message-cite-prefix-regexp mail-citation-prefix-regexp "*Regexp matching the longest possible citation prefix on a line." (custom-manual "(message)Insertion Variables") :set #[(symbol value) "\303 \"\304\302!\203 \305 \306Q\207" [symbol value gnus-message-cite-prefix-regexp custom-set-default boundp "^\\(?:" "\\)"] 4] message-cancel-message "I am canceling my own article.\n" "Message to be inserted in the cancel message." (custom-manual "(message)Canceling News")] 14)
#@70 Return suitable value for the variable `message-send-mail-function'.
(defalias 'message-send-mail-function #[nil "\302\303!\203 \304\300!\203 \203 \305!\203 \306\207\307\310!\203* \304\301!\203* \203* \311\207\307\312!\2032 \313\207\314\315!\207" [sendmail-program smtpmail-default-smtp-server require sendmail boundp executable-find message-send-mail-with-sendmail locate-library "smtpmail" message-smtpmail-send-it "mailclient" message-send-mail-with-mailclient error "Don't know how to send mail. Please customize `message-send-mail-function'"] 2 (#$ . 21068)])
(defalias 'message-default-send-mail-function #[nil "\301=\203 \302\207\303=\203 \303\207\304=\203 \304\207\305=\203 \306\207\307 \207" [send-mail-function smtpmail-send-it message-smtpmail-send-it feedmail-send-it sendmail-query-once mailclient-send-it message-send-mail-with-mailclient message-send-mail-function] 2])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\306\316&\210\300\317\320\321\306\307\306\322\314\323\304\324& \210\300\325\326\327\306\330\314\331\304\332& \210\300\333\326\327\306\330\314\334\304\335& \210\300\336\326\327\306\330\314\337\304\340& \210\300\341\326\342\306\307\304\343&\210\300\344\345\346\306\330\314\347\304\350& \210\300\351\352\353\310\354\306\330\314\355\304\356& \210\300\357\326\360\310\354\306\330\314\361\304\362& \210\300\363\326\364\310\354\306\330\314\365\304\366& \210\300\367\326\370\310\354\306\330\314\371\304\372& \210\300\373\326\374\310\354\306\330\314\375\304\376& \210\300\377\201@ \201A \310\354\306\330\314\201B \304\201C & \210\300\201D \326\201E \306\307\314\201F \304\201G & \210\300\201H \201I \201J \310\311\304\201K \314\201L \306\307& \210\300\201M \326\201N \310\201O \304\201P \306\307& \210\300\201Q \201R \201S \306\307\314\201T \304\201U & \210\300\201V \326\201W \306\307\314\201X \304\201Y & \210\300\201Z \201[ \201\\ \306\322\306\307\304\201] & \210\300\201^ \326\201_ \306\201` \314\201a \304\201b & \210\300\201c \201d \201e \306\201f \304\201g &\210\300\201h \326\201i \306\201f \314\201j \304\201k & \210\300\201l \326\201m \306\201f \314\201n \304\201k & \210\300\201o \326\201p \306\201f \314\201q \304\201k & \210\300\201r \326\201s \306\201f \304\201k &\210\300\201t \326\201u \306\201f \304\201k &\210\300\201v \326\201w \306\201f \314\201x \304\201k & \210\300\201y \201z \201{ \310\354\306\201f &\210\300\201| \201} \201~ \304\201 \314\201\200 \306\201\201 & \210\300\201\202 \201\203 \201\204 \304\201\205 \314\201\206 \310\201O \306\201\201 & \210\300\201\207 \201\210 \201\211 \310\311\304\201\212 \314\201\213 \306\201\201 & \210\300\201\214 \201\215 \201\216 \310\354\304\201\212 \314\201\217 \306\201\201 & \210\300\201\220 \201\215 \201\221 \310\354\304\201\212 \314\201\222 \306\201\201 & \210\300\201\223 \201\224 \201\225 \310\311\306\201\201 \314\201\226 \304\201\227 & \210\300\201\230 \201\231 \201\232 \304\201\233 \314\201\234 \310\201\235 \306\201\201 & \210\300\201\236 \201\237 \201\240 \304\324\314\201\241 \306\201\201 & \210\300\201\242 \201\243 \201\244 \310\311\304\201] \314\201\245 \306\201\201 & \210\300\201\246 \201\247 \201\250 \310\311\304\201\251 \314\201\252 \306\201\201 & \210\300\201\253 \326\201\254 \304\201\255 \314\201\256 \306\201\201 & \210\300\201\257 \201\260 \201\261 \310\354\304\201G \314\201\262 \306\201\201 & \210\300\201\263 \201\264 \201\265 \310\201\266 \304\201\267 \306\201\201 & \210\300\201\270 \326\201\271 \310\201\266 \306\201\201 \304\201\272 & \207" [custom-declare-variable message-send-mail-function (message-default-send-mail-function) "Function to call to send the current buffer as mail.\nThe headers should be delimited by a line whose contents match the\nvariable `mail-header-separator'.\n\nValid values include `message-send-mail-with-sendmail'\n`message-send-mail-with-mh', `message-send-mail-with-qmail',\n`message-smtpmail-send-it', `smtpmail-send-it',\n`feedmail-send-it' and `message-send-mail-with-mailclient'. The\ndefault is system dependent and determined by the function\n`message-send-mail-function'.\n\nSee also `send-mail-function'." :type (radio (function-item message-send-mail-with-sendmail) (function-item message-send-mail-with-mh) (function-item message-send-mail-with-qmail) (function-item message-smtpmail-send-it) (function-item smtpmail-send-it) (function-item feedmail-send-it) (function-item message-send-mail-with-mailclient :tag "Use Mailclient package") (function :tag "Other")) :group message-sending :version "23.2" :initialize custom-initialize-default :link (custom-manual "(message)Mail Variables") message-mail message-send-news-function 'message-send-news "Function to call to send the current buffer as news.\nThe headers should be delimited by a line whose contents match the\nvariable `mail-header-separator'." message-news (custom-manual "(message)News Variables") function message-reply-to-function nil "If non-nil, function that should return a list of headers.\nThis function should pick out addresses from the To, Cc, and From headers\nand respond with new To and Cc headers." message-interface (custom-manual "(message)Reply") (choice function (const nil)) message-wide-reply-to-function (custom-manual "(message)Wide Reply") (choice function (const nil)) message-followup-to-function (custom-manual "(message)Followup") (choice function (const nil)) message-extra-wide-headers "If non-nil, a list of additional address headers.\nThese are used when composing a wide reply." (repeat string) message-use-followup-to 'ask "*Specifies what to do with Followup-To header.\nIf nil, always ignore the header. If it is t, use its value, but\nquery before using the \"poster\" value. If it is the symbol `ask',\nalways query the user whether to use the value. If it is the symbol\n`use', always use the value." (custom-manual "(message)Followup") (choice (const :tag "ignore" nil) (const :tag "use & query" t) (const use) (const ask)) message-use-mail-followup-to 'use "*Specifies what to do with Mail-Followup-To header.\nIf nil, always ignore the header. If it is the symbol `ask', always\nquery the user whether to use the value. If it is the symbol `use',\nalways use the value." "22.1" (custom-manual "(message)Mailing Lists") (choice (const :tag "ignore" nil) (const use) (const ask)) message-subscribed-address-functions "*Specifies functions for determining list subscription.\nIf nil, do not attempt to determine list subscription with functions.\nIf non-nil, this variable contains a list of functions which return\nregular expressions to match lists. These functions can be used in\nconjunction with `message-subscribed-regexps' and\n`message-subscribed-addresses'." (custom-manual "(message)Mailing Lists") (repeat sexp) message-subscribed-address-file "*A file containing addresses the user is subscribed to.\nIf nil, do not look at any files to determine list subscriptions. If\nnon-nil, each line of this file should be a mailing list address." (custom-manual "(message)Mailing Lists") (radio file (const nil)) message-subscribed-addresses "*Specifies a list of addresses the user is subscribed to.\nIf nil, do not use any predefined list subscriptions. This list of\naddresses can be used in conjunction with\n`message-subscribed-address-functions' and `message-subscribed-regexps'." (custom-manual "(message)Mailing Lists") (repeat string) message-subscribed-regexps "*Specifies a list of addresses the user is subscribed to.\nIf nil, do not use any predefined list subscriptions. This list of\nregular expressions can be used in conjunction with\n`message-subscribed-address-functions' and `message-subscribed-addresses'." (custom-manual "(message)Mailing Lists") (repeat regexp) message-allow-no-recipients 'ask "Specifies what to do when there are no recipients other than Gcc/Fcc.\nIf it is the symbol `always', the posting is allowed. If it is the\nsymbol `never', the posting is not allowed. If it is the symbol\n`ask', you are prompted." (custom-manual "(message)Message Headers") (choice (const always) (const never) (const ask)) message-sendmail-f-is-evil "*Non-nil means don't add \"-f username\" to the sendmail command line.\nDoing so would be even more evil than leaving it out." (custom-manual "(message)Mail Variables") boolean message-sendmail-envelope-from (if (boundp 'mail-envelope-from) mail-envelope-from) "*Envelope-from when sending mail with sendmail.\nIf this is nil, use `user-mail-address'. If it is the symbol\n`header', use the From: header of the message." (choice (string :tag "From name") (const :tag "Use From: header from message" header) (const :tag "Use `user-mail-address'" nil)) (custom-manual "(message)Mail Variables") message-sendmail-extra-arguments "Additional arguments to `sendmail-program'." "23.1" (repeat string) message-qmail-inject-program "/var/qmail/bin/qmail-inject" "Location of the qmail-inject program." (custom-manual "(message)Mail Variables") file message-qmail-inject-args "Arguments passed to qmail-inject programs.\nThis should be a list of strings, one string for each argument.\nIt may also be a function.\n\nFor e.g., if you wish to set the envelope sender address so that bounces\ngo to the right place or to deal with listserv's usage of that address, you\nmight set this variable to '(\"-f\" \"you@some.where\")." (custom-manual "(message)Mail Variables") (choice (function) (repeat string)) message-post-method (cond ((and (boundp 'gnus-post-method) (listp gnus-post-method) gnus-post-method) gnus-post-method) ((boundp 'gnus-select-method) gnus-select-method) (t '(nnspool ""))) "*Method used to post news.\nNote that when posting from inside Gnus, for instance, this\nvariable isn't used." sexp message-generate-headers-first "Which headers should be generated before starting to compose a message.\nIf t, generate all required headers. This can also be a list of headers to\ngenerate. The variables `message-required-news-headers' and\n`message-required-mail-headers' specify which headers to generate.\n\nNote that the variable `message-deletable-headers' specifies headers which\nare to be deleted and then re-generated before sending, so this variable\nwill not have a visible effect for those headers." message-headers (custom-manual "(message)Message Headers") (choice (const :tag "None" nil) (const :tag "All" t) (repeat (sexp :tag "Header"))) message-fill-column 72 "Column beyond which automatic line-wrapping should happen.\nLocal value for message buffers. If non-nil, also turn on\nauto-fill in message buffers." message-various (choice (const :tag "Don't turn on auto fill" nil) (integer)) message-setup-hook "Normal hook, run each time a new outgoing message is initialized.\nThe function `message-setup' runs this hook." (custom-manual "(message)Various Message Variables") hook message-cancel-hook "Hook run when canceling articles." (custom-manual "(message)Various Message Variables") message-signature-setup-hook "Normal hook, run each time a new outgoing message is initialized.\nIt is run after the headers have been inserted and before\nthe signature is inserted." (custom-manual "(message)Various Message Variables") message-mode-hook "Hook run in message mode buffers." message-header-hook "Hook run in a message mode buffer narrowed to the headers." message-header-setup-hook "Hook called narrowed to the headers when setting up a message buffer." (custom-manual "(message)Various Message Variables") message-minibuffer-local-map (let ((map (make-sparse-keymap 'message-minibuffer-local-map))) (set-keymap-parent map minibuffer-local-map) map) "Keymap for `message-read-from-minibuffer'." message-citation-line-function 'message-insert-citation-line "*Function called to insert the \"Whomever writes:\" line.\n\nPredefined functions include `message-insert-citation-line' and\n`message-insert-formatted-citation-line' (see the variable\n`message-citation-line-format').\n\nNote that Gnus provides a feature where the reader can click on\n`writes:' to hide the cited text. If you change this line too much,\npeople who read your message will have to change their Gnus\nconfiguration. See the variable `gnus-cite-attribution-suffix'." (choice (function-item :tag "plain" message-insert-citation-line) (function-item :tag "formatted" message-insert-formatted-citation-line) (function :tag "Other")) (custom-manual "(message)Insertion Variables") message-insertion message-citation-line-format "On %a, %b %d %Y, %N wrote:\n" "Format of the \"Whomever writes:\" line.\n\nThe string is formatted using `format-spec'. The following\nconstructs are replaced:\n\n %f The full From, e.g. \"John Doe <john.doe@example.invalid>\".\n %n The mail address, e.g. \"john.doe@example.invalid\".\n %N The real name if present, e.g.: \"John Doe\", else fall\n back to the mail address.\n %F The first name if present, e.g.: \"John\".\n %L The last name if present, e.g.: \"Doe\".\n\nAll other format specifiers are passed to `format-time-string'\nwhich is called using the date from the article your replying to.\nExtracting the first (%F) and last name (%L) is done\nheuristically, so you should always check it yourself.\n\nPlease also read the note in the documentation of\n`message-citation-line-function'." (choice (const :tag "Plain" "%f writes:") (const :tag "Include date" "On %a, %b %d %Y, %n wrote:") string) (custom-manual "(message)Insertion Variables") message-yank-prefix mail-yank-prefix "*Prefix inserted on the lines of yanked messages.\nFix `message-cite-prefix-regexp' if it is set to an abnormal value.\nSee also `message-yank-cited-prefix' and `message-yank-empty-prefix'." string (custom-manual "(message)Insertion Variables") message-yank-cited-prefix ">" "*Prefix inserted on cited lines of yanked messages.\nFix `message-cite-prefix-regexp' if it is set to an abnormal value.\nSee also `message-yank-prefix' and `message-yank-empty-prefix'." (custom-manual "(message)Insertion Variables") message-yank-empty-prefix "*Prefix inserted on empty lines of yanked messages.\nSee also `message-yank-prefix' and `message-yank-cited-prefix'." (custom-manual "(message)Insertion Variables") message-indentation-spaces mail-indentation-spaces "*Number of spaces to insert at the beginning of each cited line.\nUsed by `message-yank-original' via `message-yank-cite'." (custom-manual "(message)Insertion Variables") integer message-cite-function 'message-cite-original-without-signature "*Function for citing an original message.\nPredefined functions include `message-cite-original' and\n`message-cite-original-without-signature'.\nNote that these functions use `mail-citation-hook' if that is non-nil." (radio (function-item message-cite-original) (function-item message-cite-original-without-signature) (function-item sc-cite-original) (function :tag "Other")) (custom-manual "(message)Insertion Variables") "22.3" message-indent-citation-function 'message-indent-citation "*Function for modifying a citation just inserted in the mail buffer.\nThis can also be a list of functions. Each function can find the\ncitation between (point) and (mark t). And each function should leave\npoint and mark around the citation text as modified." (custom-manual "(message)Insertion Variables") message-signature mail-signature "*String to be inserted at the end of the message buffer.\nIf t, the `message-signature-file' file will be inserted instead.\nIf a function, the result from the function will be used instead.\nIf a form, the result from the form will be used instead." (custom-manual "(message)Insertion Variables") message-signature-file mail-signature-file "*Name of file containing the text inserted at end of message buffer.\nIgnored if the named file doesn't exist.\nIf nil, don't insert a signature.\nIf a path is specified, the value of `message-signature-directory' is ignored,\neven if set." (choice file (const :tags "None" nil)) (custom-manual "(message)Insertion Variables") message-signature-directory "*Name of directory containing signature files.\nComes in handy if you have many such files, handled via posting styles for\ninstance.\nIf nil, `message-signature-file' is expected to specify the directory if\nneeded." (choice string (const :tags "None" nil)) (custom-manual "(message)Insertion Variables") message-signature-insert-empty-line t "*If non-nil, insert an empty line before the signature separator." (custom-manual "(message)Insertion Variables") message-cite-reply-position 'traditional "*Where the reply should be positioned.\nIf `traditional', reply inline.\nIf `above', reply above quoted text.\nIf `below', reply below quoted text.\n\nNote: Many newsgroups frown upon nontraditional reply styles. You\nprobably want to set this variable only for specific groups,\ne.g. using `gnus-posting-styles':\n\n (eval (set (make-local-variable 'message-cite-reply-position) 'above))" "24.1" (choice (const :tag "Reply inline" 'traditional) (const :tag "Reply above" 'above) (const :tag "Reply below" 'below)) message-cite-style "*The overall style to be used when yanking cited text.\nValue is either `nil' (no variable overrides) or a let-style list\nof pairs (VARIABLE VALUE) that will be bound in\n`message-yank-original' to do the quoting.\n\nPresets to impersonate popular mail agents are found in the\nmessage-cite-style-* variables. This variable is intended for\nuse in `gnus-posting-styles', such as:\n\n ((posting-from-work-p) (eval (set (make-local-variable 'message-cite-style) message-cite-style-outlook)))" (choice (const :tag "Do not override variables" :value nil) (const :tag "MS Outlook" :value message-cite-style-outlook) (const :tag "Mozilla Thunderbird" :value message-cite-style-thunderbird) (const :tag "Gmail" :value message-cite-style-gmail) (variable :tag "User-specified"))] 16)
#@73 Message citation style used by MS Outlook. Use with message-cite-style.
(defconst message-cite-style-outlook '((message-cite-function 'message-cite-original) (message-citation-line-function 'message-insert-formatted-citation-line) (message-cite-reply-position 'above) (message-yank-prefix #1="") (message-yank-cited-prefix #1#) (message-yank-empty-prefix #1#) (message-citation-line-format "\n\n-----------------------\nOn %a, %b %d %Y, %N wrote:\n")) (#$ . 38856))
#@82 Message citation style used by Mozilla Thunderbird. Use with message-cite-style.
(defconst message-cite-style-thunderbird '((message-cite-function 'message-cite-original) (message-citation-line-function 'message-insert-formatted-citation-line) (message-cite-reply-position 'above) (message-yank-prefix "> ") (message-yank-cited-prefix ">") (message-yank-empty-prefix ">") (message-citation-line-format "On %D %R %p, %N wrote:")) (#$ . 39328))
#@68 Message citation style used by Gmail. Use with message-cite-style.
(defconst message-cite-style-gmail '((message-cite-function 'message-cite-original) (message-citation-line-function 'message-insert-formatted-citation-line) (message-cite-reply-position 'above) (message-yank-prefix " ") (message-yank-cited-prefix " ") (message-yank-empty-prefix " ") (message-citation-line-format "On %e %B %Y %R, %f wrote:\n")) (#$ . 39777))
(byte-code "\300\301\302\303\304\305\304\306\307\310\311\312& \210\300\313\314\315\304\305\304\306\307\316\311\317& \210\300\320\302\321\304\305\304\306\307\322\311\323& \207" [custom-declare-variable message-distribution-function nil "*Function called to return a Distribution header." :group message-news message-headers :link (custom-manual "(message)News Headers") :type (choice function (const nil)) message-expires 14 "Number of days before your article expires." (custom-manual "(message)News Headers") integer message-user-path "If nil, use the NNTP server name in the Path header.\nIf stringp, use this; if non-nil, use no host name (user name only)." (custom-manual "(message)News Headers") (choice (const :tag "nntp" nil) (string :tag "name") (sexp :tag "none" :format "%t" t))] 12)
(defvar message-reply-buffer nil)
#@151 The headers of the current replied article.
It is a vector of the following headers:
[number subject from date id references chars lines xref extra].
(defvar message-reply-headers nil (#$ . 41048))
(defvar message-newsreader nil)
(defvar message-mailer nil)
(defvar message-sent-message-via nil)
(defvar message-checksum nil)
#@73 A list of actions to be performed upon successful sending of a message.
(defvar message-send-actions nil (#$ . 41380))
#@71 Action to return to the caller after sending or postponing a message.
(defvar message-return-action nil (#$ . 41505))
#@73 A list of actions to be performed upon exiting after sending a message.
(defvar message-exit-actions nil (#$ . 41629))
#@68 A list of actions to be performed before killing a message buffer.
(defvar message-kill-actions nil (#$ . 41754))
#@63 A list of actions to be performed after postponing a message.
(defvar message-postpone-actions nil (#$ . 41874))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\315\316\317\320\321\322\323\324\325& \210\312\326\327\330\316\317\320\321\320\331\322\332\324\301&
\210\312\333\314\334\320\321\320\335\322\336\324\301& \210\312\337\340\341\320\342\322\343\324\344& \210\345\346\331\347\350\351%\207" [define-widget message-header-lines text "All header lines must be LFD terminated." :format "%{%t%}:%n%v" :valid-regexp "^\\'" :error "All header lines must be newline terminated" custom-declare-variable message-default-headers "" "Header lines to be inserted in outgoing messages.\nThis can be set to a string containing or a function returning\nheader lines to be inserted before you edit the message, so you\ncan edit or delete these lines. If set to a function, it is\ncalled and its result is inserted." :version "23.2" :group message-headers :link (custom-manual "(message)Message Headers") :type (choice (message-header-lines :tag "String") (function :tag "Function")) message-default-mail-headers (concat (if (and (boundp 'mail-default-reply-to) (stringp mail-default-reply-to)) (format "Reply-to: %s\n" mail-default-reply-to)) (if (and (boundp 'mail-self-blind) mail-self-blind) (format "BCC: %s\n" user-mail-address)) (if (and (boundp 'mail-archive-file-name) (stringp mail-archive-file-name)) (format "FCC: %s\n" mail-archive-file-name)) (if (boundp 'mail-default-headers) mail-default-headers)) "*A string of header lines to be inserted in outgoing mails." message-mail (custom-manual "(message)Mail Headers") message-default-news-headers "*A string of header lines to be inserted in outgoing news articles." message-news (custom-manual "(message)News Headers") message-mailer-swallows-blank-line (if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" system-configuration) (file-readable-p "/etc/sendmail.cf") (with-temp-buffer (insert-file-contents "/etc/sendmail.cf") (goto-char (point-min)) (let ((case-fold-search nil)) (re-search-forward "^OR\\>" nil t)))) '(looking-at "[ ]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:")) "*Set this non-nil if the system's mailer runs the header and body together.\n(This problem exists on Sunos 4 when sendmail is run in remote mode.)\nThe value should be an expression to test whether the problem will\nactually occur." message-sending (custom-manual "(message)Mail Variables") sexp define-mail-user-agent message-user-agent message-send-and-exit message-kill-buffer message-send-hook] 14)
#@64 If non-nil, delete the deletable headers before feeding to mh.
(defvar message-mh-deletable-headers '(Message-ID Date Lines Sender) (#$ . 44453))
#@382 Alist of ways to send outgoing messages.
Each element has the form
(TYPE PREDICATE FUNCTION)
where TYPE is a symbol that names the method; PREDICATE is a function
called without any parameters to determine whether the message is
a message of type TYPE; and FUNCTION is a function to be called if
PREDICATE returns non-nil. FUNCTION is called with one parameter --
the prefix.
(defvar message-send-method-alist '((news message-news-p message-send-via-news) (mail message-mail-p message-send-via-mail)) (#$ . 44606))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\315\310\316&\210\300\317\320\321\304\322\306\323\310\324& \210\300\325\326\327\330\331\304\305\306\332\310\333& \210\300\334\335\336\330\337\304\305\306\340\310\341& \207" [custom-declare-variable message-mail-alias-type 'abbrev "*What alias expansion type to use in Message buffers.\nThe default is `abbrev', which uses mailabbrev. `ecomplete' uses\nan electric completion mode. nil switches mail aliases off.\nThis can also be a list of values." :group message :link (custom-manual "(message)Mail Aliases") :type (choice (const :tag "Use Mailabbrev" abbrev) (const :tag "Use ecomplete" ecomplete) (const :tag "No expansion" nil)) message-self-insert-commands '(self-insert-command) "List of `self-insert-command's used to trigger ecomplete.\nWhen one of those commands is invoked to enter a character in To or Cc\nheader, ecomplete will suggest the candidates of recipients (see also\n`message-mail-alias-type'). If you use some tool to enter non-ASCII\ntext and it replaces `self-insert-command' with the other command, e.g.\n`egg-self-insert-command', you may want to add it to this list." message-various (repeat function) message-auto-save-directory (if (file-writable-p message-directory) (file-name-as-directory (expand-file-name "drafts" message-directory)) "~/") "*Directory where Message auto-saves buffers if Gnus isn't running.\nIf nil, Message won't auto-save." message-buffers (custom-manual "(message)Various Message Variables") (choice directory (const :tag "Don't auto-save" nil)) message-default-charset (and (not (mm-multibyte-p)) 'iso-8859-1) "Default charset used in non-MULE Emacsen.\nIf nil, you might be asked to input the charset." :version "21.1" (custom-manual "(message)Various Message Variables") symbol message-dont-reply-to-names (and (boundp 'mail-dont-reply-to-names) mail-dont-reply-to-names) "*Addresses to prune when doing wide replies.\nThis can be a regexp or a list of regexps. Also, a value of nil means\nexclude your own user name only." "24.3" (custom-manual "(message)Wide Reply") (choice (const :tag "Yourself" nil) regexp (repeat :tag "Regexp List" regexp))] 12)
(defalias 'message-dont-reply-to-names #[nil "\301!\207" [message-dont-reply-to-names gmm-regexp-concat] 2])
(put 'message-dont-reply-to-names 'byte-optimizer 'byte-compile-inline-expand)
#@602 *A list of GNKSA feet you are allowed to shoot.
Gnus gives you all the opportunity you could possibly want for
shooting yourself in the foot. Also, Gnus allows you to shoot the
feet of Good Net-Keeping Seal of Approval. The following are foot
candidates:
`empty-article' Allow you to post an empty article;
`quoted-text-only' Allow you to post quoted text only;
`multiple-copies' Allow you to post multiple copies;
`cancel-messages' Allow you to cancel or supersede messages from
your other email addresses;
`canlock-verify' Allow you to cancel messages without verifying canlock.
(defvar message-shoot-gnksa-feet nil (#$ . -47515))
(defalias 'message-gnksa-enable-p #[(feature) "<?\206 >\207" [message-shoot-gnksa-feet feature] 2])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313\314\315\316\317& \210\304\320\321\322\312\313\316\323&\207" [put message-gnksa-enable-p byte-optimizer byte-compile-inline-expand custom-declare-variable message-hidden-headers '("^References:" "^Face:" "^X-Face:" "^X-Draft-From:") "Regexp of headers to be hidden when composing new messages.\nThis can also be a list of regexps to match headers. Or a list\nstarting with `not' and followed by regexps." :version "22.1" :group message :link (custom-manual "(message)Message Headers") :type (choice :format "%{%t%}: %[Value Type%] %v" (regexp :menu-tag "regexp" :format "regexp\n%t: %v") (repeat :menu-tag "(regexp ...)" :format "(regexp ...)\n%v%i" (regexp :format "%t: %v")) (cons :menu-tag "(not regexp ...)" :format "(not regexp ...)\n%v" (const not) (repeat :format "%v%i" (regexp :format "%t: %v")))) message-cite-articles-with-x-no-archive t "If non-nil, cite text from articles that has X-No-Archive set." boolean] 12)
#@42 Syntax table used while in Message mode.
(defvar message-mode-syntax-table (byte-code "\302!\303\304\305 #\210\303\306\305 #\210\303\307\305 #\210 )\207" [text-mode-syntax-table table copy-syntax-table modify-syntax-entry 37 ". " 62 60] 4) (#$ . 49272))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\210\306\307\311\312#\210\300\313\314\315\304\305%\210\306\316\310\313#\210\306\316\311\312#\210\300\317\320\321\304\305%\210\306\322\310\317#\210\306\322\311\312#\210\300\323\324\325\304\305%\210\306\326\310\323#\210\306\326\311\312#\210\300\327\330\325\304\305%\210\306\331\310\327#\210\306\331\311\312#\210\300\332\333\334\304\305%\210\306\335\310\332#\210\306\335\311\312#\210\300\336\337\340\304\305%\210\306\341\310\336#\210\306\341\311\312#\210\300\342\343\344\304\305%\210\306\345\310\342#\210\306\345\311\312#\210\300\346\347\350\304\305%\210\306\351\310\346#\210\306\351\311\312#\210\300\352\353\354\304\305%\210\306\355\310\352#\210\306\355\311\312#\207" [custom-declare-face message-header-to ((((class color) (background dark)) (:foreground "DarkOliveGreen1" :bold t)) (((class color) (background light)) (:foreground "MidnightBlue" :bold t)) (t (:bold t :italic t))) "Face used for displaying From headers." :group message-faces put message-header-to-face face-alias obsolete-face "22.1" message-header-cc ((((class color) (background dark)) (:foreground "chartreuse1" :bold t)) (((class color) (background light)) (:foreground "MidnightBlue")) (t (:bold t))) "Face used for displaying Cc headers." message-header-cc-face message-header-subject ((((class color) (background dark)) (:foreground "OliveDrab1")) (((class color) (background light)) (:foreground "navy blue" :bold t)) (t (:bold t))) "Face used for displaying subject headers." message-header-subject-face message-header-newsgroups ((((class color) (background dark)) (:foreground "yellow" :bold t :italic t)) (((class color) (background light)) (:foreground "blue4" :bold t :italic t)) (t (:bold t :italic t))) "Face used for displaying newsgroups headers." message-header-newsgroups-face message-header-other ((((class color) (background dark)) (:foreground "VioletRed1")) (((class color) (background light)) (:foreground "steel blue")) (t (:bold t :italic t))) message-header-other-face message-header-name ((((class color) (background dark)) (:foreground "green")) (((class color) (background light)) (:foreground "cornflower blue")) (t (:bold t))) "Face used for displaying header names." message-header-name-face message-header-xheader ((((class color) (background dark)) (:foreground "DeepSkyBlue1")) (((class color) (background light)) (:foreground "blue")) (t (:bold t))) "Face used for displaying X-Header headers." message-header-xheader-face message-separator ((((class color) (background dark)) (:foreground "LightSkyBlue1")) (((class color) (background light)) (:foreground "brown")) (t (:bold t))) "Face used for displaying the separator." message-separator-face message-cited-text ((((class color) (background dark)) (:foreground "LightPink1")) (((class color) (background light)) (:foreground "red")) (t (:bold t))) "Face used for displaying cited text names." message-cited-text-face message-mml ((((class color) (background dark)) (:foreground "MediumSpringGreen")) (((class color) (background light)) (:foreground "ForestGreen")) (t (:bold t))) "Face used for displaying MML." message-mml-face] 6)
(defalias 'message-font-lock-make-header-matcher #[(regexp) "\302\303\304\305\306\307\310\311\312BBEFE\313\314!\203 \315 !\202 )\207" [regexp form lambda (limit) let ((start (point))) (save-restriction (widen) (goto-char (point-min)) (if (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil t) (setq limit (min limit (match-beginning 0)))) (goto-char start)) and (< start limit) re-search-forward (limit t) featurep bytecomp byte-compile] 10])
#@54 Additional expressions to highlight in Message mode.
(defvar message-font-lock-keywords (byte-code "\302\303\304P!\305B\303\306P!\307B\303\310P!\311B\303\312P!\313B\303\314P!\315B\303\316P!\317B\320 \205A \321\232?\205A \322\323 !\324Q\325BC\326\")BBBBBB\207" [content mail-header-separator "[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?" message-font-lock-make-header-matcher "^\\([Tt]o:\\)" ((1 'message-header-name) (2 'message-header-to nil t)) "^\\(^[GBF]?[Cc][Cc]:\\|^[Rr]eply-[Tt]o:\\)" ((1 'message-header-name) (2 'message-header-cc nil t)) "^\\([Ss]ubject:\\)" ((1 'message-header-name) (2 'message-header-subject nil t)) "^\\([Nn]ewsgroups:\\|Followup-[Tt]o:\\)" ((1 'message-header-name) (2 'message-header-newsgroups nil t)) "^\\(X-[A-Za-z0-9-]+:\\|In-Reply-To:\\)" ((1 'message-header-name) (2 'message-header-xheader)) "^\\([A-Z][^: \n ]+:\\)" ((1 'message-header-name) (2 'message-header-other nil t)) append "" "^\\(" regexp-quote "\\)$" (1 'message-separator) (((lambda (limit) (re-search-forward (concat "^\\(" message-cite-prefix-regexp "\\).*") limit t)) (0 'message-cited-text)) ("<#/?\\(multipart\\|part\\|external\\|mml\\|secure\\)[^>]*>" (0 'message-mml)))] 10) (#$ . 53158))
(put 'message-mode 'font-lock-defaults '(message-font-lock-keywords t))
#@115 Alist of mail and news faces for facemenu.
The cdr of each entry is a function for applying the face to a region.
(defvar message-face-alist '((bold . message-bold-region) (underline . underline-region) (default lambda (b e) (message-unbold-region b e) (ununderline-region b e))) (#$ . 54432))
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313& \210\300\314\302\315\304\305\310\316\312\313& \210\300\317\302\320\304\305\310\321\312\313& \210\300\322\302\323\304\305\312\313&\207" [custom-declare-variable message-send-hook nil "Hook run before sending messages.\nThis hook is run quite early when sending." :group message-various :options (ispell-message) :link (custom-manual "(message)Various Message Variables") :type hook message-send-mail-hook "Hook run before sending mail messages.\nThis hook is run very late -- just before the message is sent as\nmail." (custom-manual "(message)Various Message Variables") message-send-news-hook "Hook run before sending news messages.\nThis hook is run very late -- just before the message is sent as\nnews." (custom-manual "(message)Various Message Variables") message-sent-hook "Hook run after sending messages."] 12)
#@40 Coding system to encode outgoing mail.
(defvar message-send-coding-system 'binary (#$ . 55614))
#@247 *Coding system to compose mail.
If you'd like to make it possible to share draft files between XEmacs
and Emacs, you may use `iso-2022-7bit' for this value at your own risk.
Note that the coding-system `iso-2022-7bit' isn't suitable to all data.
(defvar message-draft-coding-system mm-auto-save-coding-system (#$ . -55717))
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313& \210\300\314\302\315\306\316\310\317\312\320& \210\300\321\302\322\304\323\306\316\312\324& \210\300\325\302\326\304\323\312\327\304\330\306\331& \210\300\332\302\333\304\323\306\316\310\334\312\335& \210\300\336\302\337\304\323\306\316\310\340\312\341& \210\300\342\343\344\304\323\306\316\310\345\312\346& \210\300\347\350\351\304\305\306\316\310\352\312\353& \207" [custom-declare-variable message-send-mail-partially-limit nil "The limitation of messages sent as message/partial.\nThe lower bound of message size in characters, beyond which the message\nshould be sent in several parts. If it is nil, the size is unlimited." :version "24.1" :group message-buffers :link (custom-manual "(message)Mail Variables") :type (choice (const :tag "unlimited" nil) (integer 1000000)) message-alternative-emails "*Regexp matching alternative email addresses.\nThe first address in the To, Cc or From headers of the original\narticle matching this variable is used as the From field of\noutgoing messages.\n\nThis variable has precedence over posting styles and anything that runs\noff `message-setup-hook'." message-headers (custom-manual "(message)Message Headers") (choice (const :tag "Always use primary" nil) regexp) message-hierarchical-addresses "A list of hierarchical mail address definitions.\n\nInside each entry, the first address is the \"top\" address, and\nsubsequent addresses are subaddresses; this is used to indicate that\nmail sent to the first address will automatically be delivered to the\nsubaddresses. So if the first address appears in the recipient list\nfor a message, the subaddresses will be removed (if present) before\nthe mail is sent. All addresses in this structure should be\ndowncased." "22.1" (repeat (repeat string)) message-mail-user-agent "Like `mail-user-agent'.\nExcept if it is nil, use Gnus native MUA; if it is t, use\n`mail-user-agent'." (radio (const :tag "Gnus native" :format "%t\n" nil) (const :tag "`mail-user-agent'" :format "%t\n" t) (function-item :tag "Default Emacs mail" :format "%t\n" sendmail-user-agent) (function-item :tag "Emacs interface to MH" :format "%t\n" mh-e-user-agent) (function :tag "Other")) "21.1" message message-wide-reply-confirm-recipients "Whether to confirm a wide reply to multiple email recipients.\nIf this variable is nil, don't ask whether to reply to all recipients.\nIf this variable is non-nil, pose the question \"Reply to all\nrecipients?\" before a wide reply to multiple recipients. If the user\nanswers yes, reply to all recipients as usual. If the user answers\nno, only reply back to the author." (custom-manual "(message)Wide Reply") boolean message-user-fqdn "*Domain part of Message-Ids." (custom-manual "(message)News Headers") (radio (const :format "%v " nil) (string :format "FQDN: %v")) message-use-idna (and (condition-case nil (require 'idna) (file-error)) (mm-coding-system-p 'utf-8) (executable-find idna-program) (string= (idna-to-ascii "räksmörgås") "xn--rksmrgs-5wao1o") t) "Whether to encode non-ASCII in domain names into ASCII according to IDNA.\nGNU Libidn, and in particular the elisp package \"idna.el\" and\nthe external program \"idn\", must be installed for this\nfunctionality to work." (custom-manual "(message)IDNA") (choice (const :tag "Ask" ask) (const :tag "Never" nil) (const :tag "Always" t)) message-generate-hashcash (if (executable-find "hashcash") 'opportunistic) "*Whether to generate X-Hashcash: headers.\nIf t, always generate hashcash headers. If `opportunistic',\nonly generate hashcash headers if it can be done without the user\nwaiting (i.e., only asynchronously).\n\nYou must have the \"hashcash\" binary installed, see `hashcash-path'." (custom-manual "(message)Mail Headers") (choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "Opportunistic" opportunistic))] 12)
(defvar message-sending-message "Sending...")
(defvar message-buffer-list nil)
(defvar message-this-is-news nil)
(defvar message-this-is-mail nil)
(defvar message-draft-article nil)
(defvar message-mime-part nil)
(defvar message-posting-charset nil)
(defvar message-inserted-headers nil)
(defvar message-inhibit-ecomplete nil)
#@64 Regexp matching the delimiter of messages in UNIX mail format.
(defvar message-unix-mail-delimiter (byte-code "\301\302\303\304\211\305\306\307\310\311\260 )\207" [time-zone-regexp "\\([A-Z]?[A-Z]?[A-Z][A-Z]\\( DST\\)?\\|[-+]?[0-9][0-9][0-9][0-9]\\|\\) *" "From " "\\([^ -\n-
].*\\)?" "\\([^ -
]+\\) +" "\\([0-3]?[0-9]\\) +" "\\([0-2][0-9]:[0-5][0-9]\\(:[0-6][0-9]\\)?\\) *" " \\([0-9][0-9]+\\) *" "\\(remote from .*\\)?" "\n"] 11) (#$ . 60262))
#@74 A regexp that matches the separator before the text of a failed message.
(defvar message-unsent-separator "^ *---+ +Unsent message follows +---+ *$\\|^ *---+ +Returned message +---+ *$\\|^Start of returned message$\\|^ *---+ +Original message +---+ *$\\|^ *--+ +begin message +--+ *$\\|^ *---+ +Original message follows +---+ *$\\|^ *---+ +Undelivered message follows +---+ *$\\|^------ This is a copy of the message, including all the headers. ------ *$\\|^|? *---+ +Message text follows: +---+ *|?$" (#$ . 60721))
#@41 Alist of header names/filler functions.
(defvar message-field-fillers '((To message-fill-field-address) (Cc message-fill-field-address) (From message-fill-field-address)) (#$ . 61243))
#@36 Alist used for formatting headers.
(defvar message-header-format-alist '((From) (Newsgroups) (To) (Cc) (Subject) (In-Reply-To) (Fcc) (Bcc) (Date) (Organization) (Distribution) (Lines) (Expires) (Message-ID) (References . message-shorten-references) (User-Agent)) (#$ . 61434))
#@42 Some saved answers when sending message.
(defvar message-options nil (#$ . 61717))
(make-variable-buffer-local 'message-options)
#@30 Internal send mail function.
(defvar message-send-mail-real-function nil (#$ . 61852))
#@35 The regexp of bogus system names.
(defvar message-bogus-system-names "\\`localhost\\.\\|\\.local\\'" (#$ . 61945))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\"\210\312\315\316\"\210\312\317\314\"\210\312\320\321\"\210\312\322\323\"\210\312\324\323\"\210\312\325\323\"\210\312\326\321\"\210\312\327\314\"\210\312\330\331\"\210\312\332\314\"\210\312\333\314\"\210\312\334\331\"\210\312\335\314\"\210\312\336\321\"\210\312\337\340\"\210\312\341\342\"\210\312\343\344\"\210\312\345\344\"\210\312\346\347\"\210\312\350\347\"\210\312\351\352\"\210\312\353\354\"\210\312\355\356\"\210\357\360!\204\220 \361\360\362\"\210\300\207" [custom-declare-variable message-valid-fqdn-regexp (concat "[a-z0-9][-.a-z0-9]+\\." "\\([a-z][a-z]\\|" "aero\\|arpa\\|asia\\|bitnet\\|biz\\|bofh\\|" "cat\\|com\\|coop\\|edu\\|gov\\|" "info\\|int\\|jobs\\|" "mil\\|mobi\\|museum\\|name\\|net\\|" "org\\|pro\\|tel\\|travel\\|uucp\\)") "Regular expression that matches a valid FQDN." :version "22.1" :group message-headers :type regexp autoload gnus-alive-p "gnus-util" gnus-delay-article "gnus-delay" gnus-extract-address-components gnus-find-method-for-group "gnus" gnus-group-decoded-name "gnus-group" gnus-group-name-charset gnus-group-name-decode gnus-groups-from-server gnus-make-local-hook gnus-open-server "gnus-int" gnus-output-to-mail gnus-output-to-rmail gnus-request-post gnus-select-frame-set-input-focus gnus-server-string idna-to-ascii "idna" message-setup-toolbar "messagexmas" mh-new-draft-name "mh-comp" mh-send-letter nndraft-request-associate-buffer "nndraft" nndraft-request-expire-articles nnvirtual-find-group-art "nnvirtual" rmail-msg-is-pruned "rmail" rmail-output "rmailout" fboundp mail-dont-reply-to defalias rmail-dont-reply-to] 10)
#@72 Ask QUESTION, displaying remaining args in a temporary buffer if SHOW.
(defalias 'message-y-or-n-p '(macro . #[(question show &rest text) "\303\304 \nBBBB\207" [question show text message-talkative-question 'y-or-n-p] 5 (#$ . 63710)]))
#@49 Delete the current line (and the next N lines).
(defalias 'message-delete-line '(macro . #[(&optional n) "\301\302\303\304\206 \305D\306BBE\207" [n delete-region (progn (beginning-of-line) (point)) progn forward-line 1 ((point))] 5 (#$ . 63953)]))
#@72 Non-nil means the mark and region are currently active in this buffer.
(defalias 'message-mark-active-p #[nil "\207" [mark-active] 1 (#$ . 64209)])
#@54 Remove double quotes (") from strings in list ELEMS.
(defalias 'message-unquote-tokens #[(elems) "\301\302\"\207" [elems mapcar #[(item) "\301\302\"\203 \303\304\"\303\305\"P\202 \207" [item string-match "^\\(.*\\)\"\\(.*\\)$" match-string 1 2] 4]] 3 (#$ . 64364)])
#@133 Split HEADER into a list of header elements.
SEPARATOR is a string of characters to be used as separators. ","
is used by default.
(defalias 'message-tokenize-header #[(header &optional separator) "\205\230 \306\307 \206 \310\"\311\312\211\211\211 \313\314! rq\210\315\216\316 \210ec\210eb\210m\204\224 \203? \312\202B \317u\210`
V\203g m\204[ \320!\203g \f\204g \n\204g
`{ B\321\225\2020 \312f\322=\203t \f?\2020 \312f\323=\203\204 \f\204\204 \311\2020 \312f\324=\2030 \f\2040 \312\2020 \237. \207" [header separator paren elems quoted beg format "[%s]+" "," t nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-enable-multibyte 1 looking-at 0 34 40 41 first regexp #1#] 6 (#$ . 64645)])
(autoload 'nnheader-insert-file-contents "nnheader")
#@47 Say whether FILE looks like a Unix mbox file.
(defalias 'message-mail-file-mbox-p #[(file) "\303!\205' \304!\205' \305!\205' \306\307!r q\210\310\216\311!\210eb\210\312\n!+\207" [file #1=#:temp-buffer message-unix-mail-delimiter file-exists-p file-readable-p file-regular-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nnheader-insert-file-contents looking-at] 2 (#$ . 65500)])
#@173 The same as `mail-fetch-field', only remove all newlines.
The buffer is expected to be narrowed to just the header of the message;
see `message-narrow-to-headers-or-head'.
(defalias 'message-fetch-field #[(header &optional not-all) "\304\305 \306\n?#\211\205 \307\310 \"\203 \311\312\304\211 $\202
*\207" [inhibit-point-motion-hooks header not-all value t mail-fetch-field nil string-match "\n[ ]+" replace-match " "] 6 (#$ . 65955)])
#@70 The same as `message-fetch-field', only narrow to the headers first.
(defalias 'message-field-value #[(header &optional not-all) "\212\214\302 \210\303 \"*\207" [header not-all message-narrow-to-headers-or-head message-fetch-field] 3 (#$ . 66404)])
#@54 Narrow the buffer to the header on the current line.
(defalias 'message-narrow-to-field #[nil "\300 \210\301\302!\203 \303y\210\202 `\304y\210\305\306\307\310#\203 \311 \202! d}\210eb\207" [beginning-of-line looking-at "[ ]" -1 1 re-search-forward "^[^ \n ]" nil t point-at-bol] 5 (#$ . 66660)])
#@72 Add the HEADERS to the message header, skipping those already present.
(defalias 'message-add-header #[(&rest headers) "\205L \302\303\304@\"\204 \305\306@\"\210\307\310@\"\214\311 \210\312\313\314 !\315Q\302\316#\204C db\210\303\317@\"\203= @c\210\202C @\320\261\210*A\211\204 \302\207" [headers hclean nil string-match "^\\([^:]+\\):[ ]*[^ ]" error "Invalid header `%s'" match-string 1 message-narrow-to-headers re-search-forward "^" regexp-quote ":" t "\n$" 10] 5 (#$ . 66966)])
#@51 Evaluate FORMS in the reply buffer, if it exists.
(defalias 'message-with-reply-buffer '(macro . #[(&rest forms) "\301\302\303\304BBE\207" [forms when (and (bufferp message-reply-buffer) (buffer-name message-reply-buffer)) with-current-buffer message-reply-buffer] 5 (#$ . 67470)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put message-with-reply-buffer lisp-indent-function 0 edebug-form-spec (body)] 4)
#@56 Fetch field HEADER from the message we're replying to.
(defalias 'message-fetch-reply-field #[(header) "\302!\205 \303!\205 rq\210\214\304 \210\305 !*\207" [message-reply-buffer header bufferp buffer-name mail-narrow-to-head message-fetch-field] 2 (#$ . 67898)])
#@73 Remove list identifiers in `gnus-list-identifiers' from string SUBJECT.
(defalias 'message-strip-list-identifiers #[(subject) "\303\304!\210;\203
\202 \305\306\307#\310\311 \312Q\n\"\2036 \n\313\314\224O\315\316\n\"\206- \315\317\n\"\n\314\225\320OQ\2027 \n)\207" [gnus-list-identifiers regexp subject require gnus-sum mapconcat identity " *\\|" string-match "\\(\\(\\(Re: +\\)?\\(" " *\\)\\)+\\(Re: +\\)?\\)" 0 1 match-string 3 5 nil] 5 (#$ . 68172)])
#@52 Remove "Re:" from subject lines in string SUBJECT.
(defalias 'message-strip-subject-re #[(subject) "\302 \"\203
\303\225\304O\207 \207" [message-subject-re-regexp subject string-match 0 nil] 3 (#$ . 68637)])
#@75 Replacement character used instead of unprintable or not decodable chars.
(custom-declare-variable 'message-replacement-char "." '(#$ . 68854) :group 'message-various :version "22.1" :type '(choice string (const ".") (const "?")))
#@37 Fix non-decodable words in SUBJECT.
(defalias 'message-strip-subject-encoded-words #[(subject) "\306\307\310 \211\211$\311\312 \313\314! r
q\210\315\216)c\210eb\210\316 \312\306#\205+ \317\320!\211+ *\312\211 + ,\312\211 - .*\203b \f;\203g \f\227\211\203g \321\322\f!!\203g \323\307\324)\"!\322\f!+\204g )\202\313\314! /r/q\210\325\216)c\210eb\210\316 \312\306#\203
\317\320!\227\317\326!,\327\224-\327\225.\321\322\f!!\205\242 \322\f!\211+\211+\204z \330\307\331)\f $!\211+\203\304 \332\333\334+!\335Q!\210\202z \212-b\210\316\336.\306#\210\332\337!\210\340\341,\"\203\361 \342\343 \"\210\316\344.\306#\203\332 !\210\202\341 \342\343\n\"\210\316\345.\306#\210\332\n!\210\316\346!\210\332\337!\210)\202z \347ed\"\210\350 +. \207" [case-fold-search message-replacement-char replacement-chars enc-word-re cs-string #1=#:temp-buffer t format "[%s%s%s]" "=\\?\\([^?]+\\)\\?\\([QB]\\)\\?\\([^?]+\\)\\(\\?=\\)" nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward match-string 1 mm-coding-system-p intern y-or-n-p "Decoded Subject \"%s\"\ncontains a valid encoded word. Decode again? " ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) 2 0 mm-read-coding-system "Decoded Subject \"%s\"\ncontains an encoded word. The charset `%s' is unknown or invalid.\nHit RET to replace non-decodable characters with \"%s\" or enter replacement\ncharset: " replace-match "=?" symbol-name "?\\2?\\3\\4\\5" "=\\?\\([^?]+\\)\\?\\([QB]\\)\\?" "" string-match "\\`Q\\'" message "Replacing non-decodable characters with \"%s\"." "\\(=[A-F0-9][A-F0-9]\\)+" "[^?]+" "\\?=" rfc2047-decode-region buffer-string subject have-marker cs-coding q-or-b word-beg word-end #2#] 7 (#$ . 69091)])
#@164 Remove trailing "(was: <old subject>)" from SUBJECT lines.
Leading "Re: " is not stripped by this function. Use the function
`message-strip-subject-re' for this.
(defalias 'message-strip-subject-trailing-was #[(subject) "\306\211\307 \310=\203 \f\202
\"\211\203! \311\211\224O \203+ \306=\2030 \202U \310=\203T \312\313\314\315\316\317\320\321\322\n\321\323\324\260\n$\203O \n\202U \202U \n+\207" [message-subject-trailing-was-query query new found message-subject-trailing-was-ask-regexp message-subject-trailing-was-regexp nil string-match ask 0 message-talkative-question y-or-n-p "Strip `(was: <old subject>)' in subject? " t "Strip `(was: <old subject>)' in subject " "and use the new one instead?\n\n" "Current subject is: \"" "\"\n\n" "New subject would be: \"" "See the variable `message-subject-trailing-was-query' " "to get rid of this query." subject] 15 (#$ . 70911)])
#@58 Ask for NEW-SUBJECT header, append (was: <Old Subject>).
(defalias 'message-change-subject #[(new-subject) "?\206 \302\303!!\206 \304\305\"?\205P \212\214\306 \210\307\310!)\211\204) \311\312!\202O \304\313\314!\315Q \"?\205O \316 !\317 \210\320 \210`\321y\210`|\210\322\323 \324\260c*\207" [new-subject old-subject zerop string-width string-match "^[ ]*$" message-narrow-to-headers message-fetch-field "Subject" error "No current subject" "^[ ]*" regexp-quote " ]*$" message-strip-subject-re message-goto-subject beginning-of-line 1 "Subject: " " (was: " ")\n"] 6 (#$ . 71822) (list (read-from-minibuffer "New subject: "))])
#@187 Mark some region in the current article with enclosing tags.
See `message-mark-insert-begin' and `message-mark-insert-end'.
If VERBATIM, use slrn style verbatim marks ("#v+" and "#v-").
(defalias 'message-mark-inserted-region #[(beg end &optional verbatim) "\212b\210 \203\f \305\202
\nc\210 b\210 \203 \306\202 \fc)\207" [end verbatim message-mark-insert-end beg message-mark-insert-begin "#v-\n" "#v+\n"] 1 (#$ . 72468) "r\nP"])
#@180 Insert FILE at point, marking it with enclosing tags.
See `message-mark-insert-begin' and `message-mark-insert-end'.
If VERBATIM, use slrn style verbatim marks ("#v+" and "#v-").
(defalias 'message-mark-insert-file #[(file &optional verbatim) "` \203\n \305\202 \nc\210b\210\306 !\210b\210 \203 \307\202 \fc)\207" [p verbatim message-mark-insert-end file message-mark-insert-begin "#v-\n" insert-file-contents "#v+\n"] 2 (#$ . 72910) "fFile to insert: \nP"])
#@263 Insert "X-No-Archive: Yes" in the header and a note in the body.
The note can be customized using `message-archive-note'. When called with a
prefix argument, ask for a text to insert. If you don't want the note in the
body, set `message-archive-note' to nil.
(defalias 'message-add-archive-header #[nil "\203 \304\305 \306B\"\212\307 \203 \310\n!\210 \203 c\210\311 \210\312 !\210\313 )\207" [current-prefix-arg message-archive-note message-signature-separator message-archive-header read-from-minibuffer "Reason for No-Archive: " 0 message-goto-signature re-search-backward newline message-add-header message-sort-headers] 4 (#$ . 73382) nil])
#@128 Mangles FollowUp-To and Newsgroups header to point to TARGET-GROUP.
With prefix-argument just set Follow-Up, don't cross-post.
(defalias 'message-cross-post-followup-to-header #[(target-group) "\304\305\306\"\210\307 \210\310 \210\203 \311\312\313P!\314\306#\203 \315\316!\210 \203' \n\203/ \204I \n\203I \317\320 \"\204I \317\312 !\321\322!\"\204I \314\210\313 Pc\210\314\210\317\323 \324Q\321\322!\"\204] \325 Pc\210 \211\207" [message-cross-post-old-target message-cross-post-default current-prefix-arg target-group message-remove-header "Follow[Uu]p-[Tt]o" t message-goto-newsgroups beginning-of-line re-search-forward regexp-quote "," nil replace-match "" string-match "poster" message-fetch-field "Newsgroups" "^[ ]*" "[ ]*$" "\nFollowup-To: "] 4 (#$ . 74043) (list (completing-read "Followup To: " (if (boundp 'gnus-newsrc-alist) gnus-newsrc-alist) nil nil '("poster" . 0) (if (boundp 'gnus-group-history) 'gnus-group-history)))])
#@393 Insert a in message body note about a set Followup or Crosspost.
If there have been previous notes, delete them. TARGET-GROUP specifies the
group to Followup-To. When CROSS-POST is t, insert note about
crossposting. IN-OLD specifies whether TARGET-GROUP is a member of
OLD-GROUPS. OLD-GROUPS lists the old-groups the posting would have
been made to before the user asked for a Crosspost.
(defalias 'message-cross-post-insert-note #[(target-group cross-post in-old old-groups) "\306 \210\307\310P\311\312#\306 \210\307\310\313\n!\314Q \312#\203( \315 \210`\316y\210`|\210\202 \306 \210\307\310\313 !\314Q \312#\203E \315 \210`\316y\210`|\210\202+ \306 \203N \307\f!\210
\204_ \203_ \317\320\"\203h \321Qc\202n \n\321Qc)\207" [mail-header-separator head message-cross-post-note message-followup-to-note message-signature-separator in-old message-goto-signature re-search-backward "^" nil t regexp-quote ".*" beginning-of-line 1 string-match "^[ ]*poster[ ]*$" "\n" cross-post target-group] 4 (#$ . 74998)])
#@116 Crossposts message and set Followup-To to TARGET-GROUP.
With prefix-argument just set Follow-Up, don't cross-post.
(defalias 'message-cross-post-followup-to #[(target-group) "?\206 \306\307!!\206 \310\311\"?\205\\ \212\312\313!\310\314! \206# \315\" \204/ \316\317!\202[ \n\203@ \310\320\314!\321Q \"?\205[ \322!\210 \f\203N
\203W \f?\205X
\205X \323\n $+\207" [target-group old-groups in-old message-cross-post-note-function message-cross-post-default current-prefix-arg zerop string-width string-match "^[ ]*$" message-fetch-field "Newsgroups" regexp-quote "" error "No current newsgroup" "^[ ]*" "[ ]*$" message-cross-post-followup-to-header t] 5 (#$ . 76028) (list (completing-read "Followup To: " (if (boundp 'gnus-newsrc-alist) gnus-newsrc-alist) nil nil '("poster" . 0) (if (boundp 'gnus-group-history) 'gnus-group-history)))])
#@69 Replace contents of To: header with contents of Cc: or Bcc: header.
(defalias 'message-reduce-to-to-cc #[nil "\214\302 \210\303\304!)\305\211\204 \214\302 \210\303\306!)\211\203 \307 \205F \212\310 \210\311 \210`\312y\210`|\210\313 \314Qc\210\214\302 \210\315\203C \306\202D \304!**\207" [bcc cc-content message-narrow-to-headers message-fetch-field "cc" nil "bcc" t message-goto-to beginning-of-line 1 "To: " "\n" message-remove-header] 4 (#$ . 76885) nil])
#@179 Remove HEADER in the narrowed buffer.
If IS-REGEXP, HEADER is a regular expression.
If FIRST, only remove the first instance of the header.
Return the number of headers removed.
(defalias 'message-remove-header #[(header &optional is-regexp first reverse) "eb\210\203 \202 \306\307 !\310Q\311\312\313 m\204l \n\204l \203, \314
!?\202/ \314
!\203T \fT\203< \312`\315y\210\316\317\313\312#\203N \311\224b\202O d|\210\202 \315y\210\316\317\313\312#\203f \311\224b\210\202 db\210\202 \f,\207" [is-regexp header last case-fold-search number regexp "^" regexp-quote ":" 0 t nil looking-at 1 re-search-forward "^[^ ]" reverse first] 5 (#$ . 77358)])
#@64 Remove the first instance of HEADER if there is more than one.
(defalias 'message-remove-first-header #[(header) "\303\304\305!\306Q\212eb\210\307 \310\311#\203 \nT\202
)\n\312V\205/ \313\310\311#\210\nS\211\202 *\207" [header regexp count 0 "^" regexp-quote ":" re-search-forward nil t 1 message-remove-header] 5 (#$ . 78024)])
#@47 Narrow the buffer to the head of the message.
(defalias 'message-narrow-to-headers #[nil "~\210eb\301\302\303!\304Q\305\306#\203 \307\224\202 d}\210eb\207" [mail-header-separator re-search-forward "^" regexp-quote "\n" nil t 0] 5 (#$ . 78368)])
#@46 Like `message-narrow-to-head'. Don't widen.
(defalias 'message-narrow-to-head-1 #[nil "eb\300\301\302\303#\203 `S\202 d}\210eb\207" [search-forward "\n\n" nil 1] 5 (#$ . 78622)])
#@105 Narrow the buffer to the head of the message.
Point is left at the beginning of the narrowed-to region.
(defalias 'message-narrow-to-head #[nil "~\210\300 \207" [message-narrow-to-head-1] 1 (#$ . 78811)])
#@47 Narrow the buffer to the head of the message.
(defalias 'message-narrow-to-headers-or-head #[nil "~\210eb\301\302\303!\304Q\305\306#\203 \307\225\206 \310\224\202 d}\210eb\207" [mail-header-separator re-search-forward "\\(\n\\)\n\\|^\\(" regexp-quote "\n\\)" nil t 1 2] 5 (#$ . 79022)])
#@57 Say whether the current buffer contains a news message.
(defalias 'message-news-p #[nil "?\205 \206 \212\214\302 \210\303\304!\205 \303\305!?*\207" [message-this-is-mail message-this-is-news message-narrow-to-headers message-fetch-field "newsgroups" "posted-to"] 2 (#$ . 79319)])
#@57 Say whether the current buffer contains a mail message.
(defalias 'message-mail-p #[nil "?\205 \206 \212\214\302 \210\303\304!\206 \303\305!\206 \303\306!*\207" [message-this-is-news message-this-is-mail message-narrow-to-headers message-fetch-field "to" "cc" "bcc"] 2 (#$ . 79610)])
#@45 Say whether we need to insert a MFT header.
(defalias 'message-subscribed-p #[nil "\206
\206
\n\206
\207" [message-subscribed-regexps message-subscribed-addresses message-subscribed-address-file message-subscribed-address-functions] 1 (#$ . 79906)])
#@41 Go to the beginning of the next header.
(defalias 'message-next-header #[nil "\300 \210m\204\n \301u\210\302\303\304\305#\203 \300 \202 db?\207" [beginning-of-line 1 re-search-forward "^[^ ]" nil t] 4 (#$ . 80168)])
#@61 Sort the buffer as headers using `message-rank' text props.
(defalias 'message-sort-headers-1 #[nil "eb\210\300\301!\210\302\303\304\305\306$\207" [require sort sort-subr nil message-next-header #[nil "\300 \210o?\205\n \301u\207" [message-next-header -1] 1] #[nil "\300`\301\"\206 \302\207" [get-text-property message-rank 10000] 3]] 5 (#$ . 80393)])
#@85 Sort the headers of the current message according to `message-header-format-alist'.
(defalias 'message-sort-headers #[nil "\212\214GT\303\304 \210\305\306\303\307#\2039 \310\311\224\311\224T\312\313\311\224\311\225S{!\236>G\211\2032 \n Z\2024 \nT$\210\202 *\314 *\207" [message-header-format-alist rank max nil message-narrow-to-headers re-search-forward "^[^ \n]+:" t put-text-property 0 message-rank intern message-sort-headers-1] 7 (#$ . 80752) nil])
#@31 Kill the address under point.
(defalias 'message-kill-address #[nil "`\301 \210\302n\203 `S\202 `\")\207" [start message-skip-to-next-address kill-region] 3 (#$ . 81219) nil])
(autoload 'Info-goto-node "info")
#@212 Display the Message manual.
Prefixed with one \[universal-argument], display the Emacs MIME
manual. With two \[universal-argument]'s, display the EasyPG or
PGG manual, depending on the value of `mml2015-use'.
(defalias 'message-info #[(&optional arg) "\302\303\304\305=\203 \306\307!\210 \202+ \310=\203 \311\202+ \312>\204* 9\203* \202+ \313\"!\207" [arg mml2015-use Info-goto-node format "(%s)Top" 16 require mml2015 4 emacs-mime (nil t) message] 5 (#$ . 81440) "p"])
(defvar message-mode-map nil)
(byte-code "\204\260\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210\304\331\332#\210\304\333\334#\210\304\335\336#\210\304\337\340#\210\304\341\342#\210\304\343\344#\210\304\345\346#\210\304\347\350#\210\304\351\352#\210\304\353\354#\210\304\355\356#\210\304\357\360#\210\304\361\362#\210\304\363\364#\210\304\365\366#\210\304\367\370#\210\304\371\372#\210\304\373\374#\210\304\375\376#\210\304\377\342#\210\304\201@ \201A #\210\304\201B \201C #\210\304\201D \201E #\210\304\201F \201G #\210\304\201H \201I #\210\304\201J \201K #\210\304\201L \201M #\210\304\201N \201O #\210\304\201P \201Q #\210\304\201R \201S #\210\304\201T \201U #\210\304\201V \201W #\210\304\201X \201Y #\210\304\201Z \201[ #\210\304\201\\ \201] #\210\304\201^ \201_ #\210\304\201` \201a #\210\304\201b \201c #\210\304\201d \201e #\210\304\201f \201g #\210\304\201h \201i #\210\304\201j \201k #\210\304\201l \201m #\210\304\201n \201o #\210\302\207" [message-mode-map text-mode-map make-keymap set-keymap-parent define-key "?" describe-mode "" message-goto-to "" message-goto-from "" message-goto-bcc "" message-goto-fcc "" message-goto-cc "" message-goto-subject "" message-goto-reply-to "" message-goto-newsgroups "" message-goto-distribution "" message-goto-followup-to "
" message-goto-mail-followup-to " " message-goto-keywords "" message-goto-summary " " message-insert-or-toggle-importance "" message-generate-unsubscribed-mail-followup-to "s" message-change-subject "x" message-cross-post-followup-to "t" message-reduce-to-to-cc "a" message-add-archive-header "\355" message-mark-inserted-region "\346" message-mark-insert-file "" message-goto-body " " message-goto-signature "" message-insert-to "w" message-insert-wide-reply "" message-insert-newsgroups "\f" message-to-list-only "" message-insert-expires "" "\356" message-insert-disposition-notification-to "" message-yank-original "\231" message-yank-buffer "" message-fill-yanked-message "" message-insert-signature "\350" message-insert-headers "" message-caesar-buffer-body "" message-sort-headers "\362" message-rename-buffer "" message-send-and-exit "" message-send " " message-kill-buffer "" message-dont-send "\n" gnus-delay-article "\353" message-kill-address "" message-elide-region "" message-delete-not-region "" message-kill-to-signature "\215" message-newline-and-reformat [remap split-line] message-split-line "" mml-attach-file "" message-beginning-of-line " " message-tab "\356" message-display-abbrev] 4)
#@15 Message Menu.
(defvar message-mode-menu nil (#$ . 84709))
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320BBBB\"\312\313\321\322\316\323\324BBBB\"\325\326\327\312\313\330\331\332BB\"\333\312\313\334\335\316\336\337BBBB\"\312\313\340\341\342BB\"\333\312\313\343\344\345BB\"\312\313\346\347\350BB\"\312\313\351\352\353BB\"\312\313\354\355\356BB\"\333\312\313\357\360\361BB\"\257$\207" [message-mode-map easy-menu-do-define message-mode-menu "Message Menu." "Message" ["Yank Original" message-yank-original message-reply-buffer] ["Fill Yanked Message" message-fill-yanked-message t] ["Insert Signature" message-insert-signature t] ["Caesar (rot13) Message" message-caesar-buffer-body t] ["Caesar (rot13) Region" message-caesar-region (message-mark-active-p)] apply vector "Elide Region" message-elide-region :active (message-mark-active-p) (:help "Replace text in region with an ellipsis") "Delete Outside Region" message-delete-not-region (message-mark-active-p) (:help "Delete all quoted text outside region") ["Kill To Signature" message-kill-to-signature t] ["Newline and Reformat" message-newline-and-reformat t] ["Rename buffer" message-rename-buffer t] "Spellcheck" ispell-message (:help "Spellcheck this message") "----" "Insert Region Marked" message-mark-inserted-region (message-mark-active-p) (:help "Mark region with enclosing tags") "Insert File Marked..." message-mark-insert-file (:help "Insert file at point marked with enclosing tags") "Send Message" message-send-and-exit (:help "Send this message") "Postpone Message" message-dont-send (:help "File this draft message and exit") "Send at Specific Time..." gnus-delay-article (:help "Ask, then arrange to send message at that time") "Kill Message" message-kill-buffer (:help "Delete this message without sending") "Message manual" message-info (:help "Display the Message manual")] 30)
#@2
(defvar message-mode-field-menu nil (#$ . 86596))
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321BB\"\315\316\322\323\324BB\"\315\316\325\326\327BB\"\330\331\332\333\334\335\336\337\340\341\330\315\316\342\343\344BB\"\315\316\345\346\347BB\"\330\350\351\315\316\352\353\354BB\"\355BBBBBBBBBBBBBBBBBBBBBBBBBBBBB$\207" [message-mode-map easy-menu-do-define message-mode-field-menu "" "Field" ["To" message-goto-to t] ["From" message-goto-from t] ["Subject" message-goto-subject t] ["Change subject..." message-change-subject t] ["Cc" message-goto-cc t] ["Bcc" message-goto-bcc t] ["Fcc" message-goto-fcc t] ["Reply-To" message-goto-reply-to t] apply vector "Flag As Important" message-insert-importance-high (:help "Mark this message as important") "Flag As Unimportant" message-insert-importance-low (:help "Mark this message as unimportant") "Request Receipt" message-insert-disposition-notification-to (:help "Request a receipt notification") "----" ["Summary" message-goto-summary t] ["Keywords" message-goto-keywords t] ["Newsgroups" message-goto-newsgroups t] ["Fetch Newsgroups" message-insert-newsgroups t] ["Followup-To" message-goto-followup-to t] ["Crosspost / Followup-To..." message-cross-post-followup-to t] ["Distribution" message-goto-distribution t] ["Expires" message-insert-expires t] ["X-No-Archive" message-add-archive-header t] "Fetch To" message-insert-to (:help "Insert a To header that points to the author.") "Fetch To and Cc" message-insert-wide-reply (:help "Insert To and Cc headers as if you were doing a wide reply.") ["Send to list only" message-to-list-only t] ["Mail-Followup-To" message-goto-mail-followup-to t] "Unsubscribed list post" message-generate-unsubscribed-mail-followup-to (:help "Insert a reasonable `Mail-Followup-To:' header.") (["Reduce To: to Cc:" message-reduce-to-to-cc t] "----" ["Sort Headers" message-sort-headers t] ["Encode non-ASCII domain names" message-idna-to-ascii-rhs t] ["Show Hidden Headers" widen t] ["Goto Body" message-goto-body t] ["Goto Signature" message-goto-signature t])] 37)
(defvar message-tool-bar-map nil)
#@440 Strip special properties from the message buffer.
Emacs has a number of special text properties which can break message
composing in various ways. If this option is set, message will strip
these properties from the message composition buffer. However, some
packages requires these properties to be present in order to work.
If you use one of these packages, turn this option off, and hope the
message composition doesn't break too bad.
(custom-declare-variable 'message-strip-special-text-properties t '(#$ . 88721) :version "22.1" :group 'message-various :link '(custom-manual "(message)Various Message Variables") :type 'boolean)
#@140 Property list of with properties forbidden in message buffers.
The values of the properties are ignored, only the property names are used.
(defvar message-forbidden-properties '(field nil read-only nil invisible nil intangible nil mouse-face nil modification-hooks nil insert-in-front-hooks nil insert-behind-hooks nil point-entered nil point-left nil) (#$ . 89363))
#@349 Return t when tamago version 4 is not in use at the cursor position.
Tamago version 4 is a popular input method for writing Japanese text.
It uses the properties `intangible', `invisible', `modification-hooks'
and `read-only' when translating ascii or kana text to kanji text.
These properties are essential to work, so we should never strip them.
(defalias 'message-tamago-not-in-use-p #[(pos) "\301\302!\205& \302J\205& \303\304\"\305>\206& \303\306\"\206& \303\307\"\206& \303\310\"?\207" [pos boundp egg-modefull-mode get-text-property intangible (its-part-1 its-part-2) egg-end egg-lang egg-start] 3 (#$ . 89737)])
(defalias 'message-mail-alias-type-p #[(type) ":\204 =\207 >\207" [message-mail-alias-type type] 2])
(put 'message-mail-alias-type-p 'byte-optimizer 'byte-compile-inline-expand)
#@186 Strip forbidden properties between BEGIN and END, ignoring the third arg.
This function is intended to be called from `after-change-functions'.
See also `message-forbidden-properties'.
(defalias 'message-strip-forbidden-properties #[(begin end &optional old-length) "\306 :\204
=\202 >)\203 \n >\203 \307 \210\f\2055 \310
!\2055 \311\312 \f
\313
#*\207" [type message-mail-alias-type this-command message-self-insert-commands message-strip-special-text-properties begin ecomplete message-display-abbrev message-tamago-not-in-use-p nil t remove-text-properties inhibit-read-only buffer-read-only end message-forbidden-properties] 4 (#$ . 90551)])
(byte-code "\300\301\302\"\210\303\304N\204 \305\303\304\306\307!#\210\310\311!\204 \305\311\312\313#\210\300\207" [autoload ecomplete-setup "ecomplete" message-mode-hook variable-documentation put purecopy "Hook run when entering Message mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp message-mode-map definition-name message-mode] 5)
(defvar message-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" [message-mode-map variable-documentation put purecopy "Keymap for `message-mode'." boundp message-mode-syntax-table definition-name message-mode] 5)
(defvar message-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [message-mode-syntax-table variable-documentation put purecopy "Syntax table for `message-mode'." message-mode-abbrev-table definition-name message-mode] 5)
(defvar message-mode-abbrev-table (progn (define-abbrev-table 'message-mode-abbrev-table nil) message-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [message-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `message-mode'." message-mode derived-mode-parent text-mode] 5)
#@2536 Major mode for editing mail and news to be sent.
Like Text Mode but with these additional commands:\<message-mode-map>
C-c C-s `message-send' (send the message) C-c C-c `message-send-and-exit'
C-c C-d Postpone sending the message C-c C-k Kill the message
C-c C-f move to a header field (and create it if there isn't):
C-c C-f C-t move to To C-c C-f C-s move to Subject
C-c C-f C-c move to Cc C-c C-f C-b move to Bcc
C-c C-f C-w move to Fcc C-c C-f C-r move to Reply-To
C-c C-f C-u move to Summary C-c C-f C-n move to Newsgroups
C-c C-f C-k move to Keywords C-c C-f C-d move to Distribution
C-c C-f C-o move to From ("Originator")
C-c C-f C-f move to Followup-To
C-c C-f C-m move to Mail-Followup-To
C-c C-f C-e move to Expires
C-c C-f C-i cycle through Importance values
C-c C-f s change subject and append "(was: <Old Subject>)"
C-c C-f x crossposting with FollowUp-To header and note in body
C-c C-f t replace To: header with contents of Cc: or Bcc:
C-c C-f a Insert X-No-Archive: header and a note in the body
C-c C-t `message-insert-to' (add a To header to a news followup)
C-c C-l `message-to-list-only' (removes all but list address in to/cc)
C-c C-n `message-insert-newsgroups' (add a Newsgroup header to a news reply)
C-c C-b `message-goto-body' (move to beginning of message text).
C-c C-i `message-goto-signature' (move to the beginning of the signature).
C-c C-w `message-insert-signature' (insert `message-signature-file' file).
C-c C-y `message-yank-original' (insert current message, if any).
C-c C-q `message-fill-yanked-message' (fill what was yanked).
C-c C-e `message-elide-region' (elide the text between point and mark).
C-c C-v `message-delete-not-region' (remove the text outside the region).
C-c C-z `message-kill-to-signature' (kill the text up to the signature).
C-c C-r `message-caesar-buffer-body' (rot13 the message body).
C-c C-a `mml-attach-file' (attach a file as MIME).
C-c C-u `message-insert-or-toggle-importance' (insert or cycle importance).
C-c M-n `message-insert-disposition-notification-to' (request receipt).
C-c M-m `message-mark-inserted-region' (mark region with enclosing tags).
C-c M-f `message-mark-insert-file' (insert file marked with enclosing tags).
M-RET `message-newline-and-reformat' (break the line and reformat).
In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `message-mode-hook', as the final step
during initialization.
\{message-mode-map}
(defalias 'message-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324@\325\"\204V @A=\204V \326@\325AC#\210\327 !\210\330\f!\210@ABA\306\331!\210\332\306\333!\210\332\306\334!\210\332 \306\335!\210\332 \306\336!\210\332 \306\337!\210\332 \306\340!\210\332 \306\341!\210\332!\307C\306\342!\210\343\"\306\344!\210\307$\306\345!\210\332%\306\346!\210\306\347!\210\306\350!\210\306\351!\210\332)\306\352!\210\332*\306\353!\210\354+\355 \210D\203\346 DE\356 \210F\203 \306\357!\210F/\306\360!\210\361\362F!\363Q0\306\364!\210\3654\366\367!\203\306\367!\210\370 7\371G \"\210\371H \"\210\372\373!\210\374\373\375\332\376$\210\377 IJ:\204=JI=\202BIJ>)\203j\201M \201N !\203X\201N \210\202\213\201M \201O !\203\213\201O \210\202\213\201P IJ:\204}JI=\202\202IJ>)\203\213\201Q \210\374\201R \201S \332\307$\210K\204\240\201T \210\201U \204\254\201V \210\306\201L !\210\332L\201W \210)\201X \201Y !\207" [delay-mode-hooks major-mode mode-name message-mode-map message-mode-syntax-table parent make-local-variable t text-mode message-mode "Message" 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 message-reply-buffer nil message-inserted-headers message-send-actions message-return-action message-exit-actions message-kill-actions message-postpone-actions message-draft-article facemenu-add-face-function #[(face end) " \236A\211\203 \n` \"\210\202 \305\306\f#\210)\307\207" [face message-face-alist face-fun end mode-name error "Face %s not configured for %s mode" ""] 5] facemenu-remove-face-function message-reply-headers message-newsreader message-mailer message-post-method message-sent-message-via message-checksum message-mime-part 0 message-setup-fill-variables turn-on-auto-fill comment-start comment-start-skip "^" regexp-quote "[ ]*" font-lock-defaults (message-font-lock-keywords t) boundp tool-bar-map message-make-tool-bar easy-menu-add gnus-make-local-hook after-change-functions add-hook message-strip-forbidden-properties local abbrev message-mode-abbrev-table local-abbrev-table text-mode-abbrev-table buffer-offer-save message-fill-column fill-column message-yank-prefix message-mode-menu message-mode-field-menu type message-mail-alias-type buffer-file-name indent-tabs-mode fboundp mail-abbrevs-setup mail-aliases-setup ecomplete ecomplete-setup completion-at-point-functions message-completion-function message-set-auto-save-file-name buffer-base-buffer mm-enable-multibyte mml-mode run-mode-hooks message-mode-hook] 6 (#$ . 92577) nil])
#@31 Setup message fill variables.
(defalias 'message-setup-fill-variables #[nil "\306\300!\210\307\306\310!\210\306\311!\210\306\312!\210\313\301!\204 \314\306\301!\210\315\n\316Q\317\f!\320\321\322\323
\320\324 \320\325\260 \211 \326\nQ\n \326 Q)\306\327!\210\314\306\330!\210\331\205\\ \211\207" [fill-paragraph-function adaptive-fill-first-line-regexp message-cite-prefix-regexp quote-prefix-regexp mail-header-separator page-delimiter make-local-variable message-fill-paragraph paragraph-separate paragraph-start adaptive-fill-regexp boundp nil "\\(" "\\)[ ]*" regexp-quote "$\\|" "[ ]*$\\|" "-- $\\|" "---+$\\|" ".*wrote:$\\|" "<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)" "\\|" auto-fill-inhibit-regexp normal-auto-fill-function message-do-auto-fill auto-fill-function] 12 (#$ . 97933)])
#@30 Move point to the To header.
(defalias 'message-goto-to #[nil "\300 \210\301\302!\207" [push-mark message-position-on-field "To"] 2 (#$ . 98763) nil])
#@32 Move point to the From header.
(defalias 'message-goto-from #[nil "\300 \210\301\302!\207" [push-mark message-position-on-field "From"] 2 (#$ . 98920) nil])
#@35 Move point to the Subject header.
(defalias 'message-goto-subject #[nil "\300 \210\301\302!\207" [push-mark message-position-on-field "Subject"] 2 (#$ . 99083) nil])
#@30 Move point to the Cc header.
(defalias 'message-goto-cc #[nil "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Cc" "To"] 3 (#$ . 99255) nil])
#@32 Move point to the Bcc header.
(defalias 'message-goto-bcc #[nil "\300 \210\301\302\303\304#\207" [push-mark message-position-on-field "Bcc" "Cc" "To"] 4 (#$ . 99422) nil])
#@31 Move point to the Fcc header.
(defalias 'message-goto-fcc #[nil "\300 \210\301\302\303\304#\207" [push-mark message-position-on-field "Fcc" "To" "Newsgroups"] 4 (#$ . 99601) nil])
#@36 Move point to the Reply-To header.
(defalias 'message-goto-reply-to #[nil "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Reply-To" "Subject"] 3 (#$ . 99787) nil])
#@38 Move point to the Newsgroups header.
(defalias 'message-goto-newsgroups #[nil "\300 \210\301\302!\207" [push-mark message-position-on-field "Newsgroups"] 2 (#$ . 99977) nil])
#@40 Move point to the Distribution header.
(defalias 'message-goto-distribution #[nil "\300 \210\301\302!\207" [push-mark message-position-on-field "Distribution"] 2 (#$ . 100158) nil])
#@39 Move point to the Followup-To header.
(defalias 'message-goto-followup-to #[nil "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Followup-To" "Newsgroups"] 3 (#$ . 100346) nil])
#@44 Move point to the Mail-Followup-To header.
(defalias 'message-goto-mail-followup-to #[nil "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Mail-Followup-To" "To"] 3 (#$ . 100549) nil])
#@36 Move point to the Keywords header.
(defalias 'message-goto-keywords #[nil "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Keywords" "Subject"] 3 (#$ . 100759) nil])
#@35 Move point to the Summary header.
(defalias 'message-goto-summary #[nil "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Summary" "Subject"] 3 (#$ . 100950) nil])
#@50 Move point to the beginning of the message body.
(defalias 'message-goto-body #[nil "\301\302!\203 \303\304!\203 \305 \210\306 \210eb\210\307\310\310Q\311\312#\206% \313\314\311\312#\207" [mail-header-separator called-interactively-p any looking-at "[ ]*\n" expand-abbrev push-mark search-forward "\n" nil t search-forward-regexp "[^:]+:\\([^\n]\\|\n[ ]\\)+\n\n"] 4 (#$ . 101138) nil])
#@43 Return t if point is in the message body.
(defalias 'message-in-body-p #[nil "`\212eb\210\301\302\302Q\303\304#\204 \305\306\303\304#\210`)Y\207" [mail-header-separator search-forward "\n" nil t search-forward-regexp "[^:]+:\\([^\n]\\|\n[ ]\\)+\n\n"] 5 (#$ . 101535)])
#@39 Move point to the end of the headers.
(defalias 'message-goto-eoh #[nil "\300 \210\301y\207" [message-goto-body -1] 1 (#$ . 101813) nil])
#@126 Move point to the beginning of the message signature.
If there is no signature in the article, go to the end and
return nil.
(defalias 'message-goto-signature #[nil "\301 \210eb\210\302\303\304#\203 \305y\207db\210\303\207" [message-signature-separator push-mark re-search-forward nil t 1] 4 (#$ . 101958) nil])
#@533 Insert a reasonable MFT header in a post to an unsubscribed list.
When making original posts to a mailing list you are not subscribed to,
you have to type in a MFT header by hand. The contents, usually, are
the addresses of the list and your own address. This function inserts
such a header automatically. It fetches the contents of the To: header
in the current mail buffer, and appends the current `user-mail-address'.
If the optional argument INCLUDE-CC is non-nil, the addresses in the
Cc: header are also put into the MFT.
(defalias 'message-generate-unsubscribed-mail-followup-to #[(&optional include-cc) "\304\211\214\305 \210\306\307!\210\n\205 \310\311!\211\203! \310\312!\313Q\202$ \310\312!)\314 \210 \315 Qc*\207" [cc tos include-cc user-mail-address nil message-narrow-to-headers message-remove-header "Mail-Followup-To" message-fetch-field "Cc" "To" "," message-goto-mail-followup-to ", "] 4 (#$ . 102279) "P"])
#@180 Insert a To header that points to the author of the article being replied to.
If the original author requested not to be sent mail, don't insert unless the
prefix FORCE is given.
(defalias 'message-insert-to #[(&optional force) "\304\305!\211\205 \227\306\232\206 \227\307\232\304\310!\206# \304\311!\206# \304\312! \2038 \n\2038 \313 \2035 \314\2026 \315!\210 \203D \n\204D \316\317!\210\n\205W \204Q ?\205W \320\321\nBC!+\207" [mct dont to force message-fetch-reply-field "mail-copies-to" "never" "nobody" "mail-reply-to" "reply-to" "from" message "Ignoring the user request not to have copies sent via mail" "Complying with the user request not to have copies sent via mail" error "No mail address in the article" message-carefully-insert-headers To] 4 (#$ . 103222) "P"])
#@61 Insert To and Cc headers as if you were doing a wide reply.
(defalias 'message-insert-wide-reply #[nil "\302!\205 \303!\205 rq\210\304\305!)\306 !)\207" [message-reply-buffer headers bufferp buffer-name message-get-reply-headers t message-carefully-insert-headers] 2 (#$ . 104013) nil])
#@229 List of lists of header synonyms.
E.g., if this list contains a member list with elements `Cc' and `To',
then `message-carefully-insert-headers' will not insert a `To' header
when the message is already `Cc'ed to the recipient.
(custom-declare-variable 'message-header-synonyms ''((To Cc Bcc) (Original-To)) '(#$ . 104313) :version "22.1" :group 'message-headers :link '(custom-manual "(message)Message Headers") :type '(repeat sexp))
#@185 Insert the HEADERS, an alist, into the message buffer.
Does not insert the headers when they are already present there
or in the synonym headers, defined by `message-header-synonyms'.
(defalias 'message-carefully-insert-headers #[(headers) "\306\211\205\316 \n@\307 @! A
\306 \310 \306 :\203J @ @>\203= \306\211\202> \310\203J A\211\202! ,\211 \306\211 \310 \306 :\203\225 @\311\307!!\211\203\210 \312\f\"\203\210 \306\211\202\211 \310\203\225 A\211\202` -\211 \203\250 \313\314\f#\210\202\305 \315 !\203\302 \311 !\211\203\302 \312\316\"\204\302 \317c\210\fc\210,\nA\211\204 \306*\207" [headers header --dolist-tail-- header-name new-header message-header-synonyms nil symbol-name t mail-fetch-field string-match message "already have `%s' in `%s'" message-position-on-field "\\` *\\'" ", " #1=#:--cl-var-- synonym #2=#:--cl-var-- #3=#:--cl-var-- synonyms #4=#:--cl-var-- old-header #5=#:--cl-var-- #6=#:--cl-var--] 5 (#$ . 104755)])
#@48 Widen the reply to include maximum recipients.
(defalias 'message-widen-reply #[nil "\304!\205 \305!\205 rq\210\306\307!)\212\214\310 \210 \311\211\205B @\312\313\n@!!\210eb\210\313\n@!\314\nA\315\261\210 A\211\204\" \311-\207" [message-reply-buffer follow-to elem --dolist-tail-- bufferp buffer-name message-get-reply-headers t message-narrow-to-headers nil message-remove-header symbol-name ": " "\n"] 5 (#$ . 105768) nil])
#@65 Insert the Newsgroups header from the article being replied to.
(defalias 'message-insert-newsgroups #[nil "\306\307!\310\307!\311\312\313\314!\210\n\204 \315\316!\202\206 \204# \nc\202\206 \317\n\320\"\317 \320\"\n\312 \211 \203I
@\211 \235\204B \fB
A\211\2045 *\204` \315\321\nG\322V\203[ \323\202\\ \324\"\202\206 \203f \312\312 \211 \205\205
@ \204x \325c\210\312\fc\210
A\211\204n \312*,\207" [insert-newsgroups first new-newsgroups old-newsgroups group --dolist-tail-- mail-fetch-field "newsgroups" message-fetch-reply-field t nil message-position-on-field "Newsgroups" error "No Newsgroups to insert" split-string "[, ]+" "Newgroup%s already in the header" 1 "s" "" ","] 5 (#$ . 106212) nil])
#@77 Delete everything in the body of the current message outside of the region.
(defalias 'message-delete-not-region #[(beg end) "\304\212 b\210`\305 \210`=\204 \306\n!\203 \307\310! b\210`\311 \204& `\202* \312y\210`|\210\313c\210 b\210 \314 \210\315y\210`|\210\203C c\210*\311 \205K \312y\207" [citeprefix beg message-cite-prefix-regexp end nil beginning-of-line looking-at match-string 0 message-goto-signature -2 "\n" message-goto-body 2] 2 (#$ . 106939) "r"])
#@138 Kill all text up to the signature.
If a numeric argument or prefix arg is given, leave that number
of lines before the signature intact.
(defalias 'message-kill-to-signature #[(&optional arg) "\212\214`\211d}\210\302 \210m\204# \203 \247\203 \303 Zy\210\202# \303\210`U?\2056 \304`\"\210n?\2056 \305c+\207" [point arg message-goto-signature -1 kill-region "\n"] 4 (#$ . 107413) "P"])
#@98 Insert four newlines, and then reformat if inside quoted text.
Prefix arg means justify as well.
(defalias 'message-newline-and-reformat #[(&optional arg not-break) "\306\211\211\211\211\211\211 `\307 \210`\211
U\2037 m\2047 \310!\2047 \310!\2037 \311y\210\202 \310!\203O \312\313!\313\225b\210\310\314!\210\312\313!\203l \204l \204l
\fZGW\203l \306\211\203\351 \311y\210m\204\253 \310!\204\253 \310!\203\253 \312\313!\232\203\253 \313\225b\210\310\314!\210\nG\312\313!GV\203\245 \312\313!\311y\210\202t `\fb\210o\204 \315y\210\310!\204 \310!\203 \312\313!\232\203 `\313\225b\210\310\314!\210\nG\312\313!GV\203\260 \312\313!\202\260 m\204\310!\204\310!\204\311y\210\202\351 `\fb\210o\204 \315y\210\310!\204 \310!\204 `\202
b\210\214\f }\210\2032\306\202_ \203<\316 \210\202B\316 \210\316 \210`\316 \210\316 \210`\317\314!|\210\203_ \204_\n\261\210\320 \210\203{\321\nP!\211 \322!\210*\202\200\322!\210
\205\206
b.\207" [fill-paragraph-function bolp leading-space end beg point nil beginning-of-line looking-at 1 match-string 0 "[ ]*" -1 newline re-search-forward undo-boundary regexp-quote fill-paragraph quoted not-break message-cite-prefix-regexp paragraph-start paragraph-separate adaptive-fill-regexp adaptive-fill-first-line-regexp arg] 8 (#$ . 107811) (list (if current-prefix-arg 'full))])
#@171 Message specific function to fill a paragraph.
This function is used as the value of `fill-paragraph-function' in
Message buffers and is not meant to be called directly.
(defalias 'message-fill-paragraph #[(&optional arg) "\302\300!\205 ?\205 \303 \203 \304 \210\202 \305 \306\"\210\306\207" [filladapt-mode arg boundp message-point-in-header-p message-fill-field message-newline-and-reformat t] 3 (#$ . 109222) (list (if current-prefix-arg 'full))])
#@37 Return t if point is in the header.
(defalias 'message-point-in-header-p #[nil "\212\301\302\303!\304Q\305\306#?\205 \307\302\303!\304Q\305\306#)\207" [mail-header-separator re-search-backward "^" regexp-quote "\n" nil t re-search-forward] 4 (#$ . 109684)])
#@56 Like `do-auto-fill', but don't fill in message header.
(defalias 'message-do-auto-fill #[nil "\300 ?\205 \301 \207" [message-point-in-header-p do-auto-fill] 1 (#$ . 109951)])
#@74 Insert a signature. See documentation for variable `message-signature'.
(defalias 'message-insert-signature #[(&optional force) "\204 \306=\203 \212db\210\307\n\310\311#)?\202; \204$ \203$ \311\202; \312!\203/ \202; <\203: \313!\202; \310 ;\203G \202i \311=\205i
\205i \203d \314
!\204d \315
\"\202e
\316\f!\211\205\234 db\210n\204x \317c\210\203\200 \317c\210\320c\210 \311=\203\220 \321\f!\210\202\223 c\210db\210n\206\234 \317c*\207" [message-signature force message-signature-separator signature signature-file message-signature-file 0 re-search-backward nil t functionp eval file-name-directory expand-file-name file-exists-p "\n" "-- \n" insert-file-contents message-signature-directory message-signature-insert-empty-line] 5 (#$ . 110133) (list 0)])
#@45 Insert header to mark message as important.
(defalias 'message-insert-importance-high #[nil "\212\214\300 \210\301\302!\210)\303 \210\304c)\207" [message-narrow-to-headers message-remove-header "Importance" message-goto-eoh "Importance: high\n"] 2 (#$ . 110924) nil])
#@47 Insert header to mark message as unimportant.
(defalias 'message-insert-importance-low #[nil "\212\214\300 \210\301\302!\210)\303 \210\304c)\207" [message-narrow-to-headers message-remove-header "Importance" message-goto-eoh "Importance: low\n"] 2 (#$ . 111198) nil])
#@152 Insert a "Importance: high" header, or cycle through the header values.
The three allowed values according to RFC 1327 are `high', `normal'
and `low'.
(defalias 'message-insert-or-toggle-importance #[nil "\212\302\303\214\304 \210\305\306!\211\203+ \307\306!\210\302\230\203 \310\202* \310\230\203) \311\202* \302)\312 \210\313\314 \"c+\207" [cur new "high" nil message-narrow-to-headers message-fetch-field "Importance" message-remove-header "low" "normal" message-goto-eoh format "Importance: %s\n"] 3 (#$ . 111473) nil])
#@119 Request a disposition notification (return receipt) to this message.
Note that this should not be used in newsgroups.
(defalias 'message-insert-disposition-notification-to #[nil "\212\214\300 \210\301\302!\210)\303 \210\304\305\306\307!\206 \306\310!\206 \311 \"c)\207" [message-narrow-to-headers message-remove-header "Disposition-Notification-To" message-goto-eoh format "Disposition-Notification-To: %s\n" message-field-value "Reply-to" "From" message-make-from] 4 (#$ . 112011) nil])
#@119 Elide the text in the region.
An ellipsis (from `message-elide-ellipsis') will be inserted where the
text was killed.
(defalias 'message-elide-region #[(b e) "\305 \" Z\306 \"\210\307\f\310 B\311\nBD\"c*\207" [b e chars lines message-elide-ellipsis count-lines kill-region format-spec 108 99] 5 (#$ . 112508) "r"])
(defvar message-caesar-translation-table nil)
#@71 Caesar rotate region B to E by N, default 13, for decrypting netnews.
(defalias 'message-caesar-region #[(b e &optional n) "\247\203\f \304\305\"\202
\306\307!\206 \nU?\2052 \203) \310H\310\\U\204- \311!\312 \n #\207" [n b e message-caesar-translation-table mod 26 13 zerop 97 message-make-caesar-translation-table translate-region] 4 (#$ . 112880) (list (min (point) (or (mark t) (point))) (max (point) (or (mark t) (point))) (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))])
#@35 Create a rot table with offset N.
(defalias 'message-make-caesar-translation-table #[(n) "\303\304\305\306\" T\211\305W\203 \211I\210\202 \306\307O\307\n\\\310\307\n\311\nZ#O\307\211\n\\O\312\313O\313\n\\\310\313\n\311\nZ#O\313\211\n\\O\314\315O\260*\207" [table i n -1 make-string 256 0 65 + 26 91 97 123 255] 11 (#$ . 113402)])
#@286 Caesar rotate all letters in the current buffer by 13 places.
Used to encode/decode possibly offensive messages (commonly in rec.humor).
With prefix arg, specifies the number of places to rotate each letter forward.
Mail and USENET news headers are not rotated unless WIDE is non-nil.
(defalias 'message-caesar-buffer-body #[(&optional rotnum wide) "\212\214\204 \302 \203 `d}\210\303ed #*\207" [wide rotnum message-goto-body message-caesar-region] 4 (#$ . 113754) (byte-code "\203 \301!C\207\302C\207" [current-prefix-arg prefix-numeric-value nil] 2)])
#@62 Pipe the message body in the current buffer through PROGRAM.
(defalias 'message-pipe-buffer-body #[(program) "\212\214\301 \203 `d}\210\302ed\303\304%*\207" [program message-goto-body shell-command-on-region nil t] 6 (#$ . 114320)])
#@166 Rename the *message* buffer to "*message* RECIPIENT".
If the function is run with a prefix, it will ask for a new buffer
name, rather than giving an automatic name.
(defalias 'message-rename-buffer #[(&optional enter-string) "\212\214eb\210`\306\307\310#}\210\311 \203 \312\313!\202 \312\314!\206 \315\316\317 \"\2031 \320\211\224O\321P\2022 \322\nP\f\203B \323\324 \"\202C \325
\326\".\207" [mail-header-separator mail-to mail-trimmed-to name-default enter-string name search-forward nil end message-news-p message-fetch-field "Newsgroups" "To" "" string-match "," 0 ", ..." "*message* " read-string "New buffer name: " rename-buffer t] 5 (#$ . 114562) "Pbuffer name: "])
#@96 Fill the paragraphs of a message yanked into this one.
Numeric argument means justify as well.
(defalias 'message-fill-yanked-message #[(&optional justifyp) "\212eb\210\304\305\305Q\306\307#\210 \310`d #*\207" [mail-header-separator message-yank-prefix fill-prefix justifyp search-forward "\n" nil t fill-individual-paragraphs] 4 (#$ . 115253) "P"])
#@322 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 `message-indentation-spaces' spaces.
However, if `message-yank-prefix' is non-nil, insert that prefix on each line.
(defalias 'message-indent-citation #[(&optional start end yank-only) "\204 ` \204\201 \n\203B \306\214b\307\310\306\311#\203 `S\202! `}\210\312\n\311\"\210edU\2030 \311db\210) \203> b\210\202A \313y\210)e\203[ l\203[ m\204[ \314 \210`\313y\210`|\210\202B db\210h\315=\204g \316c\210\317\320y!\203\201 \321\322!\203\201 \314 \210`\313y\210`|\210\202g \f\204\225 \323
\206\216 \324\311!#\210\202\311 \212b\210`
\206\241 \324\311!W\203\310 \321\325!\203\262 c\210\202\302 \321\326!\203\277 c\210\202\302 \fc\210\313y\210\202\231 )b\207" [start yank-only message-ignored-cited-headers all-removed message-yank-prefix end nil search-forward "\n\n" t message-remove-header 1 beginning-of-line 10 "\n" zerop -1 looking-at "$" indent-rigidly mark ">" "^$" message-indentation-spaces message-yank-cited-prefix message-yank-empty-prefix] 5 (#$ . 115612)])
#@172 Remove cited lines containing only blanks.
If REMOVE is non-nil, remove newlines, too.
To use this automatically, you may add this function to
`gnus-message-setup-hook'.
(defalias 'message-remove-blank-cited-lines #[(&optional remove) "\304\305\300!\205\n \306P \307R\310\311\312\n#\210\212\313 \210\314\n\315\316#\205/ \317 \203) \320\202* \321!\210\202 *\207" [message-yank-cited-prefix message-yank-prefix citexp remove "^\\(" boundp "\\|" "\\)+ *\n" gnus-message 8 "removing `%s'" message-goto-body re-search-forward nil t replace-match "" "\n"] 4 (#$ . 116803) "P"])
(defalias 'message--yank-original-internal #[(arg) "\306 \307\n\205\253 \205\253 \f\310\232\203 \212\311 d{\311 d|\210)\312\n!\203* \313\n\314\"\210\315\212\312\n!\2039 \316\n!\210\202L \n:\203L \317\n@!\203L \320\n@\nA\"\210n\204S \321c\210`)!\210
\204y \210\322\314!Sf\321=\204y ` \322\314!b\210\323\321!\210b\210)\324\f\310\"\203\227 \311 \210c\210n\203\216 \325\202\217 \326c\210\311 \210\202\241 \324\f\327\"\203\241 \330 \210 ?\205\253 \331 \211*\207" [body-text modified message-reply-buffer message-cite-function message-cite-reply-position arg buffer-modified-p nil above message-goto-body bufferp delete-windows-on t push-mark insert-buffer-substring functionp apply 10 mark insert-before-markers eql "\n" "\n\n" below message-goto-signature message-checksum pt] 4])
#@406 Insert the message being replied to, if any.
Puts point before the text and mark after.
Normally indents each nonblank line ARG spaces (default 3). However,
if `message-yank-prefix' is non-nil, insert that prefix on each line.
This function uses `message-cite-function' to do the actual citing.
Just \[universal-argument] as argument means don't indent, insert no
prefix, and don't delete any headers.
(defalias 'message-yank-original #[(&optional arg) "\302\303\304\305 DDE!\207" [message-cite-style arg eval let message--yank-original-internal quote] 6 (#$ . 118176) "P"])
#@53 Insert BUFFER into the current buffer and quote it.
(defalias 'message-yank-buffer #[(buffer) "\303!\304 \305\216\306 +\207" [buffer message-reply-buffer #1=#:wconfig get-buffer current-window-configuration ((set-window-configuration #1#)) message-yank-original] 2 (#$ . 118761) "bYank buffer: "])
#@42 Return a list of active message buffers.
(defalias 'message-buffers #[nil "\304r\305\306!\304\211\203* \n@\211q\210\307\310!\203# \204# \311 !B\nA\211\204
+\237)\207" [buffers buffer --dolist-tail-- message-sent-message-via nil buffer-list t derived-mode-p message-mode buffer-name] 3 (#$ . 119068)])
#@171 Cite an original message.
If STRIP-SIGNATURE is non-nil, strips off the signature from the
original message.
This function uses `mail-citation-hook' if that is non-nil.
(defalias 'message-cite-original-1 #[(strip-signature) "\306\300!\203 \203 \307\300!\207`\310\311!\312\f\205% \f<\203# \f\202% \fC \214 \n}\210\313 \210\314\315!\316\317\314\320!\206; \321\314\322!\206B \323\314\324!\314\325\311\"\314\326!\317\211\327& ) (\330 \n\"\210)\203\216 \331 \210\nb\210\332* \311#\203\216 \333y\210\334\335!\203| \333y\210\202p \336y\210`\n|\210\337\340 \311#\204\216 \341c\210 b\210\342\343
\"\210+\203\246 n\204\242 \341c\210+ \210 \205\310 ,?\205\310 \344\345 \"\205\310 \331 \210`\310\311!|\210\346c\210\347 \210\333y-\207" [mail-citation-hook start end x-no-archive message-indent-citation-function functions boundp run-hooks mark t nil message-narrow-to-head-1 message-fetch-field "x-no-archive" vector 0 "subject" "none" "from" "nobody" "date" "message-id" "references" "" mml-quote-region undo-boundary re-search-backward -1 looking-at "^[ ]*$" 1 search-backward "\n\n" "\n" mapc funcall string-match "yes" "> [Quoted text removed due to X-No-Archive]\n" push-mark message-reply-headers strip-signature message-signature-separator message-citation-line-function message-cite-articles-with-x-no-archive] 10 (#$ . 119386)])
#@47 Cite function in the standard Message manner.
(defalias 'message-cite-original #[nil "\300\301!\207" [message-cite-original-1 nil] 2 (#$ . 120731)])
(autoload 'format-spec "format-spec")
#@87 Function that inserts a formatted citation line.
See `message-citation-line-format'.
(defalias 'message-insert-formatted-citation-line #[(&optional from date) "\204\f \205\325\n\205\325 \204 \306H\307\310\311\217\211@\211 \f @ A@ A @\2062 A@\2062 B\n\206q \312\313C\"\205q \314\315\316\"\210\317H\211 D\320\232\203T \321\202p \322\323\324D#\206p \325D! E\326\323\327\324ED%\210E)) F\330\307 G H\f;\203\272 \312\331\f\"\203\226 \332\f\333\"@\332\f\333\"A@@\202\272 \312\334\f\"\203\256 \332\f\335\"A@\332\f\335\"@@\202\272 \312\336\f\"\203\272 \f\320@\337GBG\340GBG\341GBG
GBG\342GBG\343GBG\344GBG\345GBG\346GBG@GBG\347GBGBGBG\350GBG\351GBG\352GBG\353GBG\354GBG\355GBG\356GBG GBG\357GBG\360GBG\361GBGAGBG\362GBG\363GBG\364GBG\365GBG\366GBG\367GBG\370GBG\371GBGH\372X\203\263HG>\204\252H\373X\204\232H\374Y\203\252HGBG\307\375\376\217GBGHT\211H\202\377G!* I\201K \201L I\" J\201M CJ\"c\210. \201N \207" [message-reply-headers from date data name fname 2 nil (byte-code "\302!\203\n \202 \303 !\207" [gnus-extract-address-components from boundp mail-extract-address-components] 2) ((error)) string-match "%[^fnNFL]" autoload gnus-date-get-time "gnus-util" 3 "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1 65 "\\`\\(\\w\\|[-.]\\)+ \\(\\w\\|[-.]\\)+\\'" split-string "[ ]+" "\\`\\(\\w\\|[-.]\\)+, \\(\\w\\|[-.]\\)+\\'" "[ ,]+" "\\`\\(\\w\\|[-.]\\)+\\'" 69 "<E>" 70 74 "<J>" 75 "<K>" 76 78 79 "<O>" 80 "<P>" 81 "<Q>" 102 105 "<i>" 110 111 "<o>" 113 "<q>" 116 "<t>" 118 "<v>" 122 90 97 (byte-code "\302\303\304\" \"\207" [i replydate format-time-string format "%%%c"] 4) ((error (format ">%c<" i))) reverse lname net name-or-net message-citation-line-format d time replydate lst i flist spec apply format-spec-make format-spec newline] 7 (#$ . 120924)])
#@113 Cite function in the standard Message manner.
This function strips off the signature from the original message.
(defalias 'message-cite-original-without-signature #[nil "\300\301!\207" [message-cite-original-1 t] 2 (#$ . 122830)])
#@32 Insert a simple citation line.
(defalias 'message-insert-citation-line #[nil "\205 \301H\302\261\210\303 \210\303 \207" [message-reply-headers 2 " writes:" newline] 2 (#$ . 123067)])
(defalias 'message-position-on-field #[(header &rest afters) "\304\214eb\305\306\307 !\310Q!\210\311\224}\210eb\210\305\306\307\n!\312Q\313\304#\2033 \305\314\313\315#\210\316 \210\317\313x\210\304\202d \203N \305\306\307 @!\312Q\313\304#\204N \211A@\210\2023 \203[ \305\314\313\315#\210\316 \210\n\320\261\210\321u\210\313*\207" [case-fold-search mail-header-separator header afters t re-search-forward "^" regexp-quote "$" 0 ":" nil "^[^ ]" move beginning-of-line "\n" ": \n" -1] 5])
#@210 Send message like `message-send', then, if no errors, exit from mail buffer.
The usage of ARG is defined by the instance that called Message.
It should typically alter the sending method in some way or other.
(defalias 'message-send-and-exit #[(&optional arg) "p\305 !\205! \306\n!\205! \307\n!\210\f\203 \310\n!\210\311 !\210\312*\207" [message-exit-actions actions buf arg message-kill-buffer-on-exit message-send buffer-name message-bury kill-buffer message-do-actions t] 2 (#$ . 123754) "P"])
#@100 Don't send the message you have been editing.
Instead, just auto-save the buffer and then bury it.
(defalias 'message-dont-send #[nil "\302\303!\210\304 \210\305p!\210\306 !)\207" [message-postpone-actions actions set-buffer-modified-p t save-buffer message-bury message-do-actions] 2 (#$ . 124262) nil])
#@26 Kill the current buffer.
(defalias 'message-kill-buffer #[nil "\306 \203 \203 \307\310!\205a \n \f\306 \311\312p!\210\2030 \313!\204< \203\\ \313!\203\\ \314 \210\307\315\316
\203J \317\202K \320\"!\203\\ \311\321\322\217\210\323 \210)\324!-\207" [message-kill-buffer-query message-kill-actions message-draft-article buffer-auto-save-file-name buffer-file-name modified buffer-modified-p yes-or-no-p "Message modified; kill anyway? " nil kill-buffer file-exists-p raise-frame format "Remove the backup file%s? " " too" "" (delete-file auto-save-file-name) ((error)) message-disassociate-draft message-do-actions file-name auto-save-file-name draft-article actions] 5 (#$ . 124575) nil])
#@24 Bury this mail BUFFER.
(defalias 'message-bury #[(buffer) "\203 \302 !\210\303@A\"\207r q\210\302 )\207" [message-return-action buffer bury-buffer apply] 3 (#$ . 125295)])
#@355 Send the message in the current buffer.
If `message-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.
The usage of ARG is defined by the instance that called Message.
It should typically alter the sending method in some way or other.
(defalias 'message-send #[(&optional arg) "\306 \210\307\310ed\311\312$\210)\313 \210\314\315!\210 \203! \316\317!\204! \320 \210\321\n!\210 \307\312\211\211\f - . / 0\322 \210/\203\245 0\211A0@\211.\203\245 .\211 1A@) \2038 .@2>\203\221 \323\324!\204\221 \325 34<?\206t 34>)\204\200 .@\326=\204\213 \316\327\330.@\"!\202\216 \331\332!\2038 .AA@5!\211/\2038 \307-\2028 -\204\370 /\203\370 \323\333!\323\334! 6\211 7\204\302 6\205\360 8\335=\206\360 8\336=?\205\360 \337\327\3407\203\342 6\203\342 \341\202\354 7\203\353 \333\202\354 \334\"!\211*\204\370 \331\342!\210
\204/\205I-\205I\343 \210\212\314\344!\210)\321\345!\210\346 9::\204$:9=\202)9:>)\2035;\2045\347 \210\350\312!\210\351\307!\210\352 \210\353 \210\354<!\210\307.\207" [inhibit-read-only message-confirm-send message-sending-message message-send-method-alist message-options dont-barf-on-no-method undo-boundary t put-text-property read-only nil message-fix-before-sending run-hooks message-send-hook y-or-n-p "Send message? " keyboard-quit message message-options-set-recipient message-fetch-field "supersedes" multiple-copies news format "Already sent message via %s; resend? " error "Denied posting -- multiple copies" "Fcc" "Gcc" always never gnus-y-or-n-p "No receiver, perform %s anyway? " "Fcc and Gcc" "No methods specified to send by" message-do-fcc message-sent-hook "Sending...done" ecomplete message-put-addresses-in-ecomplete set-buffer-modified-p delete-auto-save-file-if-necessary message-disassociate-draft message-do-send-housekeeping message-do-actions sent elem success alist x message-sent-message-via feature message-shoot-gnksa-feet arg gcc fcc message-allow-no-recipients type message-mail-alias-type message-inhibit-ecomplete message-send-actions] 7 (#$ . 125478) "P"])
#@36 Send the current message via mail.
(defalias 'message-send-via-mail #[(arg) "\301!\207" [arg message-send-mail] 2 (#$ . 127643)])
#@36 Send the current message via news.
(defalias 'message-send-via-news #[(arg) " !\207" [message-send-news-function arg] 2 (#$ . 127780)])
#@38 Eval FORMS if TYPE is to be checked.
(defalias 'message-check '(macro . #[(type &rest forms) "\302\303D\304 BE\207" [type forms or message-check-element save-excursion] 4 (#$ . 127923)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put message-check lisp-indent-function 1 edebug-form-spec (form body)] 4)
#@217 Return a list of start and end positions where the text has PROP.
START and END bound the search, they default to `point-min' and
`point-max' respectively. If REVERSE is non-nil, find text which does
not have PROP.
(defalias 'message-text-with-property #[(prop &optional start end reverse) "\204 e \204\f d\306\211\f\203= \203q \307
\306$\211\203q \310
\306 $ \2060 B\nB \211\204 \202q \203q \311
\"\204Z \310
\306 $\211\203q \311
\"\203q \307
\306$ \206g B\nB \211\204A \n\237*\207" [start end regions next reverse prop nil text-property-any next-single-property-change get-text-property] 6 (#$ . 128250)])
#@243 List of regexps of potentially bogus mail addresses.
See `message-check-recipients' how to setup checking.
This list should make it possible to catch typos or warn about
spam-trap addresses. It doesn't aim to verify strict RFC
conformance.
(custom-declare-variable 'message-bogus-addresses ''("noreply" "nospam" "invalid" "@@" "[^[:ascii:]].*@" "[ ]") '(#$ . 128895) :version "23.1" :group 'message-headers :type '(choice (const :tag "None" nil) (list (set :inline t (const "noreply") (const "nospam") (const "invalid") (const :tag "duplicate @" "@@") (const :tag "non-ascii local part" "[^[:ascii:]].*@") (const :tag "whitespace" "[ ]")) (repeat :inline t :tag "Other" (regexp)))))
#@63 Do various things to make the message nice before sending it.
(defalias 'message-fix-before-sending #[nil "db\210n\204\n \306c\210~\210\307 \210\310\311!\204U \212\312\313!\314\211\211\203T \n\203J \n\211@@)\n\211@A)\nA\315 \313\314$\210\316\317 \"\320\321#\210\202\" \322\323!\204T \324\325!\210,\310\326!\2047\212\314\211\211\211 4 5\327 \210\212\330\331\314\332#)6\314w\210\333`\334\"\203\207 \335`\334\"\206\205 db\210\314f\2115\203\276 5\336W\204\253 \337 \203\270 \3405!\341>\203\270 \333`\342\"\204\270 \316\317``T\"\320\321#\210\3324\314u\210\202q 4\2036\343\f\203\314 \344\202\315 \345\346\347\350\3517\"D\352BB\"\211\353=\203\344 \324\354!\210\327 \2106\314w\210m\2046\314f\211 5\336W\206
\337 \205
\3405!\355>\205
\333`\342\"?)\203+
\356=\203 \357 \210\202+\360\361!\210
\347=\203+7c\210\314u\2106\314w\210\202\354 -\310\362!\206A\212\363 )\207" [to from regions x nul-chars choice "\n" message-sort-headers message-check-element invisible-text message-text-with-property invisible nil put-text-property message-overlay-put message-make-overlay face highlight yes-or-no-p "Invisible text found and made visible; continue sending? " error "Invisible text found and made visible" illegible-text message-goto-body search-forward " " t get-text-property no-illegible-text next-single-property-change 128 mm-multibyte-p char-charset (eight-bit-control eight-bit-graphic eight-bit control-1) untranslated-utf-8 gnus-multiple-choice "NUL characters found, which may cause problems. Continue sending?" "Non-printable characters found. Continue sending?" (100 "Remove non-printable characters and send") 114 format "Replace non-printable characters with \"%s\" and send" ((115 "Send as is without removing anything") (101 "Continue editing")) 101 "Non-printable characters" (eight-bit-control eight-bit-graphic eight-bit control-1) 105 message-kill-all-overlays delete-char 1 bogus-recipient message-check-recipients found char mm-7bit-chars message-replacement-char] 8 (#$ . 129588)])
#@324 Check if a mail address in RECIPIENTS looks bogus.
RECIPIENTS is a mail header. Return a list of potentially bogus
addresses. If none is found, return nil.
An address might be bogus if the domain part is not fully
qualified, see `message-valid-fqdn-regexp', or if there's a
matching entry in `message-bogus-addresses'.
(defalias 'message-bogus-recipient-p #[(recipients) "\302\303\304\305 \306\"\"\210)\207" [found recipients nil mapc #[(address) "\211A@)\206\n \306\211\306\230\204= \307\310\"\203\" \307\311\n\312Q\"\203= \205B <\2033 \313\314 \315#\2024 \307\f\")\205B
B\211\207" [address x message-valid-fqdn-regexp message-bogus-addresses re found "" string-match "@" ".@.*\\(" "\\)\\'" mapconcat identity "\\|"] 5] mail-extract-address-components t] 5 (#$ . 131621)])
#@120 Warn before composing or sending a mail to an invalid address.
This function could be useful in `message-setup-hook'.
(defalias 'message-check-recipients #[nil "\214\305 \210\306\307\211\205Z @\310!\211;\203Q \311\n!\307\211\203P @\211\203I \312\313\314 \315 !\211 \230\203; \316\202? \313\317\f\")#!\204I \320\321!\210 A\211\204\" *) A\211\204\f \307+\207" [hdr --dolist-tail-- addr bog encoded message-narrow-to-headers ("To" "Cc" "Bcc") nil message-fetch-field message-bogus-recipient-p y-or-n-p format "Address `%s'%s might be bogus. Continue? " rfc2047-encode-string "" " (%s)" error "Bogus address"] 8 (#$ . 132421) nil])
(custom-add-option 'message-setup-hook 'message-check-recipients)
#@62 Add ACTION to be performed when doing an exit of type TYPES.
(defalias 'message-add-action #[(action &rest types) "\205 \302\303\304\305\211A@\"! \"\210\202 \207" [types action add-to-list intern format "message-%s-actions"] 6 (#$ . 133136)])
#@81 Delete ACTION from lists of actions performed when doing an exit of type TYPES.
(defalias 'message-delete-action #[(action &rest types) "\303 \205 \304\305\306 \211A@\"!\211\307\nJ\"L\210\202 )\207" [var types action nil intern format "message-%s-actions" delq] 5 (#$ . 133390)])
#@33 Perform all actions in ACTIONS.
(defalias 'message-do-actions #[(actions) "\303\211\205 \n@\303\304\305\217\210\nA\211\204 \303*\207" [actions action --dolist-tail-- nil (byte-code "\301!\203\f \210\202 \302!\210\301\207" [action functionp eval] 2) ((error))] 4 (#$ . 133682)])
#@31 Send mail as message/partial.
(defalias 'message-send-mail-partially #[nil "eb\210\306\307\310!\311Q!\210\312\311!\210\313\314!\210eb\315\316!p\317 \320\321\211\211 + , -m\204^ d-.\\W\203? db\210\202S -.\\b\210\322 \210`-X\203S \320y\210- B`-\202+ Gd B\211\237\323\216\212 \211A@- \205$+q\210\324,- @#\210,q\210eb\210 \203\233 eb\210``}\210 c\210\202\311 \325 \210e`{eb\210``}\210 c\210\326\327!\210\326\330!\210\326\331!\210\326\332!\210\326\333!\210db\210\334c\210\335 db\210\336\337
\f\n$c\210\340u\210\341\342/>\203\347 \343\317 \311\261\210\344/>\203\365 \345\346 \311\261\210\347 \210\321\210\336\350\f\n#c\210~\2100\2030 \210\202\351 \210)\fT \211A@-\352 \210\202r .\n\207" [mail-header-separator header total plist n id re-search-forward "^" regexp-quote "\n" replace-match run-hooks message-send-mail-hook message-generate-new-buffer-clone-locals " message temp" message-make-message-id 1 nil beginning-of-line ((kill-buffer tembuf)) copy-to-buffer message-goto-eoh message-remove-header "Mime-Version" "Content-Type" "Content-Transfer-Encoding" "Message-ID" "Lines" "Mime-Version: 1.0\n" buffer-string format "Content-Type: message/partial; id=\"%s\"; number=%d; total=%d\n\n" -1 "" Message-ID "Message-ID: " Lines "Lines: " message-make-lines message-goto-subject " (%d/%d)" message-multi-smtp-send-mail erase-buffer curbuf tembuf p message-send-mail-partially-limit message-required-mail-headers message-send-mail-real-function] 9 (#$ . 133978)])
(defalias 'message-send-mail #[(&optional arg) "\306\307!\210\310\311!\312\313 p\314 \315\316!\203# \317\320!\203# \316\312!\202$
@ A\312 BC\203J C\321=\204J \322\323!\210\306\324!\210\325 \210\326 \210\322\327!\210\214\330 \210\331 \203e \332\333!\204e \334\335 B@BA\202q \332\333!\336\232\203q \337\340!\210\n?\205x D D\341A!\210)\342\343!\204\263 \212eb\210\344\345\312\314#\203\262 \346\224b\210\347\350!\203\242 \351c\210\202\212 \352y\210\347\353!\204\212 \354\355!\210\202\212 )\356\357!\210)EB\360\216rq\210\361 \210BEr q\210\362ed\")c\210\363 \210\214\330 \210\364@>\203\346 \341\365!\210\337F\314\"\210G H\366 \210*db\210h\367U\204 \367c\210\370 \210\214\330 \210\n\205M\371\372!?\205M\371\373!?\205M\371\374!\204+\371\375!\204+\371\376!\205M\371\377!\211 I\203B\201N I!@\201O \230\205L\371\201P !\201Q \230?))\203]\201R r q\210J)!\210\212eb\210\344\201S \312\314#)\203x\201T \201U \201V C\"\210\201W \210K\203\260\201X KW\204\260\201Y \347\201Z \314\201[ \201X \201\\ \245\201] K\201\\ \245\201^ &\204\312\322\201_ !\210L\203\302L \210\202\317\201` \210\202\317\201a \210EB* q\210BE\201b MB\211M.\207" [tembuf case-fold-search news mailbuf message-this-is-mail message-posting-charset require mail-utils message-generate-new-buffer-clone-locals " message temp" nil message-news-p t fboundp gnus-setup-posting-charset boundp gnus-group-posting-charset-alist opportunistic message "Generating hashcash..." hashcash hashcash-wait-async mail-add-payment "Generating hashcash...done" message-narrow-to-headers message-subscribed-p mail-fetch-field "mail-followup-to" "Mail-Followup-To" message-make-mail-followup-to "" message-remove-header "^Mail-Followup-To:" message-generate-headers message-check-element continuation-headers re-search-forward "^[^ \n][^ \n:]*[ \n]" 0 y-or-n-p "Fix continuation lines? " " " 1 "Send anyway? " error "Failed to send the message" run-hooks message-header-hook ((kill-buffer tembuf)) erase-buffer mml-buffer-substring-no-properties-except-hard-newlines message-encode-message-body Lines (Lines) mail-encode-encoded-word-buffer 10 message-cleanup-headers message-fetch-field "List-Post" "List-ID" "cc" "bcc" "to" "content-type" message-required-mail-headers headers options message-generate-hashcash message-deletable-headers message-options message-ignored-mail-headers message-default-charset mail-parse-charset content-type message-courtesy-message message-send-mail-partially-limit message-send-mail-real-function message-sent-message-via mail-header-parse-content-type "text/plain" "content-transfer-encoding" "base64" message-insert-courtesy-copy #1="[^ -\377]" signal cl-assertion-failed (save-excursion (goto-char (point-min)) (not (re-search-forward #1# nil t))) mm-disable-multibyte buffer-size message-talkative-question "The message size is too large, split? " "The message size, " 1000 "KB, is too large.\n\nSome mail gateways (MTA's) bounce large messages. To avoid the\nproblem, answer `y', and the message will be split into several\nsmaller pieces, the size of each is about " "KB except the last\none.\n\nHowever, some mail readers (MUA's) can't read split messages, i.e.,\nmails in message/partially format. Answer `n', and the message will be\nsent in one piece.\n\nThe size limit is controlled by `message-send-mail-partially-limit'.\nIf you always want Gnus to send messages in one piece, set\n`message-send-mail-partially-limit' to nil.\n" "Sending via mail..." message-multi-smtp-send-mail message-send-mail-partially mail] 10])
#@135 Send the current buffer to `message-send-mail-function'.
Or, if there's a header that specifies a different method, use
that instead.
(defalias 'message-multi-smtp-send-mail #[nil "\305\306!\211\204
\202F \307\306!\210\310!\211@\311\232\203! \312 \202F @\313\232\203B \314\315!\210A@\3168\3178\2069 \n \320 +\202F \321\322\")\207" [method message-send-mail-function smtpmail-smtp-user smtpmail-smtp-service smtpmail-smtp-server message-field-value "X-Message-SMTP-Method" message-remove-header split-string "sendmail" message-send-mail-with-sendmail "smtp" require smtpmail 2 3 message-smtpmail-send-it error "Unknown method %s"] 5 (#$ . 139041)])
#@45 Send off the prepared buffer with sendmail.
(defalias 'message-send-mail-with-sendmail #[nil "\306\307!\210\203 \310\311!\202 \312\313\211\314\216\315 \214\316 \210\317\320!)eb\210\321\322\323
!\324Q!\210\325\324!\210\326u\210\327 \330\331!\210 Tb\210\332/!\203I \333 \210\203U r q\210\334 \210))\335 01 2\336\337\340ed3\313 \313\341\25745?\205v \342\343 D?\205| \344\n\203\205 \nC\202\206 \345%\"\211 6\203\251 6\247\203\233 \3466!\204\251 \203\243 \347 !\210\350\3516\"\210+\205\322 r q\210eb\210\321\352\313\315#\203\304 \325\353!\210\202\265 \346\354 !?\205\321 \350\355\356 \"),\207" [message-interactive delimline resend-to-addresses errbuf case-fold-search mail-header-separator require sendmail message-generate-new-buffer-clone-locals " sendmail errors" 0 nil ((byte-code "\301!\203\n \302!\210\301\207" [errbuf bufferp kill-buffer] 2)) t message-narrow-to-headers message-fetch-field "resent-to" re-search-forward "^" regexp-quote "\n" replace-match -1 point-marker run-hooks message-send-mail-hook eval newline erase-buffer "/" apply call-process-region append "-oi" "-f" message-sendmail-envelope-from ("-oem" "-odb") ("-t") zerop pop-to-buffer error "Sending...failed with exit value %d" "\n+ *" "; " buffer-size "Sending...failed to %s" buffer-string message-mailer-swallows-blank-line default-directory message-send-coding-system coding-system-for-write sendmail-program message-sendmail-extra-arguments message-sendmail-f-is-evil cpr] 11 (#$ . 139708)])
#@153 Pass the prepared message buffer to qmail-inject.
Refer to the documentation for the variable `message-send-mail-function'
to find out how to use this.
(defalias 'message-send-mail-with-qmail #[nil "eb\210\306\307\310!\311Q!\210\312\311!\210\313\314!\210 \315\316ed \317\211\211\320\f!\203) \f \202* \f&) \321
\322\"\2039 \317\202V \321
\323\"\203F \324\325!\202V \321
\326\"\203S \324\327!\202V \324\330!)\207" [mail-header-separator message-send-coding-system coding-system-for-write message-qmail-inject-program message-qmail-inject-args #1=#:--cl-var-- re-search-forward "^" regexp-quote "\n" replace-match run-hooks message-send-mail-hook apply call-process-region nil functionp eql 0 100 error "qmail-inject reported permanent failure" 111 "qmail-inject reported transient failure" "qmail-inject reported unknown failure"] 10 (#$ . 141208)])
#@43 Send the prepared message buffer with mh.
(defalias 'message-send-mail-with-mh #[nil "\305\306 \2036 \f\2035 eb\210\307\310\311\f@!\312Q\305\313#\203, \314 \210`\315y\210`|\210\f\211A@\210\202
)\316\317!\210\320 *\207" [name mh-previous-window-config buffer-file-name message-mh-deletable-headers headers nil mh-new-draft-name re-search-forward "^" symbol-name ": *" t beginning-of-line 1 run-hooks message-send-mail-hook mh-send-letter] 4 (#$ . 142065)])
#@294 Send the prepared message buffer with `smtpmail-send-it'.
The only difference from `smtpmail-send-it' is that this command
evaluates `message-send-mail-hook' just before sending a message.
It is useful if your ISP requires the POP-before-SMTP
authentication. See the Gnus manual for details.
(defalias 'message-smtpmail-send-it #[nil "\300\301!\210\302 \207" [run-hooks message-send-mail-hook smtpmail-send-it] 2 (#$ . 142537)])
#@194 Send the prepared message buffer with `mailclient-send-it'.
The only difference from `mailclient-send-it' is that this
command evaluates `message-send-mail-hook' just before sending a message.
(defalias 'message-send-mail-with-mailclient #[nil "\300\301!\210\302 \207" [run-hooks message-send-mail-hook mailclient-send-it] 2 (#$ . 142974)])
#@117 Return a string that is non-trivial to guess.
Do not use this for anything important, it is cryptographically weak.
(defalias 'message-canlock-generate #[nil "\301\302!\210\303\302\304 \305\306\307 \307 \307 $\310\311 !\310\312 !R!)\207" [sha1-maximum-internal-length require sha1 nil message-unique-id format "%x%x%x" random prin1-to-string recent-keys garbage-collect] 7 (#$ . 143322)])
#@183 The password used by message for cancel locks.
This is the value of `canlock-password', if that option is non-nil.
Otherwise, generate and save a value for `canlock-password' first.
(defalias 'message-canlock-password #[nil "\302\303!\210\204 \304\300\305 \"\210\207" [canlock-password canlock-password-for-verify require canlock customize-save-variable message-canlock-generate] 3 (#$ . 143719)])
(defalias 'message-insert-canlock #[nil "\205 \301 \210\302 \207" [message-insert-canlock message-canlock-password canlock-insert-header] 1])
(autoload 'nnheader-get-report "nnheader")
(defalias 'message-send-news #[(&optional arg) "\306\307!\210\310\311!\312\313\n!\203 \n !\202 \n \214\314 \210\315\316!) \214\314 \210\315\317!) 8\320\f
\" 9\320\f8\2069 \321\" :\3229\205G \3169BC:\205Q \317:BC;# ;p < \203j =<\203j \323=B\202l = =\324 >\325
! ?\312 @\326 \205;\214\327 \210\330A!\210\331 \210\332\333!\210)9\203\240 =<\203\240 \334=B=\335 \210\f\336 )\205;\337\216rq\210\340 \210\341 \210r<q\210\342ed\")c\210\343 \210\214\327 \210\344B>\203\325 \330\345!\210\346C\324\"\210D E\347 \210*db\210h\350U\204\357 \350c\210\324eb\210\351\352\353F!\354Q!\210\355\354!\210\356u\210)\332\357!\210\360\f!\210\361\362\363\f!\"\210\321 F\364\f!)@*<q\210@\2032\365GB\211G\202;\361\366\367\f@!\"\210\312.
\207" [tembuf case-fold-search message-post-method arg method newsgroups-field require gnus-msg message-generate-new-buffer-clone-locals " *message temp*" nil functionp message-narrow-to-headers-or-head message-fetch-field "Newsgroups" "Followup-To" gnus-group-name-charset "" append (existing-newsgroups . disabled) t gnus-setup-posting-charset message-check-news-body-syntax message-narrow-to-headers message-generate-headers message-insert-canlock run-hooks message-header-hook (valid-newsgroups . disabled) message-cleanup-headers message-check-news-syntax ((kill-buffer tembuf)) buffer-disable-undo erase-buffer mml-buffer-substring-no-properties-except-hard-newlines message-encode-message-body Lines (Lines) message-remove-header mail-encode-encoded-word-buffer 10 re-search-forward "^" regexp-quote "\n" replace-match -1 message-send-news-hook gnus-open-server message "Sending news via %s..." gnus-server-string gnus-request-post news "Couldn't send message via news: %s" nnheader-get-report followup-field group-field-charset followup-field-charset rfc2047-header-encoding-alist messbuf message-syntax-checks message-this-is-news message-posting-charset result message-required-news-headers message-required-mail-headers message-ignored-news-headers message-default-charset mail-parse-charset mail-header-separator message-sent-message-via] 4])
#@51 Return non-nil if this TYPE is not to be checked.
(defalias 'message-check-element #[(type) "\303=\203 \304\207 \236\211:\205 \nA\305=)\207" [message-syntax-checks type able dont-check-for-anything-just-trust-me t disabled] 3 (#$ . 146414)])
#@34 Check the syntax of the message.
(defalias 'message-check-news-syntax #[nil "\212\214~\210\212\214\300 \210\301 ,\207" [message-narrow-to-headers message-check-news-header-syntax] 1 (#$ . 146667)])
(defalias 'message-check-news-header-syntax #[nil "\306\307!\204 \212\310\311!\211\203 \312\313\"?\206 \314\315\316!\210*\205h\306\302!\204B \212\317\310\320!\211\2039 \312\313\n\"?\206> \314\315\321!\210+\205h\306\322!\204] \212\312\323\310\320!\"\203X \324\325!\202Y \317)\205h\306\326!\204\246 \212\314\327\314 \204\223 \330\331\314\317#\203\223 `\327\224Z\332V\203\211 \317`\327\224Z\202\215 \333\334!\334y\210\202j \203\241 \324\335\336
\f#!\202\242 \317,\205h\306\337!\204\351 \212\314 \204\327 \330\340\314\317#\203\327 \212\330\341\342\327\224\327\225\343Z{\211!\344Q\314\317#\204\323 \314)\202\257 \203\344 \324\335\345 \"!\202\345 \317*\205h\306\346!\204 \212\330\347\314\317#\203\324\335\350\327\224\327\225S{\"!\202\317)\205h\306\351!\204P\212\310\311!\310\352!\314 @ A\211 \203O\312\353\"\203OA\204O\354\355\356\357\360\361\362!B\"\"\211@G!\204Oeb\210\363@\364\261\210,\306\365!\204j\212\330\366\314\317#\203e\324\367!\202f\317)\205h\306\370!\204\204\212\330\371\314\317#\203\324\372!\202\200\317)\205h\306\373!\204\276\212\317\310\374\317\"\211 ;?\206\272\312\375;\"\203\261\312\376;\"\203\261\312\377;\"?\206\272\324\335\201R ;\"!+\205h\306\201S !\204\212\317\310\311! \310\352! A\362A\203\342\353AQ\202\344! B\201T C!\203\366C \202\370C\211 D:\203#D@\201U =\203#E\203#\201V E@EA\"@\201W !)\202%D F\357\201X \201Y F!\" G\314 HB\203iB@\361\232\204^B@G\235\204^B@H\235\204^B@HBHB\211AB@\210\2027\201Z \201I !\203\202I\203\202\201Z \201J !\204\206\317\202J\203\224J\201[ =\203\321H\203\321\324\335\201\\ HG\334U\203\254\201] \202\257\201^ HG\334U\203\275\201_ \202\300\201` \201a \201b H\201c #$!\202H\204\332\317\202\324\335\201d HG\334U\203\355\201] \202\360\201^ HG\334U\203\376\201_ \202\201` \201a \201b H\201c #$!. \205h\306\201e !\204X\212eb\210\317 K\330\201f \314\317#\203R\327\224b\210\324\201g !\203A\201h c\210\202#\334y\210\324\201i !\204#\314K\202#K*\205h\306\201j !\204\305\212\317\201k \314\211 L MM\203\255L\204\255\201l M@!\211\203\235\312\201m
\"\203\232\314\357\201n \362
\353\"\">\203\235\317LL\204mM\211AM@\210\202mL\204\266\317\202\301\324\335\201o M@
#!-\205h\306\201p !\2043\212\317\201q \314\211\211\211 B L MM\203 L\204 \201l M\211AM@!\211\203\337\362
\353\"BB\211AB@\211\203\337B\235\203\377L\314\211B\202L\204%\317\202.\324\335\201r L\"!.\205h\306\201N !\204\343\212\317\310\201s ! N\314 ON\204W\315\201t !\210\314\202\337\312\201u \201v N!A@\211O\"\203\234\312\201w O\"\204\234\312\201x O\"\204\234\312\201y O\"\204\234\312\201z O\"\203\234\312\201{ N\"\203\250\315\201| N\"\210\314\202\337\201} N!\211 P:\203\314\201~ P@!\201 =\204\314PA\211P\202\261P)\203\336\315\201\200 N\"\210\314\202\337\317,\205h\306\201Q !\206h\212\317\310\201\201 ! Q\314 OQ\204\317\202g\312\353Q\"\203\324\335\201\202 Q\"!\202g\312\201u \201v Q!A@\211O\"\203Z\312\201w O\"\204Z\312\201x O\"\204Z\312\201y O\"\204Z\312\201z O\"\203Z\312\201{ Q\"\203f\324\335\201\203 Q\"!\202g\317,\207" [group case-fold-search subject found length header message-check-element newsgroups message-fetch-field "newsgroups" string-match "\\`[ ]*\\'" nil message "The newsgroups field is empty or missing. Posting is denied." t "subject" "The subject field is empty or missing. Posting is denied." subject-cmsg "^cmsg " y-or-n-p "The control code \"cmsg\" is in the subject. Really post? " long-header-lines 0 re-search-forward "^\\([^ :]+\\): " 998 match-string-no-properties 1 format "Your %s header is too long (%d). Really post? " multiple-headers "^[^ :]+: " "^" regexp-quote 2 ":" "Multiple %s headers. Really post? " sendsys "^Sendsys:\\|^Version:" "The article contains a %s command. Really post? " shorten-followup-to "followup-to" "," zerop completing-read "Followups to (default no Followup-To header): " mapcar list "poster" message-tokenize-header "Followup-To: " "\n" shoot "Message-ID.*.i-did-not-set--mail-host-address--so-tickle-me" "You appear to have a misconfigured system. Really post? " approved "^Approved:" "The article contains an Approved header. Really post? " message-id "message-id" "@" "@[^.]*\\." "\\.>" to followup-to groups message-post-method post-method gnus-message-group-art method known-groups errors gnus-active-hashtb gnus-read-active-file do-posting error headers from ad addresses reply-to "The Message-ID looks strange: \"%s\". Really post? " existing-newsgroups functionp nnvirtual nnvirtual-find-group-art gnus-find-method-for-group #[(n) "\303\304\305 \"\203 \306\225\307O\202 )\310\n\"\"\207" [n gname method gnus-group-name-decode string-match "^[^:]+:" 0 nil gnus-group-name-charset] 5] gnus-groups-from-server boundp some "Really use %s possibly unknown group%s: %s? " "this" "these" "" "s" mapconcat identity ", " "Really post to %s unknown group%s: %s? " continuation-headers "^[^ \n][^ \n:]*[ \n]" "Fix continuation lines? " " " "Send anyway? " valid-newsgroups ("Newsgroups" "Followup-To") mail-fetch-field "\\`\\([-+_&.a-zA-Z0-9]+\\)?\\(,[-+_&.a-zA-Z0-9]+\\)*\\'" #[(g) "\301\302\"?\207" [g string-match "\\.\\'\\|\\.\\."] 3] "The %s header looks odd: \"%s\". Really post? " repeated-newsgroups ("Newsgroups" "Followup-To") "Group %s is repeated in headers. Really post? " "from" "There is no From line. Posting is denied." "@[^\\.]*\\." mail-extract-address-components "\\.\\." "@\\." "\\.$" "^[^@]+@[^@]+$" "(.*).*(.*)" "Denied posting -- the From looks strange: \"%s\"." rfc822-addresses string-to-char 40 "Denied posting -- bad From address: \"%s\"." "reply-to" "Multiple Reply-To addresses: \"%s\". Really post? " "The Reply-To looks strange: \"%s\". Really post? "] 10])
(defalias 'message-check-news-body-syntax #[nil "\306\307!\204@ \212eb\210\310\311\312!\313Q!\210\314y\210\315\316!\204* `\317\210` Z\320W)\2031 \321\314y!\204 n\206< m\206< \322\323!)\205\270\306\324!\204\212 \212eb\210\310\311\312!\313Q!\210\314y\210`db\210\325 \317\326#\210\327 \210\325\330\n\326#\206\206 \331
<?\206w \f
>)\203\201 \322\332!\202\206 \333\334!\210\317*\205\270\306\335!\204\246 \212\310\336\337!\317\326#\203\241 \322\340!\202\242 \326)\205\270\306\341!\204\303 \212\342 \343V\203\276 \322\344\345\342 \"!\202\277 \326)\205\270\306\346!\204\367 \212'?\206\363 \347 '=?\206\363 \350
<?\206\344 \f
>)\203\356 \322\351!\202\363 \333\352!\210\317)\205\270\306\353!\204^\212\317\211 : ;db\210\325 \317\326#\204\326\202Z\354 T;\310\355\317\326#\203&\356 S\202'd:\357;:\"\360Y\203Y\353
<?\206?\f
>)\203Q\322\344\361\357;:\"\"!\202Z\333\362!\210\317\202Z\326+\205\270\306\363!\206\270\212db\210\326 <\364\365\317\326#\203z\366\367\317\326#<<\203\203\326\202\267\350
<?\206\216\f
>)\203\230\322\370!\202\267eb\210\310\311\312!\313Q!\210\366\367\317\326#\203\262\322\370!\202\267\333\371!\210\317*\207" [mail-header-separator p b message-signature-separator feature message-shoot-gnksa-feet message-check-element long-lines re-search-forward "^" regexp-quote "$" 1 looking-at "<#\\(/\\)?\\(multipart\\|part\\|external\\|mml\\)" nil 80 zerop y-or-n-p "You have lines longer than 79 characters. Really post? " empty re-search-backward t beginning-of-line "[^ \n ]" empty-article "Empty article. Really post? " message "Denied posting -- Empty article." control-chars mm-string-to-multibyte "[ -
- - \200-\237]" "The article contains control characters. Really post? " size buffer-size 60000 format "The article is %d octets long. Really post? " new-text message-checksum quoted-text-only "It looks like no new text has been added. Really post? " "Denied posting -- no new text has been added." signature point-at-eol "<#/?\\(multipart\\|part\\|external\\|mml\\)" point-at-bol count-lines 5 "Signature is excessively long (%d lines). Really post? " "Denied posting -- Excessive signature." quoting-style search-backward-regexp "^>[^\n]*\n" search-forward-regexp "^[ ]*[^>\n]" "Your text should follow quoted text. Really post? " "Denied posting -- only quoted text." sig-end sig-start no-problem] 6])
#@45 Return a "checksum" for the current buffer.
(defalias 'message-checksum #[nil "\302\212eb\210\303\304\305 !\306Q!\210m\2043 \307\310!\204- \311\312\313\"\314!\203( \302\202) \313\315f#\313u\210\202 ))\207" [sum mail-header-separator 0 re-search-forward "^" regexp-quote "$" looking-at "[ \n]" logxor ash 1 natnump nil] 4 (#$ . 155059)])
#@44 Process Fcc headers in the current buffer.
(defalias 'message-do-fcc #[nil "\306p\307\211 \212\214\310 \210\311\312\306\")\n\205\332 \313\314!q\210\315 \210\316\f!\210\317 \210\214\310 \210\311\312\306\"\211\203B \n B\320\312\307\306#\210\202, &\321'B ' (\322 \210+eb\210\323\324\325)!\326Q\307\306#\203g \327\330\306\211#\210 \203\327 \211A@\331\332\n\"\203\214 \333ed*\307\211\211+\334\335\n\"&\210\202g \336\n!\337\340\n!!\204\237 \341\340\n!\306\"\210,\203\263 ,\342=\204\263 ,\n!\210\202g \343\n!\203\311 \344\n!\203\311 \342\n\335\307\306$\210\202g \306 -\342\n\335\306\211$\210)\202g \345p!.\207" [message-fcc-externalize-attachments mml-externalize-attachments file list buf case-fold-search t nil message-narrow-to-headers message-fetch-field "fcc" get-buffer-create " *message temp*" erase-buffer insert-buffer-substring message-encode-message-body message-remove-header ("Newsgroups" . default) mail-encode-encoded-word-buffer re-search-forward "^" regexp-quote "$" replace-match "" string-match "^[ ]*|[ ]*\\(.*\\)[ ]*$" call-process-region match-string 1 expand-file-name file-exists-p file-name-directory make-directory rmail-output file-readable-p mail-file-babyl-p kill-buffer message-default-charset rfc2047-header-encoding-alist mail-parse-charset mail-header-separator shell-file-name shell-command-switch message-fcc-handler-function mail-use-rfc822] 11 (#$ . 155409)])
#@55 Append this article to Unix/babyl mail file FILENAME.
(defalias 'message-output #[(filename) "\303!\203\f \304!\204 \305!\211\205 r q\210\n)\306=)\203% \307\310\"\207\311\310\"\207" [filename buff major-mode file-readable-p mail-file-babyl-p find-buffer-visiting rmail-mode gnus-output-to-rmail t gnus-output-to-mail] 4 (#$ . 156830)])
#@47 Do various automatic cleanups of the headers.
(defalias 'message-cleanup-headers #[nil "\214\300 \210\301\302\303\304#\203 \305\306\304\211#\210\202 eb\210\301\307\303\304#\205r \214`\301\310\303\304#\203/ \311\224\2023 \312y\210`}\210eb\210\301\313\303\304#\203I \305\314\304\211#\210\2028 eb\210\301\315\303\304#\203] \305\316\304\211#\210\202L eb\210\301\317\303\304#\203n \305\306\304\211#\210)\202 )\207" [message-narrow-to-headers re-search-forward "^[ ]*\n" nil t replace-match "" "^\\(Newsgroups\\|Followup-To\\): +" "^[^ ]" 0 1 "\n[ ]+" " " "[ \n]*,[ \n]*\\|[ ]+" "," ",+$"] 5 (#$ . 157180)])
#@58 Make a valid data header.
If NOW, use that time instead.
(defalias 'message-make-date #[(&optional now) "\302\303\304 \")\207" [system-time-locale now "C" format-time-string "%a, %d %b %Y %T %z"] 3 (#$ . 157797)])
#@50 Insert the Expires header. Expiry in DAYS days.
(defalias 'message-insert-expires #[(days) "\212\301\302\303\"\210\304!c)\207" [days message-position-on-field "Expires" "X-Draft-From" message-make-expires-date] 3 (#$ . 158018) "NExpire article in how many days? "])
#@125 Make date string for the Expires header. Expiry in DAYS days.
In posting styles use `("Expires" (make-expires-date 30))'.
(defalias 'message-make-expires-date #[(days) "\304\305 ! \3068\\\306\233\211\n\240\210)\307\310\311\"!*\207" [cur days nday #1=#:c decode-time current-time 3 message-make-date apply encode-time] 5 (#$ . 158293)])
#@27 Make a unique Message-ID.
(defalias 'message-make-message-id #[nil "\303\304 \212\305\306!)\212\305\307!)\n\203/ \n\310H\203/ \n\311H\203/ \203/ \312\n\311H!\312 !\230\203: \203> \313\314\"\203> \315\202? \316*\317\320 \321\260\207" [psupersedes psubject message-reply-headers "<" message-unique-id message-fetch-field "subject" "supersedes" 5 1 message-strip-subject-re string-match "_-_@" "_-_" "" "@" message-make-fqdn ">"] 6 (#$ . 158643)])
(defvar message-unique-id-char nil)
(defalias 'message-unique-id #[nil "\206 \305\306 !\307\310\311\"S\"T\312\246\313 \314=\204\" \315\316 !\203; \317 \227 \320\321\f\"\2036 \f\322\224\323I\210\202& \f)\202@ \324\316 \325\"\324\n@\307\326\246\327\"\\\330\"\324\nA@\307\326\245\327\"\\\330\"\331R)\207" [message-unique-id-char most-positive-fixnum tm system-type user logand random lsh 1 20 625 current-time ms-dos floatp user-uid user-login-name string-match "[^a-z0-9_]" 0 95 message-number-base36 -1 25 16 4 ".fsf"] 7])
(defalias 'message-number-base36 #[(num len) "\302W\203\f \302X\202 \302U\203 \303\207\304 \305\245S\"\306\307 \305\246H!P\207" [len num 0 "" message-number-base36 36 char-to-string "zyxwvutsrqponmlkjihgfedcba9876543210"] 5])
#@30 Make an Organization header.
(defalias 'message-make-organization #[nil "\205 \304!\203 \202 \305\306!r\nq\210\307\216\310 \210 ;\203) c\210\202= \311=\203= \203= \312 !\203= \313 !\210eb\210\314\315\316\311#\203Q \317\320\311\211#\210\202@ \321\322 !?\205[ \323 ,\207" [message-user-organization organization #1=#:temp-buffer message-user-organization-file functionp generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte t file-exists-p insert-file-contents re-search-forward "[ \n]+" nil replace-match "" zerop buffer-size buffer-string] 4 (#$ . 159861)])
#@54 Count the number of lines and return numeric string.
(defalias 'message-make-lines #[nil "\212\214~\210\300 \210\301\302`d\"!*\207" [message-goto-body int-to-string count-lines] 4 (#$ . 160514)])
#@48 Return the References header for this message.
(defalias 'message-make-references #[nil "\205% \303H\304H \204 \n\205$ \206 \305 \205 \306\n\206# \305Q*\207" [message-reply-headers references message-id 4 5 "" " "] 3 (#$ . 160716)])
#@49 Return the In-Reply-To header for this message.
(defalias 'message-make-in-reply-to #[nil "\205\214 \306H\307H\310H\211\205\213 \311 ! \211\205 \312\f@\203o \313\314\f@\"\203j \315\316! r
q\210\317\216\320 \210\f@c\210eb\210\321\322\323\324#\203a \325u\210\326\327\323x\306\246!\330\224b\210\203[ \331c\210\323u\210\202? \322\332 \322Q+\202r \f@\202r \fA@\333\n\203} \n\334\230\203\201 \335\202\202 \n\322 \205\210 \336\260)+\207" [message-reply-headers msg-id date from name #1=#:temp-buffer 2 3 4 mail-extract-address-components " (" string-match "[^ -]" generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte search-forward "\"" nil t -1 zerop "\\\\" 0 "\\" buffer-string "'s message of \"" "" "(unknown date)" ")"] 8 (#$ . 160964)])
#@29 Make a Distribution header.
(defalias 'message-make-distribution #[nil "\302\303!\304 !\203 \202 )\207" [orig-distribution message-distribution-function message-fetch-reply-field "distribution" functionp] 2 (#$ . 161793)])
#@54 Return an Expires header based on `message-expires'.
(defalias 'message-make-expires #[nil "\303 \304\305\306#\211\211@\307 \310\311\312\"\245!\\\240\210\nA\nA@\307 !\310\311\312\"\246\\\240\210\313\n!*\207" [message-expires future current current-time * 1.0 86400 round expt 2 16 message-make-date] 8 (#$ . 162028)])
#@19 Return uucp path.
(defalias 'message-make-path #[nil "\302 \204 \303 \304Q\202 ;\203 \304Q\202 )\207" [login-name message-user-path user-login-name system-name "!"] 3 (#$ . 162355)])
#@21 Make a From header.
(defalias 'message-make-from #[(&optional name address) "\n\206 \306 \f\206 \307\305!\203
\206 \305 \211 '\310\230\203% \311 '\312\313! (r(q\210\314\216\315 \210 \203? '\316\232\203E c\210\202\357 \317=\204\202 \320=\204\263 \321\322'\"\203\202 '\323P )\321\324)\"\203y )\325\224\326I\210)\325\225S\326I\210\202_ \321\327)\")\203\263 'c\210eb\210\330\322\323\331#\203\252 eb\210\332c\210\330\333\323\331#\203\247 \334\335\336\"\210\202\227 \332c\210\337 \340\261\210\202\357 \341\261\210` *'c\210*b\210\330\342\323\331#\203\323 \334\335\336\"\210\202\303 *b\210\330\343\323\331#\203\353 \334\344\336\"\210*b\210\202\327 )\345c\210\346 .\207" [message-from-style style address login name user-full-name message-make-address boundp "&" user-login-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-enable-multibyte "" angles parens string-match "[^- !#-'*+/-9=?A-Z^-~]" nil "([^()]*)" 0 45 "[\\()]" re-search-forward 1 "\"" "[\"\\]" replace-match "\\\\\\&" t " <" ">" " (" "[()\\]" "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" "\\1(\\3)" ")" buffer-string fullname #1# tmp fullname-start] 5 (#$ . 162555)])
#@131 Return the "real" user address.
This function tries to ignore all user modifications, and
give as trustworthy answer as possible.
(defalias 'message-make-sender #[nil "\300 \301\302 Q\207" [user-login-name "@" system-name] 3 (#$ . 163825)])
#@31 Make the address of the user.
(defalias 'message-make-address #[nil "\300 \206 \301 \302\303 Q\207" [message-user-mail-address user-login-name "@" message-make-domain] 3 (#$ . 164072)])
#@51 Return the pertinent part of `user-mail-address'.
(defalias 'message-user-mail-address #[nil "\205 \301\302\"\205 \301\303\"\203 \304!A@\207\207" [user-mail-address string-match "@.*\\." " " mail-extract-address-components] 3 (#$ . 164265)])
#@27 Return the envelope from.
(defalias 'message-sendmail-envelope-from #[nil "\301=\203 \302\303\304!!A@\207;\203 \207\305 \207" [message-sendmail-envelope-from header mail-extract-address-components message-fetch-field "from" message-make-address] 3 (#$ . 164521)])
#@44 Return user's fully qualified domain name.
(defalias 'message-make-fqdn #[nil "\300 \306 \211\205 \307\310 \"\205 \311\312 \"\313\f\2034 \f;\2034 \307
\f\"\2034 \307\f\"\2044 \f\202\210 \307
\"\203G \307\"\204G \202\210 \314\315!\203i
;\203i \307
\"\203i \307
\"\204i
\202\210 \n\203\205 \n;\203\205 \307
\n\"\203\205 \307\n\"\204\205 \n\202\210 \316P,\207" [system-name user-mail user-domain case-fold-search message-user-fqdn message-valid-fqdn-regexp message-user-mail-address string-match "@\\(.*\\)\\'" match-string 1 t boundp mail-host-address ".i-did-not-set--mail-host-address--so-tickle-me" message-bogus-system-names] 4 (#$ . 164796)])
#@25 Return the domain name.
(defalias 'message-make-domain #[nil "\206 \301 \207" [mail-host-address message-make-fqdn] 1 (#$ . 165473)])
#@100 Send a message to the list only.
Remove all addresses but the list address from To and Cc headers.
(defalias 'message-to-list-only #[nil "\301\302!\211\205 \212\303\304!\210\303\305!\210\306\307\310\"\210c))\207" [listaddr message-make-mail-followup-to t message-remove-header "to" "cc" message-position-on-field "To" "X-Draft-From"] 4 (#$ . 165616) nil])
#@177 Return the Mail-Followup-To header.
If passed the optional argument ONLY-SHOW-SUBSCRIBED only return the
subscribed address (and not the additional To and Cc header contents).
(defalias 'message-make-mail-followup-to #[(&optional only-show-subscribed) "\306\307\310!\307\311! \211\205 \n\205 \312\nQ\313\314\315 !\"
\205\203 \316\211\211\211 !\212\317\320! \"r\"q\210\321\216\322
!\210m\204w `!\323y\210` n\203U S \324! {! \203n \325 Q \202? \326 P \202? \205\201 \327PC. #\330\331$\313\324%\"#\313\332&\"% '\333 (\334\216\f )\316 *\306 +\316 ,):\203 )@*' -\316 .\306 /\316 0-:\203\355 -@.\335.*\"\203\340 \3060\316\211/\202\341 \306\203\355 -A\211-\202\304 0,\203\376 *,\316\211+\202\377 \306\203 )A\211)\202\254 ,,\211 1\205 2\203 1\202 .\n\207" [case-fold-search to cc msg-recipients recipients message-subscribed-address-file t message-fetch-field "To" "cc" ", " mapcar mail-strip-quoted-names message-tokenize-header nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents 1 regexp-quote "\\|" "\\`\\(" "\\)\\'" apply append funcall match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match re item end begin #1# file-regexps message-subscribed-regexps message-subscribed-addresses message-subscribed-address-functions mft-regexps save-match-data-internal #2=#:--cl-var-- recipient #3=#:--cl-var-- #4=#:--cl-var-- #5=#:--cl-var-- regexp #6=#:--cl-var-- #7=#:--cl-var-- list only-show-subscribed] 9 (#$ . 165982)])
#@63 Interactively potentially IDNA encode domain names in HEADER.
(defalias 'message-idna-to-ascii-rhs-1 #[(header) "\306!\307\211\205\201 \310\311\312\311\313\311\314\315\n\316\"\"\"\"!\307\211 \205\200 \f@\317\320 \"\203. \2022 \321 !\227 \232\204x
\322=\203J \323\324\325 $!\203x eb\210\326\327\330Q\307\316#\203x \331 \210\332\333 P\307\316#\203p \334\333 P\316\211#\210\202[ db\210~\210\202M \fA\211\204 \307**\207" [header ace field rhs --dolist-tail-- message-use-idna message-fetch-field nil mm-delete-duplicates mapcar #[(rhs) "\302\303\"\211A@)\206
\304\207" [rhs x split-string "@" #1=""] 4] downcase #[(elem) "\211A@)\206\n \302\207" [elem x #1#] 2] mail-extract-address-components t string-match "\\`[[:ascii:]]*\\'" idna-to-ascii ask y-or-n-p format "Replace %s with %s in %s:? " re-search-forward "^" ":" message-narrow-to-field search-forward "@" replace-match] 11 (#$ . 167619)])
#@103 Possibly IDNA encode non-ASCII domain names in From:, To: and Cc: headers.
See `message-idna-encode'.
(defalias 'message-idna-to-ascii-rhs #[nil "\205! \212\214\301 \210\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310!*\207" [message-use-idna message-narrow-to-headers-or-head message-idna-to-ascii-rhs-1 "From" "To" "Reply-To" "Mail-Reply-To" "Mail-Followup-To" "Cc"] 2 (#$ . 168538) nil])
#@83 Prepare article HEADERS.
Headers already prepared in the buffer are not modified.
(defalias 'message-generate-headers #[(headers) "\306 \"\214\307 \210\310 \311 \312 \313 \314 @\315\211 A B\316 C\317 D\315 E\320 F\321 GH I\322 J\323 K\315\211 L M\315\211 N O\315 PQ\324 \204[ \325\303\326!\"\203\214 eb\210\327\330\331@!\332Q\315\323#\203\203 \333\334\224T\335\"\203\203 \336 \210`\337y\210`|\210\211A@\210\202[ )\203\371eb\210\211A@\211O:\203\273 O@\340=\203\263 OAM\323L\202\277 O@M\202\277 OMM;\203\312 M\202\316 \331M!P\327\330\341P\227!\342Q\315\323#\203\365 \315f\343U\204\354 \344c\210\202\357 \337u\210\345\346!\203\215 O:\203.O@\340=\203.PR\235\204.OAM\347OA!\203 OA \206w\350OA!\205wOAJ\202wO:\203POA;\203AOA\206w\347OA!\205wOA \202w\350M!\203cMJ\203cMJ\202w\351\352\331M!\227!!?\205w\353\354\355M\"!\211N\203\215 N\356\232\204\215 \212n\203\304db\210MS\236A\211 T\203\243TMN\"\210\202\253P\357N\261\210PRBR\360 b\210n\204\275\361c\210\362y\210)\202\334`\363 |\210L\204\334PRBRNc\210\360 \210MQ>\203\365\336 \210\345\364!\203\365\365`\334\225\366p$\210)\202\215 \367\370!\367\371!\372 U ;\211 V\203h\351\373!\204h\374V!\211 WA@)\227U\227\230\204h;\203:\374;!\211 WA@)\227U\227\230\204heb\210\327\375\315\323#\203N\336 \210\376c\210\336 \210\377 \204_\201X \201Y U\"\203h\201Z U\361\261\210+\201[ .\207" [headers message-required-headers Date Message-ID Organization From append message-narrow-to-headers message-make-date message-make-message-id message-make-organization message-make-from message-make-path nil message-make-in-reply-to message-make-references message-make-distribution message-make-lines message-make-expires t buffer-modified-p delq copy-sequence re-search-forward "^" symbol-name ": *" get-text-property 0 message-deletable beginning-of-line 1 optional regexp-quote ":" 32 " " looking-at "[ ]*\n[^ ]" functionp boundp message-check-element intern read-from-minibuffer format "Empty header for %s; enter value: " "" ": " message-fill-field "\n" -1 point-at-eol "[^:]+: " add-text-properties (message-deletable t face italic) message-fetch-field "from" "sender" message-make-sender sender mail-extract-address-components "^\\(Original-\\)*Sender:" "Original-" message-news-p Path Subject Newsgroups In-Reply-To References To Distribution Lines message-newsreader User-Agent Expires case-fold-search optionalp header value elem header-string message-deletable-headers message-inserted-headers message-header-format-alist formatter secure-sender from x string-match "@.+\\.." "Sender: " message-idna-to-ascii-rhs] 6 (#$ . 168961)])
#@64 Insert a courtesy message in mail copies of combined messages.
(defalias 'message-insert-courtesy-copy #[(message) "\302\212\214\303 \210\304\305!\211\203 db\210\306\307\261\210)\310y\210 \2051 \311\312 \"\203/ \313 \"c\2021 c*\207" [newsgroups message nil message-narrow-to-headers message-fetch-field "newsgroups" "Posted-To: " "\n" 1 string-match "%s" format] 3 (#$ . 171649)])
(defalias 'message-skip-to-next-address #[nil "\212\303 \210`)\304\211\305\306!\203 \307u\210`\nU\204? \310=\203$ \203? \311\nw\210g\211\312=\2033 ?`\nU\204 \307u\210\202 \313\304w+\207" [char quoted end message-next-header nil looking-at "," 1 44 "^,\"" 34 " \n"] 3])
#@140 Split current line, moving portion beyond point vertically down.
If the current line has `message-yank-prefix', insert it on the new line.
(defalias 'message-split-line #[nil "\300\301\302\217\207" [nil (split-line message-yank-prefix) ((error (split-line)))] 3 (#$ . 172325) "*"])
(defalias 'message-insert-header #[(header value) "\302\303!!\304 :\203 @\202 \261\207" [header value capitalize symbol-name ": "] 3])
(defalias 'message-field-name #[nil "\212eb\210\300\301!\205 \302\303\304\305!!!)\207" [looking-at "\\([^:]+\\):" intern capitalize match-string 1] 4])
(defalias 'message-fill-field #[nil "\212\214\303 \210\304 \211 \236\211A@)\206 \305 \210)d*\207" [field-name message-field-fillers x message-narrow-to-field message-field-name message-fill-field-general] 3])
(defalias 'message-fill-field-address #[nil "\302\211 \204; \303 \210n\203 \304\210\305\202 m\203 \304i\306V\2036 \2036 \212b\210\307\310\302x[!\210\311c\210)`\202 y*\207" [last end nil message-skip-to-next-address 0 1 78 delete-char " " "\n "] 3])
(defalias 'message-fill-field-general #[nil "`\303\304\305\306\307\310#\203 m\204 \311\312\310\211#\210\202 \313\nd\"\210\314y\210\315\316!\2033 \317 \210`\320y\210`|\210\nb\210\305\321\307\310#\210\315\322!\203H \311\312\310\211#\210db+\207" [fill-prefix fill-column begin 78 " " search-forward "\n" nil t replace-match " " fill-region-as-paragraph -1 looking-at "[ ]*$" beginning-of-line 1 ":" "\n[ ]+"] 4])
#@61 Cut SURPLUS elements out of LIST, beginning with CUTth one.
(defalias 'message-shorten-1 #[(list cut surplus) "\303Z \233\304\303Z\n\305# \233\241\207" [cut list surplus 2 + 1] 5 (#$ . 173800)])
#@202 Trim REFERENCES to be 21 Message-ID long or less, and fold them.
When sending via news, also check that the REFERENCES are less
than 988 characters long, and if they are not, trim them until
they are.
(defalias 'message-shorten-references #[(header references) "\306\307\310\311\312\313! r\fq\210\314\216
c\210eb\210\315\316\311\317#\203) \320\307!B\202 \237\211G+\n V\203H \n Z \321 #\210\nZ)\203t \322\312\313! r q\210\323\216\324 \325\326\327#\"\210\330 +W\203t \321 \331#\210\202M \324 \325\326\327#\",\207" [refs cut count maxcount #1=#:temp-buffer references 21 0 2 nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward "<[^ <]+@[^ <]+>" t match-string message-shorten-1 998 ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) message-insert-header mapconcat identity " " buffer-size 1 surplus message-this-is-news #2# header] 8 (#$ . 174004)])
#@57 Move point to where the user probably wants to find it.
(defalias 'message-position-point #[nil "\300 \210\301\302\303\304#\203! \305\306!\210~\210\307u\210\303f\310=\203 \307u\207\311c\207db\210~\210\307y\210\312\313!?\2052 \314y\207" [message-narrow-to-headers re-search-forward "^[^:]+:[ ]*$" nil t search-backward ":" 1 32 " " looking-at "$" 2] 4 (#$ . 175006)])
#@93 Whether \<message-mode-map>\[message-beginning-of-line] goes to beginning of header values.
(custom-declare-variable 'message-beginning-of-line t '(#$ . 175381) :version "22.1" :group 'message-buffers :link '(custom-manual "(message)Movement") :type 'boolean)
#@620 Move point to beginning of header value or to beginning of line.
The prefix argument N is passed directly to `beginning-of-line'.
This command is identical to `beginning-of-line' if point is
outside the message header or if the option `message-beginning-of-line'
is nil.
If point is in the message header and on a (non-continued) header
line, move point to the beginning of the header value or the beginning of line,
whichever is closer. If point is already at beginning of line, move point to
beginning of header value. Therefore, repeated calls will toggle point
between beginning of field and beginning of line.
(defalias 'message-beginning-of-line #[(&optional n) "\2032 \306 \2032 `\307\n!\210`\310 \311\312\f\313#\211 \203.
W\204* U\203.
\202/ b,\207\307\n!\207" [message-beginning-of-line here n bol eol eoh message-point-in-header-p beginning-of-line point-at-eol re-search-forward ": *" t] 5 (#$ . 175648) "p"])
#@57 Return a new (unique) buffer name based on TYPE and TO.
(defalias 'message-buffer-name #[(type &optional to group) "\306>\2032 \307\310 \n\203 \311\312\n!@\206 \n\313Q\202 \313 \203, \313\230\204, \314 P\202- \313\310\260!\207\315!\203> \n #\207\316=\203p \307\317 \n\203Y \311\312\n!@\206T \n\313Q\202Z \313 \203j \313\230\204j \314 P\202k \313\310\260!\207\320=\203 \307\310 \321Q!\202\207 \322\323 \n #) \324\325\326\327\f\"\203\231 \f\330\211\224O\202\232 \f!\331Q \332 \"\333\334\335\332\336\337\340 \"\"\341\"!\211 #@A)\206\270 \f+\207" [message-generate-new-buffers type to group new regexp (unique t) generate-new-buffer-name "*" " to " mail-extract-address-components "" " on " functionp unsent "*unsent " standard " message*" unique message-buffer-name "\\`" regexp-quote string-match "<[0-9]+>\\'" 0 "\\(?:<\\([0-9]+\\)>\\)?\\'" nil last sort delq mapcar #[(b) "\303\304 !\211\"\205\" r q\210\n)\305=\205\" \306\307\310 \"\206 \311! B\207" [regexp b major-mode string-match buffer-name message-mode string-to-number match-string 1 "1"] 4] buffer-list car-less-than-car case-fold-search x] 8 (#$ . 176589)])
#@68 Pop to buffer NAME, and warn if it already exists and is modified.
(defalias 'message-pop-to-buffer #[(name &optional switch-function) "\304!\211\203F \305 !\203F \306 \307\"\211\203$ \310\311\n!!\210\312\n!\210\202/ \206) \313 !\210 q\210\314 \203B \315\316!\317\320!\210\204B \321\322!\210)\202[ \206U \323\324!\203T \324\202U \313!\210q\210\325 \210\326 )\207" [name buffer window switch-function get-buffer buffer-name get-buffer-window 0 gnus-select-frame-set-input-focus window-frame select-window pop-to-buffer buffer-modified-p y-or-n-p "Message already being composed; erase? " message nil error "Message being composed" fboundp pop-to-buffer-same-window erase-buffer message-mode] 4 (#$ . 177731)])
#@27 Kill old message buffers.
(defalias 'message-do-send-housekeeping #[nil "\304p\" \203. \203. G Y\203. \211A@\305\n!\203* \306\n!\204* \307\n!\210)\202 \2038 \210\202; \310 \210 \205E pC\244\211\207" [message-buffer-list message-max-buffers buffer message-send-rename-function delq buffer-name buffer-modified-p kill-buffer message-default-send-rename-function] 3 (#$ . 178453)])
(defalias 'message-default-send-rename-function #[nil "\303\304\305 \"\205i \306\307\305 \"\310\211\211\203* \n\311\230\204* \n\312\230\204* \313\n\314Q\202\\ \315 \210\316\317!\316\320!~\210 \203I \321\322 !@\206D \314Q\202[ \203Z \323\230\204Z \324\314Q\202[ \325\n\305 \230?\205h \326\n\327\"+\207" [group to name string-match "\\`\\*\\(sent \\|unsent \\)?\\(.+\\)\\*[^\\*]*\\|\\`mail to " buffer-name match-string 2 nil "mail" "posting" "*sent " "*" message-narrow-to-headers message-fetch-field "to" "newsgroups" "*sent mail to " mail-extract-address-components "" "*sent posting on " "*sent mail*" rename-buffer t] 4])
(defalias 'message-mail-user-agent #[nil "\204 \303\202 \304=\203 \202 \211\305>?\205 \n)\207" [message-mail-user-agent mail-user-agent mua nil t (message-user-agent gnus-user-agent)] 3])
(defalias 'message-setup #[(headers &optional yank-action actions continue switch-function return-action) "\306 \307\211\211\f\203 \204 \310
$\202d \311
!\312
\236\211\2031 A\313
\"\314
\236\211\203A A\313
\" \315 \n\316\317
\"\320!\203] \321D\202_ &),\207" [field to subject mua message-this-is-mail headers message-mail-user-agent nil message-setup-1 copy-sequence Subject delq To compose-mail mapcar #[(item) "\301\302@\"AB\207" [item format "%s"] 3] bufferp insert-buffer yank-action actions return-action mail-user-agent continue switch-function] 9])
#@210 Return a list that includes all headers from HEADERS.
If INCLUDED-HEADERS is a list, just include those headers. If it is
t, include all headers. In any case, headers from EXCLUDED-HEADERS
are not included.
(defalias 'message-headers-to-generate #[(headers included-headers excluded-headers) "\306\211\n\306\211 \203K \f@\211:\203 @\307=\203 A\202+ :\203* @\202+ \211
>\204D \310=\204@ >\203D B\fA\211\204\f * \237*\207" [header-name result headers header --dolist-tail-- excluded-headers nil optional t included-headers] 3 (#$ . 180283)])
(defalias 'message-setup-1 #[(headers &optional yank-action actions return-action) "\306\211\203 \n@\306\307\306\217\210\nA\211\204 *
:\203,
@\310=\203,
A@\202-
\"eb\210\311#$ % &&\203g &\211 '@@)$\236\204\\ &\211 '@@)C%B%&\211A&@\210\202; %*#\"\210`\312y\210`|\210(\203\222 \313(!\203\207 ( \202\211 (c\210n\204\222 \314c\210)\315Pc\210\312y\210*\316=\203\246 \316\202\253 \317*\320\" *\321 \203\320 +\203\302 +c\210n\204\302 \314c\210\322\323\317,-\"*\324#!\210\325 \203\363 .\203\345 .c\210n\204\345 \314c\210\322\323\317/-\"*\326#!\210)\327\330!\210\331 \210\214\332 \210\327\333!\210)\30601\203\334 \210\327\335!\210\325 \203%\214\332 \2102\203$\336 \210)\337 \210\340\306!\210\341 \210\316\207" [actions action --dolist-tail-- return-action message-return-action yank-action nil (byte-code "\301\302\303\304@D\304ADE\"\207" [action add-to-list message-send-actions apply quote] 6) insert-buffer mail-header-format -1 functionp 10 "\n" t append (References) message-news-p message-generate-headers message-headers-to-generate (Lines Subject) message-mail-p (Lines Subject) run-hooks message-signature-setup-hook message-insert-signature message-narrow-to-headers message-header-setup-hook mail-add-payment-async message-setup-hook message-use-alternative-email-as-from message-position-point set-buffer-modified-p undo-boundary message-reply-buffer headers message-header-format-alist alist h x message-default-headers mail-header-separator message-generate-headers-first message-default-news-headers message-required-news-headers message-required-headers message-default-mail-headers message-required-mail-headers buffer-undo-list message-generate-hashcash message-alternative-emails] 6])
#@67 Associate the message buffer with a file in the drafts directory.
(defalias 'message-set-auto-save-file-name #[nil "\205: \306\307!!\204 \310\311\"\210\312 \203 \313\314!\2023 \315\n\316>\203( \317\202) \320\321\322!P\"\323 \324 \210
\211\207" [message-auto-save-directory message-draft-article system-type buffer-file-name buffer-auto-save-file-name message-draft-coding-system file-directory-p directory-file-name make-directory t gnus-alive-p nndraft-request-associate-buffer "drafts" expand-file-name (ms-dos windows-nt cygwin) "message" "*message*" format-time-string "-%Y%m%d-%H%M%S" make-auto-save-file-name clear-visited-file-modtime buffer-file-coding-system] 4 (#$ . 182598)])
#@60 Disassociate the message buffer from the drafts directory.
(defalias 'message-disassociate-draft #[nil "\205 \301C\302\303\304$\207" [message-draft-article nndraft-request-expire-articles "drafts" nil t] 5 (#$ . 183302)])
#@39 Generate the headers for the article.
(defalias 'message-insert-headers #[nil "\212\214\302 \210\303 \203 \304\305\306\305\307\310!\"\"!\210\311 \205& \304\305\306\305\307\310 !\"\"!*\207" [message-required-news-headers message-required-mail-headers message-narrow-to-headers message-news-p message-generate-headers delq Lines Subject copy-sequence message-mail-p] 7 (#$ . 183533) nil])
#@246 Start editing a mail message to be sent.
OTHER-HEADERS is an alist of header/value pairs. CONTINUE says whether
to continue editing a message already being composed. SWITCH-FUNCTION
is a function used to switch to and display the mail buffer.
(defalias 'message-mail #[(&optional to subject other-headers continue switch-function yank-action send-actions return-action &rest ignored) "\306\307 \204\" \310 \203 \n\311=\204 \312\n!\205 \n\313\314 \")\f\"\210\315\316 \206) \317B\320
\2060 \317BD\321 \211 \203\\ @\211@;\203S \322\323@!!\240\210A\211\204= \321*\244 \f&)\207" [message-this-is-mail continue message-generate-new-buffers to switch-function subject t message-mail-user-agent message-pop-to-buffer standard functionp message-buffer-name "mail" message-setup To "" Subject nil intern capitalize other-headers h --dolist-tail-- yank-action send-actions return-action] 8 (#$ . 183929) nil])
#@42 Start editing a news article to be sent.
(defalias 'message-news #[(&optional newsgroups subject) "\303\304\305\306\307 #!\210\310\311 \206 \312B\313\n\206 \312BD!)\207" [message-this-is-news newsgroups subject t message-pop-to-buffer message-buffer-name "posting" nil message-setup Newsgroups "" Subject] 5 (#$ . 184868) nil])
#@270 Discard mail address in full names.
When the full name in reply headers contains the mail
address (e.g. "foo@bar <foo@bar>"), discard full name.
ADDRCELL is a cons cell where the car is the mail address and the
cdr is the complete address (full name and mail address).
(defalias 'message-alter-recipients-discard-bogus-full-name #[(addrcell) "\301\302@!\303\302@!QA\"\203 @@B\207\207" [addrcell string-match regexp-quote ".*"] 5 (#$ . 185206)])
#@188 Function called to allow alteration of reply header structures.
It is called in `message-get-reply-headers' for each recipient.
The function is called with one parameter, a cons cell ...
(custom-declare-variable 'message-alter-recipients-function nil '(#$ . 185665) :type '(choice (const :tag "None" nil) (const :tag "Discard bogus full name" message-alter-recipients-discard-bogus-full-name) function) :version "23.1" :group 'message-headers)
(defalias 'message-get-reply-headers #[(wide &optional to-address address-headers) "\306\211\211\211\211\211\211\211\211 < = >\214\307 \210\310\311!\206^ ? @\306 A\312 B\306 C@:\203U @@A\313A>\203H \312C\306\211B\202I \312\203U @A\211@\202. C,\205^ \310\314!\310\315!D\205q \316\317\320\310D\"\321#\310\322!=\310\323!\206\212 \310\324!\206\212 \310\325!\206\212 \326E\205\223 \310\327!)=\203\306 =\227\330\232\204\252 =\227\331\232\203\263 \312<\306=\202\306 =\227\332\232\204\303 =\227\333\232\203\306 =\334 F\335\216G\203\344 \321GP=\203\210 \321=Q\202\210H\204\360 \321 P\202\210I\203#I\306 J\211 K\203 K@J\310J!\211 L\203 \321LQ)KA\211K\204 *\202\210\n\203U\336\337\n\"\203UE\340=\203N\341\342\343\312\344\n\345\336\346\n\"\203G\347\202H\350\351&\203U\321\nP\202\210<\203^\326\202a\321 P
\203k \321
Q\f\203t \321\fQ\203} \321Q=\203\210 \321=Q G\352Y\203\224 \352\306O\336\353 \"\203\245\354\355\312\211 $\202\224\356M! N\357 !) \326\230\203\270 \320\360\361 !\"\211 OO\203\367O\211AO@@ P\362PO\"\203\363\363\362PO\" \"\363\362PO\"O\"O\202\321)\202\302)Q\203G\320\364 \"\306\211 R S TT\203F\362T@Q\"STATS\203 SASS\203 \362S@ \"RSASR\203&\363R \"\202&+\365 !\366 \211A@ABC> \203\200U\203e\342\367!\203\200\316\370 \321#\336\371 \"\203x \372\225\306O\373 B>B>*>. \207" [extra recipients mft author cc to nil message-narrow-to-headers-or-head message-fetch-field "to" t Original-To "original-to" "cc" mapconcat identity mapcar ", " "mail-copies-to" "mail-reply-to" "reply-to" "from" "" "mail-followup-to" "never" "nobody" "always" "poster" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "[^ ,]" ask message-talkative-question y-or-n-p "Obey Mail-Followup-To? " "You should normally obey the Mail-Followup-To: header. In this\narticle, it has the value of\n\n" "\n\nwhich directs your response to " "," "the specified addresses" "that address only" ".\n\nMost commonly, Mail-Followup-To is used by a mailing list poster to\nexpress that responses should be sent to just the list, and not the\nposter as well.\n\nIf a message is posted to several mailing lists, Mail-Followup-To may\nalso be used to direct the following discussion to one list only,\nbecause discussions that are spread over several lists tend to be\nfragmented and very difficult to follow.\n\nAlso, some source/announcement lists are not intended for discussion;\nresponses here are directed to other addresses.\n\nYou may customize the variable `message-use-mail-followup-to', if you\nwant to get rid of this query permanently." 2 "[ ][ ]+" replace-match " " gmm-regexp-concat mail-dont-reply-to #[(addr) "\203
\302 !\227 B!\207\302 !\227 B\207" [message-alter-recipients-function addr mail-strip-quoted-names] 3] message-tokenize-header assoc delq car message-prune-recipients To "Reply to all recipients? " #[(addr) "A\207" [addr] 1] "^ +" 0 Cc never-mct mct follow-to message-header-synonyms #1=#:--cl-var-- synonym #2=#:--cl-var-- #3=#:--cl-var-- message-extra-wide-headers message-use-mail-followup-to save-match-data-internal to-address wide address-headers header --dolist-tail-- value message-dont-reply-to-names mail-dont-reply-to-names s address message-hierarchical-addresses recip subaddrs plain-addrs message-wide-reply-confirm-recipients] 11])
(defalias 'message-prune-recipients #[(recipients) "\306\211\203u \n@\211@\306\211 \n\306 \211\203m \n@\211 @\307
\"\203f \310 \211 \fA@)\306\211 $\n\306 \211\203e \n@ @=\204^ \307\f @\"\203^ \311 \n\"\n\nA\211\204A *\nA\211\204 -\nA\211\204 *\n\207" [message-prune-recipient-rules rule --dolist-tail-- address dup-match match nil string-match replace-match delq recipients recipient x] 6])
#@312 List of functions taking a string argument that simplify subjects.
The functions are applied when replying to a message.
Useful functions to put in this list include:
`message-strip-list-identifiers', `message-strip-subject-re',
`message-strip-subject-trailing-was', and
`message-strip-subject-encoded-words'.
(custom-declare-variable 'message-simplify-subject-functions ''(message-strip-list-identifiers message-strip-subject-re message-strip-subject-trailing-was message-strip-subject-encoded-words) '(#$ . 189984) :version "22.1" :group 'message-various :type '(repeat function))
#@28 Return simplified SUBJECT.
(defalias 'message-simplify-subject #[(subject &optional functions) "\204 \305>\203 \n\203 \305 !\306>\203 \307\306 !P\310>\203. \f\203. \310 !\311>\2038 \311 ! \207" [functions message-simplify-subject-functions gnus-list-identifiers subject message-subject-trailing-was-query message-strip-list-identifiers message-strip-subject-re "Re: " message-strip-subject-trailing-was message-strip-subject-encoded-words] 3 (#$ . 190574)])
#@61 Start editing a reply to the article in the current buffer.
(defalias 'message-reply #[(&optional to-address wide switch-function) "\306\307!\210p\310\211\211\211\211\211\311\211\310 $ % & '\214\312 \210(\2045 \313)!\203B \212) )\202B \313*!\203B \212* )\314\315\311\"\314\316!\314\317!$\314\320!\206W \321&\314\322!\206` \323%\324%!%\314\325!\211\203| \326\327\"\203| \330\331\" \204\207 \332(+\")\333%B B ,\334 \204\257 \335\336(\203\240 \337\202\241 \340&(\205\252 +#-\"\210\341\331\333,\236A&$\f
\331\211\342& .\343,'\". \207" [gnus-warning message-this-is-mail inhibit-point-motion-hooks follow-to message-id references require gnus-sum nil t message-narrow-to-head-1 functionp message-fetch-field "message-id" "references" "date" "from" "nobody" "subject" "none" message-simplify-subject "gnus-warning" string-match "<[^>]+>" match-string 0 message-get-reply-headers Subject message-mail-user-agent message-pop-to-buffer message-buffer-name "wide reply" "reply" vector "" message-setup date subject from cur wide message-reply-to-function message-wide-reply-to-function to-address headers switch-function message-reply-headers] 10 (#$ . 191053) nil])
#@59 Make a "wide" reply to the message in the current buffer.
(defalias 'message-wide-reply #[(&optional to-address) "\301\302\"\207" [to-address message-reply t] 3 (#$ . 192255) nil])
#@104 Follow up to the message in the current buffer.
If TO-NEWSGROUPS, use that as the new Newsgroups line.
(defalias 'message-followup #[(&optional to-newsgroups) "\306\307!\210p\310\211\211\211\211\211\211\211\211\311\211\310\211\211\211\211 @ A B C D E F G H I J\214eb\312\313\310\311#\203A `S\202B d}\210\314K!\203P K A\315\316!I\315\317!G\315\320!\206a \321H\315\322!C\315\323\311\"B\315\324!\315\325!\315\326!\315\327!F\315\330!E\315\331!\315\332!D\315\333!\211\203\242 \334\335 \"\203\242 \336\337 \"B ;\203\264 \311 L\334\340 \")\203\264 \310\341H!H~\210)\342\343\344I\n#!\210\345\337HIGBC\337\211\346& M\347\350HB\351N\203\354 \352NBC\202xA\203\366 A\202x\f\203iO\203i\f\227\353\232\2033O\354=\204\355\356\357\311\360$\203-\310\361E\206)F\206)I\206)\346B\202e\352\nB\202e\f\n\232\204\\O\362=\203\\\355\356\363\f\364Q\311\365\f\366\334\367\f\"\203U\370\202V\371\372&\203b\352\fB\202e\352\nBC\202x\203t\352BC\202x\352\nBC \205\200\373 BCD\205\276D\227\374\232\206\222D\227\375\232?\205\276\376D\227\377\232\204\247D\227\353\232\203\272E\206\274F\206\274I\206\274\346\202\274DBC#BJ\".\207" [posted-to gnus-warning newsgroups distribution followup-to message-this-is-news require gnus-sum nil t search-forward "\n\n" functionp message-fetch-field "from" "date" "subject" "none" "references" "message-id" "followup-to" "newsgroups" "posted-to" "reply-to" "mail-reply-to" "distribution" "mail-copies-to" "gnus-warning" string-match "<[^>]+>" match-string 0 "world" message-simplify-subject message-pop-to-buffer message-buffer-name "followup" vector "" message-setup Subject append Newsgroups "poster" use message-talkative-question y-or-n-p "Obey Followup-To: poster? " "You should normally obey the Followup-To: header.\n\n`Followup-To: poster' sends your response via e-mail instead of news.\n\nA typical situation where `Followup-To: poster' is used is when the poster\ndoes not read the newsgroup, so he wouldn't see any replies sent to it.\n\nYou may customize the variable `message-use-followup-to', if you\nwant to get rid of this query permanently." To ask "Obey Followup-To: " "? " "You should normally obey the Followup-To: header.\n\n `Followup-To: " "'\ndirects your response to " "," "the specified newsgroups" "that newsgroup only" ".\n\nIf a message is posted to several newsgroups, Followup-To is often\nused to direct the following discussion to one newsgroup only,\nbecause discussions that are spread over several newsgroup tend to\nbe fragmented and very difficult to follow.\n\nAlso, some source/announcement newsgroups are not intended for discussion;\nresponses here are directed to other newsgroups.\n\nYou may customize the variable `message-use-followup-to', if you\nwant to get rid of this query permanently." Distribution "never" "nobody" Cc "always" inhibit-point-motion-hooks follow-to message-id references mct mrt reply-to date subject from cur message-followup-to-function case-fold-search message-reply-headers to-newsgroups message-use-followup-to] 17 (#$ . 192444) nil])
#@313 Non-nil means current article is yours.
If you have added 'cancel-messages to `message-shoot-gnksa-feet', all articles
are yours except those that have Cancel-Lock header not belonging to you.
Instead of shooting GNKSA feet, you should modify `message-alternative-emails'
regexp to match all of yours addresses.
(defalias 'message-is-yours-p #[nil "\212\214\305 \210\306\307!\203) \310 <?\206 >)\203) \310 \204# \311\202t \312\313!\202t \314\211\315 <?\2068 >)\206s \306\316!\211\203M \227\317 \227\230\206s \306\320!\211\203d \321\n!@\227\321\322 !@\227\230\206s \n\205s \f\205s \323\f\321\n!@\"**\207" [feature message-shoot-gnksa-feet from sender message-alternative-emails message-narrow-to-head-1 message-fetch-field "Cancel-Lock" canlock-verify t error "Failed to verify Cancel-lock: This article is not yours" nil cancel-messages "sender" message-make-sender "from" mail-header-parse-address message-make-from string-match] 4 (#$ . 195548)])
#@82 Cancel an article you posted.
If ARG, allow editing of the cancellation message.
(defalias 'message-cancel-news #[(&optional arg) "\306 \204 \307\310!\210\311\211\211\211\211 \212\214\312 \210\313\314!\313\315!\313\316\317\"\313\320!)\321 \2043 \307\322!\210\323\324!\205\211
\203C \325 \210\202H \326\327!q\330 \210\331 \332\333\f\332\334\n\332\335\n\332 \203b \336 \332Q\202c \337'\332(\261\210\340\341!\210
?\205\211 \342\343!\210\344 )* )\203\206 \342\345!\210\346!.\207" [buf distribution message-id newsgroups from arg message-news-p error "This is not a news article; canceling is impossible" nil message-narrow-to-head-1 message-fetch-field "from" "newsgroups" "message-id" t "distribution" message-is-yours-p "This article is not yours" yes-or-no-p "Do you really want to cancel this article? " message-news get-buffer-create " *message cancel*" erase-buffer "Newsgroups: " "\n" "From: " "Subject: cmsg cancel " "Control: cancel " "Distribution: " "" run-hooks message-cancel-hook message "Canceling your article..." dont-check-for-anything-just-trust-me "Canceling your article...done" kill-buffer mail-header-separator message-cancel-message message-syntax-checks message-send-news-function] 16 (#$ . 196515) "P"])
#@168 Start composing a message to supersede the current message.
This is done simply by taking the old article and adding a Supersedes
header line with the old Message-ID.
(defalias 'message-supersede #[nil "p\303 \204 \304\305!\210\306\307\310!!\210\311!\210\312 \210\313 \210 \203$ \314 \315\"\210eb\210\316\317\320\315#\2046 \304\321!\210\202< \322\323\315\211#\210db\210\nc\210~\210\324y)\207" [cur message-ignored-supersedes-headers mail-header-separator message-is-yours-p error "This article is not yours" message-pop-to-buffer message-buffer-name "supersede" insert-buffer-substring mime-to-mml message-narrow-to-head-1 message-remove-header t re-search-forward "^Message-ID: " nil "No Message-ID in this article" replace-match "Supersedes: " 1] 4 (#$ . 197765) nil])
#@65 Reread contents of current buffer from its last auto-save file.
(defalias 'message-recover #[nil "\306 \307 \310\216\nr\311\312!q\210p\313 \210 \314\211\315\211 \315 \316 \210\317\320!\210+\211 ! \"r\"q\210\321 \210)\322\"!\210\323\324\325\314\"\314\326&\210)\327!!\210+\330\331\332\"!*\203i \314 \316 \210\333\314\")\202l \334\335!)\207" [file-name #1=#:wconfig default-directory #2=#:old-dir buffer-read-only buffer-file-name make-auto-save-file-name current-window-configuration ((set-window-configuration #1#)) get-buffer-create "*Directory*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook fundamental-mode buffer-disable-undo "/" call-process "ls" "-l" internal-temp-output-buffer-show yes-or-no-p format "Recover auto save file %s? " insert-file-contents error "message-recover cancelled" buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output] 8 (#$ . 198545) nil])
#@120 Remove junk like "Re:", "(fwd)", etc. added to subject string SUBJECT.
Previous forwarders, repliers, etc. may add it.
(defalias 'message-wash-subject #[(subject) "\302\303!rq\210\304\216 c\210eb\210\305\306\307\310#\203 \311\312!\210\202 eb\210\305\313\307\310#\2031 \311\312!\210\202\" db\210\314\315\307\310#\203C \311\312!\210\2024 eb\210\305\316\307\310#\203U \311\312!\210\202F db\210\314\317\307\310#\203g \311\312!\210\202X \320 +\207" [#1=#:temp-buffer subject generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward "\\([Rr][Ee]:\\|[Ff][Ww][Dd]\\(\\[[0-9]*\\]\\)?:\\|[Ff][Ww]:\\)" nil t replace-match "" "\\[[^ ]*\\(@\\|\\.\\)[^ ]*\\]" re-search-backward "([Ff][Ww][Dd])" "^[ ]+" "[ ]+$" buffer-string] 4 (#$ . 199506)])
#@48 Non-nil means the original message is decoded.
(defvar message-forward-decoded-p nil (#$ . 200323))
#@239 Generate a SUBJECT for a forwarded message.
The form is: [Source] Subject, where if the original message was mail,
Source is the name of the sender, and if the original message was
news, Source is the list of newsgroups is was posted to.
(defalias 'message-forward-subject-name-subject #[(subject) "\306\307!\306\310!\203 \311!\202) \203( \312 !@\206) \312 !\211A@)\206) \313\314\f\2033 \2026 \315 !\316
R+\207" [group from x prefix message-forward-decoded-p subject message-fetch-field "newsgroups" "from" gnus-group-decoded-name gnus-extract-address-components "(nowhere)" "[" mail-decode-encoded-word-string "] "] 5 (#$ . 200430)])
#@227 Generate a SUBJECT for a forwarded message.
The form is: [Source] Subject, where if the original message was mail,
Source is the sender, and if the original message was news, Source is
the list of newsgroups is was posted to.
(defalias 'message-forward-subject-author-subject #[(subject) "\304\305!\211\203 \306!\202 \304\307!\206 \310\311\n\203 \202\" \312 !\313 R*\207" [group prefix message-forward-decoded-p subject message-fetch-field "newsgroups" gnus-group-decoded-name "from" "(nowhere)" "[" mail-decode-encoded-word-string "] "] 5 (#$ . 201081)])
#@126 Generate a SUBJECT for a forwarded message.
The form is: Fwd: Subject, where Subject is the original subject of
the message.
(defalias 'message-forward-subject-fwd #[(subject) "\301\302\"\203 \207\303P\207" [subject string-match "^Fwd: " "Fwd: "] 3 (#$ . 201652)])
#@73 Return a Subject header suitable for the message in the current buffer.
(defalias 'message-make-forward-subject #[nil "\212\214\306 \210\307\310! \203 \203 \202 \311 !\202 \312\f\203' \313 !\n\2033 \n<\2043 \nC\n\314 \211 \203S @\315
!\203J
!A\211\204< * ,\207" [message-make-forward-subject-function subject funcs message-forward-decoded-p message-wash-forwarded-subjects func message-narrow-to-head-1 message-fetch-field "Subject" mail-decode-encoded-word-string "" message-wash-subject nil functionp --dolist-tail--] 4 (#$ . 201927)])
#@139 Forward the current message via mail.
Optional NEWS will use news to forward instead of mail.
Optional DIGEST will use digest to forward.
(defalias 'message-forward #[(&optional news digest) "p\306\301p\"\203
\202 \n\307 \f\203 \310\311 \"\210\202# \312\311 \"\210\313
\"+\207" [cur gnus-article-decoded-p message-forward-decoded-p subject news digest local-variable-p message-make-forward-subject message-news nil message-mail message-forward-make-body] 3 (#$ . 202495) "P"])
(defalias 'message-forward-make-body-plain #[(forward-buffer) "\305c\210`rq\210\306 )\307\310\n!\204( \311\312\313!\203# \314!\202$ \314 #\210\315\316! r\fq\210\317\216\320 \210\nc\210\321 \210eb\210\322\323!\203H \324\325!\210\306 +c\210n\204T \326c\210`\327c\210\330 \"+\207" [forward-buffer e contents b #1=#:temp-buffer "\n-------------------- Start of forwarded message --------------------\n" buffer-string nil mm-multibyte-string-p error "Attempt to insert unibyte string from the buffer \"%s\" to the multibyte buffer \"%s\"" bufferp buffer-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte mime-to-mml looking-at "From " replace-match "X-From-Line: " "\n" "-------------------- End of forwarded message --------------------\n" message-remove-ignored-headers] 4])
(defalias 'message-remove-ignored-headers #[(b e) "\205= \214 \n}\210 b\210`\306\307\310\311#\206 `}\210;\203\" C\202# \211\310 \211 \205<
@\312\f\311\"\210
A\211\204, \310,\207" [message-forward-ignored-headers b e ignored elem --dolist-tail-- search-forward "\n\n" nil t message-remove-header] 6])
(defalias 'message-forward-make-body-mime #[(forward-buffer) "`\302c\210\214``}\210\303 !\210eb\210\304\305!\203 \306\307!\210db\210)\310c\210\311`\312#)\207" [b forward-buffer "\n\n<#part type=message/rfc822 disposition=inline raw=t>\n" mml-insert-buffer looking-at "From " replace-match "X-From-Line: " "<#/part>\n" add-text-properties (no-illegible-text t rear-nonsticky t start-open t)] 4])
(defalias 'message-forward-make-body-mml #[(forward-buffer) "\306c\210`\307\n\204U r q\210\310 ) \311\f!\204, \312\313\314 !\203' \315 !\202( \315 #\210\316\317! r
q\210\320\216\321 \210\fc\210\322 \210eb\210\323\324!\203L \325\326!\210\310 +c\210)\202o \214``}\210\327 !\210eb\210\323\324!\203k \325\326!\210db\210)`\330c\210\n?\205\202 \205\202 \331 \"*\207" [e b message-forward-decoded-p forward-buffer contents #1=#:temp-buffer "\n\n<#mml type=message/rfc822 disposition=inline>\n" nil buffer-string mm-multibyte-string-p error "Attempt to insert unibyte string from the buffer \"%s\" to the multibyte buffer \"%s\"" bufferp buffer-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte mime-to-mml looking-at "From " replace-match "X-From-Line: " mml-insert-buffer "<#/mml>\n" message-remove-ignored-headers message-forward-ignored-headers] 4])
(defalias 'message-forward-make-body-digest-plain #[(forward-buffer) "\301c\210\302!\210\303c\207" [forward-buffer "\n-------------------- Start of forwarded message --------------------\n" mml-insert-buffer "\n-------------------- End of forwarded message --------------------\n"] 2])
(defalias 'message-forward-make-body-digest-mime #[(forward-buffer) "\303c\210`\304\305\n!\210`\306c\210\214 }\210 b\210`\307\310\304\311#\206\" `}\210ed|+\207" [e b forward-buffer "\n<#multipart type=digest>\n" nil insert-buffer-substring "<#/multipart>\n" search-forward "\n\n" t] 5])
(defalias 'message-forward-make-body-digest #[(forward-buffer) "\203 \302 !\207\303 !\207" [message-forward-as-mime forward-buffer message-forward-make-body-digest-mime message-forward-make-body-digest-plain] 2])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload mm-uu-dissect-text-parts "mm-uu" mm-uu-dissect] 3)
#@236 Say whether the current buffer contains signed or encrypted message.
If DONT-EMULATE-MIME is nil, this function does the MIME emulation on
messages that don't conform to PGP/MIME described in RFC2015. HANDLES
is for the internal use.
(defalias 'message-signed-or-encrypted-p #[(&optional dont-emulate-mime handles) "\204$ \306\211\307\310\311\"\211\203 \204# \312!\210\202# \204# \313 *\204\212 \204\212 p\306\211 \314\315! r
q\210\316\216\317\f!\210\307\311\211\"\211\203\210 \320@!\203\202 \211 @;\203_ @\202d A@@)\321\232\203\202 \322 \210\317@!\210\323\3248!\210\325!\210\313 \202\210 \325!\210\310.\205\225 \326\327\215\325!\210\207" [handles mm-verify-option mm-decrypt-option dont-emulate-mime cur #1=#:temp-buffer never mm-dissect-buffer nil t mm-uu-dissect-text-parts mm-uu-dissect generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-buffer-substring bufferp "text/plain" erase-buffer mm-decode-content-transfer-encoding 2 mm-destroy-parts found (byte-code "@;\203 @\304\235\203 \305\306\307\"\202 A\202 C\310\211\205q \n@\211@;\203: \311 \"\203i \305\306\307\"\210\202i \312 @!\203i \211@;\203N @\202R A@@)\313\232\203i r @q\210\311 !\203h \305\306\307\"\210)\nA\211\204\" \310*\207" [handles handle --dolist-tail-- dont-emulate-mime ("multipart/signed" "multipart/encrypted") throw found t nil message-signed-or-encrypted-p bufferp "message/rfc822"] 4) handle] 4 (#$ . 206402)])
(defalias 'message-forward-make-body #[(forward-buffer &optional digest) "\203\n \305 \210\202
db\210 \203 \306\n!\210\202D \203@ \f\2039 \f\307=\2032 r\nq\210\310\311\312\217)\2049 \313\n!\210\202D \314\n!\210\202D \315\n!\210\316 \207" [message-forward-before-signature digest forward-buffer message-forward-as-mime message-forward-show-mml message-goto-body message-forward-make-body-digest best nil (message-signed-or-encrypted-p) ((error t)) message-forward-make-body-mml message-forward-make-body-mime message-forward-make-body-plain message-position-point] 3])
(defalias 'message-forward-rmail-make-body #[(forward-buffer) "\302 \303\216 q\210\304 \203 \305\306!\203 \306 \210\202 \307\310!\210*\311 !\207" [#1=#:wconfig forward-buffer current-window-configuration ((set-window-configuration #1#)) rmail-msg-is-pruned fboundp rmail-msg-restore-non-pruned-header rmail-toggle-header 0 message-forward-make-body] 2])
#@35 Let RMAIL use message to forward.
(defalias 'message-insinuate-rmail #[nil "\302\303\211\207" [rmail-enable-mime-composing rmail-insert-mime-forwarded-message-function t message-forward-rmail-make-body] 2 (#$ . 208841) nil])
(defvar message-inhibit-body-encoding nil)
#@40 Resend the current article to ADDRESS.
(defalias 'message-resend #[(address) "\306\307\"\210\212p\310\211\311 \204 \312\313!q\210\314 \315 \210)\314\310\211 . /\316\317BC!\210+\320\321!\210\322 \210\323\324\310\314#\211\203A \325\324!\210\3250\314\"\210eb\210\326\327\310\314#\203[ \330u\210\331c\210\202J ~\210\310y\210\314 `d|\210)`\332 !\210eb\210\333\334!\210\330u\210\214 `}\210\3251\314\"\210db\210)2c\210\335\336 \314#\203\233 \337 \210\340c\210\202\212 b\210\341\342!\203\250 \343\344!\210\314 3\326\345\310\314#)\314\310\211\211 4 . 5 6 7\346 \210-\n\203\320 \347 \210\350\n\351\261\210\352\353!\210\354p!\210+\306\355\")\207" [address beg gcc cur inhibit-read-only message-setup-hook message "Resending message to %s..." nil message-mail-user-agent get-buffer-create " *message resend*" t erase-buffer message-setup To message-generate-headers (From Date To Message-ID) message-narrow-to-headers mail-fetch-field "gcc" message-remove-header re-search-forward "^[A-Za-z]" -1 "Resent-" insert-buffer-substring search-forward "\n\n" re-search-backward "^\\(Also-\\)*Resent-" beginning-of-line "Also-" looking-at "From " replace-match "X-From-Line: " "^mime-version:" message-send-mail message-goto-eoh "Gcc: " "\n" run-hooks message-sent-hook kill-buffer "Resending message to %s...done" message-generate-hashcash message-this-is-mail message-ignored-mail-headers message-ignored-resent-headers mail-header-separator case-fold-search rfc2047-encode-encoded-words message-required-mail-headers message-inhibit-ecomplete message-inhibit-body-encoding] 5 (#$ . 209117) (list (message-read-from-minibuffer "Resend message to: "))])
#@172 Re-mail the current message.
This only makes sense if the current message is a bounce message that
contains some mail you have written which has been bounced back to
you.
(defalias 'message-bounce #[nil "\305\306!\307\310\311\312!!\210 @;\203 \313\314 !@!\210\202l \313 !\210\315 \210eb\210\316\317\307\306#\210`\316\n\307\306#\204D \320\321\307\322#\210\323\324\306#\203[ \325y\210e\316\326\307\306#\203U \327\224\202V `|\210\202l b\210\323\330\307\306#\203l \327\224\327\225|\210\331 \210\214\332 \210\333 \306\"\210db\210\fc\210)\334 *\207" [boundary handles message-unsent-separator message-ignored-bounced-headers mail-header-separator mm-dissect-buffer t nil message-pop-to-buffer message-buffer-name "bounce" mm-insert-part last undo-boundary re-search-forward "\n\n+" search-forward "\n\n" move re-search-backward "^Return-Path:.*\n" 1 "^[^ \n ]+:" 0 "^.?From .*\n" mime-to-mml message-narrow-to-head-1 message-remove-header message-position-point] 5 (#$ . 210774) nil])
#@73 Like `message-mail' command, but display mail buffer in another window.
(defalias 'message-mail-other-window #[(&optional to subject) "\303 \204
\304\305\306\"\307\"\210\310\311\312\206 \313B\314\n\206 \313BD\315\211\211\307%)\207" [to message-this-is-mail subject message-mail-user-agent message-pop-to-buffer message-buffer-name "mail" switch-to-buffer-other-window t message-setup To "" Subject nil] 6 (#$ . 211765) nil])
#@72 Like `message-mail' command, but display mail buffer in another frame.
(defalias 'message-mail-other-frame #[(&optional to subject) "\303 \204
\304\305\306\"\307\"\210\310\311\312\206 \313B\314\n\206 \313BD\315\211\211\307%)\207" [to message-this-is-mail subject message-mail-user-agent message-pop-to-buffer message-buffer-name "mail" switch-to-buffer-other-frame t message-setup To "" Subject nil] 6 (#$ . 212202) nil])
#@42 Start editing a news article to be sent.
(defalias 'message-news-other-window #[(&optional newsgroups subject) "\303\304\305\306#\307\"\210\310\311\312\206 \313B\314\n\206 \313BD!)\207" [newsgroups message-this-is-news subject message-pop-to-buffer message-buffer-name "posting" nil switch-to-buffer-other-window t message-setup Newsgroups "" Subject] 5 (#$ . 212636) nil])
#@42 Start editing a news article to be sent.
(defalias 'message-news-other-frame #[(&optional newsgroups subject) "\303\304\305\306#\307\"\210\310\311\312\206 \313B\314\n\206 \313BD!)\207" [newsgroups message-this-is-news subject message-pop-to-buffer message-buffer-name "posting" nil switch-to-buffer-other-frame t message-setup Newsgroups "" Subject] 5 (#$ . 213021) nil])
#@173 Bold all nonblank characters in the region.
Works by overstriking characters.
Called from program, takes two arguments START and END
which specify the range to operate on.
(defalias 'message-bold-region #[(start end) "\212\303 \211 \n]\304\223\210 \n^b\210`W\205( \305\306!\204\" \304f\307\261\210\310u\210\202 *\207" [end1 start end make-marker nil looking-at "[_ - ]" "" 1] 4 (#$ . 213405) "r"])
#@154 Remove all boldness (overstruck characters) in the region.
Called from program, takes two arguments START and END
which specify the range to operate on.
(defalias 'message-unbold-region #[(start end) "\212\303 \211 \n]\304\223\210 \n^b\210\305\306\307#\205) \304f`\310Zf=\203 \311\312!\210\202 *\207" [end1 start end make-marker nil search-forward "" t 2 delete-char -2] 5 (#$ . 213815) "r"])
#@72 Exchange point and mark, but don't activate region if it was inactive.
(defalias 'message-exchange-point-and-mark #[nil "\300\301!\302 `\303\223\210b\207" [mark t mark-marker nil] 4 (#$ . 214219)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [defalias message-make-overlay make-overlay message-delete-overlay delete-overlay message-overlay-put overlay-put] 3)
(defalias 'message-kill-all-overlays #[nil "\300\301\302ed\"\"\207" [mapcar delete-overlay overlays-in] 5])
#@68 Update message mode toolbar.
Setter function for custom variables.
(defalias 'message-tool-bar-update #[(&optional symbol value) "\302\303\304\"\210\205
\302 \"\207" [symbol value set-default message-tool-bar-map nil] 3 (#$ . 214717)])
(byte-code "\300\301\302\303\304\305\304\306\307\310\311\312\313\314\315\316&\210\300\317\320\321\304\322\307\310\311\312\313\314\315\316&
\210\300\323\324\325\304\326\307\310\311\312\313\314\315\316&
\210\300\327\330\331\304\332\307\310\311\312\313\314\315\316&
\207" [custom-declare-variable message-tool-bar (if (eq gmm-tool-bar-style 'gnome) 'message-tool-bar-gnome 'message-tool-bar-retro) "Specifies the message mode tool bar.\n\nIt can be either a list or a symbol referring to a list. See\n`gmm-tool-bar-from-list' for the format of the list. The\ndefault key map is `message-mode-map'.\n\nPre-defined symbols include `message-tool-bar-gnome' and\n`message-tool-bar-retro'." :type (repeat gmm-tool-bar-list-item) (choice (const :tag "GNOME style" message-tool-bar-gnome) (const :tag "Retro look" message-tool-bar-retro) (repeat :tag "User defined list" gmm-tool-bar-item) (symbol)) :version "23.1" :initialize custom-initialize-default :set message-tool-bar-update :group message message-tool-bar-gnome '((ispell-message "spell" nil :vert-only t :visible (or (not (boundp 'flyspell-mode)) (not flyspell-mode))) (flyspell-buffer "spell" t :vert-only t :visible (and (boundp 'flyspell-mode) flyspell-mode) :help "Flyspell whole buffer") (message-send-and-exit "mail/send" t :label "Send") (message-dont-send "mail/save-draft") (mml-attach-file "attach" mml-mode-map :vert-only t) (mml-preview "mail/preview" mml-mode-map) (mml-secure-message-sign-encrypt "lock" mml-mode-map :visible nil) (message-insert-importance-high "important" nil :visible nil) (message-insert-importance-low "unimportant" nil :visible nil) (message-insert-disposition-notification-to "receipt" nil :visible nil)) "List of items for the message tool bar (GNOME style).\n\nSee `gmm-tool-bar-from-list' for details on the format of the list." (repeat gmm-tool-bar-item) message-tool-bar-retro '((message-send-and-exit "gnus/mail-send") (message-kill-buffer "close") (message-dont-send "cancel") (mml-attach-file "attach" mml-mode-map) (ispell-message "spell") (mml-preview "preview" mml-mode-map) (message-insert-importance-high "gnus/important") (message-insert-importance-low "gnus/unimportant") (message-insert-disposition-notification-to "gnus/receipt")) "List of items for the message tool bar (retro style).\n\nSee `gmm-tool-bar-from-list' for details on the format of the list." (repeat gmm-tool-bar-item) message-tool-bar-zap-list '(new-file open-file dired kill-buffer write-file print-buffer customize help) "List of icon items from the global tool bar.\nThese items are not displayed on the message mode tool bar.\n\nSee `gmm-tool-bar-from-list' for the format of the list." gmm-tool-bar-zap-list] 16)
#@94 Make a message mode tool bar from `message-tool-bar-list'.
When FORCE, rebuild the tool bar.
(defalias 'message-make-tool-bar #[(&optional force) "\306\300!\203, \203, \203 \n\203, \307\310\311\312\313$\211@\306\304!\205\" \fB \314
\315#* \207" [tool-bar-mode message-tool-bar-map force load-path image-load-path message-tool-bar boundp gmm-image-load-path-for-library "message" "mail/save-draft.xpm" nil t gmm-tool-bar-from-list message-mode-map message-tool-bar-zap-list] 6 (#$ . 217655)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\313\314\304\305\306\315& \210\300\316\317\320\304\305\306\321&\210\300\322\323\324\313\314\304\305\325\326\306\327& \207" [custom-declare-variable message-newgroups-header-regexp "^\\(Newsgroups\\|Followup-To\\|Posted-To\\|Gcc\\):" "Regexp that match headers that lists groups." :group message :type regexp message-completion-alist (list (cons message-newgroups-header-regexp 'message-expand-group) '("^\\(Resent-\\)?\\(To\\|B?Cc\\):" . message-expand-name) '("^\\(Reply-To\\|From\\|Mail-Followup-To\\|Mail-Copies-To\\):" . message-expand-name) '("^\\(Disposition-Notification-To\\|Return-Receipt-To\\):" . message-expand-name)) "Alist of (RE . FUN). Use FUN for completion on header lines matching RE." :version "22.1" (alist :key-type regexp :value-type function) message-expand-name-databases '(bbdb eudc) "List of databases to try for name completion (`message-expand-name').\nEach element is a symbol and can be `bbdb' or `eudc'." (set (const bbdb) (const eudc)) message-tab-body-function nil "*Function to execute when `message-tab' (TAB) is executed in the body.\nIf nil, the function bound in `text-mode-map' or `global-map' is executed." :link (custom-manual "(message)Various Commands") (choice (const nil) function)] 12)
#@142 Complete names according to `message-completion-alist'.
Execute function specified by `message-tab-body-function' when not in
those headers.
(defalias 'message-tab #[nil "\304\300!\203 \305\306!\203 \307\306 )\202 \310 \206 \311 \203 \312\207 \203' \207\313\n\314\"\2066 \313 \314\"\2066 \315 \207" [completion-fail-discreetly message-tab-body-function text-mode-map global-map boundp fboundp completion-at-point t message-completion-function ignore nil lookup-key " " indent-relative] 3 (#$ . 219462) nil])
(defalias 'message-completion-function #[nil "\211\203 \211@@)\306 )\204 A\211\204 \211@A)\205@ \307\310!\211 \211 \211@A)L\210)\311\312\313\314\315D\314\fD\316FE))\207" [message-completion-alist alist x mail-abbrev-mode-regexp #1=#:--cl-fun-- #2=#:v mail-abbrev-in-expansion-header-p make-symbol "--fun--" lambda (&rest --cl-rest--) apply quote #[(#3=#:G32010) "J \210\301\207" [#3# completion-attempted] 1] --cl-rest--] 7])
(byte-code "\300\301\302\217\207" [nil (byte-code "\302\303!rq\210\304\216p\305\306!\210)\307\310\311\"\210+\302\207" [#1=#:temp-buffer standard-output generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) eval (display-completion-list nil "") defalias message-display-completion-list display-completion-list] 3) ((error (byte-code "\300\301\302\"\207" [defalias message-display-completion-list #[(completions &optional ignore) "\301!\207" [completions display-completion-list] 2 "Display the list of completions, COMPLETIONS, using `standard-output'."]] 3)))] 3)
#@36 Expand the group name under point.
(defalias 'message-expand-group #[nil "\212\214\212\305 \210\306\307w\210`T)`}\210\310\307x\210`*\311\312\307w\210`\313\303!\205& \314\n\f#,\207" [b completion-ignore-case e gnus-active-hashtb hashtb beginning-of-line "^:" nil "^, \n" t "^, \n " boundp message-completion-in-region] 4 (#$ . 221049)])
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\207" [defalias message-completion-in-region fboundp completion-in-region #[(e b hashtb) " {\306\n \" \307 `|\210\fG\310U\203, \f@\n\230\203& \nc\210\311\312!\202z \f@c\202z \313\n \"\211\203@
\n\230\204@
c\202z \nc\210
\204M \311\314!\202z \315 r\316\216\317\320!\210\321 \210\307 \322 \210p \323\324\f\325\"\n\"\210)\307eb\210`\326y\210`|,+\207" [b e string hashtb completions comp all-completions nil 1 message "Only matching group" try-completion "No matching groups" internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) pop-to-buffer "*Completions*" buffer-disable-undo erase-buffer message-display-completion-list sort string< 3 save-selected-window--state buffer-read-only standard-output] 4]] 4)
(defalias 'message-expand-name #[nil "\303>\203 \304\301!\203 \203 \305 \207\306>\203. \307\310!\203. \311 \310 \206, \n\311 U?)\207\312 \207" [message-expand-name-databases eudc-protocol starttick eudc boundp eudc-expand-inline bbdb fboundp bbdb-complete-name buffer-modified-tick expand-abbrev] 2])
#@199 Call FUNCTION with argument QUESTION; optionally display TEXT... args.
If SHOW is non-nil, the arguments TEXT... are displayed in a temp buffer.
The following arguments may contain lists of values.
(defalias 'message-talkative-question #[(ask question show &rest text) "\203W \306 !\211\203W \307 \310\216 r\311\312!q\210p\313 \210\f\314\211\315\211\315 \316 \210\317\320!\210+\211 r\312q\210\321 \210\322\323 \"\210eb\210)\324!\210+ !*\207 !\207" [show text #1=#:wconfig default-directory #2=#:old-dir buffer-read-only message-flatten-list current-window-configuration ((set-window-configuration #1#)) get-buffer-create " *MESSAGE information message*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook fundamental-mode mapc princ internal-temp-output-buffer-show buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output ask question] 4 (#$ . 222529)])
#@127 Return a new, flat list that contains all elements of LIST.
(message-flatten-list '(1 (2 3 (4 5 (6))) 7))
=> (1 2 3 4 5 6 7)
(defalias 'message-flatten-list #[(list) ":\203
\301\302\303\304\"\"\207\205 C\207" [list apply append mapcar message-flatten-list] 5 (#$ . 223488)])
#@230 Create and return a buffer with name based on NAME using `generate-new-buffer'.
Then clone the local variables and values from the old buffer to the
new one, cloning only the locals having a substring matching the
regexp VARSTR.
(defalias 'message-generate-new-buffer-clone-locals #[(name &optional varstr) "pr\303 !q\210\304\n\"\210p*\207" [oldbuf name varstr generate-new-buffer message-clone-locals] 3 (#$ . 223777)])
#@62 Clone the local variables from BUFFER to the current buffer.
(defalias 'message-clone-locals #[(buffer &optional varstr) "rq\210\303 )\304\305\306\n\"*\207" [buffer regexp locals buffer-local-variables "^gnus\\|^nn\\|^message\\|^sendmail\\|^smtp\\|^user-mail-address" mapcar #[(local) ":\205& @\205& \303 \304@!\"\205& \n\203\" \303\n\304@!\"\205& \305\306\307\217\207" [local regexp varstr string-match symbol-name nil (byte-code "\301@!AL\207" [local make-local-variable] 2) ((error))] 4]] 3 (#$ . 224206)])
(defalias 'message-encode-message-body #[nil "?\205\216 \206\n \n\306\307\211 \310 \210\214`d}\210\311 \211 \203I ed|\210 c\210eb\210 \312H\313=\203< \314\315!\210\202I \316\317!\210e`S{e`|\210*\214\320 \210\321\322!\210db\210\323c\210\f\203_ \fc\210 \206i \324\325\307\306#)\214\320 \210\326\327!\210\326\330!\210) ?\205\215 eb\210\331\332\307\306#\205\215 \315y\210\333c,\207" [message-inhibit-body-encoding mail-parse-charset message-default-charset content-type-p lines case-fold-search t nil message-goto-body mml-generate-mime 0 10 delete-char 1 search-forward "\n\n" message-narrow-to-headers-or-head message-remove-header "Mime-Version" "MIME-Version: 1.0\n" re-search-backward "^Content-Type:" message-remove-first-header "Content-Type" "Content-Transfer-Encoding" re-search-forward "^MIME-Version:" "Content-Type: text/plain; charset=us-ascii\n" new mml-boundary] 5])
#@60 Read from the minibuffer while providing abbrev expansion.
(defalias 'message-read-from-minibuffer #[(prompt &optional initial-contents) "\306\307!\2033 \307\310\306\311!\203 \311K\202 \312 \313\216 \312=\203( \314\311!\210\202, \311 M\210\315
\"-\207\316\317
\"*\207" [message-minibuffer-local-map minibuffer-local-map minibuffer-setup-hook #1=#:vnew #2=#:old prompt fboundp mail-abbrevs-setup #[nil "\300\207" [t] 1] mail-abbrev-in-expansion-header-p cl--unbound ((byte-code "\301=\203
\302\303!\210\202 \303M\210\301\207" [#2# cl--unbound fmakunbound mail-abbrev-in-expansion-header-p] 2)) fmakunbound read-from-minibuffer mail-abbrev-minibuffer-setup-hook read-string initial-contents] 3 (#$ . 225620)])
#@163 Set From field of the outgoing message to the first matching
address in `message-alternative-emails', looking at To, Cc and
From headers in the original article.
(defalias 'message-use-alternative-email-as-from #[nil "\305\306!\210\307\310\311\312\313\314#!\315\"\316 \203- \317 @\"\203$ @\316 \211A@\210\202 \n?\2065 \n\f\232?\205I \320\321!\210db\210\322\n \323 )\324\261+\207" [fields emails email message-alternative-emails user-mail-address require mail-utils ("To" "Cc" "From") split-string mail-strip-quoted-names mapconcat message-fetch-reply-field "," "[ \f \n
,]+" nil string-match message-remove-header "From" "From: " message-make-from "\n"] 6 (#$ . 226352)])
(defalias 'message-options-get #[(symbol) " \236A\207" [symbol message-options] 2])
(defalias 'message-options-set #[(symbol value) " \236\211\203 \203 \n \241\210\202% \304\n \"\202% \203% B B) \207" [symbol message-options the-cons value delq] 4])
(defalias 'message-options-set-recipient #[nil "\214\303 \210\304\305\306\307\310!!\"\210\304\311\306\307\312!\307\313!\307\314!\211\206! \315\n\205* \205* \316 \206/ \315\n\2047 \205< \205< \316\206A \315\260+!\")\207" [bcc cc to message-narrow-to-headers-or-head message-options-set message-sender mail-strip-quoted-names message-fetch-field "from" message-recipients "to" "cc" "bcc" "" ", "] 9])
#@62 Hide headers based on the `message-hidden-headers' variable.
(defalias 'message-hide-headers #[nil ";\203\n C\202 \306\307e\211 \203Y \212\214\310 \210eb\210m\204X \311\f!\204. \312 \210\202 `\307\211 \f\312 \210\f`{ `\fZ\f`|\210 b\210 c\210
\\+\202 * d},\207" [message-hidden-headers end-of-headers after-change-functions inhibit-point-motion-hooks regexps header-len t nil message-narrow-to-headers message-hide-header-p message-next-header header begin] 5 (#$ . 227710)])
(defalias 'message-hide-header-p #[(regexps) "\305\211\n@\306=\203 \307\n\210\nA\n\305\211 \203, \f@ \206$ \310 !\fA\211\204 *\2036 ?\2027 *\207" [reverse result regexps regexp --dolist-tail-- nil not t looking-at] 3])
(defalias 'message-put-addresses-in-ecomplete #[nil "\304\305!\210\306\307\211\203C @\310!\311\n\312\"\307\211\203; @\313\211 \314\315#\316\315#\317\320\321 !@ #\210 A\211\204 + A\211\204\f *\322 \207" [header --dolist-tail-- value string require ecomplete ("to" "cc" "from" "reply-to") nil message-field-value mail-header-parse-addresses raw gnus-replace-in-string "^ +\\| +$" "" "\n" ecomplete-add-item mail mail-header-parse-address ecomplete-save] 6])
(autoload 'ecomplete-display-matches "ecomplete")
#@61 Display the next possible abbrev for the text before point.
(defalias 'message-display-abbrev #[(&optional choose) "\305 f\306>\205^ \307 \205^ \212\310 \210\311f\312>\203 \313\314y!\204 \315\316!)\205^ `\212\317\320\311\321#\2053 `T)\211\205< {\211\205N \313\nG!?\205N \322\323\n # \205] \f\205] |\210\fc,\207" [end start word choose match point-at-bol (67 84 9 32) message-point-in-header-p beginning-of-line nil (9 32) zerop -1 looking-at "To:\\|Cc:" re-search-backward "[\n ]" t ecomplete-display-matches mail] 5 (#$ . 228963) (list t)])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\306\307\310\315& \207" [custom-declare-variable message-form-letter-separator "\n----------next form letter message follows this line----------\n" "Separator for `message-send-form-letter'." :group message-various :version "23.1" :type string message-send-form-letter-delay 1 "Delay in seconds when sending a message with `message-send-form-letter'.\nOnly used when `message-send-form-letter' is called with non-nil\nargument `force'." integer] 10)
#@211 Sent all form letter messages from current buffer.
Unless FORCE, prompt before sending.
The messages are separated by `message-form-letter-separator'.
Header and body are separated by `mail-header-separator'.
(defalias 'message-send-form-letter #[(&optional force) "\306\211\307\211\211\211\211\211 eb\210\204\212 `\310 \307\311#\203. \312` G\313#\2021 \311d\314
\f\"\315\316!r\nq\210 c\210\317 \210\320\321!\322\n!\210 \203W \323!!\210 \204e \324\325\326 \"!\203p T \327 \210\202| \330\325\331 \"!\210 T \332\n!\203\206 \333\n!\210)\202 \330\334 #.\207" [done to buff text end start 0 nil search-forward t - -1 buffer-substring-no-properties generate-new-buffer "*mail - form letter*" message-mode message-fetch-field "To" switch-to-buffer sit-for y-or-n-p format "Send message to `%s'? " message-send-and-exit message "Message to `%s' skipped." buffer-live-p kill-buffer "%s message(s) sent, %s skipped." skipped sent message-form-letter-separator force message-send-form-letter-delay] 8 (#$ . 230055) "P"])
#@133 Remove HEADER and insert the NEW-VALUE.
If AFTER, insert after this header. If FORCE, insert new field
even if NEW-VALUE is empty.
(defalias 'message-replace-header #[(header new-value &optional after force) "\212\214\304 \210\305!\210) \204 \nG\306V\205' \203! \307 \"\210\202% \307!\210\nc)\207" [header force new-value after message-narrow-to-headers message-remove-header 0 message-position-on-field] 3 (#$ . 231104)])
#@79 Mail addresses that have no full name.
Used in `message-simplify-recipients'.
(custom-declare-variable 'message-recipients-without-full-name '(list "ding@gnus.org" "bugs@gnus.org" "emacs-devel@gnu.org" "emacs-pretest-bug@gnu.org" "bug-gnu-emacs@gnu.org") '(#$ . 231539) :type '(choice (const :tag "None" nil) (repeat string)) :version "23.1" :group 'message-headers)
(defalias 'message-simplify-recipients #[nil "\302\303\211\205' @\304\305\306\307!\205 \310\307!\311\"\312#\"\210 A\211\204 \303*\207" [hdr --dolist-tail-- ("Cc" "To") nil message-replace-header mapconcat #[(addrcomp) "\203 \303\304! \211A@)\"\203 \211A@)\207 @\203) \305 @ \211A@)\"\207 \211A@)\207" [message-recipients-without-full-name addrcomp x string-match regexp-opt message-make-from] 4] message-fetch-field mail-extract-address-components t ", "] 8 nil nil])
(byte-code "\300\301!\210\302\303!\207" [provide message run-hooks message-load-hook] 2)