Current File : //usr/local/share/emacs/27.2/lisp/gnus/message.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\300\315!\210\300\316!\210\317\320\321\"\210\322\323\324\325\326\327\330\331\330\332& \210\322\333\334\335\326\336\330\323&\210\322\337\334\340\326\341\330\323&\210\322\342\334\343\326\344\330\323&\210\322\345\334\346\326\347\330\323&\210\322\350\334\351\326\352\330\345&\210\322\353\334\354\326\355\330\323&\210\322\356\334\357\326\360\330\323&\210\322\361\334\362\330\323%\210\322\363\334\364\330\323%\210\322\365\334\366\330\323\330\367&\210\370\371\372\373\374DD\375\330\333\376\377&\210\370\201@ \372\373\201A DD\201B \330\337\376\201C &\210\370\201D \372\373\201E DD\201F \330\337\376\201G &\210\370\201H \372\373\201I DD\201J \376\201K \330\342&\210\370\201L \372\373\201M DD\201N \201O \201P \376\201Q \330\342& \210\370\201R \372\373\201S DD\201T \330\342\376\201U &\210\370\201V \372\373\201W DD\201X \330\345\376\201Y &\210\370\201Z \372\373\201[ DD\201\\ \201O \201] \376\201^ \330\356& \210\201_ \201Z \201` \201] #\210\370\201a \372\373\201b DD\201c \201O \201P \330\356\376\201Q & \210\370\201d \372\373\201e DD\201f \330\361\376\201g &\210\370\201h \372\373\201i DD\201j \201O \201P \330\361\330\356\326\201k \376\201l &
\210\370\201m \372\373\201n DD\201o \201O \201P \330\361\330\356\326\201p \376\201q &
\210\370\201r \372\373\201s DD\201t \330\361\330\356\326\201u \376\201v & \210\370\201w \372\373\201x DD\201y \330\363\330\356\326\201z \376\201{ & \210\370\201| \372\373\201} DD\201~ \201O \201 \330\363\330\356\326\201\200 \376\201\201 &
\210\370\201\202 \372\373\201\203 DD\201\204 \330\356\326\201\205 \376\201\206 & \210\370\201\207 \372\373\201\210 DD\201\211 \330\361\330\356\326\201\212 \376\201\213 & \210\370\201\214 \372\373\201\215 DD\201\216 \330\363\330\356\326\201\217 \376\201Y & \210\370\201\220 \372\373\201\221 DD\201\222 \330\345\326\201\223 \376\201\224 & \210\370\201\225 \372\373\201\226 DD\201\227 \330\333\326\201\230 \376\201Y & \210\370\201\231 \372\373\201\232 DD\201\233 \201O \201 \376\201\234 \326\201\235 \330\333& \210\370\201\236 \372\373\201\237 DD\201\240 \201O \201P \330\333\326\201\241 \376\201Y & \210\370\201\242 \372\373\201\243 DD\201\244 \201O \201P \330\333\326\201\245 \376\201Y & \210\370\201\246 \372\373\201\247 DD\201\250 \201O \201P \376\201\251 \326\201\252 \330\333& \210\370\201\253 \372\373\201\254 DD\201\255 \201O \201P \376\201\251 \326\201\256 \330\333& \210\370\201\257 \372\373\201\260 DD\201\261 \201O \201P \376\201\251 \326\201\262 \330\333& \210\370\201\263 \372\373\201\264 DD\201\265 \201O \201P \376\201\266 \326\201\267 \330\333& \207" [require cl-lib mailheader gmm-utils mail-utils mailabbrev mail-parse mml rfc822 format-spec dired mm-util rfc2047 puny rmc 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 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 funcall function #[0 "\300\207" [#1="~/Mail/"] 1 #1#] "Directory from which all other mail file variables are derived." :type directory message-max-buffers #[0 "\300\207" [10] 1] "How many buffers to keep before starting to kill them off." integer message-send-rename-function #[0 "\300\207" [nil] 1] "Function called to rename the buffer after sending it." (choice function (const nil)) message-fcc-handler-function #[0 "\300\207" [message-output] 1] "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 #[0 "\300\207" [nil] 1] "If non-nil, attachments are included as external parts in Fcc copies." :version "22.1" boolean message-courtesy-message #[0 "\300\207" [#2="The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"] 1 #2#] "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 #[0 "\300\207" [#3="^\\(Received\\|Return-Path\\|Delivered-To\\):"] 1 #3#] "Regexp that matches headers to be removed in resent bounced mail." regexp message-from-style #[0 "\300\207" [angles] 1] "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." "27.1" (choice (const :tag "simple" nil) (const parens) (const angles) (const default)) make-obsolete-variable "Only the `angles' value is valid according to RFC2822" message-insert-canlock #[0 "\300\207" [t] 1] "Whether to insert a Cancel-Lock header in news postings." message-syntax-checks #[0 "\205 \301\207" [message-insert-canlock ((sender . disabled))] 1] "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 #[0 "\300\207" [((optional . References) From)] 1] "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 #[0 "\300\207" [(References From Date)] 1] "Headers to be generated when saving a draft message." (custom-manual "(message)Message Headers") (repeat sexp) message-required-news-headers #[0 "\300\207" [(From Newsgroups Subject Date Message-ID (optional . Organization) (optional . User-Agent))] 1] "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 #[0 "\300\207" [(From Subject Date (optional . In-Reply-To) Message-ID (optional . User-Agent))] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [(Message-ID Date Lines)] 1] "Headers to delete if present and previously generated by message." (custom-manual "(message)Message Headers") (repeat (symbol :tag "Header")) message-ignored-news-headers #[0 "\300\207" [#4="^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:\\|^X-Message-SMTP-Method:\\|^X-Gnus-Delayed:"] 1 #4#] "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 #[0 "\300\207" [#5="^\\([GF]cc\\|Resent-Fcc\\|Xref\\|X-Draft-From\\|X-Gnus-Agent-Meta-Information\\):"] 1 #5#] "Regexp of headers to be removed unconditionally before mailing." (custom-manual "(message)Mail Headers") message-ignored-supersedes-headers #[0 "\300\207" [#6="^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:"] 1 #6#] "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 #[0 "\300\207" [#7="^[ ]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)* ?:[ ]*\\)*[ ]*"] 1 #7#] "Regexp matching \"Re: \" in the subject line." (custom-manual "(message)Message Headers") message-subject-trailing-was-query #[0 "\300\207" [t] 1] "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 to 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 #[0 "\300\207" [#8="[ ]*\\([[(]+[Ww][Aa][Ss]:?[ ]*.*[])]+\\)"] 1 #8#] "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 #[0 "\300\207" [#9="[ ]*\\((*[Ww][Aa][Ss]:[ ]*.*)\\)"] 1 #9#] "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 #[0 "\300\207" [#10="--8<---------------cut here---------------start------------->8---\n"] 1 #10#] "How to mark the beginning of some inserted text." string (custom-manual "(message)Insertion Variables") message-mark-insert-end #[0 "\300\207" [#11="--8<---------------cut here---------------end--------------->8---\n"] 1 #11#] "How to mark the end of some inserted text." (custom-manual "(message)Insertion Variables") message-archive-header #[0 "\300\207" [#12="X-No-Archive: Yes\n"] 1 #12#] "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 #[0 "\300\207" [#13="X-No-Archive: Yes - save http://groups.google.com/"] 1 #13#] "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 (#$ . 13212))
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \210\302\316\304\305\317DD\320\310\311\312\321\314\315& \210\302\322\304\305\323DD\324\310\311\312\321\314\315& \210\302\325\304\305\326DD\327\310\311\312\305\314\315& \210\302\330\304\305\331DD\332\312\333\310\334\335\336\314\315& \210\302\337\304\305\340DD\341\312\321\335\342\314\315& \210\302\343\304\305\344DD\345\310\346\314\347\314\350\335\351\312\313&
\210\302\352\304\305\353DD\354\314\347\314\350\310\355\335\356\312\313&
\210\302\357\304\305\360DD\361\310\362\314\363\335\364\312\365& \210\302\366\304\305\367DD\370\314\363\335\371\312\313& \210\302\372\304\305\373DD\374\310\355\314\363\312\313& \210\302\375\304\305\376DD\377\314\201@ \312\201A &\210\302\201B \304\305\201C DD\201D \312\201E \335\201F \314\201@ & \210\302\201G \304\305\201H DD\201I \314\201J \335\201K \310\201L \312\201M & \210\302\201N \304\305\201O DD\201P \310\201L \314\201J \335\201Q \312\313& \210\302\201R \304\305\201S DD\201T \310\201U \314\201J \312\201V & \210\302\201W \304\305\201X DD\201Y \314\201J \312\313&\210\302\201Z \304\305\201[ DD\201\\ \314\201J \335\201] \312\313& \210\302\201^ \304\305\201_ DD\201` \310\201a \314\201b \335\201c \312\201d & \210\302\201e \304\305\201f DD\201g \310\201U \314\201J \312\201h & \210\302\201i \304\305\201j DD\201k \310\201L \314\201J \312\201l & \210\302\201m \304\305\201n DD\201o \314\201p \335\201q \312\201r & \210\302\201s \304\305\201t DD\201u \310\362\314\201p \335\201v \312\201r \201w \201x &
\210\302\201y \304\305\201z DD\201{ \312\305\310\201L &\210\302\201| \304\305\201} DD\201~ \314\201b \335\201 \312\321& \207" [make-variable-buffer-local message-cross-post-old-target custom-declare-variable message-cross-post-default funcall function #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [#1="Crosspost & Followup-To: "] 1 #1#] "Note to insert before signature to notify of cross-post and follow-up." string message-followup-to-note #[0 "\300\207" [#2="Followup-To: "] 1 #2#] "Note to insert before signature to notify of follow-up only." message-cross-post-note-function #[0 "\300\207" [message-cross-post-insert-note] 1] "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'." message-signature-separator #[0 "\300\207" [#3="^-- $"] 1 #3#] "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 #[0 "\300\207" [#4="\n[...]\n\n"] 1 #4#] "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 #[0 "\207" [mail-interactive] 1] "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 #[0 "\300\207" [nil] 1] "When non-nil, ask for confirmation when sending a message." "23.1" (custom-manual "(message)Sending Variables") message-generate-new-buffers #[0 "\300\207" [unsent] 1] "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 #[0 "\300\207" [nil] 1] "Non-nil means that the message buffer will be killed after sending a message." (custom-manual "(message)Message Buffers") message-kill-buffer-query #[0 "\300\207" [t] 1] "Non-nil means that killing a modified message buffer has to be confirmed.\nThis is used by `message-kill-buffer'." message-user-organization #[0 "\300\301!\206 \302\207" [getenv "ORGANIZATION" t] 2] "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 #[0 "\300\301\302\303E\211\203 \211@\304!\203 \211\262A\266\202\202 \210\211\207" [nil "/etc/organization" "/etc/news/organization" "/usr/lib/news/organization" file-readable-p] 5] "Local news organization file." (choice (const nil) file) (custom-manual "(message)News Headers") message-make-forward-subject-function #[0 "\300C\207" [message-forward-subject-name-subject] 1] "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") "27.1" (repeat :tag "List of functions" (radio (function-item message-forward-subject-author-subject) (function-item message-forward-subject-fwd) (function-item message-forward-subject-name-subject) (function))) message-forward-as-mime #[0 "\300\207" [nil] 1] "Non-nil means forward messages as an inline/rfc822 MIME section.\nOtherwise, directly inline the old message in the forwarded\nmessage.\n\nWhen forwarding as MIME, certain MIME-related headers in the\nforwarded message may be removed/altered to ensure that the\nresulting mail is syntactically valid." (custom-manual "(message)Forwarding") message-forward-show-mml #[0 "\300\207" [best] 1] "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." "21.1" (choice (const :tag "use MML" t) (const :tag "don't use MML " nil) (const :tag "use MML when appropriate" best)) message-forward-before-signature #[0 "\300\207" [t] 1] "Non-nil means put forwarded message before signature, else after." message-wash-forwarded-subjects #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [#5="^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From \\|^Delivered-To:\\|^X-Content-Length:\\|^X-UIDL:"] 1 #5#] "All headers that match this regexp will be deleted when resending a message." "24.4" 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 #[0 "\300\207" [#6="^Content-Transfer-Encoding:\\|^X-Gnus"] 1 #6#] "All headers that match this regexp will be deleted when forwarding a message.\nThis variable is only consulted when forwarding \"normally\", not\nwhen forwarding as MIME or the like.\n\nThis may also be a list of regexps." (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-included-headers #[0 "\300\207" [("^From:" "^Subject:" "^Date:" "^To:" "^Cc:")] 1] "If non-nil, delete non-matching headers when forwarding a message.\nOnly headers that match this regexp will be included. This\nvariable should be a regexp or a list of regexps." (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 #[0 "\300\207" [#7="."] 1 #7#] "Delete these headers from the messages you yank." message-insertion (custom-manual "(message)Insertion Variables") regexp message-cite-prefix-regexp #[0 "\207" [mail-citation-prefix-regexp] 1] "Regexp matching the longest possible citation prefix on a line." (custom-manual "(message)Insertion Variables") :set #[514 "\301\"\302\300!\203 \303\304Q\207" [gnus-message-cite-prefix-regexp custom-set-default boundp "^\\(?:" "\\)"] 6 "\n\n(fn SYMBOL VALUE)"] message-cite-level-function #[0 "\300\207" [#[257 "\300\301\"\207" [cl-count 62] 4 "\n\n(fn S)"]] 1] "A function to determine the level of cited text.\nThe function accepts 1 parameter which is the matched prefix." message-cancel-message #[0 "\300\207" [#8="I am canceling my own article.\n"] 1 #8#] "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 #[0 "\301\302!\210\303!\203\f \304\207\305\306!\203 \307\207\310\207" [sendmail-program require sendmail executable-find message-send-mail-with-sendmail boundp 'smtpmail-default-smtp-server message-smtpmail-send-it message-send-mail-with-mailclient] 2 (#$ . 23859)])
(make-obsolete 'message-send-mail-function nil "27.1")
(defalias 'message-default-send-mail-function #[0 "\301\267\202\f \302\207\303\207\304\207\305\207" [send-mail-function #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (feedmail-send-it 6 sendmail-query-once 8 sendmail-send-it 10)) feedmail-send-it sendmail-query-once message-send-mail-with-sendmail message-use-send-mail-function] 2])
#@56 Use the setting of `send-mail-function' if applicable.
(defalias 'message--default-send-mail-function #[0 "\300 \207" [message-default-send-mail-function] 1 (#$ . 24671)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317\310\320&\210\300\321\302\303\322DD\323\310\311\310\324\316\325\306\303& \210\300\326\302\303\327DD\330\310\331\316\332\306\333& \210\300\334\302\303\335DD\330\310\331\316\336\306\337& \210\300\340\302\303\341DD\330\310\331\316\342\306\343& \210\300\344\302\303\345DD\346\310\311\306\347&\210\300\350\302\303\351DD\352\310\331\316\353\306\354& \210\300\355\302\303\356DD\357\312\360\310\331\316\361\306\362& \210\300\363\302\303\364DD\365\312\360\310\331\316\366\306\367& \210\300\370\302\303\371DD\372\312\360\310\331\316\373\306\374& \210\300\375\302\303\376DD\377\312\360\310\331\316\201@ \306\201A & \210\300\201B \302\303\201C DD\201D \312\360\310\331\316\201E \306\201F & \210\300\201G \302\303\201H DD\201I \312\360\310\331\316\201J \306\201K & \210\300\201L \302\303\201M DD\201N \310\311\316\201O \306\201P & \210\300\201Q \302\303\201R DD\201S \312\313\306\201T \316\201U \310\311& \207" [custom-declare-variable message-send-mail-function funcall function #[0 "\300\207" [message--default-send-mail-function] 1] "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--default-send-mail-function :tag "Use send-mail-function") (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 "27.1" :initialize custom-initialize-default :link (custom-manual "(message)Mail Variables") message-mail message-send-news-function #[0 "\300\207" [message-send-news] 1] "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") message-reply-to-function #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] (custom-manual "(message)Wide Reply") (choice function (const nil)) message-followup-to-function #[0 "\300\207" [nil] 1] (custom-manual "(message)Followup") (choice function (const nil)) message-extra-wide-headers #[0 "\300\207" [nil] 1] "If non-nil, a list of additional address headers.\nThese are used when composing a wide reply." (repeat string) message-use-followup-to #[0 "\300\207" [ask] 1] "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 #[0 "\300\207" [use] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [ask] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [obey-mail-envelope-from] 1] "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 "Obey `mail-envelope-from'" obey-mail-envelope-from) (const :tag "Use `user-mail-address'" nil)) (custom-manual "(message)Mail Variables")] 16)
(defalias 'message--sendmail-envelope-from #[0 "\302=\203 \303\301!\205 \207\207" [message-sendmail-envelope-from mail-envelope-from obey-mail-envelope-from boundp] 2])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\312\313\317\320\310\321& \210\300\322\302\303\323DD\324\312\313\317\325\310\326& \210\300\327\302\303\330DD\331\312\332\312\313\310\333& \210\300\334\302\303\335DD\336\312\337\317\340\310\341& \210\300\342\302\303\343DD\344\312\345\310\346&\210\300\347\302\303\350DD\351\312\345\317\352\310\353& \210\300\354\302\303\355DD\356\312\345\317\357\310\353& \210\300\360\302\303\361DD\362\312\345\317\363\310\353& \210\300\364\302\303\365DD\366\312\345\310\353&\210\300\367\302\303\370DD\371\312\345\310\353&\210\300\372\302\303\373DD\374\312\345\317\375\310\353& \210\300\376\302\303\377DD\201@ \310\201A \306\201B \312\345& \210\300\201C \302\303\201D DD\201E \310\201F \317\201G \312\201H & \210\300\201I \302\303\201J DD\201K \310\201L \317\201M \306\307\312\201H & \210\300\201N \302\303\201O DD\201P \306\201Q \310\201R \317\201S \312\201H & \210\300\201T \302\303\201U DD\201V \306\201B \310\201R \317\201W \312\201H & \210\300\201X \302\303\201Y DD\201Z \306\201B \310\201R \317\201[ \312\201H & \210\300\201\\ \302\303\201] DD\201^ \306\201Q \312\201H \317\201_ \310\201` & \210\300\201a \302\303\201b DD\201c \310\201d \317\201e \306\201f \312\201H & \210\300\201g \302\303\201h DD\201i \310\303\317\201j \312\201H & \210\300\201k \302\303\201l DD\201m \306\201Q \310\201n \201o \201p \317\201q \312\201H &
\210\300\201r \302\303\201s DD\201t \306\201Q \310\201u \317\201v \312\201H & \210\300\201w \302\303\201x DD\201y \310\201z \317\201{ \312\201H & \210\300\201| \302\303\201} DD\201~ \306\201B \310\201 \317\201\200 \312\201H & \210\300\201\201 \302\303\201\202 DD\201\203 \306\201\204 \310\201\205 \312\201H & \210\300\201\206 \302\303\201\207 DD\201\210 \306\201\204 \312\201H \310\201\211 & \207" [custom-declare-variable message-sendmail-extra-arguments funcall function #[0 "\300\207" [nil] 1] "Additional arguments to `sendmail-program'.\nA list of strings, e.g. (\"-a\" \"account\") for msmtp." :version "23.1" :type (repeat string) :group message-sending message-qmail-inject-program #[0 "\300\207" [#1="/var/qmail/bin/qmail-inject"] 1 #1#] "Location of the qmail-inject program." :link (custom-manual "(message)Mail Variables") file message-qmail-inject-args #[0 "\300\207" [nil] 1] "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 #[0 "\302\300!\203 <\203 \203 \207\302\301!\203 \207\303\207" [gnus-post-method gnus-select-method boundp (nnspool "")] 2] "Method used to post news.\nNote that when posting from inside Gnus, for instance, this\nvariable isn't used." message-news sexp message-generate-headers-first #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [72] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "Hook run when canceling articles." (custom-manual "(message)Various Message Variables") message-signature-setup-hook #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "Hook run in message mode buffers." message-header-hook #[0 "\300\207" [nil] 1] "Hook run in a message mode buffer narrowed to the headers." message-header-setup-hook #[0 "\300\207" [nil] 1] "Hook called narrowed to the headers when setting up a message buffer." (custom-manual "(message)Various Message Variables") message-minibuffer-local-map #[0 "\301\302!\303\"\210\211\207" [minibuffer-local-map make-sparse-keymap message-minibuffer-local-map set-keymap-parent] 4] "Keymap for `message-read-from-minibuffer'." (restricted-sexp :match-alternatives (symbolp keymapp)) "22.1" message-citation-line-function #[0 "\300\207" [message-insert-citation-line] 1] "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 #[0 "\300\207" [#2="On %a, %b %d %Y, %N wrote:\n"] 1 #2#] "Format of the \"Whomever writes:\" line.\n\nThe string is formatted using `format-spec'. The following constructs\nare 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\", else fall\n back to the mail address.\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, but\nthe date in the formatted string will be expressed in the author's\ntime zone as much as possible.\nExtracting the first (%F) and last name (%L) is done heuristically,\nso 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 #[0 "\207" [mail-yank-prefix] 1] "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'." "23.2" string (custom-manual "(message)Insertion Variables") message-yank-cited-prefix #[0 "\300\207" [#3=">"] 1 #3#] "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 #[0 "\300\207" [#4=">"] 1 #4#] "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 #[0 "\207" [mail-indentation-spaces] 1] "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 #[0 "\300\207" [message-cite-original-without-signature] 1] "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 #[0 "\300\207" [message-indent-citation] 1] "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 #[0 "\207" [mail-signature] 1] "String to be inserted at the end of the message buffer.\nIf nil, don't insert a signature.\nIf t, insert `message-signature-file'.\nIf a function or form, insert its result.\nSee `mail-signature' for the recommended format of a signature." (choice string (const :tag "None" nil) (const :tag "Contents of signature file" t) function sexp) :risky t (custom-manual "(message)Insertion Variables") message-signature-file #[0 "\207" [mail-signature-file] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [t] 1] "If non-nil, insert an empty line before the signature separator." boolean (custom-manual "(message)Insertion Variables") message-cite-reply-position #[0 "\300\207" [traditional] 1] "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.\nYou probably 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 #[0 "\300\207" [nil] 1] "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"))] 14)
#@76 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")) (#$ . 43540))
#@85 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:")) (#$ . 44015))
#@71 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")) (#$ . 44467))
(byte-code "\300\301\302\303\304DD\305\306\307\306\310\311\312\313\314& \210\300\315\302\303\316DD\317\306\307\306\310\311\320\313\321& \210\300\322\302\303\323DD\324\306\307\306\310\311\325\313\326& \207" [custom-declare-variable message-distribution-function funcall function #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [14] 1] "Number of days before your article expires." (custom-manual "(message)News Headers") integer message-user-path #[0 "\300\207" [nil] 1] "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 (#$ . 45851))
(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 (#$ . 46183))
#@71 Action to return to the caller after sending or postponing a message.
(defvar message-return-action nil (#$ . 46308))
#@73 A list of actions to be performed upon exiting after sending a message.
(defvar message-exit-actions nil (#$ . 46432))
#@68 A list of actions to be performed before killing a message buffer.
(defvar message-kill-actions nil (#$ . 46557))
#@63 A list of actions to be performed after postponing a message.
(defvar message-postpone-actions nil (#$ . 46677))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\315\316DD\317\320\321\322\323\324\325\326\327& \210\312\330\314\315\331DD\332\320\321\322\323\322\333\324\334\326\301&
\210\312\335\314\315\336DD\337\322\323\322\340\324\341\326\301& \210\312\342\314\315\343DD\344\322\345\324\346\347\350\326\351& \210\352\353\333\354\355\356%\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 funcall function #[0 "\300\207" [#1=""] 1 #1#] "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 #[0 "\305\300!\205 ;\205 \306\307\"\305\301!\205 \205 \306\310\n\"\305\303!\205, ;\205, \306\311 \"\fR\207" [mail-default-reply-to mail-self-blind user-mail-address mail-archive-file-name mail-default-headers boundp format "Reply-To: %s\n" "Bcc: %s\n" "Fcc: %s\n"] 5] "A string of header lines to be inserted in outgoing mails." message-mail (custom-manual "(message)Mail Headers") message-default-news-headers #[0 "\300\207" [#1#] 1 #1#] "A string of header lines to be inserted in outgoing news articles." message-news (custom-manual "(message)News Headers") message-mailer-swallows-blank-line #[0 "\302\303\"\2055 \304\305!\2055 \306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317\305!\210eb\210\320\321\322\320\323#+\262\2055 \324\207" [system-configuration case-fold-search string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" file-readable-p "/etc/sendmail.cf" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents nil re-search-forward "^OR\\>" t (looking-at "[ ]\\|[][!\"#$%&'()*+,./0-9;<=>?@A-Z\\^_`a-z{|}~-]+:")] 7] "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") :risky t 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) (#$ . 49440))
#@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)) (#$ . 49593))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\312\320&\210\300\321\302\303\322DD\323\306\324\310\325\312\326& \210\300\327\302\303\330DD\331\332\333\306\307\310\334\312\335& \210\336\327\337\340#\210\300\341\302\303\342DD\343\332\344\306\307\310\345\312\346& \207" [custom-declare-variable message-mail-alias-type funcall function #[0 "\300\207" [abbrev] 1] "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 #[0 "\300\207" [(self-insert-command)] 1] "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 #[0 "\301!\203
\302\303\304\"!\207\305\207" [message-directory file-writable-p file-name-as-directory expand-file-name "drafts" "~/"] 4] "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 #[0 "?\205 \301\207" [enable-multibyte-characters iso-8859-1] 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 make-obsolete-variable "The default charset comes from the language environment" "26.1" message-dont-reply-to-names #[0 "\207" [mail-dont-reply-to-names] 1] "Addresses to prune when doing wide replies.\nThis can be a regexp, a list of regexps or a predicate function.\nAlso, a value of nil means exclude `user-mail-address' only.\n\nIf a function email is passed as the argument." "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 #[0 "\301!\203 \207\302!\207" [message-dont-reply-to-names functionp gmm-regexp-concat] 2])
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\207" [put message-dont-reply-to-names byte-optimizer byte-compile-inline-expand custom-declare-variable message-shoot-gnksa-feet funcall function #[0 "\300\207" [nil] 1] "A list of GNKSA feet you are allowed to shoot.\nGnus gives you all the opportunity you could possibly want for\nshooting yourself in the foot. Also, Gnus allows you to shoot the\nfeet of Good Net-Keeping Seal of Approval. The following are foot\ncandidates:\n`empty-article' Allow you to post an empty article;\n`quoted-text-only' Allow you to post quoted text only;\n`multiple-copies' Allow you to post multiple copies;\n`cancel-messages' Allow you to cancel or supersede messages from\n your other email addresses;\n`canlock-verify' Allow you to cancel messages without verifying canlock." :group message :type (set (const empty-article) (const quoted-text-only) (const multiple-copies) (const cancel-messages) (const canlock-verify))] 8)
#@16
(fn FEATURE)
(defalias 'message-gnksa-enable-p #[257 "<?\206 \211>\207" [message-shoot-gnksa-feet] 3 (#$ . 53764)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315\316\317\320\321& \210\304\322\306\307\323DD\324\314\315\320\325&\207" [put message-gnksa-enable-p byte-optimizer byte-compile-inline-expand custom-declare-variable message-hidden-headers funcall function #[0 "\300\207" [("^References:" "^Face:" "^X-Face:" "^X-Draft-From:")] 1] "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 #[0 "\300\207" [t] 1] "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 "\301!\302\303\304#\210\302\305\304#\210\302\306\304#\210\211\207" [text-mode-syntax-table copy-syntax-table modify-syntax-entry 37 ". " 62 60] 5) (#$ . 54961))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\300\330\331\332\304\305%\210\300\333\334\335\304\305%\210\300\336\337\340\304\305%\210\300\341\342\343\304\305%\210\300\344\345\346\304\305%\210\347\350\351\333#\210\347\350\352\353#\210\300\354\355\356\304\305%\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 To headers." :group message-faces 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-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-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-other ((((class color) (background dark)) :foreground "VioletRed1") (((class color) (background light)) :foreground "steel blue") (t :bold t :italic t)) "Face used for displaying other headers." 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-xheader ((((class color) (background dark)) :foreground "DeepSkyBlue1") (((class color) (background light)) :foreground "blue") (t :bold t)) "Face used for displaying X-Header headers." message-separator ((((class color) (background dark)) :foreground "LightSkyBlue1") (((class color) (background light)) :foreground "brown") (t :bold t)) "Face used for displaying the separator." message-cited-text-1 ((((class color) (background dark)) (:foreground "LightPink1")) (((class color) (background light)) (:foreground "red1")) (t (:bold t))) "Face used for displaying 1st-level cited text." message-cited-text-2 ((((class color) (background dark)) (:foreground "forest green")) (((class color) (background light)) (:foreground "red4")) (t (:bold t))) "Face used for displaying 2nd-level cited text." message-cited-text-3 ((((class color) (background dark)) (:foreground "goldenrod3")) (((class color) (background light)) (:foreground "OliveDrab4")) (t (:bold t))) "Face used for displaying 3rd-level cited text." message-cited-text-4 ((((class color) (background dark)) (:foreground "chocolate3")) (((class color) (background light)) (:foreground "SteelBlue4")) (t (:bold t))) "Face used for displaying 4th-level cited text." put message-cited-text face-alias obsolete-face "26.1" message-mml ((((class color) (background dark)) :foreground "MediumSpringGreen") (((class color) (background light)) :foreground "ForestGreen") (t :bold t)) "Face used for displaying MML."] 6)
#@14
(fn LIMIT)
(defalias 'message-match-to-eoh #[257 "`\300 \210`W?\205 \301`D!\210`\207" [rfc822-goto-eoh set-match-data] 5 (#$ . 58477)])
#@185 Generate the matcher for cited text.
LEVEL is the citation level to be matched and MAXLEVEL is the
number of levels specified in the faces `message-cited-text-*'.
(fn LEVEL MAXLEVEL)
(defalias 'message-font-lock-make-cited-text-matcher #[514 "\300\301\302\303\304\"\305\"\306\307%\207" [make-byte-code 257 "\304\305\306\n\307Q\310#\203/ \311 \312\313\314\315\316!\317\"\320$\216\300S\321 \322\323!!S\301\"U)\262\211\262\203 \211\207" vconcat vector [message-cite-prefix-regexp message-cite-level-function nil re-search-forward "^\\(" "\\).*" t match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 mod match-string 1] 9 "\n\n(fn LIMIT)"] 9 (#$ . 58625)])
#@54 Additional expressions to highlight in Message mode.
(defvar message-font-lock-keywords (byte-code "\300\301\302P\303B\304P\305B\306P\307B\310P\311B\312P\313B\314P\315B\257\316\317B\320BB\262\321\211\322\211\323\324\325\"!\211\262\203D T\262\2020 S\262\323\324\325\"!\211\262\203i \326\"\327\330DDDB\262T\262\202H \266\203\244\207" ["[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?" message-match-to-eoh "^\\([Tt]o:\\)" ((progn (goto-char (match-beginning 0)) (match-end 0)) nil (1 'message-header-name) (2 'message-header-to nil t)) "^\\(^[GBF]?[Cc][Cc]:\\|^[Rr]eply-[Tt]o:\\)" ((progn (goto-char (match-beginning 0)) (match-end 0)) nil (1 'message-header-name) (2 'message-header-cc nil t)) "^\\([Ss]ubject:\\)" ((progn (goto-char (match-beginning 0)) (match-end 0)) nil (1 'message-header-name) (2 'message-header-subject nil t)) "^\\([Nn]ewsgroups:\\|Followup-[Tt]o:\\)" ((progn (goto-char (match-beginning 0)) (match-end 0)) nil (1 'message-header-name) (2 'message-header-newsgroups nil t)) "^\\(X-[A-Za-z0-9-]+:\\|In-Reply-To:\\)" ((progn (goto-char (match-beginning 0)) (match-end 0)) nil (1 'message-header-name) (2 'message-header-xheader)) "^\\([A-Z][^: \n ]+:\\)" ((progn (goto-char (match-beginning 0)) (match-end 0)) nil (1 'message-header-name) (2 'message-header-other nil t)) #[257 "\205 \301\232?\205 \302\303\304!\305Q\306#\207" [mail-header-separator "" re-search-forward "^" regexp-quote "$" t] 5 "\n\n(fn LIMIT)"] (0 'message-separator) (("<#/?\\(?:multipart\\|part\\|external\\|mml\\|secure\\)[^>]*>" 0 'message-mml)) 1 nil intern-soft format "message-cited-text-%d" message-font-lock-make-cited-text-matcher 0 quote] 9) (#$ . 59335))
#@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))) (#$ . 61016))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \210\300\316\302\303\317DD\320\306\307\312\321\314\315& \210\300\322\302\303\323DD\324\306\307\312\325\314\315& \210\300\326\302\303\327DD\330\306\307\314\315&\207" [custom-declare-variable message-send-hook funcall function #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "Hook run after sending messages."] 12)
#@40 Coding system to encode outgoing mail.
(defvar message-send-coding-system 'binary (#$ . 62347))
#@32 Coding system to compose mail.
(defvar message-draft-coding-system mm-auto-save-coding-system (#$ . 62449))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \210\300\316\302\303\317DD\320\310\321\312\322\314\323& \210\300\324\302\303\325DD\326\306\327\310\321\314\330& \210\300\331\302\303\332DD\333\306\327\314\334\306\335\310\336& \210\300\337\302\303\340DD\341\306\327\310\321\312\342\314\343& \210\300\344\302\303\345DD\346\306\327\310\321\312\347\314\350& \210\300\351\302\303\352DD\353\306\354\310\321\312\355\314\356& \210\300\357\302\303\360DD\361\306\307\310\321\312\362\314\363& \207" [custom-declare-variable message-send-mail-partially-limit funcall function #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "Regexp or predicate function 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\nIf a function, an email string is passed as the argument.\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 function) message-hierarchical-addresses #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "Domain part of Message-IDs." (custom-manual "(message)News Headers") (radio (const :format "%v " nil) (string :format "FQDN: %v")) message-use-idna #[0 "\300\207" [t] 1] "Whether to encode non-ASCII in domain names into ASCII according to IDNA." "26.1" (custom-manual "(message)IDNA") (choice (const :tag "Ask" ask) (const :tag "Never" nil) (const :tag "Always" t)) message-generate-hashcash #[0 "\300\301!\205 \302\207" [executable-find "hashcash" opportunistic] 2] "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-inhibit-body-encoding nil)
(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 "\300\301\302\303\260\207" ["\\([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"] 6) (#$ . 66876))
#@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: +---+ *|?$" (#$ . 67293))
#@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)) (#$ . 67815))
#@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)) (#$ . 68006))
#@42 Some saved answers when sending message.
(defvar message-options nil (#$ . 68289))
(make-variable-buffer-local 'message-options)
#@30 Internal send mail function.
(defvar message-send-mail-real-function nil (#$ . 68424))
#@35 The regexp of bogus system names.
(defvar message-bogus-system-names "\\`localhost\\.\\|\\.local\\'" (#$ . 68517))
#@74 After sending a message, the encoded version is cached in this variable.
(defvar message-encoded-mail-cache nil (#$ . 68638))
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\302\"\210\300\306\307\"\210\300\310\311\"\210\300\312\311\"\210\300\313\307\"\210\300\314\315\"\210\300\316\302\"\210\300\317\302\"\210\300\320\315\"\210\300\321\307\"\210\300\322\323\"\210\300\324\325\"\210\300\326\325\"\210\300\327\330\"\210\300\331\330\"\210\300\332\333\"\210\300\334\335\"\210\300\336\337\"\207" [autoload gnus-alive-p "gnus-util" gnus-delay-article "gnus-delay" gnus-extract-address-components gnus-find-method-for-group "gnus" gnus-group-name-charset "gnus-group" gnus-group-name-decode gnus-groups-from-server gnus-open-server "gnus-int" gnus-output-to-mail gnus-output-to-rmail gnus-request-post gnus-server-string 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"] 3)
(defalias 'message-kill-all-overlays #[0 "\300\301\302ed\"\"\207" [mapcar delete-overlay overlays-in] 5])
#@103 Ask QUESTION, displaying remaining args in a temporary buffer if SHOW.
(fn QUESTION SHOW &rest TEXT)
(defalias 'message-y-or-n-p '(macro . #[642 "\300\301BBBB\207" [message-talkative-question 'y-or-n-p] 8 (#$ . 69821)]))
#@67 Delete the current line (and the next N lines).
(fn &optional N)
(defalias 'message-delete-line #[256 "\300 \210`\206 \301y\210`|\207" [beginning-of-line 1] 3 (#$ . 70052)])
(put 'message-delete-line 'byte-optimizer 'byte-compile-inline-expand)
#@72 Non-nil means the mark and region are currently active in this buffer.
(defalias 'message-mark-active-p #[0 "\207" [mark-active] 1 (#$ . 70306)])
#@66 Remove double quotes (") from strings in list ELEMS.
(fn ELEMS)
(defalias 'message-unquote-tokens #[257 "\300\301\"\207" [mapcar #[257 "\300\301\"\203 \302\303\"\302\304\"P\262\202 \207" [string-match "^\\(.*\\)\"\\(.*\\)$" match-string 1 2] 5 "\n\n(fn ITEM)"]] 4 (#$ . 70459)])
#@166 Split HEADER into a list of header elements.
SEPARATOR is a string of characters to be used as separators. ","
is used by default.
(fn HEADER &optional SEPARATOR)
(defalias 'message-tokenize-header #[513 "\205\240 \300\301\206 \302\"\303\304\211\211\211\305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316 \210e\262c\210eb\210m\204\231 \203? \304\262\202B \317u\210`V\203i m\204[ \320!\203i \204i \204i `{B\262\310\225\262\2021 \304f\321=\203w ?\262\2021 \304f\322=\203\210 \204\210 \303\262\2021 \304f\323=\2031 \2041 \304\262\2021 \237*\262\266\206\207" [format "[%s]+" "," t nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-enable-multibyte 1 looking-at 34 40 41] 15 (#$ . 70753)])
(autoload 'nnheader-insert-file-contents "nnheader")
#@58 Say whether FILE looks like a Unix mbox file.
(fn FILE)
(defalias 'message-mail-file-mbox-p #[257 "\301!\2052 \302!\2052 \303!\2052 \304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315!\210eb\210\316!*\262\207" [message-unix-mail-delimiter file-exists-p file-readable-p file-regular-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nnheader-insert-file-contents looking-at] 8 (#$ . 71611)])
#@245 The same as `mail-fetch-field', only remove all newlines.
Surrounding whitespace is also removed.
The buffer is expected to be narrowed to just the header of the message;
see `message-narrow-to-headers-or-head'.
(fn HEADER &optional NOT-ALL)
(defalias 'message-fetch-field #[513 "\302\303\304?#\211\205b \305\306\"\203 \307\310\302\211$\262\202\f \211\304\211\311\206) \312\313Q\304\302\305#)\266\203\211\203C \314\315#\202D \266\203\305\316\206N \312\317Q\"\203_ \314\315\225\"\266\205\202b \266\205)\207" [inhibit-point-motion-hooks inhibit-changing-match-data t mail-fetch-field nil string-match "\n[ ]+" replace-match " " "\\(?:" "[ \n
]+" "\\)\\'" substring 0 "\\`\\(?:" "\\)"] 15 (#$ . 72098)])
#@101 The same as `message-fetch-field', only narrow to the headers first.
(fn HEADER &optional NOT-ALL)
(defalias 'message-field-value #[513 "\212\214\300 \210\301\"*\207" [message-narrow-to-headers-or-head message-fetch-field] 5 (#$ . 72833)])
#@54 Narrow the buffer to the header on the current line.
(defalias 'message-narrow-to-field #[0 "\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 (#$ . 73082)])
#@92 Add the HEADERS to the message header, skipping those already present.
(fn &rest HEADERS)
(defalias 'message-add-header #[128 "\211\205L \300\301\302@\"\204 \303\304@\"\210\305\306@\"\262\214\307 \210\310\311\312!\313Q\300\314#\204C db\210\301\315@\"\203= @c\210\202C @\316\261\210)\210\211A\262\202 \207" [nil string-match "^\\([^:]+\\):[ ]*[^ ]" error "Invalid header `%s'" match-string 1 message-narrow-to-headers re-search-forward "^" regexp-quote ":" t "\n$" 10] 6 (#$ . 73386)])
#@69 Evaluate FORMS in the reply buffer, if it exists.
(fn &rest FORMS)
(defalias 'message-with-reply-buffer '(macro . #[128 "\300\301\302\303BBE\207" [when (buffer-live-p message-reply-buffer) with-current-buffer message-reply-buffer] 6 (#$ . 73892)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put message-with-reply-buffer lisp-indent-function 0 put edebug-form-spec t] 5)
#@69 Fetch field HEADER from the message we're replying to.
(fn HEADER)
(defalias 'message-fetch-reply-field #[257 "\301!\205 rq\210\214\302 \210\303!*\207" [message-reply-buffer buffer-live-p mail-narrow-to-head message-fetch-field] 3 (#$ . 74291)])
#@87 Remove list identifiers in `gnus-list-identifiers' from string SUBJECT.
(fn SUBJECT)
(defalias 'message-strip-list-identifiers #[257 "\301\302!\210;\203
\202 \303\304\305#\211\306\232\204< \307\310\311Q\"\203< \312\313\314\224#\315\316\"\2063 \315\317\"\312\314\225\"Q\202= \207" [gnus-list-identifiers require gnus-sum mapconcat identity " *\\|" "" string-match "\\(\\(\\(Re: +\\)?\\(" " *\\)\\)+\\(Re: +\\)?\\)" substring 0 1 match-string 3 5] 7 (#$ . 74548)])
#@66 Remove "Re:" from subject lines in string SUBJECT.
(fn SUBJECT)
(defalias 'message-strip-subject-re #[257 "\301\"\203
\302\303\225\"\207\207" [message-subject-re-regexp string-match substring 0] 4 (#$ . 75030)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable message-replacement-char funcall function #[0 "\300\207" [#1="."] 1 #1#] "Replacement character used instead of unprintable or not decodable chars." :group message-various :version "22.1" :type (choice string (const ".") (const "?"))] 10)
#@51 Fix non-decodable words in SUBJECT.
(fn SUBJECT)
(defalias 'message-strip-subject-encoded-words #[257 "\302\303\304 \211\211$\305\306\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216c\210eb\210\320\306\302#\2051 \321\322!\211\262*\262\306\211\211\211\203b ;\203g \227\211\262\203g \323\324!!\203g \325\303\326 \"!\324!\262\204g \202 \307\310!r\211q\210\311\312\313\314\315!\327\"\317$\216 c\210eb\210\320\306\302#\203\321\322!\227\262\321\317!\262\312\224\262\312\225\262\323\324!!\205\255 \324!\211\262\262\204\201 \330\331\332\f\n $!\262\203\320 \333\334\335!\336Q!\210\202\201 \212b\210\320\337\302#\210\333\340!\210\341\342\"\203\371 \343\344 \"\210\320\345\302#\203\n\333 !\210\202\352 \343\344\n\"\210\320\346\302#\210\333 !\210\320\347!\210\333\340!\210)\202\201 \350ed\"\210\351 *\262)\207" [case-fold-search message-replacement-char t format "[%s%s%s]" "=\\?\\([^?]+\\)\\?\\([QB]\\)\\?\\([^?]+\\)\\(\\?=\\)" nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [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? " [buffer-name kill-buffer] read-coding-system format-message "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] 16 (#$ . 75587)])
#@178 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.
(fn SUBJECT)
(defalias 'message-strip-subject-trailing-was #[257 "\303\205; \304\305=\203 \202 \n\"\205; \306\307\211\224#\211\262\205; \305=\203: \310\311\312\313\314\315\316\260$\205; \211\266\202\206A \211\207" [message-subject-trailing-was-query message-subject-trailing-was-ask-regexp message-subject-trailing-was-regexp nil string-match ask substring 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\nCurrent subject is: \"" "\"\n\nNew subject would be: \"" "\"\n\nSee the variable `message-subject-trailing-was-query' to get rid of this query."] 12 (#$ . 77340)])
#@76 Ask for NEW-SUBJECT header, append (was: <Old Subject>).
(fn NEW-SUBJECT)
(defalias 'message-change-subject #[257 "\211?\206 \300!\301U\206 \302\303\"?\205X \212\214\304 \210\305\306!)\211\204( \307\310!\202U \302\311\312!\313Q\"?\205U \314!\262\315 \210\316\317 \210`\206G \320y\210`|\266\321\322\323\260c\262)\207" [string-width 0 string-match "^[ ]*$" message-narrow-to-headers message-fetch-field "Subject" error "No current subject" "^[ ]*" regexp-quote "[ ]*$" message-strip-subject-re message-goto-subject nil beginning-of-line 1 "Subject: " " (was: " ")\n"] 7 (#$ . 78205) (byte-code "\300\301!C\207" [read-from-minibuffer "New subject: "] 2)])
#@220 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-").
(fn BEG END &optional VERBATIM)
(defalias 'message-mark-inserted-region #[770 "\212b\210\211\203\f \302\202
c\210b\210\211\203 \303\202 c)\207" [message-mark-insert-end message-mark-insert-begin "#v-\n" "#v+\n"] 4 (#$ . 78883) "r\nP"])
#@210 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-").
(fn FILE &optional VERBATIM)
(defalias 'message-mark-insert-file #[513 "`\203 \302\202\n c\210\211b\210\303!\210\211b\210\203 \304\202 c\207" [message-mark-insert-end message-mark-insert-begin "#v-\n" insert-file-contents "#v+\n"] 5 (#$ . 79320) "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 #[0 "\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 (#$ . 79786) nil])
#@147 Mangles FollowUp-To and Newsgroups header to point to TARGET-GROUP.
With prefix-argument just set Follow-Up, don't cross-post.
(fn TARGET-GROUP)
(defalias 'message-cross-post-followup-to-header #[257 "\303\304\305\"\210\306 \210\307 \210\203 \310\311\312P!\313\305#\203 \314\315!\210 \203' \n\203/ \204I \n\203I \316\317\"\204I \316\311!\320\321!\"\204I \313\210\312Pc\210\313\210\316\322\323Q\320\321!\"\204] \324Pc\210\211\211\207" [message-cross-post-old-target message-cross-post-default current-prefix-arg 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: "] 5 (#$ . 80445) (byte-code "\301\302\303\304\305\306\300!\205\f \307\211\310\306\311!\205 \311&#C\207" [gnus-newsrc-alist replace-regexp-in-string "\\`.*:" "" completing-read "Followup To: " boundp nil ("poster" . 0) gnus-group-history] 11)])
#@441 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.
(fn TARGET-GROUP CROSS-POST IN-OLD OLD-GROUPS)
(defalias 'message-cross-post-insert-note #[1028 "\304 \210\305\306P\307\310#\304 \210\305\306\311 !\312Q\310#\203- \307\313 \210`\206$ \314y\210`|\266\202
\304 \210\305\306\311\n!\312Q\310#\203P \307\313 \210`\206G \314y\210`|\266\2020 \304 \203Y \305 !\210\204i \203i \315\316\"\203q \n\317Qc\202v \317Qc\207" [mail-header-separator message-cross-post-note message-followup-to-note message-signature-separator message-goto-signature re-search-backward "^" nil t regexp-quote ".*" beginning-of-line 1 string-match "^[ ]*poster[ ]*$" "\n"] 9 (#$ . 81456)])
#@135 Crossposts message and set Followup-To to TARGET-GROUP.
With prefix-argument just set Follow-Up, don't cross-post.
(fn TARGET-GROUP)
(defalias 'message-cross-post-followup-to #[257 "\303\304!\203 \211\305\306\"\203 \307\310\225\"\202 \211\262\262\211?\206, \311!\310U\206, \305\312\"?\205w \212\313\314!\305\315!\206= \316\"\204H \317\320!\202t \211\203Y \305\321\315!\322Q\"?\205t \323!\210 \203g \n\203p ?\205q \n\205q \324$\266\202)\207" [message-cross-post-note-function message-cross-post-default current-prefix-arg fboundp gnus-group-real-name string-match "^[^:]+:" substring 0 string-width "^[ ]*$" message-fetch-field "Newsgroups" regexp-quote "" error "No current newsgroup" "^[ ]*" "[ ]*$" message-cross-post-followup-to-header t] 8 (#$ . 82477) (byte-code "\301\302\303\304\305\306\300!\205\f \307\211\310\306\311!\205 \311&#C\207" [gnus-newsrc-alist replace-regexp-in-string "\\`.*:" "" completing-read "Followup To: " boundp nil ("poster" . 0) gnus-group-history] 11)])
#@69 Replace contents of To: header with contents of Cc: or Bcc: header.
(defalias 'message-reduce-to-to-cc #[0 "\214\300 \210\301\302!)\303\204 \214\300 \210\301\304!)\211\262\203 \305\262\205L \212\306 \210\303\307 \210`\2060 \310y\210`|\266\311\312Qc\210\214\300 \210\313\203I \304\202J \302!*\207" [message-narrow-to-headers message-fetch-field "cc" nil "bcc" t message-goto-to beginning-of-line 1 "To: " "\n" message-remove-header] 5 (#$ . 83494) nil])
#@280 Remove HEADER in the narrowed buffer.
If IS-REGEXP, HEADER is a regular expression.
If FIRST, only remove the first instance of the header.
If REVERSE, remove headers that doesn't match HEADER.
Return the number of headers removed.
(fn HEADER &optional IS-REGEXP FIRST REVERSE)
(defalias 'message-remove-header #[1025 "eb\210\203 \202 \301\302!\303Q\304\305\306m\204o \211\204o \203. \307!\204W \307\310!\2021 \307!\203W T\262\203? \305\262`\311y\210\312\313\306\305#\203Q \304\224b\202R d|\210\202 \311y\210\312\313\306\305#\203i \304\224b\210\202 db\210\202 )\207" [case-fold-search "^" regexp-quote ":" 0 t nil looking-at "[!-9;-~]+:" 1 re-search-forward "^[^ ]"] 13 (#$ . 83964)])
#@77 Remove the first instance of HEADER if there is more than one.
(fn HEADER)
(defalias 'message-remove-first-header #[257 "\300\301\302!\303Q\212eb\210\304\305\306#\203 T\262\202 )\307V\205. \310\305\306#\210S\262\202 \207" [0 "^" regexp-quote ":" re-search-forward nil t 1 message-remove-header] 7 (#$ . 84675)])
#@47 Narrow the buffer to the head of the message.
(defalias 'message-narrow-to-headers #[0 "~\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 (#$ . 85005)])
#@46 Like `message-narrow-to-head'. Don't widen.
(defalias 'message-narrow-to-head-1 #[0 "eb\300\301\302\303#\203 `S\202 d}\210eb\207" [search-forward "\n\n" nil 1] 5 (#$ . 85257)])
#@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 #[0 "~\210\300 \207" [message-narrow-to-head-1] 1 (#$ . 85444)])
#@47 Narrow the buffer to the head of the message.
(defalias 'message-narrow-to-headers-or-head #[0 "~\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 (#$ . 85653)])
#@57 Say whether the current buffer contains a news message.
(defalias 'message-news-p #[0 "?\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 (#$ . 85948)])
#@57 Say whether the current buffer contains a mail message.
(defalias 'message-mail-p #[0 "?\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 (#$ . 86237)])
#@45 Say whether we need to insert a MFT header.
(defalias 'message-subscribed-p #[0 "\206
\206
\n\206
\207" [message-subscribed-regexps message-subscribed-addresses message-subscribed-address-file message-subscribed-address-functions] 1 (#$ . 86531)])
#@41 Go to the beginning of the next header.
(defalias 'message-next-header #[0 "\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 (#$ . 86791)])
#@61 Sort the buffer as headers using `message-rank' text props.
(defalias 'message-sort-headers-1 #[0 "eb\210\300\301!\210\302\303\304\305\306$\207" [require sort sort-subr nil message-next-header #[0 "\300 \210o?\205\n \301u\207" [message-next-header -1] 1] #[0 "\300`\301\"\206 \302\207" [get-text-property message-rank 10000] 3]] 5 (#$ . 87014)])
#@85 Sort the headers of the current message according to `message-header-format-alist'.
(defalias 'message-sort-headers #[0 "\212\214GT\301\302 \210\303\304\301\305#\2038 \306\307\224\307\224T\310\311\307\224\307\225S{!\236>G\211\262\2031 Z\2023 T$\210\202 \266\312 *\207" [message-header-format-alist nil message-narrow-to-headers re-search-forward "^[^ \n]+:" t put-text-property 0 message-rank intern message-sort-headers-1] 9 (#$ . 87367) nil])
#@31 Kill the address under point.
(defalias 'message-kill-address #[0 "`\300 \210\301n\203 `S\202 `\"\207" [message-skip-to-next-address kill-region] 4 (#$ . 87827) nil])
(autoload 'Info-goto-node "info")
#@232 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'.
(fn &optional ARG)
(defalias 'message-info #[256 "\301\302\303\304\267\202 \305\306!\210\202% \307\202% \310!\204$ 9\203$ \202% \311\"!\207" [mml2015-use info format "(%s)Top" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (16 9 4 17)) require mml2015 emacs-mime booleanp message] 6 (#$ . 88038) "p"])
#@147 Return a list of all recipients in the message, looking at TO, Cc and Bcc.
Each recipient is in the format of `mail-extract-address-components'.
(defalias 'message-all-recipients #[0 "\300\301\302\"\207" [mapcan #[257 "\300!\211\205 \301\302\"\207" [message-fetch-field mail-extract-address-components t] 5 "\n\n(fn HEADER)"] ("To" "Cc" "Bcc")] 3 (#$ . 88603)])
#@72 Return non-nil if the pgp keyring has a public key for each recipient.
(defalias 'message-all-epg-keys-available-p #[0 "\301\302!\210\303!\30421 \305 \211\203. \211@\211A@\211\203& \306\"\204& \307\304\310\"\210\210A\266\202\202
\210\3110\207" [epa-protocol require epa epg-make-context break message-all-recipients epg-list-keys throw nil t] 7 (#$ . 88975)])
#@181 Add MML tag to encrypt message when there is a key for each recipient.
Consider adding this function to `message-send-hook' to
systematically send encrypted emails when possible.
(defalias 'message-sign-encrypt-if-all-keys-available #[0 "\300 \205 \301 \207" [message-all-epg-keys-available-p mml-secure-message-sign-encrypt] 1 (#$ . 89347)])
(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 (#$ . 92482))
(easy-menu-do-define 'message-mode-menu message-mode-map "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)] ["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 :active (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 :active (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"]))
#@2
(defvar message-mode-field-menu nil (#$ . 94031))
(easy-menu-do-define 'message-mode-field-menu message-mode-map "" '("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] ["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" message-widen-and-recenter t] ["Goto Body" message-goto-body t] ["Goto Signature" message-goto-signature t]))
(defvar message-tool-bar-map nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable message-strip-special-text-properties funcall function #[0 "\300\207" [t] 1] "Strip special properties from the message buffer.\n\nEmacs has a number of special text properties which can break message\ncomposing in various ways. If this option is set, message will strip\nthese properties from the message composition buffer. However, some\npackages requires these properties to be present in order to work.\nIf you use one of these packages, turn this option off, and hope the\nmessage composition doesn't break too bad." :version "22.1" :group message-various :link (custom-manual "(message)Various Message Variables") :type boolean] 12)
#@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) (#$ . 96620))
#@359 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.
(fn POS)
(defalias 'message-tamago-not-in-use-p #[257 "\300\301!\205& \301J\205& \302\303\"\304>\206& \302\305\"\206& \302\306\"\206& \302\307\"?\207" [boundp egg-modefull-mode get-text-property intangible (its-part-1 its-part-2) egg-end egg-lang egg-start] 4 (#$ . 96994)])
#@13
(fn TYPE)
(defalias 'message-mail-alias-type-p #[257 ":\204 =\207\211>\207" [message-mail-alias-type] 3 (#$ . 97628)])
(put 'message-mail-alias-type-p 'byte-optimizer 'byte-compile-inline-expand)
#@223 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'.
(fn BEGIN END &optional OLD-LENGTH)
(defalias 'message-strip-forbidden-properties #[770 "\306:\204 =\262\202 \211>\262\203 \n>\203 \307 \210 \2051 \310!\2051 \311 \312
#)\207" [message-mail-alias-type this-command message-self-insert-commands message-strip-special-text-properties inhibit-read-only message-forbidden-properties ecomplete message-display-abbrev message-tamago-not-in-use-p t remove-text-properties] 7 (#$ . 97838)])
#@54 A list of recognized smiley faces in `message-mode'.
(defvar message-smileys '(":-)" ":)" ":-(" ":(" ";-)" ";)") (#$ . 98476))
#@65 Syntax-propertize certain message text specially.
(fn BEG END)
(defalias 'message--syntax-propertize #[514 "\302\303Q\304 !b\210\305\306#\203. \307\224\307\225\310\211T\311\312D#\210\310\211Td^\311\313D#\266\202\n b\210\305\306#\205F \310\307\224\307\225\311\314D#\210\2021 \207" [message-cite-prefix-regexp message-smileys "^" ".*$" regexp-opt search-forward-regexp noerror 0 add-text-properties syntax-table (11) (12) (1)] 11 (#$ . 98609)])
(defvar message-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [message-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar message-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [message-mode-abbrev-table message-mode-map variable-documentation put purecopy "Keymap for `message-mode'." boundp message-mode-syntax-table definition-name message-mode (lambda (#1=#:def-tmp-var) (defvar message-mode-syntax-table #1#)) make-syntax-table "Syntax table for `message-mode'." (lambda (#1#) (defvar message-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `message-mode'." derived-mode-parent text-mode] 5)
#@284 Major mode for editing mail and news to be sent.
Like `text-mode', but with these additional commands:
\{message-mode-map}
In addition to any hooks its parent mode might have run,
this mode runs the hook `message-mode-hook', as the final or penultimate step
during initialization.
(defalias 'message-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
@=\204R \326
\325@C#\210\327 !\210\330\f!\210
@\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!\307A\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 \210B\203\335 BC\356 \210D\203\367 \306\357!\210D/\306\360!\210\361\362D!\363Q0\306\364!\210\3654\366\367!\203\f\306\367!\210\370 7\371E \"\210\371F \"\210\372\373\374\332\375$\210\376G:\204/G=\262\2025\211G>\262\203>\377 \210\202^\201M G:\204PG=\262\202V\211G>\262\203^\201N \210\372\201O \201P \332\307$\210H\204s\201Q \210\201R \204\201S \210\306\201I !\210\332I\201T \210\306\201J !\210\201U J\306\201K !\210\307K\306\201L !\210\332L)\201V \201W !\207" [delay-mode-hooks major-mode mode-name message-mode-map message-mode-syntax-table message-mode-abbrev-table 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 #[514 "\236A\211\203 \211`\"\210\202 \302\303 #\210\210\304\207" [message-face-alist mode-name error "Face %s not configured for %s mode" ""] 7 "\n\n(fn FACE END)"] 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 add-hook after-change-functions message-strip-forbidden-properties local abbrev mail-abbrevs-setup local-abbrev-table buffer-offer-save message-fill-column fill-column message-yank-prefix message-mode-menu message-mode-field-menu message-mail-alias-type buffer-file-name indent-tabs-mode syntax-propertize-function parse-sexp-ignore-comments message-encoded-mail-cache ecomplete ecomplete-setup completion-at-point-functions message-completion-function message-set-auto-save-file-name buffer-base-buffer mm-enable-multibyte mml-mode message--syntax-propertize run-mode-hooks message-mode-hook] 5 (#$ . 100223) nil])
#@31 Setup message fill variables.
(defalias 'message-setup-fill-variables #[0 "\306\300!\210\307\306\305!\210\306\304!\210\306\310!\210\306\311!\210\312 \313Q\314\n!\315 \316\317\260\211\211\320Q\211\320 Q \210\306\321!\210\322\306\323!\210\324\211\207" [fill-paragraph-function message-cite-prefix-regexp mail-header-separator page-delimiter paragraph-start paragraph-separate make-local-variable message-fill-paragraph adaptive-fill-regexp adaptive-fill-first-line-regexp "\\(" "\\)[ ]*" regexp-quote "$\\|[ ]*$\\|-- $\\|---+$\\|" "$\\|.*wrote:$\\|" "$\\|<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)" "\\|" auto-fill-inhibit-regexp nil normal-auto-fill-function message-do-auto-fill] 8 (#$ . 103340)])
#@30 Move point to the To header.
(defalias 'message-goto-to #[0 "\300 \210\301\302!\207" [push-mark message-position-on-field "To"] 2 (#$ . 104073) nil])
#@32 Move point to the From header.
(defalias 'message-goto-from #[0 "\300 \210\301\302!\207" [push-mark message-position-on-field "From"] 2 (#$ . 104229) nil])
#@35 Move point to the Subject header.
(defalias 'message-goto-subject #[0 "\300 \210\301\302!\207" [push-mark message-position-on-field "Subject"] 2 (#$ . 104391) nil])
#@30 Move point to the Cc header.
(defalias 'message-goto-cc #[0 "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Cc" "To"] 3 (#$ . 104562) nil])
#@32 Move point to the Bcc header.
(defalias 'message-goto-bcc #[0 "\300 \210\301\302\303\304#\207" [push-mark message-position-on-field "Bcc" "Cc" "To"] 4 (#$ . 104728) nil])
#@31 Move point to the Fcc header.
(defalias 'message-goto-fcc #[0 "\300 \210\301\302\303\304#\207" [push-mark message-position-on-field "Fcc" "To" "Newsgroups"] 4 (#$ . 104906) nil])
#@36 Move point to the Reply-To header.
(defalias 'message-goto-reply-to #[0 "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Reply-To" "Subject"] 3 (#$ . 105091) nil])
#@38 Move point to the Newsgroups header.
(defalias 'message-goto-newsgroups #[0 "\300 \210\301\302!\207" [push-mark message-position-on-field "Newsgroups"] 2 (#$ . 105280) nil])
#@40 Move point to the Distribution header.
(defalias 'message-goto-distribution #[0 "\300 \210\301\302!\207" [push-mark message-position-on-field "Distribution"] 2 (#$ . 105460) nil])
#@39 Move point to the Followup-To header.
(defalias 'message-goto-followup-to #[0 "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Followup-To" "Newsgroups"] 3 (#$ . 105646) nil])
#@44 Move point to the Mail-Followup-To header.
(defalias 'message-goto-mail-followup-to #[0 "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Mail-Followup-To" "To"] 3 (#$ . 105847) nil])
#@36 Move point to the Keywords header.
(defalias 'message-goto-keywords #[0 "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Keywords" "Subject"] 3 (#$ . 106055) nil])
#@35 Move point to the Summary header.
(defalias 'message-goto-summary #[0 "\300 \210\301\302\303\"\207" [push-mark message-position-on-field "Summary" "Subject"] 3 (#$ . 106244) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias message-goto-body-1 message-goto-body nil make-obsolete "27.1"] 4)
#@93 Move point to the beginning of the message body.
Returns point.
(fn &optional INTERACTIVE)
(defalias 'message-goto-body #[256 "\211\203 \301\302!\203
\303 \210\304 \210eb\210\305\306\306Q\307\310#\2066 \301\311!\203* \312y\210\202 l\2035 m\2045 \312y\210`\207" [mail-header-separator looking-at "[ ]*\n" expand-abbrev push-mark search-forward "\n" nil t "[^ \n :]+:\\|[ ]+[^ \n ]" 1] 5 (#$ . 106563) "p"])
#@43 Return t if point is in the message body.
(defalias 'message-in-body-p #[0 "`\212\300 )Y\207" [message-goto-body] 2 (#$ . 106982)])
#@67 Move point to the end of the headers.
(fn &optional INTERACTIVE)
(defalias 'message-goto-eoh #[256 "\300!\210\301y\207" [message-goto-body -1] 3 (#$ . 107120) "p"])
#@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 #[0 "\301 \210eb\210\302\303\304#\203 \305y\207db\210\303\207" [message-signature-separator push-mark re-search-forward nil t 1] 4 (#$ . 107294) nil])
#@560 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.
(fn &optional INCLUDE-CC)
(defalias 'message-generate-unsubscribed-mail-followup-to #[256 "\301\211\214\302 \210\303\304!\210\205 \305\306!\262\203 \305\307!\310Q\202# \305\307!\262)\311 \210\211\312Qc\207" [user-mail-address nil message-narrow-to-headers message-remove-header "Mail-Followup-To" message-fetch-field "Cc" "To" "," message-goto-mail-followup-to ", "] 6 (#$ . 107613) "P"])
#@202 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.
(fn &optional FORCE)
(defalias 'message-insert-to #[256 "\300\301!\211\205 \211\227\302\232\206 \211\227\303\232\300\304!\206! \300\305!\206! \300\306!\2035 \211\2035 \307\2032 \310\2023 \311!\210\203A \211\204A \312\313!\210\211\205T \204N ?\205T \314\315BC!\207" [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] 7 (#$ . 108550) "P"])
#@61 Insert To and Cc headers as if you were doing a wide reply.
(defalias 'message-insert-wide-reply #[0 "\301!\205 rq\210\302\303!)\304!\207" [message-reply-buffer buffer-live-p message-get-reply-headers t message-carefully-insert-headers] 3 (#$ . 109338) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable message-header-synonyms funcall function #[0 "\300\207" [((To Cc Bcc) (Original-To))] 1] "List of lists of header synonyms.\nE.g., if this list contains a member list with elements `Cc' and `To',\nthen `message-carefully-insert-headers' will not insert a `To' header\nwhen the message is already `Cc'ed to the recipient." :version "22.1" :group message-headers :link (custom-manual "(message)Message Headers") :type (repeat sexp)] 12)
#@199 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'.
(fn HEADERS)
(defalias 'message-carefully-insert-headers #[257 "\211\211\205\243 \211@\301@!A\302\303\302:\2037 @\262@>\203, \262\302\211\262\202- \303\2037 A\262\202 \266\203\211\302\211\303\302:\203o @\262\304\301!!\262\203d \305\"\203d \262\302\211\262\202e \303\203o A\262\202> \266\204\211\203~ \306\307#\210\202\232 \310!\203\227 \304!\211\262\203\227 \305\311\"\204\227 \312c\210c\210\266A\266\202\202 \207" [message-header-synonyms symbol-name nil t mail-fetch-field string-match message "already have `%s' in `%s'" message-position-on-field "\\` *\\'" ", "] 14 (#$ . 110146)])
#@48 Widen the reply to include maximum recipients.
(defalias 'message-widen-reply #[0 "\301!\205 rq\210\302\303!)\212\214\304 \210\211\211\2056 \211@\305\306@!!\210eb\210\306@!\307A\310\261\210A\266\202\202 \262*\207" [message-reply-buffer buffer-live-p message-get-reply-headers t message-narrow-to-headers message-remove-header symbol-name ": " "\n"] 7 (#$ . 110962) nil])
#@65 Insert the Newsgroups header from the article being replied to.
(defalias 'message-insert-newsgroups #[0 "\300\301!\302\301!\303\304\305\306!\210\204 \307\310!\202\200 \204 c\202\200 \311\312\"\262\311\312\"\262\211\203E \211@\211\235\204> \211B\262A\266\202\202, \210\211\204\\ \307\313G\314V\203W \315\202X \316\"\202\200 \203c \304\262\211\211\205~ \211@\204q \317c\210\304\262\211c\210A\266\202\202d \262\207" [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" "" ","] 8 (#$ . 111349) nil])
#@39 Widen the buffer and go to the start.
(defalias 'message-widen-and-recenter #[0 "~\210eb\207" [] 1 (#$ . 112017) nil])
#@91 Delete everything in the body of the current message outside of the region.
(fn BEG END)
(defalias 'message-delete-not-region #[514 "\301\212b\210`\302 \210`=\204 \303!\203 \304\305!\262b\210`\306 \204& `\202* \307y\210`|\210\310c\210b\210\311 \210\312y\210`|\210\211\203C \211c\210)\210\306 \205L \307y\207" [message-cite-prefix-regexp nil beginning-of-line looking-at match-string 0 message-goto-signature -2 "\n" message-goto-body 2] 5 (#$ . 112142) "r"])
#@158 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.
(fn &optional ARG)
(defalias 'message-kill-to-signature #[256 "\212\214`\211d}\210\300 \210m\204\" \203 \247\203 \301Zy\210\202\" \301\210\211`U?\2055 \302`\"\210n?\2055 \303c\262*\207" [message-goto-signature -1 kill-region "\n"] 5 (#$ . 112617) "P"])
#@128 Insert four newlines, and then reformat if inside quoted text.
Prefix arg means justify as well.
(fn &optional ARG NOT-BREAK)
(defalias 'message-newline-and-reformat #[512 "\306 \204 \307\310!\210\311\211\211\211\211\211\211`\262\312 \210`\262U\262\203: m\204: \313 !\204: \313\n!\203: \314y\210\202$ \313 !\203R \315\316!\262\316\225b\210\313\317!\210\315\316!\262\203o \204o \211\204o ZGW\203o \311\262\311\262\203\351 \314y\210m\204\253 \313 !\204\253 \313 !\203\253 \315\316!\232\203\253 \316\225b\210\313\317!\210G\315\316!GV\203\245 \315\316!\262\314y\210\202v `\262b\210o\204 \320y\210\313\n!\204 \313 !\203 \315\316!\232\203 `\262\316\225b\210\313\317!\210G\315\316!GV\203\261 \315\316!\262\202\261 m\204\377 \313 !\204\377 \313 !\204\377 \314y\210\202\351 `\262b\210o\204 \320y\210\313\n!\204 \313 !\204 `\262\202b\210\214}\210\2031\311\262\202]\211\203;\321 \210\202A\321 \210\321 \210`\262\321 \210\321 \210`\322\317!|\210\203]\211\204]\261\210\323 \210\203v\324P!\211 \325!\210*\202{\325!\210\205\201b*\207" [fill-paragraph-function message-cite-prefix-regexp paragraph-start paragraph-separate adaptive-fill-regexp adaptive-fill-first-line-regexp message-in-body-p error "This command only works in the body of the message" nil beginning-of-line looking-at 1 match-string 0 "[ ]*" -1 newline re-search-forward undo-boundary regexp-quote fill-paragraph] 12 (#$ . 113023) (byte-code "\205 \301C\207" [current-prefix-arg full] 1)])
#@191 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.
(fn &optional ARG)
(defalias 'message-fill-paragraph #[256 "\300 \203 \301 \210\202 \302\303\"\210\303\207" [message-point-in-header-p message-fill-field message-newline-and-reformat t] 4 (#$ . 114549) (byte-code "\205 \301C\207" [current-prefix-arg full] 1)])
#@37 Return t if point is in the header.
(defalias 'message-point-in-header-p #[0 "\212\214~\210\302 T\303eb\210\304\305 \305Q\306#)?\262*\207" [case-fold-search mail-header-separator point-at-eol nil search-forward "\n" t] 5 (#$ . 114992)])
#@56 Like `do-auto-fill', but don't fill in message header.
(defalias 'message-do-auto-fill #[0 "\301 ?\205
\302\300!\303 )\207" [paragraph-separate message-point-in-header-p default-value do-auto-fill] 2 (#$ . 115238)])
#@96 Insert a signature. See documentation for variable `message-signature'.
(fn &optional FORCE)
(defalias 'message-insert-signature #[256 " \211\204 \204 \211\305=\203 \306\300!\306\301!\2042 \211\305=\2032 \212db\210\307\n\310\311#)?\202U \204> \211\203> \311\202U \312!\203I \202U <\203T \313!\202U \310;\203_ \202\200 \311=\205\200 \205\200 \203z \314 !\204z \315 \"\202{ \262\316!\262\205\266 db\210n\204\220 \317 \210\f\203\227 \317 \210\320c\210\317 \210\311=\203\252 \321!\210\202\255 c\210db\210n\206\266 \317 \266\202*\207" [message-signature message-signature-file message-signature-separator message-signature-directory message-signature-insert-empty-line 0 default-value re-search-backward nil t functionp eval file-name-directory expand-file-name file-exists-p newline "-- " insert-file-contents] 7 (#$ . 115462) (list 0)])
#@45 Insert header to mark message as important.
(defalias 'message-insert-importance-high #[0 "\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 (#$ . 116335) nil])
#@47 Insert header to mark message as unimportant.
(defalias 'message-insert-importance-low #[0 "\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 (#$ . 116607) 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 #[0 "\212\300\301\214\302 \210\303\304!\211\262\203+ \305\304!\210\211\300\230\203 \306\202) \211\306\230\203( \307\202) \300\262)\310 \210\311\312\"c\266\202)\207" ["high" nil message-narrow-to-headers message-fetch-field "Importance" message-remove-header "low" "normal" message-goto-eoh format "Importance: %s\n"] 5 (#$ . 116880) 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 #[0 "\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 (#$ . 117428) nil])
#@129 Elide the text in the region.
An ellipsis (from `message-elide-ellipsis') will be inserted where the
text was killed.
(fn B E)
(defalias 'message-elide-region #[514 "\301\"Z\302\"\210\303\304B\305BD\"c\207" [message-elide-ellipsis count-lines kill-region format-spec 108 99] 9 (#$ . 117923) "r"])
(defvar message-caesar-translation-table nil)
#@93 Caesar rotate region B to E by N, default 13, for decrypting netnews.
(fn B E &optional N)
(defalias 'message-caesar-region #[770 "\211\247\203\f \301\302\"\202
\303\262\211\304U\206 U?\2053 \203* \305H\305\\U\204. \306!\307#\207" [message-caesar-translation-table mod 26 13 0 97 message-make-caesar-translation-table translate-region] 7 (#$ . 118282) (byte-code "`\301\302!\206 `^`\301\302!\206 `]\205 \303!E\207" [current-prefix-arg mark t prefix-numeric-value] 4)])
#@43 Create a rot table with offset N.
(fn N)
(defalias 'message-make-caesar-translation-table #[257 "\300\301\302\303\"T\211\262\302W\203 \211\211I\210\202 \304\303\305#\304\305\\\306\305\307\nZ##\304\305\211\\#\304\310\311#\304\311 \\\306\311 \307
Z##\304\311\211 \\#\304\312\313#\260\207" [-1 make-string 256 0 substring 65 + 26 91 97 123 255] 15 (#$ . 118777)])
#@314 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.
(fn &optional ROTNUM WIDE)
(defalias 'message-caesar-buffer-body #[512 "\212\214\211\204 \300 \203 `d}\210\301ed#*\207" [message-goto-body message-caesar-region] 6 (#$ . 119172) (byte-code "\203 \301!C\207\302C\207" [current-prefix-arg prefix-numeric-value nil] 2)])
#@76 Pipe the message body in the current buffer through PROGRAM.
(fn PROGRAM)
(defalias 'message-pipe-buffer-body #[257 "\212\214\300 \203 `d}\210\301ed\302\303%*\207" [message-goto-body shell-command-on-region nil t] 7 (#$ . 119737)])
#@195 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.
(fn &optional ENTER-STRING)
(defalias 'message-rename-buffer #[256 "\212\214eb\210`\301\302\303#}\210\304 \203 \305\306!\202 \305\307!\206 \310\311\312\"\2031 \313\314\211\224#\315P\2022 \211\316P\203@ \317\320\"\202A \211\321\322\"\266\204*\207" [mail-header-separator search-forward nil end message-news-p message-fetch-field "Newsgroups" "To" "" string-match "," substring 0 ", ..." "*message* " read-string "New buffer name: " rename-buffer t] 8 (#$ . 119979) "Pbuffer name: "])
#@121 Fill the paragraphs of a message yanked into this one.
Numeric argument means justify as well.
(fn &optional JUSTIFYP)
(defalias 'message-fill-yanked-message #[256 "\212eb\210\303\304\304Q\305\306#\210 \307`d#*\207" [mail-header-separator message-yank-prefix fill-prefix search-forward "\n" nil t fill-individual-paragraphs] 5 (#$ . 120645) "P"])
#@358 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.
(fn &optional START END YANK-ONLY)
(defalias 'message-indent-citation #[768 "\204 `\262\211\204\216 \203C \305\214b\306\307\305\310#\203 `S\202! `}\210\311\310\"\210edU\2031 \310\262db\210)\211\203? b\210\202B \312y\210\210e\203b l\203b m\204b \305\313 \210`\206Y \312y\210`|\266\202C db\210h\314=\204n \315c\210\316y\317U\203\216 \320\321!\203\216 \305\313 \210`\206\205 \312y\210`|\266\202n \204\241 \322\206\233 \323\310!\n#\210\202\323 \212b\210`\206\255 \323\310!W\203\322 \320\324!\203\275 c\210\202\314 \320\325!\203\311 \fc\210\202\314 c\210\312y\210\202\245 )b\207" [message-ignored-cited-headers message-yank-prefix message-indentation-spaces message-yank-cited-prefix message-yank-empty-prefix nil search-forward "\n\n" t message-remove-header 1 beginning-of-line 10 "\n" -1 0 looking-at "$" indent-rigidly mark ">" "^$"] 9 (#$ . 121003)])
#@195 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'.
(fn &optional REMOVE)
(defalias 'message-remove-blank-cited-lines #[256 "\302\303P \304R\305\306\"\210\212\307 \210\310\311\312#\205' \313\203! \314\202\" \315!\210\202 )\207" [message-yank-cited-prefix message-yank-prefix "^\\(" "\\|" "\\)+ *\n" message "Removing `%s'" message-goto-body re-search-forward nil t replace-match "" "\n"] 6 (#$ . 122204) "P"])
#@12
(fn ARG)
(defalias 'message--yank-original-internal #[257 "\304 \305\205\242 \205\242 \n\306=\203 \212\307 d{\262\307 d|\210)\310!\203) \311\312\"\210\313\212\310!\2038 \314!\210\202K :\203K \315@!\203K \316@A\"\210n\204R \317c\210`)!\210\204y \210\320\312!\206d `Sf\317=\204y `\320\312!b\210\321\317!\210\211b\266\n\322\267\202\231 \307 \210\211c\210n\203\215 \323\202\216 \324c\210\307 \210\202\231 \325 \210?\205\242 \303 \211\207" [message-reply-buffer message-cite-function message-cite-reply-position message-checksum 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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above 127 below 150)) "\n" "\n\n" message-goto-signature] 7 (#$ . 122745)])
#@426 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.
(fn &optional ARG)
(defalias 'message-yank-original #[256 "\301\3029\203\f J\202
\303\304DDE!\207" [message-cite-style eval let message--yank-original-internal quote] 7 (#$ . 123612) "P"])
#@66 Insert BUFFER into the current buffer and quote it.
(fn BUFFER)
(defalias 'message-yank-buffer #[257 "\301!\302 \303\304\305\306\307!\310\"\311$\216\312 )\262)\207" [message-reply-buffer get-buffer current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 message-yank-original] 8 (#$ . 124218) "bYank buffer: "])
#@42 Return a list of active message buffers.
(defalias 'message-buffers #[0 "\301r\302\303!\211\203& \211@\211q\210\304\305!\203 \204 \306!B\262A\266\202\202 \210)\211\237\207" [message-sent-message-via nil buffer-list t derived-mode-p message-mode buffer-name] 5 (#$ . 124591)])
#@193 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.
(fn STRIP-SIGNATURE)
(defalias 'message-cite-original-1 #[257 "\306\300!\203 \203 \307\300!\207`\310\311!\312 \205\" <\203 \202\" C\214}\210\313 \210\314\315!\262\314\316!\2066 \317\314\320!\206= \321\314\322!\314\323\311\"\314\324!\325\326\326\211\327\312&\n\266\205)\330\"\210\203\225 \331 \210b\210\332 \311#\203\225 \333y\210\334\335!\203\203 \333y\210\202w \336y\210`|\210\337\340\311#\204\225 \341c\210b\210\342\343\"\210\f\203\253 n\204\250 \341c\210\f \210\205\314
?\205\314 \344\345\"\205\314 \331 \210`\310\311!|\210\346c\210\347 \210\333y)\207" [mail-citation-hook message-indent-citation-function message-reply-headers message-signature-separator message-citation-line-function message-cite-articles-with-x-no-archive boundp run-hooks mark t nil message-narrow-to-head-1 message-fetch-field "x-no-archive" "subject" "none" "from" "nobody" "date" "message-id" "references" vector 0 "" 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] 21 (#$ . 124882)])
#@47 Cite function in the standard Message manner.
(defalias 'message-cite-original #[0 "\300\301!\207" [message-cite-original-1 nil] 2 (#$ . 126202)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload format-spec "format-spec" gnus-date-get-time "gnus-util"] 3)
#@541 Function that inserts a formatted citation line.
The optional FROM, and DATE are strings containing the contents of
the From header and the Date header respectively.
The optional TZ is omitted or nil for Emacs local time, t for
Universal Time, `wall' for system wall clock time, or a string as
in the TZ environment variable. It can also be a list (as from
`current-time-zone') or an integer (as from `decode-time')
applied without consideration for daylight saving time.
See `message-citation-line-format'.
(fn &optional FROM DATE TZ)
(defalias 'message-insert-formatted-citation-line #[768 "\204\f \2054\2054\204 \303H\262\3041* \305\301!\203# \202$ \306!0\202, \210\307\211@\211A@@\206@ A@\206@ \310\311\n\"\205\251 \242\247\203S \202\251 \203\200 \211\312\232\203d \313\202{ \314\315\316#\206{ \317!\320\315\321\316%\210\211\262\262\202\251 \322H\211\262 \211\312\232\203\220 \313\202\247 \314\315\316#\206\247 \317!\320\315\321\316%\210\211\262\262\206\272 ;\205\272 \323\324\n!8\325\307;\203*\326\307\327\330\331
\332\"\"\"\211G\211\321U\203\337 @\262\n\312\262 \202\211\303U\204\353 \211\322U\203\372 @\262\n\333\334A\335#\262 \202\211\322V\203\333\334\336\303Z\"\335#\262\n\333\334AA\335#\262 \310\337 \"\203(\340\321 \" \262 \262 \266\341B\262\342B\262\343B\262\206?B\262\344B\262\345B\262\346B\262\347B\262\350B\262B\262\351B\262B\262\352B\262\353B\262\354B\262\355B\262\356B\262\357B\262\360B\262\fB\262\361B\262\362B\262\363B\262B\262\364B\262\365B\262\366B\262\367B\262\370B\262\371B\262\372B\262\373B\262\374X\203>\204\375X\204\351\376Y\203B\262\3771\201@ \201A \201B \"#0\202
\210\201A \201C \"B\262T\262\202\321\201D !\266\202\201E \201F \"\201G \n\"c\266 \201H \207" [message-reply-headers gnus-extract-address-components message-citation-line-format 2 (error) boundp mail-extract-address-components nil string-match "%[^fnNFL]" "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1 3 8 parse-time-string 65 delq mapcar #[257 "\300\301\"\205 \211\207" [string-match "\\`\\(\\w\\|[-.]\\)+\\'"] 4 "\n\n(fn X)"] split-string "[ ]+" mapconcat identity " " butlast "\\(.*\\),\\'" match-string 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 (error) format-time-string format "%%%c" ">%c<" reverse apply format-spec-make format-spec newline] 21 (#$ . 126477)])
#@113 Cite function in the standard Message manner.
This function strips off the signature from the original message.
(defalias 'message-cite-original-without-signature #[0 "\300\301!\207" [message-cite-original-1 t] 2 (#$ . 129039)])
#@32 Insert a simple citation line.
(defalias 'message-insert-citation-line #[0 "\205 \301H\302\261\210\303 \210\303 \207" [message-reply-headers 2 " writes:" newline] 2 (#$ . 129274)])
#@28
(fn HEADER &rest AFTERS)
(defalias 'message-position-on-field #[385 "\302\214eb\303\304\305 !\306Q!\210\307\224}\210eb\210\303\304\305!\310Q\311\302#\2033 \303\312\311\313#\210\314 \210\315\311x\210\302\202c \211\203M \303\304\305@!\310Q\311\302#\204M \211A\266\202\2023 \211\203Z \303\312\311\313#\210\314 \210\316\261\210\317u\210\311*\207" [case-fold-search mail-header-separator t re-search-forward "^" regexp-quote "$" 0 ":" nil "^[^ ]" move beginning-of-line "\n" ": \n" -1] 7 (#$ . 129465)])
#@230 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.
(fn &optional ARG)
(defalias 'message-send-and-exit #[256 "p\302 \303!\205B \304!\205B \203 \305!\210\202= \306 \307\310\311\312\313!\314\"\315$\216\316!\210\317\320\"\210\320\211\223\210)\210\321!\210\322!\210\323\207" [message-exit-actions message-kill-buffer-on-exit point-marker message-send buffer-live-p kill-buffer current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 switch-to-buffer set-window-point nil message-bury message-do-actions t] 11 (#$ . 129980) "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 #[0 "\301\302!\210\303 \210\304p!\210\305!\207" [message-postpone-actions set-buffer-modified-p t save-buffer message-bury message-do-actions] 3 (#$ . 130733) nil])
#@26 Kill the current buffer.
(defalias 'message-kill-buffer #[0 "\305 \203 \203 \306\307!\205^ \n \f\305 \310\311p!\210\203% \312!\204/ \203Y \312!\203Y \313 \210\306\314\315\203= \316\202> \317\"!\203Y \3201N \321!0\202R \210\202S \210\322 \210)\323!\266\205\207" [message-kill-buffer-query message-kill-actions message-draft-article buffer-auto-save-file-name buffer-file-name 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" "" (error) delete-file message-disassociate-draft message-do-actions] 9 (#$ . 131034) nil])
#@37 Bury this mail BUFFER.
(fn BUFFER)
(defalias 'message-bury #[257 "r\211q\210\301 \210)\205 \302@A\"\207" [message-return-action bury-buffer apply] 4 (#$ . 131670)])
(autoload 'mml-secure-bcc-is-safe "mml-sec")
#@375 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.
(fn &optional ARG)
(defalias 'message-send #[256 "\306 \210\307\310ed\311\312$\210)\313 \210\314\315!\210\316 \210 \203$ \317\320!\204$ \321 \210\322\n!\210 \307\312\211\211\f \323 \210\203\221 \211A\262\242\211\262\203\221 A@ \2032 @
>\203~ \324\325!\204~ \326-<?\206b \211->\262\204n @\327=\204x \317\330\331@\"!\202{ \332\333!\2032 AA@!\211\262\2032 \307\262\2022 \204\334 \203\334 \324\334!\324\335!\204\247 \211\205\323 .\336=\206\320 .\337=?\205\320 \317\330\340\203\305 \203\305 \341\202\316 \203\315 \334\202\316 \335\"!\211\262\266\202\204\334 \332\342!\210\211\204\350 \205*\205*\343 \210\212\314\344!\210)\322\345!\210\346/:\204/=\262\202 \211/>\262\2030\204\347 \210\350\312!\210\351\307!\210\352 \210\353 \210\3541!\210\307)\207" [inhibit-read-only message-confirm-send message-sending-message message-send-method-alist message-options message-sent-message-via undo-boundary t put-text-property read-only nil message-fix-before-sending run-hooks message-send-hook mml-secure-bcc-is-safe 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 "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 message-shoot-gnksa-feet message-allow-no-recipients message-mail-alias-type message-inhibit-ecomplete message-send-actions] 12 (#$ . 131892) "P"])
#@46 Send the current message via mail.
(fn ARG)
(defalias 'message-send-via-mail #[257 "\300!\207" [message-send-mail] 3 (#$ . 134002)])
#@46 Send the current message via news.
(fn ARG)
(defalias 'message-send-via-news #[257 "!\207" [message-send-news-function] 3 (#$ . 134143)])
#@61 Eval FORMS if TYPE is to be checked.
(fn TYPE &rest FORMS)
(defalias 'message-check '(macro . #[385 "\300\301D\302BE\207" [or message-check-element save-excursion] 6 (#$ . 134290)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put message-check lisp-indent-function 1 put edebug-form-spec t] 5)
#@256 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.
(fn PROP &optional START END REVERSE)
(defalias 'message-text-with-property #[1025 "\204 e\262\204 d\262\300\211\203@ \203| \301\300$\211\262\203| \302\300$\262\2065 BB\262\262\202 \203| \303\"\204b \302\300$\211\262\203| \303\"\203| \301\300$\262\206q BB\262\262\202@ \211\237\207" [nil text-property-any next-single-property-change get-text-property] 11 (#$ . 134613)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable message-bogus-addresses funcall function #[0 "\300\207" [("noreply" "nospam" "invalid" "@.*@" "[^[:ascii:]].*@" "[ ]")] 1] "List of regexps of potentially bogus mail addresses.\nSee `message-check-recipients' how to setup checking.\n\nThis list should make it possible to catch typos or warn about\nspam-trap addresses. It doesn't aim to verify strict RFC\nconformance." :version "26.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 "`_' in domain part" "@.*_") (const :tag "whitespace" "[ ]")) (repeat :inline t :tag "Other" (regexp))))] 10)
#@63 Do various things to make the message nice before sending it.
(defalias 'message-fix-before-sending #[0 "db\210n\204\n \303c\210~\210\304 \210\305\306!\204Q \212\307\310!\311\211\203N \203D @@\262@A\262A\262\312\310\311$\210\313\314\"\315\316#\210\202 \317\320!\204N \321\322!\210\266)\305\323!\204'\212\311\211\211\211\324 \210\212\325\326\311\327#)\262\311w\210\330`\331\"\203} \332`\331\"\206{ db\210\311f\211\262\203\261 \333W\204\236 \203\253 \334!\335>\203\253 \330`\336\"\204\253 \313\314``T\"\315\316#\210\327\262\311u\210\202h \203$\337\203\276 \340\202\277 \341\342\343\344\345\346\n\"E\347BB\"@\262\350=\203\330 \321\351!\210\324 \210\311w\210m\204$\311f\211\333W\206\374 \205\374 \334!\352>\205\374 \330`\336\"?\262\203\353=\203
\354 \210\202\355\356!\210\343=\203\nc\210\311u\210\311w\210\202\337 \266)\305\357!\2061\212\360 )\207" [mm-7bit-chars enable-multibyte-characters message-replacement-char "\n" message-sort-headers message-check-element invisible-text message-text-with-property invisible nil put-text-property overlay-put 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 char-charset (eight-bit-control eight-bit-graphic eight-bit control-1) untranslated-utf-8 read-multiple-choice "NUL characters found, which may cause problems. Continue sending?" "Non-printable characters found. Continue sending?" (100 "delete" "Remove non-printable characters and send") 114 "replace" format "Replace non-printable characters with \"%s\" and send" ((115 "send" "Send as is without removing anything") (101 "edit" "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] 12 (#$ . 136090)])
#@262 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 there's a matching entry in
`message-bogus-addresses'.
(fn RECIPIENTS)
(defalias 'message-bogus-recipient-p #[257 "\300C\301\302\303\304\305\306!\307\"\310\311%\312\313\"\"\210\211\242\207" [nil mapc make-byte-code 257 "\211A@\206 \302\262\211\302\230\204* \2050 <\203 \303\304 \305#\202! \306\"\262\2050 \300\300\242B\240\207" vconcat vector [message-bogus-addresses "" mapconcat identity "\\|" string-match] 5 "\n\n(fn ADDRESS)" mail-extract-address-components t] 9 (#$ . 138104)])
#@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 #[0 "\214\300 \210\301\211\205w \211@\302!\211;\203o \303\304\"\211\2038 \211@\303!\2041 \305\306\307\"!\2041 \310\311\"\210A\266\202\202 \210\312!\211\203n \211@\211\203g \305\313\314\315!\211\230\203X \316\202\\ \306\317\"\262#!\204g \310\320!\210A\266\202\202< \210\210A\266\202\202 \262)\207" [message-narrow-to-headers ("To" "Cc" "Bcc") message-fetch-field mail-header-parse-addresses t y-or-n-p format "Email address %s looks invalid; send anyway?" user-error "Invalid address %s" message-bogus-recipient-p format-message "Address `%s'%s might be bogus. Continue? " rfc2047-encode-string "" " (%s)" "Bogus address"] 13 (#$ . 138798) nil])
(custom-add-option 'message-setup-hook 'message-check-recipients)
#@87 Add ACTION to be performed when doing an exit of type TYPES.
(fn ACTION &rest TYPES)
(defalias 'message-add-action #[385 "\211\205 \300\301\302\303\211A\262\242\"!\"\210\202 \207" [add-to-list intern format "message-%s-actions"] 8 (#$ . 139689)])
#@106 Delete ACTION from lists of actions performed when doing an exit of type TYPES.
(fn ACTION &rest TYPES)
(defalias 'message-delete-action #[385 "\300\205 \301\302\303\211A\262\242\"!\211\262\304J\"L\210\202 \207" [nil intern format "message-%s-actions" delq] 8 (#$ . 139949)])
#@47 Perform all actions in ACTIONS.
(fn ACTIONS)
(defalias 'message-do-actions #[257 "\211\211\205) \211@\3001 \301!\203 \211 \202 \302!0\202! \210\202\" \210A\266\202\202 \207" [(error) functionp eval] 5 (#$ . 140240)])
#@31 Send mail as message/partial.
(defalias 'message-send-mail-partially #[0 "eb\210\304\305\306!\307Q!\210\310\307!\210\311\312!\210eb\313\314!p\315 \316\317\211\211m\204R d \\W\2033 db\210\202F \\b\210\320 \210`X\203F \316y\210B\262`\262\202 G\262dB\262\237\262\321\322\323\324\325 !\326\"\327$\216\212\211A\262\242\262\205(q\210\330 @#\210q\210eb\210\211\203\235 eb\210``}\210\211c\210\202\315 \331 \210e`{\262eb\210``}\210\211c\210\332\333!\210\332\334!\210\332\335!\210\332\336!\210\332\337!\210db\210\340c\210\341 \262db\210\342\343$c\210\344u\210\345\346\n>\203\354 \347\315 \307\261\210\350\n>\203\371 \351\352 \307\261\210\353 \210\317\210\342\354#c\210~\210 \203 \210\202\355 \210)T\262\211A\262\242\262\356 \210\202u *\207" [mail-header-separator message-send-mail-partially-limit message-required-mail-headers message-send-mail-real-function 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 make-byte-code 0 "\301\300!\207" vconcat vector [kill-buffer] 2 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] 14 (#$ . 140471)])
(defalias 'message--check-continuation-headers #[0 "\300\301!\2063 \212eb\210\302\303\304\305#\2052 \306\224b\210\307\310!\203\" \311c\210\202\n \312y\210\307\313!\204\n \314\315!\210\202\n )\207" [message-check-element continuation-headers re-search-forward "^[^ \n][^ \n:]*[ \n]" nil t 0 y-or-n-p "Fix continuation lines? " " " 1 "Send anyway? " error "Failed to send the message"] 4])
(defalias 'message--send-mail-maybe-partially #[0 "\203 \302 W\204 \303\304\305\306\307\302 \310\245\311\310\245\312&\204, \313\314!\210 \203) \207\315 \207\316 \207" [message-send-mail-partially-limit message-send-mail-real-function buffer-size message-talkative-question y-or-n-p "The message size is too large, split? " t "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\nwill be sent 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" message "Sending via mail..." message-multi-smtp-send-mail message-send-mail-partially] 9])
#@20
(fn &optional _)
(defalias 'message-send-mail #[256 "\306\307!\210\310\311!\312\313 p\314\315\316!\203 \317\320!\203 \316\312!\202! \n \312\f\203@ \f\321=\204@ \322\323!\210\306\324!\210\325 \210\326 \210\322\327!\210\214\330 \210\331 \203Z \332\333!\204Z \334\335 B B\262\202f \332\333!\336\232\203f \337\340!\210?\205l
\341!\210)\342 \210\343 \210\344\345!\210)@\262\346\347\350\351\352 !\353\"\354$\216rq\210\355 \210\211@rq\210\356ed\")c\210\357 \210\360!\210\214\330 \210\361 >\203\270 \341\362!\210\337A\314\"\210\363 \210)db\210h\364U\204\316 \364c\210\365 \210\214\330 \210\205\366\367!?\205\366\370!?\205\366\371!\204\371 \366\372!\204\371 \366\373!\205\366\374!\211\203 \375!@\376\230\205\366\377!\201E \230?\262)\203#\201F rq\210B)!\210C\204A\212eb\210\201G \201H \312\314#)\203A\201I \201J !\210\201K \210\201L \210@\262*q\210\211@\201M DB\211D+\207" [case-fold-search message-this-is-mail message-posting-charset message-required-mail-headers message-generate-hashcash message-deletable-headers 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-continuation-headers message--fold-long-headers run-hooks message-header-hook make-byte-code 0 "\301\300!\207" vconcat vector [kill-buffer] 2 erase-buffer mml-buffer-substring-no-properties-except-some message-encode-message-body message--cache-encoded Lines (Lines) mail-encode-encoded-word-buffer 10 message-cleanup-headers message-fetch-field "List-Post" "List-ID" "cc" "bcc" "to" "content-type" mail-header-parse-content-type "text/plain" "content-transfer-encoding" message-options message-ignored-mail-headers message-courtesy-message message-inhibit-body-encoding message-sent-message-via "base64" message-insert-courtesy-copy re-search-forward #1="[^ -\377]" cl--assertion-failed (save-excursion (goto-char (point-min)) (not (re-search-forward #1# nil t))) mm-disable-multibyte message--send-mail-maybe-partially mail] 12 (#$ . 143452)])
#@16
(fn MAILBUF)
(defalias 'message--cache-encoded #[257 "\301 rq\210\211\211)\207" [message-encoded-mail-cache buffer-string] 4 (#$ . 145872)])
#@82 Fold too-long header lines.
Each line should be no more than 79 characters long.
(defalias 'message--fold-long-headers #[0 "eb\210m?\205 \300\301!\203 \302 `Z\303V\203 \304 \210\305y\210\202 \207" [looking-at "[^:]+:" line-end-position 79 mail-header-fold-field 1] 2 (#$ . 146023)])
#@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 #[0 "\304\305!\211\204\f \202V \306\305!\210\307!\262\211@\310\232\203! \311 \202V \211@\312\232\203R \313\314!\210\211A@\3158\316!\211\317V\203@ \211\202A \3208\206I \321 +\266\202\202V \322\323\"\207" [message-send-mail-function smtpmail-smtp-server smtpmail-smtp-service smtpmail-smtp-user message-field-value "X-Message-SMTP-Method" message-remove-header split-string "sendmail" message-send-mail-with-sendmail "smtp" require smtpmail 2 string-to-number 0 3 message-smtpmail-send-it error "Unknown method %s"] 5 (#$ . 146317)])
#@45 Send off the prepared buffer with sendmail.
(defalias 'message-send-mail-with-sendmail #[0 "\306\307!\210\203 \310\311!\202 \312C\313\211\314\312\315\316\317!\320\"\321$\216\322\214\323 \210\324\325!\262)eb\210\326\327\330\n!\331Q!\210\332\331!\210\333u\210\334 \262\335\336!\210\211Tb\210\337 !\203S \340 \210\203` r\242q\210\341 \210))\342
3\343\344\345ed4\313 \242\313\346\25756?\205\201 \347\350 D?\205\207 \351\203\222 C\202\223 \352%\"\211\203\267 \211\247\203\244 \211\312U\204\267 \242\203\262 \353\242!\210\313\240\210\354\355\"\210*\210\205\342 r\242q\210eb\210\326\356\313\322#\203\324 \332\357!\210\202\305 \360 \312U?\205\341 \354\361\362 \"))\207" [message-interactive case-fold-search mail-header-separator message-mailer-swallows-blank-line default-directory message-send-coding-system require sendmail message-generate-new-buffer-clone-locals " sendmail errors" 0 nil make-byte-code "\301\300\242!\205 \302\300\242!\207" vconcat vector [buffer-live-p 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") pop-to-buffer error "Sending...failed with exit value %d" "\n+ *" "; " buffer-size "Sending...failed to %s" buffer-string coding-system-for-write sendmail-program message-sendmail-extra-arguments message-sendmail-f-is-evil] 13 (#$ . 147042)])
#@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 #[0 "eb\210\305\306\307!\310Q!\210\311\310!\210\312\313!\210 \314\315ed \316\211\211\317\f!\203) \f \202* \f&)\211\320\267\202C \316\202F \321\322!\202F \321\323!\202F \321\324!\207" [mail-header-separator message-send-coding-system coding-system-for-write message-qmail-inject-program message-qmail-inject-args re-search-forward "^" regexp-quote "\n" replace-match run-hooks message-send-mail-hook apply call-process-region nil functionp #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 51 100 55 111 61)) error "qmail-inject reported permanent failure" "qmail-inject reported transient failure" "qmail-inject reported unknown failure"] 10 (#$ . 148595)])
#@43 Send the prepared message buffer with mh.
(defalias 'message-send-mail-with-mh #[0 "\303\304 \211\n\203: \n\211\2039 eb\210\305\306\307@!\310Q\303\311#\2031 \303\312 \210`\206+ \313y\210`|\266\211A\266\202\202\f \210\314\315!\210\316 )\207" [mh-previous-window-config buffer-file-name message-mh-deletable-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] 7 (#$ . 149493)])
(defalias 'message-use-send-mail-function #[0 "\301\302!\210 \207" [send-mail-function run-hooks message-send-mail-hook] 2])
#@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 #[0 "\300\301!\210\302 \207" [run-hooks message-send-mail-hook smtpmail-send-it] 2 (#$ . 150098)])
(make-obsolete 'message-smtpmail-send-it 'message-use-send-mail-function "27.1")
#@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 #[0 "\300\301!\210\302 \207" [run-hooks message-send-mail-hook mailclient-send-it] 2 (#$ . 150614)])
(make-obsolete 'message-send-mail-with-mailclient 'message-use-send-mail-function "27.1")
#@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 #[0 "\300\301 \302\303\304 \304 \304 $\305\306 !\305\307 !R!\207" [sha1 message-unique-id format "%x%x%x" random prin1-to-string recent-keys garbage-collect] 7 (#$ . 151050)])
#@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 #[0 "\302\303!\210\204 \304\300\305 \"\210\207" [canlock-password canlock-password-for-verify require canlock customize-save-variable message-canlock-generate] 3 (#$ . 151385)])
(defalias 'message-insert-canlock #[0 "\205 \301 \210\302 \207" [message-insert-canlock message-canlock-password canlock-insert-header] 1])
(autoload 'nnheader-get-report "nnheader")
#@22
(fn &optional ARG)
(defalias 'message-send-news #[256 "\306\307!\210\310\311!\312\313 !\203 !\202 \214\314 \210\315\316!)\214\314 \210\315\317!)\320\"\320\2061 \321\"\322\205; \316BC\205C \317BC\n#p\203W <\203W \323 B\202X \324 \325! \312\326 \205,\214\327 \210\330?!\210\331 \210\332\333!\210)\203\203 <\203\203 \334 B\335 \210\336 )\205,\337\340\341\342\343\f!\344\"\345$\216rq\210\346 \210\347 \210rq\210\350ed\")c\210\351 \210\352!\210\214\327 \210\353@>\203\310 \330\354!\210\355A\324\"\210\356 \210)db\210h\357U\204\336 \357c\210\324eb\210\360\361\362B!\363Q!\210\364\363!\210\365u\210)\332\366!\210\367!\210\370\371\372 !\"\210\321 B\373!)\262*q\210\211\203\"\374CB\211C\202,\370\375\376 @!\"\210\312-\207" [case-fold-search message-post-method rfc2047-header-encoding-alist message-syntax-checks message-this-is-news message-posting-charset 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 make-byte-code 0 "\301\300!\207" vconcat vector [kill-buffer] 2 buffer-disable-undo erase-buffer mml-buffer-substring-no-properties-except-some message-encode-message-body message--cache-encoded 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 message-required-news-headers message-required-mail-headers message-ignored-news-headers mail-header-separator message-sent-message-via] 15 (#$ . 151977)])
#@62 Return non-nil if this TYPE is not to be checked.
(fn TYPE)
(defalias 'message-check-element #[257 "\301=\203 \302\207\211\236\211:\205 \211A\303=\207" [message-syntax-checks dont-check-for-anything-just-trust-me t disabled] 4 (#$ . 154018)])
#@34 Check the syntax of the message.
(defalias 'message-check-news-syntax #[0 "\212\214~\210\212\214\300 \210\301 ,\207" [message-narrow-to-headers message-check-news-header-syntax] 1 (#$ . 154272)])
(defalias 'message-check-news-header-syntax #[0 "\305\306!\204! \212\307\310!\211\203 \311\312\"?\206 \313\314\315!\210\262)\205\345\305\316!\204E \212\317\307\320!\211\2039 \311\312\"?\206> \313\314\321!\210)\262)\205\345\305\322!\204` \212\311\323\307\320!\"\203[ \324\325!\202\\ \317)\205\345\305\326!\204\253 \212\313\327\313\211\204\226 \330\331\313\317#\203\226 `\327\224Z\332V\203\213 \317\262`\327\224Z\262\202\220 \333\334!\262\334y\210\202j \211\203\244 \324\335\336#!\202\245 \317\266\203)\205\345\305\337!\204\361 \212\313\211\204\335 \330\340\313\317#\203\335 \212\330\341\342\327\224\327\225\343Z{\211\262!\344Q\313\317#\204\331 \313\262)\202\263 \211\203\352 \324\335\345\"!\202\353 \317\262)\205\345\305\346!\204\212\330\347\313\317#\203\324\335\350\327\224\327\225S{\"!\202\317)\205\345\305\351!\204U\212\307\310!\307\352!\313\203N\311\353\"\203N\204N\354\355\356\357\360\361!B\"\"\211\262G\327U\204Neb\210\362\363\261\210\317\266\203)\205\345\305\364!\204o\212\330\365\313\317#\203j\324\366!\202k\317)\205\345\305\367!\204\211\212\330\370\313\317#\203\204\324\371!\202\205\317)\205\345\305\372!\204\276\212\317\307\373\317\"\211?\206\267\311\374\"\203\261\311\375\"\203\261\311\376\"?\206\267\324\335\377\"!)\262)\205\345\305\201@ !\204\376\212\317\307\310!\307\352!\361\203\333\353Q\202\334!\201A !\203\352 \202\353 \211:\203\211@\201B =\203\n\203\201C \n@\nA\"@\201D !\262\202\211\356\201E \201F \201G \201H \201I !\201J \"\201K \201L %\201M !\"\313\203^@\360\232\204U@\235\204U@\235\204U@B\262\211A\262\210\2026\201N \303!\203r \203r\201N \304!\204v\317\202\367\f\203\202\f\201O =\203\274\211\203\274\324\335\201P G\334U\203\230\201Q \202\233\201R G\334U\203\250\201S \202\253\201T \201U \201V \201W #$!\202\367\211\204\304\317\202\367\324\335\201X G\334U\203\326\201Q \202\331\201R G\334U\203\346\201S \202\351\201T \201U \201V \201W #$!)\266\207)\205\345\201Y \210\305\201Z !\204h\212\317\201[ \313\211\203O\211\204O\201\\ @!\211\262\203B\311\201] \"\203?\313\356\201^ \361\353\"\">\203B\317\262\211\204\211A\262\210\202\211\204W\317\202a\324\335\201_ @#!)\266\204)\205\345\305\201` !\204\313\212\317\201a \313\211\211\211\203\264\204\264\201\\ \211A\262\242!\211\262\203{\361\353\"\262\211A\262\242\211\262\203{\211\235\203\231\211\262\313\262\202\231\204\274\317\202\304\324\335\201b \"!)\266\206)\205\345\305\201c !\204k\212\317\307\201d !\313\204\352\314\201e !\210\313\202d\311\201f \201g !A@\211\262\"\203)\311\201h \"\204)\311\201i \"\204)\311\201j \"\204)\311\201k \"\203)\311\201l \"\2034\314\201m \"\210\313\202d\201n !\211:\203R\201o @!\201p =\204R\211A\262\2029\211\262\203c\314\201q \"\210\313\202d\317)\266\202)\205\345\305\201r !\206\345\212\317\307\201s !\313\204\204\317\202\341\311\353\"\203\226\324\335\201t \"!\202\341\311\201f \201g !A@\211\262\"\203\325\311\201h \"\204\325\311\201i \"\204\325\311\201j \"\204\325\311\201k \"\203\325\311\201l \"\203\340\324\335\201u \"!\202\341\317)\266\202)\207" [case-fold-search message-post-method gnus-message-group-art gnus-active-hashtb gnus-read-active-file message-check-element newsgroups message-fetch-field "newsgroups" string-match "\\`[ ]*\\'" nil message "The newsgroups field is empty or missing. Posting is denied." subject 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" "," 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" "@" "@[^.]*\\." "\\.>" "The Message-ID looks strange: \"%s\". Really post? " existing-newsgroups functionp nnvirtual nnvirtual-find-group-art gnus-find-method-for-group make-byte-code 257 "\301\302\303\"\203 \304\305\225\"\202 \211\262\306\300\"\"\207" vconcat vector [gnus-group-name-decode string-match "^[^:]+:" substring 0 gnus-group-name-charset] 6 "\n\n(fn N)" 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? " message--check-continuation-headers valid-newsgroups ("Newsgroups" "Followup-To") mail-fetch-field "\\`\\([-+_&.a-zA-Z0-9]+\\)?\\(,[-+_&.a-zA-Z0-9]+\\)*\\'" #[257 "\300\301\"?\207" [string-match "\\.\\'\\|\\.\\."] 4 "\n\n(fn G)"] "The %s header looks odd: \"%s\". Really post? " repeated-newsgroups ("Newsgroups" "Followup-To") "Group %s is repeated in headers. Really post? " from "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 "reply-to" "Multiple Reply-To addresses: \"%s\". Really post? " "The Reply-To looks strange: \"%s\". Really post? "] 16])
(defalias 'message-check-news-body-syntax #[0 "\304\305!\204@ \212eb\210\306\307\310!\311Q!\210\312y\210\313\314!\204* `\315\210`Z\316W\262\2031 \312y\317U\204 n\206< m\206< \320\321!)\205\256\304\322!\204\213 \212eb\210\306\307\310!\311Q!\210\312y\210`db\210\323 \315\324#\210\325 \210\323\326\324#\206\205 \327\n<?\206u \211\n>\262\203\200 \320\330!\202\205 \331\332!\210\315\262)\205\256\304\333!\204\245 \212\306\334\315\324#\203\240 \320\335!\202\241 \324)\205\256\304\336!\204\302 \212\337 \340V\203\275 \320\341\342\337 \"!\202\276 \324)\205\256\304\343!\204\364 \212 ?\206\360 \303 \232?\206\360 \344\n<?\206\340 \211\n>\262\203\353 \320\345!\202\360 \331\346!\210\315)\205\256\304\347!\204U\212\315\211db\210\323 \315\324#\204\f\324\202O\350 T\262\306\351\315\324#\203 \352 S\202 d\262\353\"\354Y\203N\347\n<?\2065\211\n>\262\203F\320\341\355\353\"\"!\202O\331\356!\210\315\202O\324\266\202)\205\256\304\357!\206\256\212db\210\324\360\361\315\324#\203o\362\363\315\324#\262\211\203w\324\202\253\344\n<?\206\201\211\n>\262\203\214\320\364!\202\253eb\210\306\307\310!\311Q!\210\362\363\315\324#\203\246\320\364!\202\253\331\365!\210\315\262)\207" [mail-header-separator message-signature-separator message-shoot-gnksa-feet message-checksum message-check-element long-lines re-search-forward "^" regexp-quote "$" 1 looking-at "<#\\(/\\)?\\(multipart\\|part\\|external\\|mml\\)" nil 80 0 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 "[ -
- - \200-\237]" "The article contains control characters. Really post? " size buffer-size 60000 format "The article is %d octets long. Really post? " new-text 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."] 8])
#@87 Rotate the fixnum N left by one bit in a fixnum word.
The result is a fixnum.
(fn N)
(defalias 'message--rotate-fixnum-left #[257 "\302\303!\203 \304\202\f \305\306\211\307\"W\203 \302 \"\202. \306 \307\"W\203- \310\"\202. \305\"\"\207" [most-positive-fixnum most-negative-fixnum logior natnump 0 1 ash -1 logand] 8 (#$ . 162507)])
#@45 Return a "checksum" for the current buffer.
(defalias 'message-checksum #[0 "\301\212eb\210\302\303\304!\305Q!\210m\204' \306\307!\204! \310\311!\312f\"\262\313u\210\202 )\211\207" [mail-header-separator 0 re-search-forward "^" regexp-quote "$" looking-at "[ \n]" logxor message--rotate-fixnum-left nil 1] 5 (#$ . 162856)])
#@44 Process Fcc headers in the current buffer.
(defalias 'message-do-fcc #[0 "\306p \307\310\306\"\311\205\347 \312\313!r\211q\210\314\315\316\317\320!\321\"\322$\216\323!\210\324!\210\2048 \325 \210\202> \326 \210c\210\214\327 \210\330\310\306\"\211\262\203Z B\262\331\310\311\306#\210\202B \332\fB \333 \210*eb\210\334\335\336
!\337Q\311\306#\203x \340\341\306\211#\210\205\344 \211A\262\242\262\342\343\"\203\230 \344ed\345\346\"#\210\202x \347!\262\350\351!!\204\254 \352\351!\306\"\210.\203\300 .\353=\204\300 .!\210\202x \354!\203\326 \355!\203\326 \353\346\311\306$\210\202x \306 /\353\346\306\211$\210)\202x *\262*\207" [message-encoded-mail-cache message-fcc-externalize-attachments mml-externalize-attachments case-fold-search rfc2047-header-encoding-alist mail-header-separator t message-field-value "fcc" nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-buffer-substring message-clone-locals message-encode-message-body erase-buffer message-narrow-to-headers message-fetch-field message-remove-header ("Newsgroups" . default) mail-encode-encoded-word-buffer re-search-forward "^" regexp-quote "$" replace-match "" string-match "^[ ]*|[ ]*\\(.*\\)[ ]*$" call-shell-region match-string 1 expand-file-name file-exists-p file-name-directory make-directory rmail-output file-readable-p mail-file-babyl-p message-fcc-handler-function mail-use-rfc822] 13 (#$ . 163191)])
#@70 Append this article to Unix/babyl mail file FILENAME.
(fn FILENAME)
(defalias 'message-output #[257 "\301!\203\f \302!\204 \303!\211\205 r\211q\210)\304=\262\203% \305\306\"\207\307\306\"\207" [major-mode file-readable-p mail-file-babyl-p find-buffer-visiting rmail-mode gnus-output-to-rmail t gnus-output-to-mail] 4 (#$ . 164692)])
#@47 Do various automatic cleanups of the headers.
(defalias 'message-cleanup-headers #[0 "\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 (#$ . 165041)])
#@78 Make a valid data header.
If NOW, use that time instead.
(fn &optional NOW)
(defalias 'message-make-date #[256 "\301\302\303\")\207" [system-time-locale "C" format-time-string "%a, %d %b %Y %T %z"] 4 (#$ . 165656)])
#@61 Insert the Expires header. Expiry in DAYS days.
(fn DAYS)
(defalias 'message-insert-expires #[257 "\212\300\301\302\"\210\303!c)\207" [message-position-on-field "Expires" "X-Draft-From" message-make-expires-date] 4 (#$ . 165881) "NExpire article in how many days? "])
#@136 Make date string for the Expires header. Expiry in DAYS days.
In posting styles use `("Expires" (make-expires-date 30))'.
(fn DAYS)
(defalias 'message-make-expires-date #[257 "\300\301\211\302#\3038\\\303\233\211\240\266\304\305!!\207" [decode-time nil integer 3 message-make-date encode-time] 6 (#$ . 166159)])
#@27 Make a unique Message-ID.
(defalias 'message-make-message-id #[0 "\301\302 \212\303\304!)\212\303\305!)\203- \306H\203- \307H\203- \203- \310\307H!\310!\230\2038 \211\203< \311\312\"\203< \313\202= \314\266\202\315\316 \317\260\207" [message-reply-headers "<" message-unique-id message-fetch-field "subject" "supersedes" 5 1 message-strip-subject-re string-match "_-_@" "_-_" "" "@" message-make-fqdn ">"] 7 (#$ . 166486)])
(defvar message-unique-id-char nil)
(defalias 'message-unique-id #[0 "\206\n \302\303\304\305\"!T\306\246\307 \310=\204 \311\312 !\2036 \313 \227\314\315\"\2030 \211\316\224\317I\210\202 \211\262\202; \320\312 \321\"\320@\303\322\246\323\"\\\324\"\320A@\303\322\245\323\"\\\324\"\325R\207" [message-unique-id-char system-type random ash 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"] 8])
#@16
(fn NUM LEN)
(defalias 'message-number-base36 #[514 "\211\300W\203\f \300X\202 \211\300U\203 \301\207\302\303\245S\"\304\305\303\246H!P\207" [0 "" message-number-base36 36 char-to-string "zyxwvutsrqponmlkjihgfedcba9876543210"] 7 (#$ . 167409)])
#@30 Make an Organization header.
(defalias 'message-make-organization #[0 "\205 \302!\203 \202 \303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314 \210;\2031 c\210\202E \315=\203E \203E \316 !\203E \317 !\210eb\210\320\321\322\315#\203Y \323\324\315\211#\210\202H \325 \306U?\205c \326 *\262\207" [message-user-organization message-user-organization-file functionp generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-enable-multibyte t file-exists-p insert-file-contents re-search-forward "[ \n]+" nil replace-match "" buffer-size buffer-string] 8 (#$ . 167668)])
#@54 Count the number of lines and return numeric string.
(defalias 'message-make-lines #[0 "\212\214~\210\300 \210\301\302`d\"!*\207" [message-goto-body int-to-string count-lines] 4 (#$ . 168328)])
#@48 Return the References header for this message.
(defalias 'message-make-references #[0 "\205$ \301H\302H\211\204 \205\" \211\206 \303\205 \304\206! \303Q\266\202\207" [message-reply-headers 4 5 "" " "] 5 (#$ . 168528)])
#@49 Return the In-Reply-To header for this message.
(defalias 'message-make-in-reply-to #[0 "\205\231 \301H\302H\303H\205\227 \304!\211\205 \305@\203v \306\307@\"\203q \310\311!r\211q\210\312\313\314\315\316!\317\"\301$\216\320 \210@c\210eb\210\321\322\323\324#\203f \325u\210\326\323x\301\246\313U\313\224b\210\203` \327c\210\323u\210\202D \322\330 \322Q*\262\202y @\202y A@\331\203\206 \332\230\203\212 \333\202\214 \322\205\223 \334\260\262\266\203\207" [message-reply-headers 2 3 4 mail-extract-address-components " (" string-match "[^[:ascii:]]" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] mm-enable-multibyte search-forward "\"" nil t -1 "\\\\" "\\" buffer-string "'s message of \"" "" "(unknown date)" ")"] 13 (#$ . 168762)])
#@29 Make a Distribution header.
(defalias 'message-make-distribution #[0 "\301\302!\303!\203 \202 \211\207" [message-distribution-function message-fetch-reply-field "distribution" functionp] 3 (#$ . 169597)])
#@54 Return an Expires header based on `message-expires'.
(defalias 'message-make-expires #[0 "\301 \302\303\304\211\305%\211@\306\307\310\311\"\245!\\\240\210AA@\306!\307\310\311\"\246\\\240\210\312!\207" [message-expires current-time * 1.0 60 24 round expt 2 16 message-make-date] 9 (#$ . 169813)])
#@19 Return uucp path.
(defalias 'message-make-path #[0 "\301 \204 \302 \303Q\202 ;\203 \303Q\202 \211\207" [message-user-path user-login-name system-name "!"] 4 (#$ . 170122)])
#@50 Make a From header.
(fn &optional NAME ADDRESS)
(defalias 'message-make-from #[512 "\206 \302 \206 \206 \301 \211\303\230\203 \304 \262\305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316 \210\203; \317\232\203A c\210\202\335 \320=\204w \321=\204\247 \322\323\"\203w \260\322\324\"\203n \211\310\224\325I\210\211\310\225S\325I\210\202W \322\326\"\262\203\247 c\210eb\210\327\323\330\331#\203\236 eb\210\332c\210\327\333\330\331#\203\233 \334\335\336\"\210\202\213 \332c\210\337\340\261\210\202\335 \341\261\210`c\210\211b\210\327\342\330\331#\203\303 \334\335\336\"\210\202\263 \211b\210\327\343\330\331#\203\331 \334\344\336\"\210\211b\210\202\306 \210\345c\210\346 *\262\207" [message-from-style user-full-name message-make-address "&" user-login-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-enable-multibyte "" angles parens string-match "[^- !#-'*+/-9=?A-Z^-~]" "([^()]*)" 45 "[\\()]" re-search-forward nil 1 "\"" "[\"\\]" replace-match "\\\\\\&" t " <" ">" " (" "[()\\]" "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" "\\1(\\3)" ")" buffer-string] 12 (#$ . 170310)])
#@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 #[0 "\300 \301\302 Q\207" [user-login-name "@" system-name] 3 (#$ . 171536)])
#@31 Make the address of the user.
(defalias 'message-make-address #[0 "\300 \206 \301 \302\303 Q\207" [message-user-mail-address user-login-name "@" message-make-domain] 3 (#$ . 171781)])
#@51 Return the pertinent part of `user-mail-address'.
(defalias 'message-user-mail-address #[0 "\205 \301\302\"\205 \301\303\"\203 \304!A@\207\207" [user-mail-address string-match "@.*\\." " " mail-extract-address-components] 3 (#$ . 171972)])
#@27 Return the envelope from.
(defalias 'message-sendmail-envelope-from #[0 "\300 \301=\203 \302\303\304!!A@\207\300 ;\203 \300 \207\305 \207" [message--sendmail-envelope-from header mail-extract-address-components message-fetch-field "from" message-make-address] 3 (#$ . 172226)])
#@44 Return user's fully qualified domain name.
(defalias 'message-make-fqdn #[0 "\304 \305 \211\205 \306\307\"\205 \310\311\"\312 \203) ;\203) \306\n \"\204) \202b \306\313\"\203; \306\n\"\204; \202b ;\203K \306\n \"\204K \202b \211\203_ \211;\203_ \306\n\"\204_ \211\202b \314P)\207" [case-fold-search message-user-fqdn message-bogus-system-names mail-host-address system-name message-user-mail-address string-match "@\\(.*\\)\\'" match-string 1 t "[.]" ".i-did-not-set--mail-host-address--so-tickle-me"] 6 (#$ . 172512)])
#@25 Return the domain name.
(defalias 'message-make-domain #[0 "\206 \301 \207" [mail-host-address message-make-fqdn] 1 (#$ . 173052)])
#@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 #[0 "\300\301!\211\205 \212\302\303!\210\302\304!\210\305\306\307\"\210\211c)\207" [message-make-mail-followup-to t message-remove-header "to" "cc" message-position-on-field "To" "X-Draft-From"] 4 (#$ . 173193) nil])
#@214 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).
(fn &optional ONLY-SHOW-SUBSCRIBED)
(defalias 'message-make-mail-followup-to #[256 "\305\306\307!\306\310!\211\205 \205 \311Q\312\313\314!\" \205y \315\211\211\211\212\316\317!r\211q\210\320\321\322\323\324!\325\"\326$\216\327 !\210m\204k `\262\330y\210`\262n\203O S\262\331{!\262\203c \332Q\262\202: \333P\262\202: \205s \334PC*\262)\266\204\335\336\n\312\331 \"\312\337\f\"%\340 \320\321\341\323\324!\342\"\343$\216\315\305\315:\203\336 @\262\315\305\315:\203\304 @\262\344\"\211\262?\211\262\203\304 A\262\202\245 \266\203\203\323 \262\315\211\262\202\324 \305\203\336 A\262\202\230 \266\203\211\205\356 \203\355 \211\202\356 \262)\262)\207" [case-fold-search message-subscribed-address-file message-subscribed-regexps message-subscribed-addresses message-subscribed-address-functions t message-fetch-field "To" "cc" ", " mapcar mail-strip-quoted-names message-tokenize-header nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents 1 regexp-quote "\\|" "\\`\\(" "\\)\\'" apply append funcall match-data "\301\300\302\"\207" [set-match-data evaporate] 3 string-match] 19 (#$ . 173549)])
#@76 Interactively potentially IDNA encode domain names in HEADER.
(fn HEADER)
(defalias 'message-idna-to-ascii-rhs-1 #[257 "\301!\302\205\200 \303\304\305\304\306\304\307\310 \311\"\"\"\"!\211\205~ \211@\312\313\"\203) \211\202- \314!\227\262\211\232\204w \315=\203H \316\317\320 $!\203w eb\210\321\322\323Q\302\311#\203w \324 \210\325\326P\302\311#\203o \327\326P\311\211#\210\202Z db\210~\210\202K A\266\202\202 \262\207" [message-use-idna message-fetch-field nil delete-dups mapcar #[257 "\300\301\"A@\206\n \302\207" [split-string "@" #1=""] 4 "\n\n(fn RHS)"] downcase #[257 "\211A@\206 \300\207" [#1#] 2 "\n\n(fn ELEM)"] mail-extract-address-components t string-match "\\`[[:ascii:]]*\\'" puny-encode-domain ask y-or-n-p format "Replace %s with %s in %s:? " re-search-forward "^" ":" message-narrow-to-field search-forward "@" replace-match] 13 (#$ . 174963)])
#@103 Possibly IDNA encode non-ASCII domain names in From:, To: and Cc: headers.
See `message-idna-encode'.
(defalias 'message-idna-to-ascii-rhs #[0 "\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 (#$ . 175854) nil])
#@97 Prepare article HEADERS.
Headers already prepared in the buffer are not modified.
(fn HEADERS)
(defalias 'message-generate-headers #[257 "\306\"\262\214\307 \210\310\311 \312\313 \314\315 \316\317 \320\321 \322\323\324\323\325\326 \327\330 \331\323\332\333 \334\335 \336 \337\340 \257 \341\323\211\211\211\211 \342 \204G \343\312\344!\"\262\211\203} eb\210\345\346\347@!\350Q\323\341#\203u \351\352\224T\353\"\203u \323\354 \210`\206o \355y\210`|\266\211A\266\202\202G \210\203\323eb\210\211A\262\242\262:\203\254 @\356=\203\245 A\262\341\262\202\257 @\262\202\257 \262;\203\270 \202\273 \347!\262\345\346\357\227!\360Q\323\341#\203\341 \323f\361U\204\330 \362c\210\202\333 \355u\210\363\364!\203~ :\203@\356=\203\211\f\235\204A\262\365A!\203A \206YA9\205Y\366A\"\202Y:\2030A;\203#A\206Y\365A!\205YA \202Y9\203E\367\"\203E\366\"\202Y\370\371\347!\227!!?\205Y\372\373\374\"!\262\203~ \375\232\204~ \212n\203\235db\210
\236A\211\203}\211\"\210\202\203\376\261\210\fB\377 b\210n\204\224\201@ c\210\201A y\266\202\262`\201B |\210\204\262\211\fBc\210\377 \210 >\203\317\354 \210\363\201C !\203\317\201D `\352\225\201E p$\210)\202~ \201F \201G !\201F \201H !\201I \203E\370\201J !\204E\201K !A@\227\227\230\204E\203\201K !A@\227\227\230\204Eeb\210\345\201L \323\341#\203)\354 \210\201M c\210\354 \210\201N \204;\201O \201P \"\203E\201Q \201@ \261\210\266\201R )\266\206)\207" [message-required-headers message-newsreader case-fold-search message-deletable-headers message-inserted-headers message-header-format-alist append message-narrow-to-headers Date message-make-date Message-ID message-make-message-id Organization message-make-organization From message-make-from Path message-make-path Subject nil Newsgroups In-Reply-To message-make-in-reply-to References message-make-references To Distribution message-make-distribution Lines message-make-lines User-Agent Expires 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 plist-get plist-member 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 string-match "@.+\\.." "Sender: " message-idna-to-ascii-rhs] 29 (#$ . 176275)])
#@78 Insert a courtesy message in mail copies of combined messages.
(fn MESSAGE)
(defalias 'message-insert-courtesy-copy #[257 "\300\212\214\301 \210\302\303!\211\262\203 db\210\304\305\261\210)\306y\210\2051 \307\310\"\203/ \311\"c\2021 c)\207" [nil message-narrow-to-headers message-fetch-field "newsgroups" "Posted-To: " "\n" 1 string-match "%s" format] 5 (#$ . 178959)])
(defalias 'message-skip-to-next-address #[0 "\212\300 \210`)\301\211\302\303!\203 \304u\210`U\204> \211\305=\203! \203> \306w\210g\211\262\307=\2032 ?\262`U\204 \304u\210\202 \310\301w\207" [message-next-header nil looking-at "," 1 44 "^,\"" 34 " \n"] 5])
#@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 #[0 "\301!\207" [message-yank-prefix split-line] 2 (#$ . 179613) "*"])
#@21
(fn HEADER VALUE)
(defalias 'message-insert-header #[514 "\300\301!!\302:\203 @\202 \261\207" [capitalize symbol-name ": "] 5 (#$ . 179860)])
(defalias 'message-field-name #[0 "\212eb\210\300\301!\205 \302\303\304\305!!!)\207" [looking-at "\\([^:]+\\):" intern capitalize match-string 1] 4])
(defalias 'message-fill-field #[0 "\212\214\301 \210\302 \211\236A@\206 \303 \266d*\207" [message-field-fillers message-narrow-to-field message-field-name message-fill-field-general] 3])
(defalias 'message-fill-field-address #[0 "\300\211\204< \301 \210n\203 \302\210\303\262\202 m\203 \302\262i\304V\2036 \211\2036 \212\211b\210\305\306\300x[!\210\307c\210)`\262\202 y\207" [nil message-skip-to-next-address 0 1 78 delete-char " " "\n "] 5])
(defalias 'message-fill-field-general #[0 "`\302\303\304\305\306\307#\203 m\204 \310\311\307\211#\210\202 \312d\"\210\313y\210\314\315!\2038 \306\316 \210`\2062 \317y\210`|\266\211b\210\304\320\306\307#\210\314\321!\203M \310\311\307\211#\210db*\207" [fill-prefix fill-column 78 " " search-forward "\n" nil t replace-match " " fill-region-as-paragraph -1 looking-at "[ ]*$" beginning-of-line 1 ":" "\n[ ]+"] 5])
#@84 Cut SURPLUS elements out of LIST, beginning with CUTth one.
(fn LIST CUT SURPLUS)
(defalias 'message-shorten-1 #[771 "\300Z\233\301\300Z\302#\233\241\207" [2 + 1] 8 (#$ . 181047)])
#@226 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.
(fn HEADER REFERENCES)
(defalias 'message-shorten-references #[514 "\301\302\303\304\305\306!r\211q\210\307\302\310\311\312!\313\"\303$\216c\210eb\210\314\315\304\316#\203/ \317\302!B\262\202 \237\262G\262*\210V\203N Z\320#\210Z\262\210\203\203 \321\305\306!r\211q\210\307\302\310\311\312!\322\"\303$\216\323\324\325\326#\"\210\327 *\262W\203\203 \320\330#\210\202R \323\324\325\326#\"\207" [message-this-is-news 21 0 2 nil generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] re-search-forward "<[^ <]+@[^ <]+>" t match-string message-shorten-1 998 [buffer-name kill-buffer] message-insert-header mapconcat identity " " buffer-size 1] 14 (#$ . 181241)])
#@57 Move point to where the user probably wants to find it.
(defalias 'message-position-point #[0 "\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 (#$ . 182199)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable message-beginning-of-line funcall function #[0 "\300\207" [t] 1] "Whether \\<message-mode-map>\\[message-beginning-of-line] goes to beginning of header values." :version "22.1" :group message-buffers :link (custom-manual "(message)Movement") :type boolean] 12)
#@833 Move point to beginning of header's value.
When point is at the first header line, moves it after the colon
and spaces separating header name and header value.
When point is in a continuation line of a folded header (i.e. the
line starts with a space), the behavior depends on HANDLE-FOLDED
argument. If it's nil, function moves the point to the start of
the header continuation; otherwise, function locates the
beginning of the header and moves point past the colon as is the
case of single-line headers.
No check whether point is inside of a header or body of the
message is performed.
Returns point or nil if beginning of header's value could not be
found. In the latter case, the point is still moved to the
beginning of line (possibly after attempting to move it to the
beginning of a folded header).
(fn HANDLE-FOLDED)
(defalias 'message-beginning-of-header #[257 "\300 \210\211\203\" `eV\203\" \301f\302=\204 \301f\303=\203\" \300\304!\210\202 \301f\302=\2049 \301f\303=\2049 \305\306\307 \310#\205? \311\307 w\210`\207" [beginning-of-line nil 32 9 0 search-forward ":" point-at-eol t " "] 5 (#$ . 182937)])
#@836 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 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.
When called without a prefix argument, header value spanning
multiple lines is treated as a single line. Otherwise, even if
N is 1, when point is on a continuation header line, it will be
moved to the beginning
(fn &optional N)
(defalias 'message-beginning-of-line #[256 "\203) \302 \203) `\303!\210`\304 !\211\203& \211W\204\" U\203& \211\202' b\207 \2031 \305!\207\303!\207" [message-beginning-of-line visual-line-mode message-point-in-header-p beginning-of-line message-beginning-of-header beginning-of-visual-line] 6 (#$ . 184069) "p"])
#@87 Return a new (unique) buffer name based on TYPE and TO.
(fn TYPE &optional TO GROUP)
(defalias 'message-buffer-name #[769 "\302>\2032 \303\304\203 \305\306!@\206 P\202 \307\203, \307\230\204, \310P\202- \307\304\260!\207\311!\203> #\207\312=\203p \303\313\203Y \305\306!@\206U P\202Z \307\203j \307\230\204j \310P\202k \307\304\260!\207\314=\203 \303\304\315Q!\202\207 \316\317#)\320\321\322\323\"\203\231 \324\325\211\224#\202\232 !\326Q\327\330\331\332\327\333\334\335\336\337\340\n!\341\"\342\343%\344 \"\"\345\"!@A\206\276 )\207" [message-generate-new-buffers case-fold-search (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]+>\\'" substring 0 "\\(?:<\\([0-9]+\\)>\\)?\\'" nil last sort delq mapcar make-byte-code 257 "\302\300\303!\211\262\"\205# r\211q\210 )\304=\205# \305\306\307\"\206 \310!B\207" vconcat vector [major-mode string-match buffer-name message-mode string-to-number match-string 1 "1"] 5 "\n\n(fn B)" buffer-list car-less-than-car] 16 (#$ . 185231)])
#@105 Pop to buffer NAME, and warn if it already exists and is modified.
(fn NAME &optional SWITCH-FUNCTION)
(defalias 'message-pop-to-buffer #[513 "\300!\301!\203@ \302\303\"\211\203 \304\305!!\210\306!\210\202) \206# \307!\210q\210\310 \203< \311\312!\313\314!\210\204< \315\316!\210\210\202K \206E \317!\210q\210\320 \210\321 \207" [get-buffer buffer-live-p get-buffer-window 0 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" pop-to-buffer-same-window erase-buffer message-mode] 7 (#$ . 186414)])
#@27 Kill old message buffers.
(defalias 'message-do-send-housekeeping #[0 "\303p\" \203- \203- G Y\203- \211A\242\304!\203) \305!\204) \306!\210\210\202 \n\2037 \n \210\202: \307 \210 \205D pC\244\211\207" [message-buffer-list message-max-buffers message-send-rename-function delq buffer-live-p buffer-modified-p kill-buffer message-default-send-rename-function] 3 (#$ . 187061)])
(defalias 'message-default-send-rename-function #[0 "\300\301\302 \"\205k \303\304\302 \"\305\211\203( \306\230\204( \307\230\204( \310\311Q\262\202] \312 \210\313\314!\262\313\315!\262~\210\203I \316\317!@\206D \311Q\202[ \211\203Z \211\320\230\204Z \321\311Q\202[ \322\262\302 \230?\205i \323\324\"\266\203\207" [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] 6])
(defalias 'message-mail-user-agent #[0 "\204 \302\202 \303=\203 \202 \211\304>?\205 \211\207" [message-mail-user-agent mail-user-agent nil t (message-user-agent gnus-user-agent)] 3])
#@85
(fn HEADERS &optional YANK-ACTION ACTIONS CONTINUE SWITCH-FUNCTION RETURN-ACTION)
(defalias 'message-setup #[1537 "\302 \303\211\211\203
\204 \304\n\n\n$\202m \305\n!\262\n\306\n\236\262\211\2035 \211A\262\307 \"\262\n\310\n\236\262\211\203J \211A\262\307 \"\262\n\311\312\313\"\n\n\314!\203f \315D\202h &)\207" [message-this-is-mail mail-user-agent message-mail-user-agent nil message-setup-1 copy-sequence Subject delq To compose-mail mapcar #[257 "\300\301@\"AB\207" [format "%s"] 4 "\n\n(fn ITEM)"] bufferp insert-buffer] 18 (#$ . 188285)])
#@258 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.
(fn HEADERS INCLUDED-HEADERS EXCLUDED-HEADERS)
(defalias 'message-headers-to-generate #[771 "\300\211\211\203F \211@\211:\203 \211@\301=\203 \211A\202% \211:\203$ \211@\202% \211\262>\204? \302=\204: >\203? \211B\262A\266\202\202 \210\237\207" [nil optional t] 9 (#$ . 188878)])
#@60
(fn HEADERS &optional YANK-ACTION ACTIONS RETURN-ACTION)
(defalias 'message-setup-1 #[1025 "\211\203) \211@\306\307@D\307ADE\211\235\203 \202 \211B\211\266A\266\202\202 \210\211:\203> @\310=\203> A@\202? eb\210\311 \203c @@ \236\204Z @@CB\262\211A\262\210\202F \262\"\210`\312y\210`|\210\f\203\210 \313\f!\203~ \f \202 \fc\210n\204\210 \314c\210
\315Pc\210\312y\210#\316=\203\233 \316\202\240 \317#\320\" #\321 \203\305 $\203\267 $c\210n\204\267 \314c\210\322\323\317%&\"#\324#!\210\325 \203\350 '\203\332 'c\210n\204\332 \314c\210\322\323\317(&\"#\326#!\210)\327\330!\210\331 \210\214\332 \210\327\333!\210)\334)*\203\335 \210\327\336!\210\325 \203\214\332 \210+\203\337 \210)\340 \210\341\334!\210\342 \210\316\207" [message-send-actions message-return-action message-reply-buffer message-header-format-alist message-default-headers mail-header-separator apply quote 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 nil mail-add-payment-async message-setup-hook message-use-alternative-email-as-from message-position-point set-buffer-modified-p undo-boundary 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] 10 (#$ . 189388)])
#@67 Associate the message buffer with a file in the drafts directory.
(defalias 'message-set-auto-save-file-name #[0 "\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 (#$ . 191029)])
#@60 Disassociate the message buffer from the drafts directory.
(defalias 'message-disassociate-draft #[0 "\205 \301C\302\303\304$\207" [message-draft-article nndraft-request-expire-articles "drafts" nil t] 5 (#$ . 191731)])
#@39 Generate the headers for the article.
(defalias 'message-insert-headers #[0 "\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 (#$ . 191960) nil])
#@365 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.
(fn &optional TO SUBJECT OTHER-HEADERS CONTINUE SWITCH-FUNCTION YANK-ACTION SEND-ACTIONS RETURN-ACTION &rest IGNORED)
(defalias 'message-mail #[2176 "\301\302\203 \303 \211\262\203 \304@!\202h \305 \204' \306\307\310
\"\"\210\311\312\f\206/ \313B\314\f\2067 \313BD\n\211\203W \211@\211@;\203P \211\315\316@!!\240\210A\266\202\202; \262\244 &)\207" [message-this-is-mail t nil message-buffers pop-to-buffer message-mail-user-agent message-pop-to-buffer message-buffer-name "mail" message-setup To "" Subject intern capitalize] 19 (#$ . 192354) nil])
#@77 Start editing a news article to be sent.
(fn &optional NEWSGROUPS SUBJECT)
(defalias 'message-news #[512 "\301\302\303\304\305#!\210\306\307\206 \310B\311\206 \310BD!)\207" [message-this-is-news t message-pop-to-buffer message-buffer-name "posting" nil message-setup Newsgroups "" Subject] 7 (#$ . 193184) nil])
#@285 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).
(fn ADDRCELL)
(defalias 'message-alter-recipients-discard-bogus-full-name #[257 "\300\301@!\302\301@!QA\"\203 \211@@B\207\207" [string-match regexp-quote ".*"] 6 (#$ . 193510)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable message-alter-recipients-function funcall function #[0 "\300\207" [nil] 1] "Function called to allow alteration of reply header structures.\nIt is called in `message-get-reply-headers' for each recipient.\nThe function is called with one parameter, a cons cell ..." :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] 10)
#@50
(fn WIDE &optional TO-ADDRESS ADDRESS-HEADERS)
(defalias 'message-get-reply-headers #[769 "\306\211\211\211\211\211\211\211\211\214\307 \210\310\311!\206C \306\312\306:\203; @\262\313>\2030 \312\262\306\211\262\2021 \312\203; A\262\202 \266\203\205C \310\314!\262\310\315!\262 \205V \316\317\320\310 \"\321#\262\310\322!\262\310\323!\206f \310\324!\262\n\205o \310\325!\262 \203\201 \203\201 \321Q\262 \204\212 \204\223 \310\326!\206\221 \327\262)\203\305 \227\330\232\204\251 \227\331\232\203\262 \312\262\306\262\202\305 \227\332\232\204\302 \227\333\232\203\305 \262\334 \335\336\337\340\341!\342\"\343$\216 \203\355 \321\fP\262\203\217\321\nQ\262\202\217\f\204\372 \321P\262\202\217\n\203 \n\211\203 \211@\310!\211\203\321Q\262\210A\266\202\202\210\202\217\203T\344\345\"\203T\n\346=\203L\347\350\351\312\352\353\344\354\f\"\203E\355\202F\356\357&\203T\321P\262\202\217\203]\327\202`\321P\262\203n\321Q\262\203y\321Q\262\203\203\321Q\262\203\217\321\nQ\262G\360Y\203\234\361\360\"\262\344\362\"\203\257\363\364\312\211$\262\202\234\365 !\203\306\316\317\366\306\320\367\370 !\"\"\321#\202\330\365 !\203\320 \202\323\371 ! \372!)\262\327\230\203\343\262\320\373\370!\"\262\211\203\211A\262\242@\374\"\203\366\374\"\"\262\366\374\"\"\262\202\367\210\202\354\210
\203Z\320\375\"\306\211\203X\374@
\"\262A\262\203#A\262\203#\374@\"\262A\262\211\203:\366\"\262\202:\266\376!\262\306\211\211:\203\204@\262\211A\262\242\262\377!BB\262A\262\202c\211\237\266\204\262\201A \211A\262\242ABC\262\n\203\314@\203\251\350\201B !\203\314\316\201C \321#\262\344\201D \"\203\302\361\336\225\"\262\201E B\nB\262\n)\210\207" [message-header-synonyms message-extra-wide-headers message-use-mail-followup-to message-dont-reply-to-names mail-dont-reply-to-names message-hierarchical-addresses 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" "mail-followup-to" "from" "" "never" "nobody" "always" "poster" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [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 substring "[ ][ ]+" replace-match " " functionp delq #[257 "\301!!?\205\n \211\207" [message-dont-reply-to-names mail-strip-quoted-names] 4 "\n\n(fn MAIL)"] message-tokenize-header gmm-regexp-concat mail-dont-reply-to #[257 "\203
\301!\227B!\207\301!\227B\207" [message-alter-recipients-function mail-strip-quoted-names] 4 "\n\n(fn ADDR)"] assoc car message-prune-recipients message--alter-repeat-address message-wide-reply-confirm-recipients To "Reply to all recipients? " #[257 "\211A\207" [] 2 "\n\n(fn ADDR)"] "^ +" Cc] 23 (#$ . 194510)])
#@19
(fn RECIPIENTS)
(defalias 'message-prune-recipients #[257 "\211\203` \211@\211@\301\211\211\203W \211@\211@\262\302\"\203P \303A@\301\211$\262\211\203O \211@@=\204H \302@\"\203H \304 \"\262\nA\266\202\202+ \210A\266\202\202\f \266A\266\202\202 \210\207" [message-prune-recipient-rules nil string-match replace-match delq] 13 (#$ . 198319)])
#@129 Transform an address on the form ""foo@bar.com"" <foo@bar.com>".
The first bit will be elided if a match is made.
(fn ADDRESS)
(defalias 'message--alter-repeat-address #[257 "\300!\211@A@\232\203 \211@\202 \207" [gnus-extract-address-components] 4 (#$ . 198693)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable message-simplify-subject-functions funcall function #[0 "\300\207" [(message-strip-list-identifiers message-strip-subject-re message-strip-subject-trailing-was message-strip-subject-encoded-words)] 1] "List of functions taking a string argument that simplify subjects.\nThe functions are applied when replying to a message.\n\nUseful functions to put in this list include:\n`message-strip-list-identifiers', `message-strip-subject-re',\n`message-strip-subject-trailing-was', and\n`message-strip-subject-encoded-words'." :version "22.1" :group message-various :type (repeat function)] 10)
#@234 Return simplified SUBJECT.
Do so by calling each one-argument function in the list of functions
specified by FUNCTIONS, if non-nil, or by the variable
`message-simplify-subject-functions' otherwise.
(fn SUBJECT &optional FUNCTIONS)
(defalias 'message-simplify-subject #[513 "\211\206 \211\203 \211@\211!\262A\266\202\202 \207" [message-simplify-subject-functions] 6 (#$ . 199653)])
#@109 Start editing a reply to the article in the current buffer.
(fn &optional TO-ADDRESS WIDE SWITCH-FUNCTION)
(defalias 'message-reply #[768 "\305\306!\210p\307\211\211\211\211\211\310\211\307\214\311 \210 \204* \312\n!\2036 \212\n \262)\2026 \312 !\2036 \212 \262)\313\314\310\"\262\313\315!\262\313\316!\262\313\317!\206M \320\262 \313\321!\206V \322\262\323\324 !P\262\313\325!\211\262\203v \326\327\"\203v \330\331\"\262\204\202 \332\f\"\262)\333BB\334 \204\250 \335\336\203\231 \337\202\232 \340\f\205\243 #
\"\210\341\331\333\236A\f \n\f\331\211\342\307&\n\343\f\"\262*\207" [message-this-is-mail inhibit-point-motion-hooks message-reply-to-function message-wide-reply-to-function message-reply-headers require gnus-sum nil t message-narrow-to-head-1 functionp message-fetch-field "message-id" "references" "date" "from" "nobody" "subject" "none" "Re: " 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] 25 (#$ . 200051) nil])
#@86 Make a "wide" reply to the message in the current buffer.
(fn &optional TO-ADDRESS)
(defalias 'message-wide-reply #[256 "\300\301\"\207" [message-reply t] 4 (#$ . 201205) nil])
#@134 Follow up to the message in the current buffer.
If TO-NEWSGROUPS, use that as the new Newsgroups line.
(fn &optional TO-NEWSGROUPS)
(defalias 'message-followup #[256 "\306\307!\210p\310\211\211\211\211\211\211\211\211\311\211\310\211\211\211\211\214eb\312\313\310\311#\203* `S\202+ d}\210\314\n!\2037 \n \262\315\316!\262\315\317!\262\315\320!\206H \321\262\315\322!\262\n\315\323\311\"\262 \315\324!\262\315\325!\262\315\326!\262\315\327!\262
\315\330!\262\f\315\331!\262\315\332!\262 \315\333!\211\262\203\216 \334\335\"\203\216 \336\337\"\262 ;\203\240 \311\334\340\")\203\240 \310\262\341\342!P\262~\210)\343\344\345#!\210\346\337
\337\211\347\310&\n\350\351B\352\203\333 \353BC\202o\n\203\345 \n\202o\203_
\203_\227\354\232\203#
\355=\204\356\357\360\311\361$\203 \310\362\206\206\206\347B\202[\353B\202[\232\204P
\363=\203P\356\357\364\n\365Q\311\366\f\367\334\370\"\203I\371\202J\372\373&\203W\353B\202[\353BC\202o\203j\353BC\202o\353BC\205y\374BC\205\271\227\375\232\206\213\227\376\232?\205\271\377\227\201@ \232\204\242\227\354\232\203\265\206\267\206\267\206\267\347\202\267BC#B\"*\207" [message-this-is-news inhibit-point-motion-hooks message-followup-to-function case-fold-search message-reply-headers message-use-followup-to 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" "Re: " 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"] 31 (#$ . 201391) nil])
#@307 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'
to match all of yours addresses.
(defalias 'message-is-yours-p #[0 "\212\214\302 \210\303\304!\203) \305<?\206 \211>\262\203) \305 \204# \306\202\203 \307\310!\202\203 \311\211\312<?\2065 \211>\262\206\201 \303\313!\211\262\203L \227\314 \227\230\206\201 \303\315!\211\262\203d \316!@\227\316\317 !@\227\230\206\201 \211\205\201 \205\201 \320 !\203z \316!!\202\201 \321 \316!@\"\266\202*\207" [message-shoot-gnksa-feet 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 functionp string-match] 6 (#$ . 204409)])
#@102 Cancel an article you posted.
If ARG, allow editing of the cancellation message.
(fn &optional ARG)
(defalias 'message-cancel-news #[256 "\304 \204 \305\306!\210\307\211\211\211\211\212\214\310 \210\311\312!\262\311\313!\262\311\314\315\"\262\311\316!\262)\317 \2042 \305\320!\210\321\322!\205\212 \203B \323 \210\202H \324\325!q\262\326 \210\327\330\331\330\332 \330\333\f\330
\203g \334\330Q\202h \335\330 \261\210\336\337!\210?\205\212 \340\341!\210\342 )\203\207 \340\343!\210\344!)\207" [mail-header-separator message-cancel-message message-syntax-checks message-send-news-function 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: 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] 22 (#$ . 205432) "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 #[0 "p\302 \204\n \303\304!\210\305\306\307!!\210\310!\210\311 \210\312 \210\203# \313\314\"\210eb\210\315\316\317\314#\2045 \303\320!\210\202; \321\322\314\211#\210db\210 c\210~\210\323y\207" [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] 5 (#$ . 206650) nil])
#@65 Reread contents of current buffer from its last auto-save file.
(defalias 'message-recover #[0 "\306 \307 \310\311\312\313\314!\315\"\316$\216r\317\320!q\210p\321 \210\322\211\323\211\323 \324 \210\325\326!\210+\211 $r$q\210\327 \210)\330$!\210\331\332\333\322$\322\334 &\210)\335!\210)\266\336\337\340\"!)\262\203o \322\324 \210\341\322\")\202r \342\343!\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only make-auto-save-file-name current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 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 canceled" standard-output] 12 (#$ . 207422) nil])
#@134 Remove junk like "Re:", "(fwd)", etc. added to subject string SUBJECT.
Previous forwarders, repliers, etc. may add it.
(fn SUBJECT)
(defalias 'message-wash-subject #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210eb\210\311\312\313\314#\203( \315\316!\210\202 eb\210\311\317\313\314#\203: \315\316!\210\202+ db\210\320\321\313\314#\203L \315\316!\210\202= eb\210\311\322\313\314#\203^ \315\316!\210\202O db\210\320\323\313\314#\203p \315\316!\210\202a \324 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [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] 8 (#$ . 208405)])
#@48 Non-nil means the original message is decoded.
(defvar message-forward-decoded-p nil (#$ . 209246))
#@253 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.
(fn SUBJECT)
(defalias 'message-forward-subject-name-subject #[257 "\301\302!\301\303!\206 \211\203 \304!@\206 \304!A@\206 \305\306\203' \202* \307!\310R\207" [message-forward-decoded-p message-fetch-field "newsgroups" "from" gnus-extract-address-components "(nowhere)" "[" mail-decode-encoded-word-string "] "] 8 (#$ . 209353)])
#@241 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.
(fn SUBJECT)
(defalias 'message-forward-subject-author-subject #[257 "\301\302!\211\206 \301\303!\206 \304\305\203 \202 \306!\307R\207" [message-forward-decoded-p message-fetch-field "newsgroups" "from" "(nowhere)" "[" mail-decode-encoded-word-string "] "] 7 (#$ . 209941)])
#@140 Generate a SUBJECT for a forwarded message.
The form is: Fwd: Subject, where Subject is the original subject of
the message.
(fn SUBJECT)
(defalias 'message-forward-subject-fwd #[257 "\300\301\"\203 \207\302P\207" [string-match "^Fwd: " "Fwd: "] 4 (#$ . 210458)])
#@73 Return a Subject header suitable for the message in the current buffer.
(defalias 'message-make-forward-subject #[0 "\212\214\303 \210\304\305!\211\203 \203 \211\202 \306!\202 \307\262\n\203' \310!\262\2034 <\2044 C\262\211\203M \211@\311!\203F \211!\262A\266\202\2025 \210\262*\207" [message-make-forward-subject-function message-forward-decoded-p message-wash-forwarded-subjects message-narrow-to-head-1 message-fetch-field "Subject" mail-decode-encoded-word-string "" message-wash-subject functionp] 6 (#$ . 210732)])
#@167 Forward the current message via mail.
Optional NEWS will use news to forward instead of mail.
Optional DIGEST will use digest to forward.
(fn &optional NEWS DIGEST)
(defalias 'message-forward #[512 "p\302\300p\"\203\f \202
\303 \203 \304\305\"\210\202! \306\305\"\210\307\")\207" [gnus-article-decoded-p message-forward-decoded-p local-variable-p message-make-forward-subject message-news nil message-mail message-forward-make-body] 7 (#$ . 211280) "P"])
#@23
(fn FORWARD-BUFFER)
(defalias 'message-forward-make-body-plain #[257 "\300c\210`rq\210\301 )\302\303!\204 \304\305\306 #\210\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320 \210c\210\321 \210eb\210\322\323!\203B \324\325!\210\301 *\262c\210n\204P \326c\210`\262\327c\210\330\"\207" ["\n-------------------- Start of forwarded message --------------------\n" buffer-string nil multibyte-string-p error "Attempt to insert unibyte string from the buffer \"%s\" to the multibyte buffer \"%s\"" buffer-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [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] 11 (#$ . 211752)])
#@12
(fn B E)
(defalias 'message-remove-ignored-headers #[514 "\204 \205Z \214}\210b\210`\302\303\304\305#\206 `}\210\203@ ;\203* C\202+ \211\211\203> \211@\306\305\"\210A\266\202\202, \266 \205Y \306 <\203T \307\310\311 B\312#\202U \305\304\305$)\207" [message-forward-ignored-headers message-forward-included-headers search-forward "\n\n" nil t message-remove-header mapconcat identity "^$" "\\|"] 8 (#$ . 212612)])
#@41
(fn FORWARD-BUFFER &optional BEG END)
(defalias 'message-forward-make-body-mime #[769 "`\300c\210\214``}\210\301#\210\302ed\"\210eb\210\303\304!\203! \305\306!\210db\210)\307c\210\310`\311#\207" ["\n\n<#part type=message/rfc822 disposition=inline raw=t>\n" insert-buffer-substring mml-quote-region looking-at "From " replace-match "X-From-Line: " "<#/part>\n" add-text-properties (no-illegible-text t rear-nonsticky t start-open t)] 8 (#$ . 213048)])
#@23
(fn FORWARD-BUFFER)
(defalias 'message-forward-make-body-mml #[257 "\301c\210`\302\204Q rq\210\303 )\304!\204 \305\306\307 #\210\310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\321 \210c\210\322 \210eb\210\323\324!\203F \325\326!\210\303 *\262c\266\202k \214``}\210\327!\210eb\210\323\324!\203g \325\326!\210db\210)`\262\330c\210?\205z \331\"\207" [message-forward-decoded-p "\n\n<#mml type=message/rfc822 disposition=inline>\n" nil buffer-string multibyte-string-p error "Attempt to insert unibyte string from the buffer \"%s\" to the multibyte buffer \"%s\"" buffer-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [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] 11 (#$ . 213511)])
#@23
(fn FORWARD-BUFFER)
(defalias 'message-forward-make-body-digest-plain #[257 "\300c\210\301!\210\302c\207" ["\n-------------------- Start of forwarded message --------------------\n" mml-insert-buffer "\n-------------------- End of forwarded message --------------------\n"] 3 (#$ . 214396)])
#@23
(fn FORWARD-BUFFER)
(defalias 'message-forward-make-body-digest-mime #[257 "\300c\210`\301\302!\210`\262\303c\210\214}\210b\210`\304\305\301\306#\206! `}\210ed|)\207" ["\n<#multipart type=digest>\n" nil insert-buffer-substring "<#/multipart>\n" search-forward "\n\n" t] 8 (#$ . 214697)])
#@23
(fn FORWARD-BUFFER)
(defalias 'message-forward-make-body-digest #[257 "\203 \301!\207\302!\207" [message-forward-as-mime message-forward-make-body-digest-mime message-forward-make-body-digest-plain] 3 (#$ . 214998)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload mm-uu-dissect-text-parts "mm-uu" mm-uu-dissect] 3)
#@278 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.
(fn &optional DONT-EMULATE-MIME HANDLES)
(defalias 'message-signed-or-encrypted-p #[512 "\211\204& \302\211\303\304\305\"\211\262\203 \204% \306!\210\202% \204% \307 \262*\211\204\226 \204\226 p\302\211\310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\321!\210\303\305\211\"\211\262\203\222 \322@!\203\213 \211@;\203g \211@\202k \211A@@\262\323\232\203\213 \324 \210\321@!\210\325\3208!\210\326!\210\307 \262\202\222 \326!\210\304\262*\210*\210\211\205\3272
\211@;\203\267 \211@\330\235\203\262 \331\327\305\"\202\271 \211A\202\271 \211C\211\205\n\211@\211@;\203\324 \332\"\203\331\327\305\"\210\202\322@!\203\211\211@;\203\347 \211@\202\353 \211A@@\262\333\232\203r\211@q\210\332!\203\331\327\305\"\210)A\266\202\202\271 \2620\326!\210\207" [mm-verify-option mm-decrypt-option never mm-dissect-buffer nil t mm-uu-dissect-text-parts mm-uu-dissect generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-buffer-substring bufferp "text/plain" erase-buffer mm-decode-content-transfer-encoding mm-destroy-parts found ("multipart/signed" "multipart/encrypted") throw message-signed-or-encrypted-p "message/rfc822"] 10 (#$ . 215339)])
#@40
(fn FORWARD-BUFFER &optional DIGEST)
(defalias 'message-forward-make-body #[513 "\203\n \303 \210\202
db\210\211\203 \304!\210\202L \203H \n\203A \n\305=\203: rq\210\30614 \307 0\2026 \210\310)\204A \311!\210\202L \312!\210\202L \313!\210\314 \207" [message-forward-before-signature message-forward-as-mime message-forward-show-mml message-goto-body message-forward-make-body-digest best (error) message-signed-or-encrypted-p t message-forward-make-body-mml message-forward-make-body-mime message-forward-make-body-plain message-position-point] 4 (#$ . 216833)])
#@23
(fn FORWARD-BUFFER)
(defalias 'message-forward-rmail-make-body #[257 "\300 \301\302\303\304\305!\306\"\307$\216q\210\310 \203 \311\302!\210)\210\312!\207" [current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 rmail-msg-is-pruned rmail-toggle-header message-forward-make-body] 8 (#$ . 217413)])
#@35 Let RMAIL use message to forward.
(defalias 'message-insinuate-rmail #[0 "\302\303\211\207" [rmail-enable-mime-composing rmail-insert-mime-forwarded-message-function t message-forward-rmail-make-body] 2 (#$ . 217772) nil])
#@54 Resend the current article to ADDRESS.
(fn ADDRESS)
(defalias 'message-resend #[257 "\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\262\203= \325\324!\210\325\f\314\"\210eb\210\326\327\310\314#\203V \330u\210\331c\210\202E ~\210\310y\210\314`d|\210)`\262\332!\210eb\210\333\334!\210\330u\210\214\211`}\210\325
\314\"\210db\210)/c\210\335\336\314#\203\226 \337 \210\340c\210\202\205 \211b\210\341\342!\203\243 \343\344!\210\314 0\326\345\310\314#)\314\346\310\211\211\211 1 2 3 4 5 6\347 \210.\203\321 \350 \210\351\352\261\210\353\354!\210\355p!\266\306\356\")\207" [inhibit-read-only message-setup-hook message-generate-hashcash message-this-is-mail message-ignored-mail-headers message-ignored-resent-headers 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:" raw-text message-send-mail message-goto-eoh "Gcc: " "\n" run-hooks message-sent-hook kill-buffer "Resending message to %s...done" mail-header-separator case-fold-search rfc2047-encode-encoded-words message-required-mail-headers select-safe-coding-system-function sendmail-coding-system message-inhibit-ecomplete message-inhibit-body-encoding] 11 (#$ . 218003) (byte-code "\300\301!C\207" [message-read-from-minibuffer "Resend message to: "] 2)])
#@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 #[0 "\303\304!\305\306\307\310!!\210@;\203 \311\312!@!\210\202k \311!\210\313 \210eb\210\314\315\305\304#\210`\262\314\305\304#\204C \316\317\305\320#\210\321\322\304#\203Z \323y\210e\314\324\305\304#\203T \325\224\202U `|\210\202k \211b\210\321\326\305\304#\203k \325\224\325\225|\210\327 \210\214\330 \210\331 \304\"\210db\210\nc\210)\332 \207" [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] 7 (#$ . 219758) nil])
#@100 Like `message-mail' command, but display mail buffer in another window.
(fn &optional TO SUBJECT)
(defalias 'message-mail-other-window #[512 "\301 \204
\302\303\304\"\305\"\210\306\307\310\206 \311B\312\206 \311BD\313\211\211\305%)\207" [message-this-is-mail message-mail-user-agent message-pop-to-buffer message-buffer-name "mail" switch-to-buffer-other-window t message-setup To "" Subject nil] 8 (#$ . 220734) nil])
#@99 Like `message-mail' command, but display mail buffer in another frame.
(fn &optional TO SUBJECT)
(defalias 'message-mail-other-frame #[512 "\301 \204
\302\303\304\"\305\"\210\306\307\310\206 \311B\312\206 \311BD\313\211\211\305%)\207" [message-this-is-mail message-mail-user-agent message-pop-to-buffer message-buffer-name "mail" switch-to-buffer-other-frame t message-setup To "" Subject nil] 8 (#$ . 221167) nil])
#@77 Start editing a news article to be sent.
(fn &optional NEWSGROUPS SUBJECT)
(defalias 'message-news-other-window #[512 "\301\302\303\304#\305\"\210\306\307\310\206 \311B\312\206 \311BD!)\207" [message-this-is-news message-pop-to-buffer message-buffer-name "posting" nil switch-to-buffer-other-window t message-setup Newsgroups "" Subject] 7 (#$ . 221597) nil])
#@77 Start editing a news article to be sent.
(fn &optional NEWSGROUPS SUBJECT)
(defalias 'message-news-other-frame #[512 "\301\302\303\304#\305\"\210\306\307\310\206 \311B\312\206 \311BD!)\207" [message-this-is-news message-pop-to-buffer message-buffer-name "posting" nil switch-to-buffer-other-frame t message-setup Newsgroups "" Subject] 7 (#$ . 221970) nil])
#@189 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.
(fn START END)
(defalias 'message-bold-region #[514 "\212\300 \211]\301\223\210^b\210`W\205' \302\303!\204! \301f\304\261\210\305u\210\202 \262)\207" [make-marker nil looking-at "[_ - ]" "" 1] 6 (#$ . 222342) "r"])
#@170 Remove all boldness (overstruck characters) in the region.
Called from program, takes two arguments START and END
which specify the range to operate on.
(fn START END)
(defalias 'message-unbold-region #[514 "\212\300 \211]\301\223\210^b\210\302\303\304#\205( \301f`\305Zf=\203 \306\307!\210\202 \262)\207" [make-marker nil search-forward "" t 2 delete-char -2] 7 (#$ . 222746) "r"])
#@72 Exchange point and mark, but don't activate region if it was inactive.
(defalias 'message-exchange-point-and-mark #[0 "\300\301!\302 `\303\223\210b\207" [mark t mark-marker nil] 4 (#$ . 223145)])
#@97 Update message mode toolbar.
Setter function for custom variables.
(fn &optional SYMBOL VALUE)
(defalias 'message-tool-bar-update #[512 "\300\301\302\"\210\205
\300\"\207" [set-default message-tool-bar-map nil] 5 (#$ . 223347)])
(byte-code "\300\301\302\303\304DD\305\306\307\306\310\311\312\313\314\315\316\317\320&\210\300\321\302\303\322DD\323\306\324\311\312\313\314\315\316\317\320&
\210\300\325\302\303\326DD\327\306\330\311\312\313\314\315\316\317\320&
\210\300\331\302\303\332DD\333\306\334\311\312\313\314\315\316\317\320&
\207" [custom-declare-variable message-tool-bar funcall function #[0 "\301=\203 \302\207\303\207" [gmm-tool-bar-style gnome message-tool-bar-gnome message-tool-bar-retro] 2] "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 #[0 "\300\207" [((ispell-message "spell" nil :vert-only t :visible (not flyspell-mode)) (flyspell-buffer "spell" t :vert-only t :visible 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))] 1] "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 #[0 "\300\207" [((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"))] 1] "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 #[0 "\300\207" [(new-file open-file dired kill-buffer write-file print-buffer customize help)] 1] "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)
#@111 Make a message mode tool bar from `message-tool-bar'.
When FORCE, rebuild the tool bar.
(fn &optional FORCE)
(defalias 'message-make-tool-bar #[256 "\306\300!\203% \203% \203 \211\203% \307\310\311\312\313$\211@ B\314\f
\315#* \207" [tool-bar-mode message-tool-bar-map load-path image-load-path message-tool-bar message-tool-bar-zap-list boundp image-load-path-for-library "message" "mail/save-draft.xpm" nil t gmm-tool-bar-from-list message-mode-map] 7 (#$ . 226357)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\315\316\306\307\310\317& \210\300\320\302\303\321DD\322\306\307\310\323&\210\300\324\302\303\325DD\326\315\327\306\307\330\331\310\332& \207" [custom-declare-variable message-newgroups-header-regexp funcall function #[0 "\300\207" [#1="^\\(Newsgroups\\|Followup-To\\|Posted-To\\|Gcc\\):"] 1 #1#] "Regexp that match headers that lists groups." :group message :type regexp message-completion-alist #[0 "\301B\302\303BD\207" [message-newgroups-header-regexp message-expand-group "^\\([^ :]*-\\)?\\(To\\|B?Cc\\|From\\):" message-expand-name] 3] "Alist of (RE . FUN). Use FUN for completion on header lines matching RE.\nFUN should be a function that obeys the same rules as those\nof `completion-at-point-functions'." :version "27.1" (alist :key-type regexp :value-type function) message-expand-name-databases #[0 "\300\207" [(bbdb eudc)] 1] "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 #[0 "\300\207" [nil] 1] "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." "22.1" :link (custom-manual "(message)Various Commands") (choice (const nil) function)] 12)
#@219 Complete names according to `message-completion-alist'.
Execute function specified by `message-tab-body-function' when
not in those headers. If that variable is nil, indent with the
regular text mode tabbing command.
(defalias 'message-tab #[0 "\304\305 )\203\n \306\207 \203 \207\307\n\310\"\206 \307 \310\"\206 \311 \207" [completion-fail-discreetly message-tab-body-function text-mode-map global-map t completion-at-point nil lookup-key " " indent-relative] 3 (#$ . 228218) nil])
(defvar message--old-style-completion-functions nil)
(defalias 'message-completion-function #[0 "\211\203 \211@@\303 )\204 \211A\262\202 \211@A\205U \211@A\211\n\235\2033 \304\305\306\307\310!\311\"\312$\202S \313 \313 =\203L \211\203H \211\242\250\203L \211\202Q \nB\314\266\202\262\207" [message-completion-alist mail-abbrev-mode-regexp message--old-style-completion-functions mail-abbrev-in-expansion-header-p make-byte-code 0 "\300 \210\301\207" vconcat vector [completion-attempted] 1 buffer-chars-modified-tick #[0 "\300\207" [completion-attempted] 1]] 8])
#@36 Expand the group name under point.
(defalias 'message-expand-group #[0 "\212\214\212\302 \210\303\304w\210`T)`}\210\305\304x\210`*\306\307\304w\210`\310\300!\205? \205? \304C\311\312\313\314\315\316!\317\"\320\321%\"\210\211\242\237\266\202\211\205I E)\207" [gnus-active-hashtb completion-ignore-case beginning-of-line "^:" nil "^, \n" t "^, \n " boundp maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K --CL-VAR--)"] 12 (#$ . 229290)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable message-expand-name-standard-ui funcall function #[0 "\300\207" [nil] 1] "If non-nil, use the standard completion UI in `message-expand-name'.\nE.g. this means it will obey `completion-styles' and other such settings." :version "27.1" :type boolean] 8)
(defalias 'message-expand-name #[0 "\203) \212\303\304x\210\305\304w\210`)\212\306\304w\210\305\304x\210`)W\205( \307{!E\207\310 >\203< \311\302!\203< \n\203< \312 \207\313 >\203U \314\315!\203U \316 \315 \206T \211\316 U?\207\317 \207" [message-expand-name-standard-ui message-expand-name-databases eudc-protocol "^\n:," nil " " "^\n," message--name-table eudc boundp eudc-expand-inline bbdb fboundp bbdb-complete-name buffer-modified-tick expand-abbrev] 7])
(add-to-list 'completion-category-defaults '(email (styles substring)))
#@14
(fn WORDS)
(defalias 'message--bbdb-query-with-words #[257 "\301\302!\205} \303\304!\210\302 \210\305\211\211\203R \211@\306\307#\211\203J \211@\310\"\211\203B \211@\211\311\n\"\204: \211 B\262 \210A\266\202\202% \210A\266\202\202 \210A\266\202\202 \210\211\203z \211@\312!\211\203r \211@\313\"B\262A\266\202\202] \210A\266\202\202T \210\262\207" [bbdb-hashtable fboundp bbdb-records require bbdb nil all-completions bbdb-completion-predicate gethash memql bbdb-record-mail bbdb-dwim-mail] 13 (#$ . 230657)])
#@20
(fn ORIG-STRING)
(defalias 'message--name-table #[257 "\300\301\"C\302C\302C\303\304\305\306\307#\310\"\311\312%\207" [split-string "[ ]+" nil make-byte-code 771 "\211\306\267\202o \307\207\310\207\300\242\203: \311 >\203& \312\304!\203& \f\203& \301\313\300\242!\240\210\314 >\2033 \302\315\300\242!\240\210\316 \210\300\317\240\210\320\321\301\242#\321\302\242#\312\305!\205a
\205a \322\323!\205a \321\323\324!##\203j \211\202n \325\"\207\317\207" vconcat vector [message-expand-name-databases eudc-protocol ecomplete-database #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (metadata 6 lambda 8 t 10 nil 10)) (metadata (category . email)) t eudc boundp eudc-query-with-words bbdb message--bbdb-query-with-words ecomplete-setup nil append all-completions fboundp ecomplete-completion-table mail try-completion] 10 "\n\n(fn STRING PRED ACTION)"] 12 (#$ . 231196)])
#@234 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.
(fn ASK QUESTION SHOW &rest TEXT)
(defalias 'message-talkative-question #[899 "\203Y \306!\211\262\203Y \307 \310\311\312\313\314!\315\"\316$\216r\317\320!q\210p\321 \210\322\211\323\211\323 \324 \210\325\326!\210+\211 r\320q\210\327 \210\330\331\"\210eb\210)\332!\210)\266!)\207!\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only flatten-tree current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 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 standard-output] 12 (#$ . 232129)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias message-flatten-list flatten-tree nil make-obsolete "27.1"] 4)
#@258 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.
(fn NAME &optional VARSTR)
(defalias 'message-generate-new-buffer-clone-locals #[513 "pr\300!q\210\301\"\210p)\207" [generate-new-buffer message-clone-locals] 6 (#$ . 233228)])
#@92 Clone the local variables from BUFFER to the current buffer.
(fn BUFFER &optional VARSTR)
(defalias 'message-clone-locals #[513 "rq\210\300 )\301\302\303\304\305\306\307\"\310\"\311\312%\"\207" [buffer-local-variables "^gnus\\|^nn\\|^message\\|^sendmail\\|^smtp\\|^user-mail-address" mapcar make-byte-code 257 "\211:\2059 \211@\2059 \302\301\303@!\"\2059 \300\203\" \302\300\303@!\"\2059 \30417 \211@\305=?\2055 \306@!AL0\207\210\307\207" vconcat vector [string-match symbol-name (error) message-default-charset make-local-variable nil] 5 "\n\n(fn LOCAL)"] 12 (#$ . 233644)])
(defalias 'message-encode-message-body #[0 "?\205\220 \303\304\211\305 \210\214`d}\210\306\304\214\307 \210\310\311!)\"\211\203H ed|\210\211c\210eb\210\211\312H\313=\203: \314\315!\210\202H \316\317!\210e`S{\262e`|\210\210)\214\320 \210\321\322!\210db\210\323c\210\203_ c\210\n\206h \324\325\304\303#\262)\214\320 \210\326\327!\210\326\330!\210)\211?\205\215 eb\210\331\332\304\303#\205\215 \315y\210\333c)\266\203\207" [message-inhibit-body-encoding case-fold-search mml-boundary t nil message-goto-body mml-generate-mime message-narrow-to-headers mail-fetch-field "content-type" 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"] 7])
#@100 Read from the minibuffer while providing abbrev expansion.
(fn PROMPT &optional INITIAL-CONTENTS)
(defalias 'message-read-from-minibuffer #[513 "\303\304\"*\207" [message-minibuffer-local-map minibuffer-local-map minibuffer-setup-hook mail-abbrevs-setup read-from-minibuffer] 5 (#$ . 235154)])
#@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 #[0 "\303\304!\210\305\306\307\310\311\312\211\211:\203+ @\262\313!\262\203$ B\262A\262\202
\211\237\266\204\314#!!\315!\203A \316\"@\202u \211\312\317\312:\203s @\262\312\317\320#)\266\203\203h \262\312\211\262\202i \317\203s A\262\202E \266\203\211?\206} \211\n\232?\205\221 \321\322!\210db\210\323\324 )\325\261\207" [message-alternative-emails inhibit-changing-match-data user-mail-address require mail-utils ("To" "Cc" "From") message-tokenize-header mail-strip-quoted-names mapconcat identity nil message-fetch-reply-field "," functionp cl-remove-if-not t string-match message-remove-header "From" "From: " message-make-from "\n"] 13 (#$ . 235461)])
#@15
(fn SYMBOL)
(defalias 'message-options-get #[257 "\211\236A\207" [message-options] 3 (#$ . 236367)])
#@21
(fn SYMBOL VALUE)
(defalias 'message-options-set #[514 "\236\211\203 \203 \211\241\210\202$ \301\"\202$ \203$ BB\210\207" [message-options delq] 6 (#$ . 236477)])
(defalias 'message-options-set-recipient #[0 "\214\300 \210\301\302\303\304\305!!\"\210\301\306\303\304\307!\304\310!\304\311!\206 \312\205' \205' \313\206, \312\2044 \2059 \2059 \313\206> \312\260\266\203!\")\207" [message-narrow-to-headers-or-head message-options-set message-sender mail-strip-quoted-names message-fetch-field "from" message-recipients "to" "cc" "bcc" "" ", "] 11])
#@62 Hide headers based on the `message-hidden-headers' variable.
(defalias 'message-hide-headers #[0 ";\203\n C\202 \303\211e\203Q \212\214\304 \210eb\210m\204P \305!\204. \306 \210\202 `\307\211\306 \210`{\262`Z\262`|\210b\210c\210\\\266\204\202 *\211d}*\207" [message-hidden-headers inhibit-modification-hooks inhibit-point-motion-hooks t message-narrow-to-headers message-hide-header-p message-next-header nil] 9 (#$ . 237057)])
#@16
(fn REGEXPS)
(defalias 'message-hide-header-p #[257 "\300\211@\301=\203 \302\262A\262\211\203' \211@\206 \303!\262A\266\202\202 \210\211\2031 ?\2022 \207" [nil not t looking-at] 7 (#$ . 237512)])
(defalias 'message-put-addresses-in-ecomplete #[0 "\300\301!\210\302\211\203= \211@\303!\304\305\"\211\2034 \211@\306\307\310\306\311\310##\262\312\313\314!@#\210A\266\202\202 \266A\266\202\202 \210\315 \207" [require ecomplete ("to" "cc" "from" "reply-to") message-field-value mail-header-parse-addresses raw replace-regexp-in-string "\n" "" "^ +\\| +$" ecomplete-add-item mail mail-header-parse-address ecomplete-save] 12])
(autoload 'ecomplete-display-matches "ecomplete")
(defalias 'message--in-tocc-p #[0 "\300 f\301>\205# \302 \205# \212\303 \210\304f\305>\203 \306y\307U\204 \310\311!)\207" [point-at-bol (67 84 9 32) message-point-in-header-p beginning-of-line nil (9 32) -1 0 looking-at "To:\\|Cc:"] 2])
#@84 Display the next possible abbrev for the text before point.
(fn &optional CHOOSE)
(defalias 'message-display-abbrev #[256 "\300 \205; `\212\301\302\303\304#\205 `T)\211\205 \211{\211\205+ \211G\305U?\205+ \306\307#\2059 \211\2059 |\210\211c\266\204\207" [message--in-tocc-p re-search-backward "[\n ]" nil t 0 ecomplete-display-matches mail] 8 (#$ . 238457) (list t)])
#@108 Return completion data for email addresses in Ecomplete.
Meant for use on `completion-at-point-functions'.
(defalias 'message-ecomplete-capf #[0 "\301\300!\205+ \205+ \302\303!\205+ \304 \205+ \212\305\306w\210`)\212\305\306x\210`)\211\303\307!E\266\202\207" [ecomplete-database boundp fboundp ecomplete-completion-table message--in-tocc-p "^, \n" nil mail] 6 (#$ . 238843)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311\312\317& \207" [custom-declare-variable message-form-letter-separator funcall function #[0 "\300\207" [#1="\n----------next form letter message follows this line----------\n"] 1 #1#] "Separator for `message-send-form-letter'." :group message-various :version "23.1" :type string message-send-form-letter-delay #[0 "\300\207" [1] 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)
#@233 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'.
(fn &optional FORCE)
(defalias 'message-send-form-letter #[256 "\302\211\303\211\211\211\211\211eb\210\211\204\203 `\262\304\303\305#\203# \306`G\307#\202' \305\262d\262\310\"\262\311\312!\262rq\210c\210\313 \210\314\315!\262\316!\210\203R \317 !\210\204` \320\321\322\"!\203k T\262\323 \210\202u \324\325\"\210T\262\326!\203 \327!\210)\202 \324\330 #\207" [message-form-letter-separator message-send-form-letter-delay 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-message "Send message to `%s'? " message-send-and-exit message "Message to `%s' skipped." buffer-live-p kill-buffer "%s message(s) sent, %s skipped."] 13 (#$ . 239845) "P"])
#@178 Remove HEADER and insert the NEW-VALUE.
If AFTER, insert after this header. If FORCE, insert new field
even if NEW-VALUE is empty.
(fn HEADER NEW-VALUE &optional AFTER FORCE)
(defalias 'message-replace-header #[1026 "\212\214\300 \210\301!\210)\211\204 G\302V\205' \203! \303\"\210\202% \303!\210c)\207" [message-narrow-to-headers message-remove-header 0 message-position-on-field] 7 (#$ . 240871)])
(byte-code "\300\301\302\303#\210\304\301\305\306\307DD\310\311\312\313\314\315\316& \210\317\320\321\303#\207" [make-obsolete-variable message-recipients-without-full-name "Recipients are simplified by default" "27.1" custom-declare-variable funcall function #[0 "\300\301\302\303\304\257\207" ["ding@gnus.org" "bugs@gnus.org" "emacs-devel@gnu.org" "emacs-pretest-bug@gnu.org" "bug-gnu-emacs@gnu.org"] 5] "Mail addresses that have no full name.\nUsed in `message-simplify-recipients'." :type (choice (const :tag "None" nil) (repeat string)) :version "23.1" :group message-headers make-obsolete message-simplify-recipients nil] 10)
(defalias 'message-simplify-recipients #[0 "\300\211\205# \211@\301\302\303\304!\205 \305\304!\306\"\307#\"\210A\266\202\202 \207" [("Cc" "To") message-replace-header mapconcat #[257 "\203 \301\302!A@\"\203 \211A@\207\211@\203 \303@A@\"\207\211A@\207" [message-recipients-without-full-name string-match regexp-opt message-make-from] 4 "\n\n(fn ADDRCOMP)"] message-fetch-field mail-extract-address-components t ", "] 9 nil nil])
#@77 Make a message containing the current dired-marked image files.
(fn FILES)
(defalias 'message-make-html-message-with-image-files #[257 "\300 \210\301 \210\302c\210\211\211\203 \211@\303\304\"c\210A\266\202\202\n \210\305 \210\306 \207" [message-mail message-goto-body "<#part type=text/html>\n\n" format "<img src=%S>\n\n" message-toggle-image-thumbnails message-goto-to] 6 (#$ . 242363) (byte-code "\301\302\"C\207" [current-prefix-arg dired-get-marked-files nil] 3)])
#@65 For any included image files, insert a thumbnail of that image.
(defalias 'message-toggle-image-thumbnails #[0 "\300\212eb\210m\204/ \301`\302\"\211\203( \211:\203( \211@\303=\203( \304``T\302\300$\210\305\262\210\306u\210\202 )\211?\205| \212eb\210\307\310\300\305#\205{ \311\312!\311\306!\313\314p!!\312\224\312\225|\210\315\316\317\300\320\321\322\323 8 @Z_!\324\321\325\326 8 A@Z_!&\"\266\2029 )\207" [nil get-text-property display image put-text-property t 1 re-search-forward "<img.*src=\"\\([^\"]+\\).*>" match-string 0 window-inside-pixel-edges get-buffer-window insert-image create-image imagemagick :max-width truncate 0.7 2 :max-height 0.5 3] 16 (#$ . 242844) nil])
(byte-code "\300\301!\210\302\303!\207" [provide message run-hooks message-load-hook] 2)
Mini Shell