;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:51:01 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/gnus/message.el ;;; in Emacs version 23.4.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`message.el' was compiled for Emacs 23 or later")) ;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\204 \302\301\303\"\210\304\305!\210\304\306!\210\304\307!\210\304\310!\210\304\311!\210\304\312!\210\304\313!\210\304\314!\210\304\315!\210\304\316!\210\317\320\321\"\210\322\323\324\325\326\327\330\331\330\332& \210\333\334\335\336#\210\333\337\335\336#\210\322\340\341\342\326\343\330\323&\210\322\344\341\345\326\346\330\323&\210\322\347\341\350\326\351\330\323&\210\322\352\341\353\326\354\330\323&\210\322\355\341\356\326\357\330\352&\210\322\360\341\361\326\362\330\323&\210\322\363\341\364\326\365\330\323&\210\322\366\341\367\330\323%\210\322\370\341\371\330\323%\210\322\372\341\373\330\323\330\374&\207" [fboundp declare-function defalias (macro . #[(&rest r) "\300\207" [nil] 1]) require hashcash canlock mailheader gmm-utils nnheader mailabbrev mail-parse mml rfc822 ecomplete autoload mailclient-send-it "mailclient" custom-declare-group message ((user-mail-address custom-variable) (user-full-name custom-variable)) "Mail and news message composing." :link (custom-manual "(message)Top") :group mail news put user-mail-address custom-type string user-full-name message-various nil "Various Message Variables." (custom-manual "(message)Various Message Variables") message-buffers "Message Buffers." (custom-manual "(message)Message Buffers") message-sending "Message Sending." (custom-manual "(message)Sending Variables") message-interface "Message Interface." (custom-manual "(message)Interface") message-forwarding "Message Forwarding." (custom-manual "(message)Forwarding") message-insertion "Message Insertion." (custom-manual "(message)Insertion") message-headers "Message Headers." (custom-manual "(message)Message Headers") message-news "Composing News Messages." message-mail "Composing Mail Messages." message-faces "Faces used for message composing." faces] 10) #@66 *Directory from which all other mail file variables are derived. (custom-declare-variable 'message-directory '"~/Mail/" '(#$ . -2358) :group 'message-various :type 'directory) #@61 *How many buffers to keep before starting to kill them off. (custom-declare-variable 'message-max-buffers '10 '(#$ . -2540) :group 'message-buffers :type 'integer) #@56 Function called to rename the buffer after sending it. (custom-declare-variable 'message-send-rename-function 'nil '(#$ . 2710) :group 'message-buffers :type '(choice function (const nil))) #@205 *A function called to save outgoing articles. This function will be called with the name of the file to store the article in. The default function is `message-output' which saves in Unix mailbox format. (custom-declare-variable 'message-fcc-handler-function ''message-output '(#$ . -2907) :type '(radio (function-item message-output) (function :tag "Other")) :group 'message-sending) #@71 If non-nil, attachments are included as external parts in Fcc copies. (custom-declare-variable 'message-fcc-externalize-attachments 'nil '(#$ . 3298) :version "22.1" :type 'boolean :group 'message-sending) #@250 *This is inserted at the start of a mailed copy of a posted message. If the string contains the format spec "%s", the Newsgroups the article has been posted to will be inserted there. If this variable is nil, no such courtesy message will be added. (custom-declare-variable 'message-courtesy-message '"The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n" '(#$ . -3511) :group 'message-sending :type '(radio string (const nil))) #@68 *Regexp that matches headers to be removed in resent bounced mail. (custom-declare-variable 'message-ignored-bounced-headers '"^\\(Received\\|Return-Path\\|Delivered-To\\):" '(#$ . -3989) :group 'message-interface :type 'regexp) #@369 *Specifies how "From" headers look. If nil, they contain just the return address like: king@grassland.com If `parens', they look like: king@grassland.com (Elvis Parsley) If `angles', they look like: Elvis Parsley Otherwise, most addresses look like `angles', but they look like `parens' if `angles' would need quoting and `parens' would not. (custom-declare-variable 'message-from-style 'mail-from-style '(#$ . -4225) :version "23.2" :type '(choice (const :tag "simple" nil) (const parens) (const angles) (const default)) :group 'message-headers) #@58 Whether to insert a Cancel-Lock header in news postings. (custom-declare-variable 'message-insert-canlock 't '(#$ . 4804) :version "22.1" :group 'message-headers :type 'boolean) #@675 *Controls what syntax checks should not be performed on outgoing posts. To disable checking of long signatures, for instance, add `(signature . disabled)' to this list. Don't touch this variable unless you really know what you're doing. Checks include `approved', `bogus-recipient', `continuation-headers', `control-chars', `empty', `existing-newsgroups', `from', `illegible-text', `invisible-text', `long-header-lines', `long-lines', `message-id', `multiple-headers', `new-text', `newsgroups', `quoting-style', `repeated-newsgroups', `reply-to', `sender', `sendsys', `shoot', `shorten-followup-to', `signature', `size', `subject', `subject-cmsg' and `valid-newsgroups'. (custom-declare-variable 'message-syntax-checks '(if message-insert-canlock '((sender . disabled)) nil) '(#$ . -4989) :group 'message-news :type '(repeat sexp)) #@144 *Headers to be generated or prompted for when sending a message. Also see `message-required-news-headers' and `message-required-mail-headers'. (custom-declare-variable 'message-required-headers ''((optional . References) From) '(#$ . -5831) :version "22.1" :group 'message-news :group 'message-headers :link '(custom-manual "(message)Message Headers") :type '(repeat sexp)) #@55 *Headers to be generated when saving a draft message. (custom-declare-variable 'message-draft-headers ''(References From Date) '(#$ . -6211) :version "22.1" :group 'message-news :group 'message-headers :link '(custom-manual "(message)Message Headers") :type '(repeat sexp)) #@288 *Headers to be generated or prompted for when posting an article. RFC977 and RFC1036 require From, Date, Newsgroups, Subject, Message-ID. Organization, Lines, In-Reply-To, Expires, and User-Agent are optional. If you don't want message to insert some header, remove it from this list. (custom-declare-variable 'message-required-news-headers ''(From Newsgroups Subject Date Message-ID (optional . Organization) (optional . User-Agent)) '(#$ . -6492) :group 'message-news :group 'message-headers :link '(custom-manual "(message)Message Headers") :type '(repeat sexp)) #@184 *Headers to be generated or prompted for when mailing a message. It is recommended that From, Date, To, Subject and Message-ID be included. Organization and User-Agent are optional. (custom-declare-variable 'message-required-mail-headers ''(From Subject Date (optional . In-Reply-To) Message-ID (optional . User-Agent)) '(#$ . -7067) :group 'message-mail :group 'message-headers :link '(custom-manual "(message)Message Headers") :type '(repeat sexp)) #@87 Headers to be deleted if they already exist and were generated by message previously. (custom-declare-variable 'message-deletable-headers ''(Message-ID Date Lines) '(#$ . 7525) :group 'message-headers :link '(custom-manual "(message)Message Headers") :type 'sexp) #@66 *Regexp of headers to be removed unconditionally before posting. (custom-declare-variable 'message-ignored-news-headers '"^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:" '(#$ . -7795) :group 'message-news :group 'message-headers :link '(custom-manual "(message)Message Headers") :type '(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)) #@66 *Regexp of headers to be removed unconditionally before mailing. (custom-declare-variable 'message-ignored-mail-headers '"^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:" '(#$ . -8335) :group 'message-mail :group 'message-headers :link '(custom-manual "(message)Mail Headers") :type 'regexp) #@153 *Header lines matching this regexp will be deleted before posting. It's best to delete old Path and Date headers before posting to avoid any confusion. (custom-declare-variable 'message-ignored-supersedes-headers '"^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|^X-Trace:\\|^X-ID:\\|^X-Complaints-To:\\|Return-Path:\\|^Supersedes:\\|^NNTP-Posting-Date:\\|^X-Trace:\\|^X-Complaints-To:\\|^Cancel-Lock:\\|^Cancel-Key:\\|^X-Hashcash:\\|^X-Payment:\\|^Approved:" '(#$ . -8670) :group 'message-interface :link '(custom-manual "(message)Superseding") :type '(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)) #@46 *Regexp matching "Re: " in the subject line. (custom-declare-variable 'message-subject-re-regexp '"^[ ]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ ]*\\)*[ ]*" '(#$ . -9456) :group 'message-various :link '(custom-manual "(message)Message Headers") :type 'regexp) #@397 *What to do with trailing "(was: )" in subject lines. If nil, leave the subject unchanged. If it is the symbol `ask', query the user what do do. In this case, the subject is matched against `message-subject-trailing-was-ask-regexp'. If `message-subject-trailing-was-query' is t, always strip the trailing old subject. In this case, `message-subject-trailing-was-regexp' is used. (custom-declare-variable 'message-subject-trailing-was-query ''ask '(#$ . -9718) :version "22.1" :type '(choice (const :tag "never" nil) (const :tag "always strip" t) (const ask)) :link '(custom-manual "(message)Message Headers") :group 'message-various) #@360 *Regexp matching "(was: )" in the subject line. The function `message-strip-subject-trailing-was' uses this regexp if `message-subject-trailing-was-query' is set to the symbol `ask'. If the variable is t instead of `ask', use `message-subject-trailing-was-regexp' instead. It is okay to create some false positives here, as the user is asked. (custom-declare-variable 'message-subject-trailing-was-ask-regexp '"[ ]*\\([[(]+[Ww][Aa][Ss][ ]*.*[])]+\\)" '(#$ . -10376) :version "22.1" :group 'message-various :link '(custom-manual "(message)Message Headers") :type 'regexp) #@291 *Regexp matching "(was: )" in the subject line. If `message-subject-trailing-was-query' is set to t, the subject is matched against `message-subject-trailing-was-regexp' in `message-strip-subject-trailing-was'. You should use a regexp creating very few false positives here. (custom-declare-variable 'message-subject-trailing-was-regexp '"[ ]*\\((*[Ww][Aa][Ss]:[ ]*.*)\\)" '(#$ . -10972) :version "22.1" :group 'message-various :link '(custom-manual "(message)Message Headers") :type 'regexp) #@50 How to mark the beginning of some inserted text. (custom-declare-variable 'message-mark-insert-begin '"--8<---------------cut here---------------start------------->8---\n" '(#$ . 11488) :version "22.1" :type 'string :link '(custom-manual "(message)Insertion Variables") :group 'message-various) #@44 How to mark the end of some inserted text. (custom-declare-variable 'message-mark-insert-end '"--8<---------------cut here---------------end--------------->8---\n" '(#$ . 11789) :version "22.1" :type 'string :link '(custom-manual "(message)Insertion Variables") :group 'message-various) #@125 Header to insert when you don't want your article to be archived. Archives (such as groups.google.com) respect this header. (custom-declare-variable 'message-archive-header '"X-No-Archive: Yes\n" '(#$ . 12083) :version "22.1" :type 'string :link '(custom-manual "(message)Header Commands") :group 'message-various) #@104 Note to insert why you wouldn't want this posting archived. If nil, don't insert any text in the body. (custom-declare-variable 'message-archive-note '"X-No-Archive: Yes - save http://groups.google.com/" '(#$ . 12405) :version "22.1" :type '(radio string (const nil)) :link '(custom-manual "(message)Header Commands") :group 'message-various) #@43 Old target for cross-posts or follow-ups. (defvar message-cross-post-old-target nil (#$ . 12754)) (make-variable-buffer-local 'message-cross-post-old-target) #@250 When non-nil `message-cross-post-followup-to' will perform a crosspost. If nil, `message-cross-post-followup-to' will only do a followup. Note that you can explicitly override this setting by calling `message-cross-post-followup-to' with a prefix. (custom-declare-variable 'message-cross-post-default 't '(#$ . 12919) :version "22.1" :type 'boolean :group 'message-various) #@72 Note to insert before signature to notify of cross-post and follow-up. (custom-declare-variable 'message-cross-post-note '"Crosspost & Followup-To: " '(#$ . 13300) :version "22.1" :type 'string :group 'message-various) #@62 Note to insert before signature to notify of follow-up only. (custom-declare-variable 'message-followup-to-note '"Followup-To: " '(#$ . 13525) :version "22.1" :type 'string :group 'message-various) #@258 Function to use to insert note about Crosspost or Followup-To. The function will be called with four arguments. The function should not only insert a note, but also ensure old notes are deleted. See the documentation for `message-cross-post-insert-note'. (custom-declare-variable 'message-cross-post-note-function ''message-cross-post-insert-note '(#$ . 13730) :version "22.1" :type 'function :group 'message-various) #@272 Regexp matching the signature separator. This variable is used to strip off the signature from quoted text when `message-cite-function' is `message-cite-original-without-signature'. Most useful values are "^-- $" (strict) and "^-- *$" (loose; allow missing whitespace). (custom-declare-variable 'message-signature-separator '"^-- $" '(#$ . 14157) :type '(choice (const :tag "strict" "^-- $") (const :tag "loose" "^-- *$") regexp) :version "22.3" :link '(custom-manual "(message)Various Message Variables") :group 'message-various) #@48 *The string which is inserted for elided text. (custom-declare-variable 'message-elide-ellipsis '"\n[...]\n\n" '(#$ . -14695) :type 'string :link '(custom-manual "(message)Various Commands") :group 'message-various) #@137 Non-nil means when sending a message wait for and display errors. A value of nil means let mailer mail back a message to report errors. (custom-declare-variable 'message-interactive 'mail-interactive '(#$ . 14918) :version "23.2" :group 'message-sending :group 'message-mail :link '(custom-manual "(message)Sending Variables") :type 'boolean) #@60 When non-nil, ask for confirmation when sending a message. (custom-declare-variable 'message-confirm-send 'nil '(#$ . 15267) :group 'message-sending :group 'message-mail :version "23.1" :link '(custom-manual "(message)Sending Variables") :type 'boolean) #@761 *Say whether to create a new message buffer to compose a message. Valid values include: nil Generate the buffer name in the Message way (e.g., *mail*, *news*, *mail to whom*, *news on group*, etc.) and continue editing in the existing buffer of that name. If there is no such buffer, it will be newly created. `unique' or t Create the new buffer with the name generated in the Message way. `unsent' Similar to `unique' but the buffer name begins with "*unsent ". `standard' Similar to nil but the buffer name is simpler like *mail message*. function If this is a function, call that function with three parameters: The type, the To address and the group name (any of these may be nil). The function should return the new buffer name. (custom-declare-variable 'message-generate-new-buffers ''unique '(#$ . -15528) :group 'message-buffers :link '(custom-manual "(message)Message Buffers") :type '(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"))) #@80 *Non-nil means that the message buffer will be killed after sending a message. (custom-declare-variable 'message-kill-buffer-on-exit 'nil '(#$ . -16656) :group 'message-buffers :link '(custom-manual "(message)Message Buffers") :type 'boolean) #@115 *Non-nil means that killing a modified message buffer has to be confirmed. This is used by `message-kill-buffer'. (custom-declare-variable 'message-kill-buffer-query 't '(#$ . -16906) :version "23.1" :group 'message-buffers :type 'boolean) #@91 *String to be used as an Organization header. If t, use `message-user-organization-file'. (custom-declare-variable 'message-user-organization '(or (and (boundp 'gnus-local-organization) (stringp gnus-local-organization) gnus-local-organization) (getenv "ORGANIZATION") t) '(#$ . -17152) :group 'message-headers :type '(choice string (const :tag "consult file" t))) #@32 *Local news organization file. (custom-declare-variable 'message-user-organization-file '(let (orgfile) (dolist (f (list "/etc/organization" "/etc/news/organization" "/usr/lib/news/organization")) (when (file-readable-p f) (setq orgfile f))) orgfile) '(#$ . -17523) :type 'file :link '(custom-manual "(message)News Headers") :group 'message-headers) #@541 *List of functions called to generate subject headers for forwarded messages. The subject generated by the previous function is passed into each successive function. The provided functions are: * `message-forward-subject-author-subject' Source of article (author or newsgroup), in brackets followed by the subject * `message-forward-subject-name-subject' Source of article (name of author or newsgroup), in brackets followed by the subject * `message-forward-subject-fwd' Subject of article with 'Fwd:' prepended to it. (custom-declare-variable 'message-make-forward-subject-function '#'message-forward-subject-name-subject '(#$ . -17880) :group 'message-forwarding :link '(custom-manual "(message)Forwarding") :type '(radio (function-item message-forward-subject-author-subject) (function-item message-forward-subject-fwd) (function-item message-forward-subject-name-subject) (repeat :tag "List of functions" function))) #@136 *Non-nil means forward messages as an inline/rfc822 MIME section. Otherwise, directly inline the old message in the forwarded message. (custom-declare-variable 'message-forward-as-mime 't '(#$ . -18829) :version "21.1" :group 'message-forwarding :link '(custom-manual "(message)Forwarding") :type 'boolean) #@378 *Non-nil means show forwarded messages as MML (decoded from MIME). Otherwise, forwarded messages are unchanged. Can also be the symbol `best' to indicate that MML should be used, except when it is a bad idea to use MML. One example where it is a bad idea is when forwarding a signed or encrypted message, because converting MIME to MML would invalidate the digital signature. (custom-declare-variable 'message-forward-show-mml ''best '(#$ . -19143) :version "21.1" :group 'message-forwarding :type '(choice (const :tag "use MML" t) (const :tag "don't use MML " nil) (const :tag "use MML when appropriate" best))) #@68 *Non-nil means put forwarded message before signature, else after. (custom-declare-variable 'message-forward-before-signature 't '(#$ . -19763) :group 'message-forwarding :type 'boolean) #@127 *Non-nil means try to remove as much cruft as possible from the subject. Done before generating the new subject of a forward. (custom-declare-variable 'message-wash-forwarded-subjects 'nil '(#$ . -19957) :group 'message-forwarding :link '(custom-manual "(message)Forwarding") :type 'boolean) #@79 *All headers that match this regexp will be deleted when resending a message. (custom-declare-variable 'message-ignored-resent-headers '"^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From \\|^Delivered-To:" '(#$ . -20255) :group 'message-interface :link '(custom-manual "(message)Resending") :type '(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)) #@80 *All headers that match this regexp will be deleted when forwarding a message. (custom-declare-variable 'message-forward-ignored-headers '"^Content-Transfer-Encoding:\\|^X-Gnus" '(#$ . -20750) :version "21.1" :group 'message-forwarding :type '(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)) #@51 *Delete these headers from the messages you yank. (custom-declare-variable 'message-ignored-cited-headers '"." '(#$ . -21187) :group 'message-insertion :link '(custom-manual "(message)Insertion Variables") :type 'regexp) #@66 *Regexp matching the longest possible citation prefix on a line. (custom-declare-variable 'message-cite-prefix-regexp '(cond ((boundp 'mail-citation-prefix-regexp) mail-citation-prefix-regexp) ((string-match "[[:digit:]]" "1") "\\([ ]*[_.[:word:]]+>+\\|[ ]*[]>|}]\\)+") (t (let (non-word-constituents) (with-syntax-table text-mode-syntax-table (setq non-word-constituents (concat (if (string-match "\\w" "_") #1="" "_") (if (string-match "\\w" ".") #1# ".")))) (if (equal non-word-constituents #1#) "\\([ ]*\\(\\w\\)+>+\\|[ ]*[]>|}]\\)+" (concat "\\([ ]*\\(\\w\\|[" non-word-constituents "]\\)+>+\\|[ ]*[]>|}]\\)+"))))) '(#$ . -21414) :version "23.2" :group 'message-insertion :link '(custom-manual "(message)Insertion Variables") :type 'regexp :set #[(symbol value) "\303 \"\304\302!\203\305 \306Q\207" [symbol value gnus-message-cite-prefix-regexp custom-set-default boundp "^\\(?:" "\\)"] 4]) #@47 Message to be inserted in the cancel message. (custom-declare-variable 'message-cancel-message '"I am canceling my own article.\n" '(#$ . 22326) :group 'message-interface :link '(custom-manual "(message)Canceling News") :type 'string) #@70 Return suitable value for the variable `message-send-mail-function'. (defalias 'message-send-mail-function #[nil "\302\303!\203\304\300!\203\203\305!\203\306\207\307\310!\203*\302\311!\203* \203*\312\207\307\313!\2032\314\207\315\207" [sendmail-program smtpmail-default-smtp-server require sendmail boundp executable-find message-send-mail-with-sendmail locate-library "smtpmail" smtpmail message-smtpmail-send-it "mailclient" message-send-mail-with-mailclient #[nil "\300\301!\207" [error "Don't know how to send mail. Please customize `message-send-mail-function'"] 2]] 2 (#$ . 22567)]) #@506 Function to call to send the current buffer as mail. The headers should be delimited by a line whose contents match the variable `mail-header-separator'. Valid values include `message-send-mail-with-sendmail' `message-send-mail-with-mh', `message-send-mail-with-qmail', `message-smtpmail-send-it', `smtpmail-send-it', `feedmail-send-it' and `message-send-mail-with-mailclient'. The default is system dependent and determined by the function `message-send-mail-function'. See also `send-mail-function'. (custom-declare-variable 'message-send-mail-function '(cond ((eq send-mail-function 'smtpmail-send-it) 'message-smtpmail-send-it) ((eq send-mail-function 'feedmail-send-it) 'feedmail-send-it) ((eq send-mail-function 'mailclient-send-it) 'message-send-mail-with-mailclient) (t (message-send-mail-function))) '(#$ . 23178) :type '(radio (function-item message-send-mail-with-sendmail) (function-item message-send-mail-with-mh) (function-item message-send-mail-with-qmail) (function-item message-smtpmail-send-it) (function-item smtpmail-send-it) (function-item feedmail-send-it) (function-item message-send-mail-with-mailclient :tag "Use Mailclient package") (function :tag "Other")) :group 'message-sending :version "23.2" :initialize 'custom-initialize-default :link '(custom-manual "(message)Mail Variables") :group 'message-mail) #@155 Function to call to send the current buffer as news. The headers should be delimited by a line whose contents match the variable `mail-header-separator'. (custom-declare-variable 'message-send-news-function ''message-send-news '(#$ . 24522) :group 'message-sending :group 'message-news :link '(custom-manual "(message)News Variables") :type 'function) #@174 If non-nil, function that should return a list of headers. This function should pick out addresses from the To, Cc, and From headers and respond with new To and Cc headers. (custom-declare-variable 'message-reply-to-function 'nil '(#$ . 24881) :group 'message-interface :link '(custom-manual "(message)Reply") :type '(choice function (const nil))) #@174 If non-nil, function that should return a list of headers. This function should pick out addresses from the To, Cc, and From headers and respond with new To and Cc headers. (custom-declare-variable 'message-wide-reply-to-function 'nil '(#$ . 25236) :group 'message-interface :link '(custom-manual "(message)Wide Reply") :type '(choice function (const nil))) #@174 If non-nil, function that should return a list of headers. This function should pick out addresses from the To, Cc, and From headers and respond with new To and Cc headers. (custom-declare-variable 'message-followup-to-function 'nil '(#$ . 25601) :group 'message-interface :link '(custom-manual "(message)Followup") :type '(choice function (const nil))) #@95 If non-nil, a list of additional address headers. These are used when composing a wide reply. (custom-declare-variable 'message-extra-wide-headers 'nil '(#$ . 25961) :group 'message-sending :type '(repeat string)) #@279 *Specifies what to do with Followup-To header. If nil, always ignore the header. If it is t, use its value, but query before using the "poster" value. If it is the symbol `ask', always query the user whether to use the value. If it is the symbol `use', always use the value. (custom-declare-variable 'message-use-followup-to ''ask '(#$ . -26182) :group 'message-interface :link '(custom-manual "(message)Followup") :type '(choice (const :tag "ignore" nil) (const :tag "use & query" t) (const use) (const ask))) #@213 *Specifies what to do with Mail-Followup-To header. If nil, always ignore the header. If it is the symbol `ask', always query the user whether to use the value. If it is the symbol `use', always use the value. (custom-declare-variable 'message-use-mail-followup-to ''use '(#$ . -26703) :version "22.1" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(choice (const :tag "ignore" nil) (const use) (const ask))) #@345 *Specifies functions for determining list subscription. If nil, do not attempt to determine list subscription with functions. If non-nil, this variable contains a list of functions which return regular expressions to match lists. These functions can be used in conjunction with `message-subscribed-regexps' and `message-subscribed-addresses'. (custom-declare-variable 'message-subscribed-address-functions 'nil '(#$ . -27155) :version "22.1" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(repeat sexp)) #@193 *A file containing addresses the user is subscribed to. If nil, do not look at any files to determine list subscriptions. If non-nil, each line of this file should be a mailing list address. (custom-declare-variable 'message-subscribed-address-file 'nil '(#$ . -27701) :version "22.1" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(radio file (const nil))) #@242 *Specifies a list of addresses the user is subscribed to. If nil, do not use any predefined list subscriptions. This list of addresses can be used in conjunction with `message-subscribed-address-functions' and `message-subscribed-regexps'. (custom-declare-variable 'message-subscribed-addresses 'nil '(#$ . -28101) :version "22.1" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(repeat string)) #@254 *Specifies a list of addresses the user is subscribed to. If nil, do not use any predefined list subscriptions. This list of regular expressions can be used in conjunction with `message-subscribed-address-functions' and `message-subscribed-addresses'. (custom-declare-variable 'message-subscribed-regexps 'nil '(#$ . -28538) :version "22.1" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(repeat regexp)) #@229 Specifies what to do when there are no recipients other than Gcc/Fcc. If it is the symbol `always', the posting is allowed. If it is the symbol `never', the posting is not allowed. If it is the symbol `ask', you are prompted. (custom-declare-variable 'message-allow-no-recipients ''ask '(#$ . 28985) :version "22.1" :group 'message-interface :link '(custom-manual "(message)Message Headers") :type '(choice (const always) (const never) (const ask))) #@124 *Non-nil means don't add "-f username" to the sendmail command line. Doing so would be even more evil than leaving it out. (custom-declare-variable 'message-sendmail-f-is-evil 'nil '(#$ . -29444) :group 'message-sending :link '(custom-manual "(message)Mail Variables") :type 'boolean) #@158 *Envelope-from when sending mail with sendmail. If this is nil, use `user-mail-address'. If it is the symbol `header', use the From: header of the message. (custom-declare-variable 'message-sendmail-envelope-from '(if (boundp 'mail-envelope-from) mail-envelope-from) '(#$ . -29736) :version "23.2" :type '(choice (string :tag "From name") (const :tag "Use From: header from message" header) (const :tag "Use `user-mail-address'" nil)) :link '(custom-manual "(message)Mail Variables") :group 'message-sending) #@45 Additional arguments to `sendmail-program'. (custom-declare-variable 'message-sendmail-extra-arguments 'nil '(#$ . 30252) :version "23.1" :type '(repeat string) :group 'message-sending) #@39 Location of the qmail-inject program. (custom-declare-variable 'message-qmail-inject-program '"/var/qmail/bin/qmail-inject" '(#$ . 30444) :group 'message-sending :link '(custom-manual "(message)Mail Variables") :type 'file) #@338 Arguments passed to qmail-inject programs. This should be a list of strings, one string for each argument. It may also be a function. For e.g., if you wish to set the envelope sender address so that bounces go to the right place or to deal with listserv's usage of that address, you might set this variable to '("-f" "you@some.where"). (custom-declare-variable 'message-qmail-inject-args 'nil '(#$ . 30675) :group 'message-sending :link '(custom-manual "(message)Mail Variables") :type '(choice (function) (repeat string))) #@109 *Method used to post news. Note that when posting from inside Gnus, for instance, this variable isn't used. (custom-declare-variable 'message-post-method '(cond ((and (boundp 'gnus-post-method) (listp gnus-post-method) gnus-post-method) gnus-post-method) ((boundp 'gnus-select-method) gnus-select-method) (t '(nnspool ""))) '(#$ . -31207) :group 'message-news :group 'message-sending :type 'sexp) #@476 Which headers should be generated before starting to compose a message. If t, generate all required headers. This can also be a list of headers to generate. The variables `message-required-news-headers' and `message-required-mail-headers' specify which headers to generate. Note that the variable `message-deletable-headers' specifies headers which are to be deleted and then re-generated before sending, so this variable will not have a visible effect for those headers. (custom-declare-variable 'message-generate-headers-first ''(references) '(#$ . 31611) :group 'message-headers :link '(custom-manual "(message)Message Headers") :type '(choice (const :tag "None" nil) (const :tag "References" '(references)) (const :tag "All" t) (repeat (sexp :tag "Header")))) #@149 Column beyond which automatic line-wrapping should happen. Local value for message buffers. If non-nil, also turn on auto-fill in message buffers. (custom-declare-variable 'message-fill-column '72 '(#$ . 32385) :group 'message-various :type '(choice (const :tag "Don't turn on auto fill" nil) (integer))) #@112 Normal hook, run each time a new outgoing message is initialized. The function `message-setup' runs this hook. (custom-declare-variable 'message-setup-hook 'nil '(#$ . 32698) :group 'message-various :link '(custom-manual "(message)Various Message Variables") :type 'hook) #@36 Hook run when cancelling articles. (custom-declare-variable 'message-cancel-hook 'nil '(#$ . 32976) :group 'message-various :link '(custom-manual "(message)Various Message Variables") :type 'hook) #@152 Normal hook, run each time a new outgoing message is initialized. It is run after the headers have been inserted and before the signature is inserted. (custom-declare-variable 'message-signature-setup-hook 'nil '(#$ . 33180) :group 'message-various :link '(custom-manual "(message)Various Message Variables") :type 'hook) #@35 Hook run in message mode buffers. (custom-declare-variable 'message-mode-hook 'nil '(#$ . 33508) :group 'message-various :type 'hook) #@60 Hook run in a message mode buffer narrowed to the headers. (custom-declare-variable 'message-header-hook 'nil '(#$ . 33648) :group 'message-various :type 'hook) #@71 Hook called narrowed to the headers when setting up a message buffer. (custom-declare-variable 'message-header-setup-hook 'nil '(#$ . 33815) :group 'message-various :link '(custom-manual "(message)Various Message Variables") :type 'hook) #@44 Keymap for `message-read-from-minibuffer'. (custom-declare-variable 'message-minibuffer-local-map '(let ((map (make-sparse-keymap 'message-minibuffer-local-map))) (set-keymap-parent map minibuffer-local-map) map) '(#$ . 34059) :version "22.1" :group 'message-various) #@473 *Function called to insert the "Whomever writes:" line. Predefined functions include `message-insert-citation-line' and `message-insert-formatted-citation-line' (see the variable `message-citation-line-format'). Note that Gnus provides a feature where the reader can click on `writes:' to hide the cited text. If you change this line too much, people who read your message will have to change their Gnus configuration. See the variable `gnus-cite-attribution-suffix'. (custom-declare-variable 'message-citation-line-function ''message-insert-citation-line '(#$ . -34334) :type '(choice (function-item :tag "plain" message-insert-citation-line) (function-item :tag "formatted" message-insert-formatted-citation-line) (function :tag "Other")) :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) #@762 Format of the "Whomever writes:" line. The string is formatted using `format-spec'. The following constructs are replaced: %f The full From, e.g. "John Doe ". %n The mail address, e.g. "john.doe@example.invalid". %N The real name if present, e.g.: "John Doe", else fall back to the mail address. %F The first name if present, e.g.: "John". %L The last name if present, e.g.: "Doe". All other format specifiers are passed to `format-time-string' which is called using the date from the article your replying to. Extracting the first (%F) and last name (%L) is done heuristically, so you should always check it yourself. Please also read the note in the documentation of `message-citation-line-function'. (custom-declare-variable 'message-citation-line-format '"On %a, %b %d %Y, %N wrote:\n" '(#$ . 35167) :type '(choice (const :tag "Plain" "%f writes:") (const :tag "Include date" "On %a, %b %d %Y, %n wrote:") string) :link '(custom-manual "(message)Insertion Variables") :version "23.1" :group 'message-insertion) #@189 *Prefix inserted on the lines of yanked messages. Fix `message-cite-prefix-regexp' if it is set to an abnormal value. See also `message-yank-cited-prefix' and `message-yank-empty-prefix'. (custom-declare-variable 'message-yank-prefix '(if (boundp 'mail-yank-prefix) mail-yank-prefix "> ") '(#$ . -36247) :version "23.2" :type 'string :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) #@185 *Prefix inserted on cited lines of yanked messages. Fix `message-cite-prefix-regexp' if it is set to an abnormal value. See also `message-yank-prefix' and `message-yank-empty-prefix'. (custom-declare-variable 'message-yank-cited-prefix '">" '(#$ . -36669) :version "22.1" :type 'string :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) #@117 *Prefix inserted on empty lines of yanked messages. See also `message-yank-prefix' and `message-yank-cited-prefix'. (custom-declare-variable 'message-yank-empty-prefix '">" '(#$ . -37043) :version "22.1" :type 'string :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) #@123 *Number of spaces to insert at the beginning of each cited line. Used by `message-yank-original' via `message-yank-cite'. (custom-declare-variable 'message-indentation-spaces '(if (boundp 'mail-indentation-spaces) mail-indentation-spaces 3) '(#$ . -37349) :version "23.2" :group 'message-insertion :link '(custom-manual "(message)Insertion Variables") :type 'integer) #@214 *Function for citing an original message. Predefined functions include `message-cite-original' and `message-cite-original-without-signature'. Note that these functions use `mail-citation-hook' if that is non-nil. (custom-declare-variable 'message-cite-function ''message-cite-original-without-signature '(#$ . -37724) :type '(radio (function-item message-cite-original) (function-item message-cite-original-without-signature) (function-item sc-cite-original) (function :tag "Other")) :link '(custom-manual "(message)Insertion Variables") :version "22.3" :group 'message-insertion) #@260 *Function for modifying a citation just inserted in the mail buffer. This can also be a list of functions. Each function can find the citation between (point) and (mark t). And each function should leave point and mark around the citation text as modified. (custom-declare-variable 'message-indent-citation-function ''message-indent-citation '(#$ . -38312) :type 'function :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) #@248 *String to be inserted at the end of the message buffer. If t, the `message-signature-file' file will be inserted instead. If a function, the result from the function will be used instead. If a form, the result from the form will be used instead. (custom-declare-variable 'message-signature 'mail-signature '(#$ . -38775) :version "23.2" :type 'sexp :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) #@237 *Name of file containing the text inserted at end of message buffer. Ignored if the named file doesn't exist. If nil, don't insert a signature. If a path is specified, the value of `message-signature-directory' is ignored, even if set. (custom-declare-variable 'message-signature-file '(if (boundp 'mail-signature-file) mail-signature-file "~/.signature") '(#$ . -39213) :version "23.2" :type '(choice file (const :tags "None" nil)) :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) #@214 *Name of directory containing signature files. Comes in handy if you have many such files, handled via posting styles for instance. If nil, `message-signature-file' is expected to specify the directory if needed. (custom-declare-variable 'message-signature-directory 'nil '(#$ . -39734) :type '(choice string (const :tags "None" nil)) :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) #@67 *If non-nil, insert an empty line before the signature separator. (custom-declare-variable 'message-signature-insert-empty-line 't '(#$ . -40156) :version "22.1" :type 'boolean :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) #@51 *Function called to return a Distribution header. (custom-declare-variable 'message-distribution-function 'nil '(#$ . -40420) :group 'message-news :group 'message-headers :link '(custom-manual "(message)News Headers") :type '(choice function (const nil))) #@45 Number of days before your article expires. (custom-declare-variable 'message-expires '14 '(#$ . 40682) :group 'message-news :group 'message-headers :link '(custom-manual "(message)News Headers") :type 'integer) #@123 If nil, use the NNTP server name in the Path header. If stringp, use this; if non-nil, use no host name (user name only). (custom-declare-variable 'message-user-path 'nil '(#$ . 40901) :group 'message-news :group 'message-headers :link '(custom-manual "(message)News Headers") :type '(choice (const :tag "nntp" nil) (string :tag "name") (sexp :tag "none" :format "%t" t))) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list message-reply-buffer default-boundp set-default nil] 3) #@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 (#$ . 41418)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\307B\302\307!\204<\303\307\304\"\210\304\207" [current-load-list message-newsreader default-boundp set-default nil message-mailer message-sent-message-via message-checksum] 3) #@73 A list of actions to be performed upon successful sending of a message. (defvar message-send-actions nil (#$ . 41934)) #@73 A list of actions to be performed upon exiting after sending a message. (defvar message-exit-actions nil (#$ . 42059)) #@68 A list of actions to be performed before killing a message buffer. (defvar message-kill-actions nil (#$ . 42184)) #@63 A list of actions to be performed after postponing a message. (defvar message-postpone-actions nil (#$ . 42304)) (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") #@155 *A string containing header lines to be inserted in outgoing messages. It is inserted before you edit the message, so you can edit or delete these lines. (custom-declare-variable 'message-default-headers '"" '(#$ . -42607) :version "23.2" :group 'message-headers :link '(custom-manual "(message)Message Headers") :type 'message-header-lines) #@61 *A string of header lines to be inserted in outgoing mails. (custom-declare-variable 'message-default-mail-headers '(concat (if (and (boundp 'mail-default-reply-to) (stringp mail-default-reply-to)) (format "Reply-to: %s\n" mail-default-reply-to)) (if (and (boundp 'mail-self-blind) mail-self-blind) (format "BCC: %s\n" user-mail-address)) (if (and (boundp 'mail-archive-file-name) (stringp mail-archive-file-name)) (format "FCC: %s\n" mail-archive-file-name)) (if (boundp 'mail-default-headers) mail-default-headers)) '(#$ . -42955) :version "23.2" :group 'message-headers :group 'message-mail :link '(custom-manual "(message)Mail Headers") :type 'message-header-lines) #@69 *A string of header lines to be inserted in outgoing news articles. (custom-declare-variable 'message-default-news-headers '"" '(#$ . -43631) :group 'message-headers :group 'message-news :link '(custom-manual "(message)News Headers") :type 'message-header-lines) #@230 *Set this non-nil if the system's mailer runs the header and body together. (This problem exists on Sunos 4 when sendmail is run in remote mode.) The value should be an expression to test whether the problem will actually occur. (custom-declare-variable 'message-mailer-swallows-blank-line '(if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" system-configuration) (file-readable-p "/etc/sendmail.cf") (let ((buffer (get-buffer-create " *temp*"))) (unwind-protect (with-current-buffer buffer (insert-file-contents "/etc/sendmail.cf") (goto-char (point-min)) (let ((case-fold-search nil)) (re-search-forward "^OR\\>" nil t))) (kill-buffer buffer)))) '(looking-at "[ ]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:")) '(#$ . -43901) :group 'message-sending :link '(custom-manual "(message)Mail Variables") :type 'sexp) (define-mail-user-agent 'message-user-agent 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook) #@64 If non-nil, delete the deletable headers before feeding to mh. (defvar message-mh-deletable-headers '(Message-ID Date Lines Sender) (#$ . 44857)) #@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)) (#$ . 45010)) #@217 *What alias expansion type to use in Message buffers. The default is `abbrev', which uses mailabbrev. `ecomplete' uses an electric completion mode. nil switches mail aliases off. This can also be a list of values. (custom-declare-variable 'message-mail-alias-type ''abbrev '(#$ . -45537) :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))) #@405 List of `self-insert-command's used to trigger ecomplete. When one of those commands is invoked to enter a character in To or Cc header, ecomplete will suggest the candidates of recipients (see also `message-mail-alias-type'). If you use some tool to enter non-ASCII text and it replaces `self-insert-command' with the other command, e.g. `egg-self-insert-command', you may want to add it to this list. (custom-declare-variable 'message-self-insert-commands ''(self-insert-command) '(#$ . 46022) :group 'message-various :type '(repeat function)) #@101 *Directory where Message auto-saves buffers if Gnus isn't running. If nil, Message won't auto-save. (custom-declare-variable 'message-auto-save-directory '(file-name-as-directory (nnheader-concat message-directory "drafts")) '(#$ . -46576) :group 'message-buffers :link '(custom-manual "(message)Various Message Variables") :type '(choice directory (const :tag "Don't auto-save" nil))) #@92 Default charset used in non-MULE Emacsen. If nil, you might be asked to input the charset. (custom-declare-variable 'message-default-charset '(and (not (mm-multibyte-p)) 'iso-8859-1) '(#$ . 46968) :version "21.1" :group 'message :link '(custom-manual "(message)Various Message Variables") :type 'symbol) #@150 *Addresses to prune when doing wide replies. This can be a regexp or a list of regexps. Also, a value of nil means exclude your own user name only. (custom-declare-variable 'message-dont-reply-to-names '(and (boundp 'rmail-dont-reply-to-names) rmail-dont-reply-to-names) '(#$ . -47279) :version "21.1" :group 'message :link '(custom-manual "(message)Wide Reply") :type '(choice (const :tag "Yourself" nil) regexp (repeat :tag "Regexp List" regexp))) (defalias 'message-dont-reply-to-names #[nil "\301!\207" [message-dont-reply-to-names gmm-regexp-concat] 2]) (put 'message-dont-reply-to-names 'byte-optimizer 'byte-compile-inline-expand) #@526 *A list of GNKSA feet you are allowed to shoot. Gnus gives you all the opportunity you could possibly want for shooting yourself in the foot. Also, Gnus allows you to shoot the feet of Good Net-Keeping Seal of Approval. The following are foot candidates: `empty-article' Allow you to post an empty article; `quoted-text-only' Allow you to post quoted text only; `multiple-copies' Allow you to post multiple copies; `cancel-messages' Allow you to cancel or supersede messages from your other email addresses. (defvar message-shoot-gnksa-feet nil (#$ . -47926)) (defalias 'message-gnksa-enable-p #[(feature) "\207" [message-shoot-gnksa-feet feature] 2]) (put 'message-gnksa-enable-p 'byte-optimizer 'byte-compile-inline-expand) #@170 Regexp of headers to be hidden when composing new messages. This can also be a list of regexps to match headers. Or a list starting with `not' and followed by regexps. (custom-declare-variable 'message-hidden-headers ''("^References:" "^Face:" "^X-Face:" "^X-Draft-From:") '(#$ . 48688) :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"))))) #@64 If non-nil, cite text from articles that has X-No-Archive set. (custom-declare-variable 'message-cite-articles-with-x-no-archive 't '(#$ . 49388) :group 'message :type 'boolean) #@42 Syntax table used while in Message mode. (defvar message-mode-syntax-table (byte-code "\302!\303\304\305 #\210\303\306\305 #\210\303\307\305 #\210 )\207" [text-mode-syntax-table table copy-syntax-table modify-syntax-entry 37 ". " 62 60] 4) (#$ . 49572)) (byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\210\306\307\311\312#\210\300\313\314\315\304\305%\210\306\316\310\313#\210\306\316\311\312#\210\300\317\320\321\304\305%\210\306\322\310\317#\210\306\322\311\312#\210\300\323\324\325\304\305%\210\306\326\310\323#\210\306\326\311\312#\210\300\327\330\325\304\305%\210\306\331\310\327#\210\306\331\311\312#\210\300\332\333\334\304\305%\210\306\335\310\332#\210\306\335\311\312#\210\300\336\337\340\304\305%\210\306\341\310\336#\210\306\341\311\312#\210\300\342\343\344\304\305%\210\306\345\310\342#\210\306\345\311\312#\210\300\346\347\350\304\305%\210\306\351\310\346#\210\306\351\311\312#\210\300\352\353\354\304\305%\210\306\355\310\352#\210\306\355\311\312#\207" [custom-declare-face message-header-to ((((class color) (background dark)) (:foreground "DarkOliveGreen1" :bold t)) (((class color) (background light)) (:foreground "MidnightBlue" :bold t)) (t (:bold t :italic t))) "Face used for displaying From headers." :group message-faces put message-header-to-face face-alias obsolete-face "22.1" message-header-cc ((((class color) (background dark)) (:foreground "chartreuse1" :bold t)) (((class color) (background light)) (:foreground "MidnightBlue")) (t (:bold t))) "Face used for displaying Cc headers." message-header-cc-face message-header-subject ((((class color) (background dark)) (:foreground "OliveDrab1")) (((class color) (background light)) (:foreground "navy blue" :bold t)) (t (:bold t))) "Face used for displaying subject headers." message-header-subject-face message-header-newsgroups ((((class color) (background dark)) (:foreground "yellow" :bold t :italic t)) (((class color) (background light)) (:foreground "blue4" :bold t :italic t)) (t (:bold t :italic t))) "Face used for displaying newsgroups headers." message-header-newsgroups-face message-header-other ((((class color) (background dark)) (:foreground "VioletRed1")) (((class color) (background light)) (:foreground "steel blue")) (t (:bold t :italic t))) message-header-other-face message-header-name ((((class color) (background dark)) (:foreground "green")) (((class color) (background light)) (:foreground "cornflower blue")) (t (:bold t))) "Face used for displaying header names." message-header-name-face message-header-xheader ((((class color) (background dark)) (:foreground "DeepSkyBlue1")) (((class color) (background light)) (:foreground "blue")) (t (:bold t))) "Face used for displaying X-Header headers." message-header-xheader-face message-separator ((((class color) (background dark)) (:foreground "LightSkyBlue1")) (((class color) (background light)) (:foreground "brown")) (t (:bold t))) "Face used for displaying the separator." message-separator-face message-cited-text ((((class color) (background dark)) (:foreground "LightPink1")) (((class color) (background light)) (:foreground "red")) (t (:bold t))) "Face used for displaying cited text names." message-cited-text-face message-mml ((((class color) (background dark)) (:foreground "MediumSpringGreen")) (((class color) (background light)) (:foreground "ForestGreen")) (t (:bold t))) "Face used for displaying MML." message-mml-face] 6) (defalias 'message-font-lock-make-header-matcher #[(regexp) "\302\303\304\305\306\307\310\311\312BBEFE\313\314!\203\315 !\202 )\207" [regexp form lambda (limit) let ((start (point))) (save-restriction (widen) (goto-char (point-min)) (if (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil t) (setq limit (min limit (match-beginning 0)))) (goto-char start)) and (< start limit) re-search-forward (limit t) featurep bytecomp byte-compile] 10]) #@54 Additional expressions to highlight in Message mode. (defvar message-font-lock-keywords (byte-code "\302\303\304P!\305B\303\306P!\307B\303\310P!\311B\303\312P!\313B\303\314P!\315B\303\316P!\317B\320 \205A \321\232?\205A\322\323 !\324Q\325BC\326\")BBBBBB\207" [content mail-header-separator "[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?" message-font-lock-make-header-matcher "^\\([Tt]o:\\)" ((1 'message-header-name) (2 'message-header-to nil t)) "^\\(^[GBF]?[Cc][Cc]:\\|^[Rr]eply-[Tt]o:\\)" ((1 'message-header-name) (2 'message-header-cc nil t)) "^\\([Ss]ubject:\\)" ((1 'message-header-name) (2 'message-header-subject nil t)) "^\\([Nn]ewsgroups:\\|Followup-[Tt]o:\\)" ((1 'message-header-name) (2 'message-header-newsgroups nil t)) "^\\(X-[A-Za-z0-9-]+:\\|In-Reply-To:\\)" ((1 'message-header-name) (2 'message-header-xheader)) "^\\([A-Z][^: \n ]+:\\)" ((1 'message-header-name) (2 'message-header-other nil t)) append "" "^\\(" regexp-quote "\\)$" (1 'message-separator) (((lambda (limit) (re-search-forward (concat "^\\(" message-cite-prefix-regexp "\\).*") limit t)) (0 'message-cited-text)) ("<#/?\\(multipart\\|part\\|external\\|mml\\|secure\\)[^>]*>" (0 'message-mml)))] 10) (#$ . 53458)) (put 'message-mode 'font-lock-defaults '(message-font-lock-keywords t)) #@115 Alist of mail and news faces for facemenu. The cdr of each entry is a function for applying the face to a region. (defvar message-face-alist '((bold . message-bold-region) (underline . underline-region) (default lambda (b e) (message-unbold-region b e) (ununderline-region b e))) (#$ . 54732)) #@78 Hook run before sending messages. This hook is run quite early when sending. (custom-declare-variable 'message-send-hook 'nil '(#$ . 55032) :group 'message-various :options '(ispell-message) :link '(custom-manual "(message)Various Message Variables") :type 'hook) #@111 Hook run before sending mail messages. This hook is run very late -- just before the message is sent as mail. (custom-declare-variable 'message-send-mail-hook 'nil '(#$ . 55303) :group 'message-various :link '(custom-manual "(message)Various Message Variables") :type 'hook) #@111 Hook run before sending news messages. This hook is run very late -- just before the message is sent as news. (custom-declare-variable 'message-send-news-hook 'nil '(#$ . 55585) :group 'message-various :link '(custom-manual "(message)Various Message Variables") :type 'hook) #@34 Hook run after sending messages. (custom-declare-variable 'message-sent-hook 'nil '(#$ . 55866) :group 'message-various :type 'hook) #@40 Coding system to encode outgoing mail. (defvar message-send-coding-system 'binary (#$ . 56005)) #@247 *Coding system to compose mail. If you'd like to make it possible to share draft files between XEmacs and Emacs, you may use `iso-2022-7bit' for this value at your own risk. Note that the coding-system `iso-2022-7bit' isn't suitable to all data. (defvar message-draft-coding-system mm-auto-save-coding-system (#$ . -56108)) #@196 The limitation of messages sent as message/partial. The lower bound of message size in characters, beyond which the message should be sent in several parts. If it is nil, the size is unlimited. (custom-declare-variable 'message-send-mail-partially-limit '1000000 '(#$ . 56439) :version "21.1" :group 'message-buffers :link '(custom-manual "(message)Mail Variables") :type '(choice (const :tag "unlimited" nil) (integer 1000000))) #@289 *Regexp matching alternative email addresses. The first address in the To, Cc or From headers of the original article matching this variable is used as the From field of outgoing messages. This variable has precedence over posting styles and anything that runs off `message-setup-hook'. (custom-declare-variable 'message-alternative-emails 'nil '(#$ . -56877) :group 'message-headers :link '(custom-manual "(message)Message Headers") :type '(choice (const :tag "Always use primary" nil) regexp)) #@462 A list of hierarchical mail address definitions. Inside each entry, the first address is the "top" address, and subsequent addresses are subaddresses; this is used to indicate that mail sent to the first address will automatically be delivered to the subaddresses. So if the first address appears in the recipient list for a message, the subaddresses will be removed (if present) before the mail is sent. All addresses in this structure should be downcased. (custom-declare-variable 'message-hierarchical-addresses 'nil '(#$ . 57381) :version "22.1" :group 'message-headers :type '(repeat (repeat string))) #@102 Like `mail-user-agent'. Except if it is nil, use Gnus native MUA; if it is t, use `mail-user-agent'. (custom-declare-variable 'message-mail-user-agent 'nil '(#$ . 57998) :version "22.1" :type '(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")) :version "21.1" :group 'message) #@368 Whether to confirm a wide reply to multiple email recipients. If this variable is nil, don't ask whether to reply to all recipients. If this variable is non-nil, pose the question "Reply to all recipients?" before a wide reply to multiple recipients. If the user answers yes, reply to all recipients as usual. If the user answers no, only reply back to the author. (custom-declare-variable 'message-wide-reply-confirm-recipients 'nil '(#$ . 58512) :version "22.1" :group 'message-headers :link '(custom-manual "(message)Wide Reply") :type 'boolean) #@30 *Domain part of Message-Ids. (custom-declare-variable 'message-user-fqdn 'nil '(#$ . -59069) :version "22.1" :group 'message-headers :link '(custom-manual "(message)News Headers") :type '(radio (const :format "%v " nil) (string :format "FQDN: %v"))) #@215 Whether to encode non-ASCII in domain names into ASCII according to IDNA. GNU Libidn, and in particular the elisp package "idna.el" and the external program "idn", must be installed for this functionality to work. (custom-declare-variable 'message-use-idna '(and (condition-case nil (require 'idna) (file-error)) (mm-coding-system-p 'utf-8) (executable-find idna-program) (string= (idna-to-ascii "räksmörgås") "xn--rksmrgs-5wao1o") t) '(#$ . 59327) :version "22.1" :group 'message-headers :link '(custom-manual "(message)IDNA") :type '(choice (const :tag "Ask" ask) (const :tag "Never" nil) (const :tag "Always" t))) #@276 *Whether to generate X-Hashcash: headers. If t, always generate hashcash headers. If `opportunistic', only generate hashcash headers if it can be done without the user waiting (i.e., only asynchronously). You must have the "hashcash" binary installed, see `hashcash-path'. (custom-declare-variable 'message-generate-hashcash '(if (executable-find "hashcash") t) '(#$ . -59954) :group 'message-headers :link '(custom-manual "(message)Mail Headers") :type '(choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "Opportunistic" opportunistic))) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\307B\302\307!\204-\303\307\306\"\210\310B\302\310!\204<\303\310\306\"\210\311B\302\311!\204K\303\311\306\"\210\312B\302\312!\204Z\303\312\306\"\210\313B\302\313!\204i\303\313\306\"\210\314B\302\314!\204x\303\314\306\"\210\306\207" [current-load-list message-sending-message default-boundp set-default "Sending..." message-buffer-list nil message-this-is-news message-this-is-mail message-draft-article message-mime-part message-posting-charset message-inserted-headers] 3) #@64 Regexp matching the delimiter of messages in UNIX mail format. (defvar message-unix-mail-delimiter (byte-code "\301\302\303\304\211\305\306\307\310\311\260 )\207" [time-zone-regexp "\\([A-Z]?[A-Z]?[A-Z][A-Z]\\( DST\\)?\\|[-+]?[0-9][0-9][0-9][0-9]\\|\\) *" "From " "\\([^-\n- ].*\\)?" "\\([^- ]+\\) +" "\\([0-3]?[0-9]\\) +" "\\([0-2][0-9]:[0-5][0-9]\\(:[0-6][0-9]\\)?\\) *" " \\([0-9][0-9]+\\) *" "\\(remote from .*\\)?" "\n"] 11) (#$ . 61103)) #@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: +---+ *|?$" (#$ . 61562)) #@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)) (#$ . 62084)) #@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)) (#$ . 62275)) #@42 Some saved answers when sending message. (defvar message-options nil (#$ . 62558)) #@30 Internal send mail function. (defvar message-send-mail-real-function nil (#$ . 62647)) #@35 The regexp of bogus system names. (defvar message-bogus-system-names "^localhost\\.\\|\\.local$" (#$ . 62740)) #@47 Regular expression that matches a valid FQDN. (custom-declare-variable 'message-valid-fqdn-regexp '(concat "[a-z0-9][-.a-z0-9]+\\." "\\([a-z][a-z]\\|" "aero\\|arpa\\|bitnet\\|biz\\|bofh\\|" "cat\\|com\\|coop\\|edu\\|gov\\|" "info\\|int\\|jobs\\|" "mil\\|mobi\\|museum\\|name\\|net\\|" "org\\|pro\\|travel\\|uucp\\)") '(#$ . 62857) :version "22.1" :group 'message-headers :type 'regexp) (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\311\"\210\300\314\307\"\210\300\315\302\"\210\300\316\317\"\210\300\320\302\"\210\300\321\302\"\210\300\322\317\"\210\300\323\302\"\210\300\324\307\"\210\300\325\326\"\210\300\327\330\"\210\300\331\332\"\210\300\333\332\"\210\300\334\335\"\210\300\336\335\"\210\300\337\340\"\210\300\341\342\"\210\300\343\344\"\210\300\345\346\"\207" [autoload gnus-alive-p "gnus-util" gnus-delay-article "gnus-delay" gnus-extract-address-components gnus-find-method-for-group "gnus" gnus-group-decoded-name "gnus-group" gnus-group-name-charset gnus-group-name-decode gnus-groups-from-server gnus-make-local-hook gnus-open-server "gnus-int" gnus-output-to-mail gnus-output-to-rmail gnus-request-post gnus-select-frame-set-input-focus gnus-server-string idna-to-ascii "idna" message-setup-toolbar "messagexmas" mh-new-draft-name "mh-comp" mh-send-letter nndraft-request-associate-buffer "nndraft" nndraft-request-expire-articles nnvirtual-find-group-art "nnvirtual" rmail-dont-reply-to "mail-utils" rmail-msg-is-pruned "rmail" rmail-output "rmailout"] 3) #@72 Ask QUESTION, displaying remaining args in a temporary buffer if SHOW. (defalias 'message-y-or-n-p '(macro . #[(question show &rest text) "\303\304 \nBBBB\207" [question show text message-talkative-question 'y-or-n-p] 5 (#$ . 64416)])) #@49 Delete the current line (and the next N lines). (defalias 'message-delete-line '(macro . #[(&optional n) "\301\302\303\304\206 \305D\306BBE\207" [n delete-region (progn (beginning-of-line) (point)) progn forward-line 1 ((point))] 5 (#$ . 64659)])) #@72 Non-nil means the mark and region are currently active in this buffer. (defalias 'message-mark-active-p #[nil "\207" [mark-active] 1 (#$ . 64915)]) #@54 Remove double quotes (") from strings in list ELEMS. (defalias 'message-unquote-tokens #[(elems) "\301\302\"\207" [elems mapcar #[(item) "\301\302\"\203\303\304\"\303\305\"P\202\207" [item string-match "^\\(.*\\)\"\\(.*\\)$" match-string 1 2] 4]] 3 (#$ . 65070)]) #@133 Split HEADER into a list of header elements. SEPARATOR is a string of characters to be used as separators. "," is used by default. (defalias 'message-tokenize-header #[(header &optional separator) "\205\230\306\307 \206 \310\"\311\312\211\211\211\313\314!rq\210\315\216\316 \210ec\210eb\210m\204\224\203?\312\202B\317u\210` V\203gm\204[\320!\203g\f\204g\n\204g `{ B\321\225\2020\312f\322=\203t\f?\2020\312f\323=\203\204\f\204\204\311\2020\312f\324=\2030\f\2040\312\2020 \237. \207" [header separator paren elems quoted beg format "[%s]+" "," t nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-enable-multibyte 1 looking-at 0 34 40 41 first regexp #1#] 6 (#$ . 65351)]) #@47 Say whether FILE looks like a Unix mbox file. (defalias 'message-mail-file-mbox-p #[(file) "\303!\205'\304!\205'\305!\205'\306\307!r q\210\310\216\311!\210eb\210\312\n!+\207" [file #1=#:temp-buffer message-unix-mail-delimiter file-exists-p file-readable-p file-regular-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nnheader-insert-file-contents looking-at] 2 (#$ . 66153)]) #@173 The same as `mail-fetch-field', only remove all newlines. The buffer is expected to be narrowed to just the header of the message; see `message-narrow-to-headers-or-head'. (defalias 'message-fetch-field #[(header &optional not-all) "\304\305 \306\n?#\211\205\307\310 \"\203\311\312\304\211 $\202 *\207" [inhibit-point-motion-hooks header not-all value t mail-fetch-field nil string-match "\n[ ]+" replace-match " "] 6 (#$ . 66608)]) #@70 The same as `message-fetch-field', only narrow to the headers first. (defalias 'message-field-value #[(header &optional not-all) "\212\214\302 \210\303 \"*\207" [header not-all message-narrow-to-headers-or-head message-fetch-field] 3 (#$ . 67057)]) #@54 Narrow the buffer to the header on the current line. (defalias 'message-narrow-to-field #[nil "\300 \210\301\302!\203\303y\210\202`\304y\210\305\306\307\310#\203 \311 \202!d}\210eb\207" [beginning-of-line looking-at "[ ]" -1 1 re-search-forward "^[^ \n ]" nil t point-at-bol] 5 (#$ . 67313)]) #@72 Add the HEADERS to the message header, skipping those already present. (defalias 'message-add-header #[(&rest headers) "\205L\302\303\304@\"\204\305\306@\"\210\307\310@\"\214\311 \210\312\313\314 !\315Q\302\316#\204Cdb\210\303\317@\"\203=@c\210\202C@\320\261\210*A\211\204\302\207" [headers hclean nil string-match "^\\([^:]+\\):[ ]*[^ ]" error "Invalid header `%s'" match-string 1 message-narrow-to-headers re-search-forward "^" regexp-quote ":" t "\n$" 10] 5 (#$ . 67619)]) #@51 Evaluate FORMS in the reply buffer, if it exists. (defalias 'message-with-reply-buffer '(macro . #[(&rest forms) "\301\302\303\304BBE\207" [forms when (and (bufferp message-reply-buffer) (buffer-name message-reply-buffer)) with-current-buffer message-reply-buffer] 5 (#$ . 68123)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put message-with-reply-buffer lisp-indent-function 0 edebug-form-spec (body)] 4) #@56 Fetch field HEADER from the message we're replying to. (defalias 'message-fetch-reply-field #[(header) "\302!\205\303!\205rq\210\214\304 \210\305 !*\207" [message-reply-buffer header bufferp buffer-name mail-narrow-to-head message-fetch-field] 2 (#$ . 68551)]) #@73 Remove list identifiers in `gnus-list-identifiers' from string SUBJECT. (defalias 'message-strip-list-identifiers #[(subject) "\303\304!\210;\203 \202\305\306\307#\310\311 \312Q\n\"\2036\n\313\314\224O\315\316\n\"\206-\315\317\n\"\n\314\225\320OQ\2027\n)\207" [gnus-list-identifiers regexp subject require gnus-sum mapconcat identity " *\\|" string-match "\\(\\(\\(Re: +\\)?\\(" " *\\)\\)+\\(Re: +\\)?\\)" 0 1 match-string 3 5 nil] 5 (#$ . 68825)]) #@52 Remove "Re:" from subject lines in string SUBJECT. (defalias 'message-strip-subject-re #[(subject) "\302 \"\203 \303\225\304O\207 \207" [message-subject-re-regexp subject string-match 0 nil] 3 (#$ . 69290)]) #@75 Replacement character used instead of unprintable or not decodable chars. (custom-declare-variable 'message-replacement-char '"." '(#$ . 69507) :group 'message-various :version "22.1" :type '(choice string (const ".") (const "?"))) #@37 Fix non-decodable words in SUBJECT. (defalias 'message-strip-subject-encoded-words #[(subject) "\306\307\310 \211\211$\311\312\313\314!r q\210\315\216)c\210eb\210\316 \312\306#\205+\317\320!\211+*\312\211+,\312\211-.*\203b\f;\203g\f\227\211\203g\321\322\f!!\203g\323\307\324)\"!\322\f!+\204g)\202\313\314!/r/q\210\325\216)c\210eb\210\316 \312\306#\203 \317\320!\227\317\326!,\327\224-\327\225.\321\322\f!!\205\242\322\f!\211+\211+\204z\330\307\331)\f $!\211+\203\304\332\333\334+!\335Q!\210\202z\212-b\210\316\336.\306#\210\332\337!\210\340\341,\"\203\361\342\343 \"\210\316\344.\306#\203\332 !\210\202\341\342\343\n\"\210\316\345.\306#\210\332\n!\210\316\346!\210\332\337!\210)\202z\347ed\"\210\350 +. \207" [case-fold-search message-replacement-char replacement-chars enc-word-re cs-string #1=#:temp-buffer t format "[%s%s%s]" "=\\?\\([^?]+\\)\\?\\([QB]\\)\\?\\([^?]+\\)\\(\\?=\\)" nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward match-string 1 mm-coding-system-p intern y-or-n-p "Decoded Subject \"%s\"\ncontains a valid encoded word. Decode again? " ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) 2 0 mm-read-coding-system "Decoded Subject \"%s\"\ncontains an encoded word. The charset `%s' is unknown or invalid.\nHit RET to replace non-decodable characters with \"%s\" or enter replacement\ncharset: " replace-match "=?" symbol-name "?\\2?\\3\\4\\5" "=\\?\\([^?]+\\)\\?\\([QB]\\)\\?" "" string-match "\\`Q\\'" message "Replacing non-decodable characters with \"%s\"." "\\(=[A-F0-9][A-F0-9]\\)+" "[^?]+" "\\?=" rfc2047-decode-region buffer-string subject have-marker cs-coding q-or-b word-beg word-end #2#] 7 (#$ . 69745)]) #@164 Remove trailing "(was: )" from SUBJECT lines. Leading "Re: " is not stripped by this function. Use the function `message-strip-subject-re' for this. (defalias 'message-strip-subject-trailing-was #[(subject) "\306\211\307 \310=\203\f\202 \"\211\203!\311\211\224O \203+ \306=\2030\202U \310=\203T\312\313\314\315\316\317\320\321\322\n\321\323\324\260\n$\203O\n\202U\202U\n+\207" [message-subject-trailing-was-query query new found message-subject-trailing-was-ask-regexp message-subject-trailing-was-regexp nil string-match ask 0 message-talkative-question y-or-n-p "Strip `(was: )' in subject? " t "Strip `(was: )' in subject " "and use the new one instead?\n\n" "Current subject is: \"" "\"\n\n" "New subject would be: \"" "See the variable `message-subject-trailing-was-query' " "to get rid of this query." subject] 15 (#$ . 71565)]) #@58 Ask for NEW-SUBJECT header, append (was: ). (defalias 'message-change-subject #[(new-subject) "?\206\302\303!!\206\304\305\"?\205P\212\214\306 \210\307\310!)\211\204)\311\312!\202O\304\313\314!\315Q \"?\205O\316 !\317 \210\320 \210`\321y\210`|\210\322\323 \324\260c*\207" [new-subject old-subject zerop string-width string-match "^[ ]*$" message-narrow-to-headers message-fetch-field "Subject" error "No current subject" "^[ ]*" regexp-quote " ]*$" message-strip-subject-re message-goto-subject beginning-of-line 1 "Subject: " " (was: " ")\n"] 6 (#$ . 72476) (list (read-from-minibuffer "New subject: "))]) #@187 Mark some region in the current article with enclosing tags. See `message-mark-insert-begin' and `message-mark-insert-end'. If VERBATIM, use slrn style verbatim marks ("#v+" and "#v-"). (defalias 'message-mark-inserted-region #[(beg end &optional verbatim) "\212b\210 \203\f\305\202 \nc\210 b\210 \203\306\202\fc)\207" [end verbatim message-mark-insert-end beg message-mark-insert-begin "#v-\n" "#v+\n"] 1 (#$ . 73122) "r\nP"]) #@180 Insert FILE at point, marking it with enclosing tags. See `message-mark-insert-begin' and `message-mark-insert-end'. If VERBATIM, use slrn style verbatim marks ("#v+" and "#v-"). (defalias 'message-mark-insert-file #[(file &optional verbatim) "` \203\n\305\202 \nc\210b\210\306 !\210b\210 \203\307\202 \fc)\207" [p verbatim message-mark-insert-end file message-mark-insert-begin "#v-\n" insert-file-contents "#v+\n"] 2 (#$ . 73564) "fFile to insert: \nP"]) #@263 Insert "X-No-Archive: Yes" in the header and a note in the body. The note can be customized using `message-archive-note'. When called with a prefix argument, ask for a text to insert. If you don't want the note in the body, set `message-archive-note' to nil. (defalias 'message-add-archive-header #[nil "\203 \304\305 \306B\"\212\307 \203\310\n!\210 \203 c\210\311 \210\312 !\210\313 )\207" [current-prefix-arg message-archive-note message-signature-separator message-archive-header read-from-minibuffer "Reason for No-Archive: " 0 message-goto-signature re-search-backward newline message-add-header message-sort-headers] 4 (#$ . 74036) nil]) #@128 Mangles FollowUp-To and Newsgroups header to point to TARGET-GROUP. With prefix-argument just set Follow-Up, don't cross-post. (defalias 'message-cross-post-followup-to-header #[(target-group) "\304\305\306\"\210\307 \210\310 \210\203\311\312\313P!\314\306#\203\315\316!\210 \203'\n\203/ \204I\n\203I\317\320 \"\204I\317\312 !\321\322!\"\204I\314\210\313 Pc\210\314\210\317\323 \324Q\321\322!\"\204]\325 Pc\210 \211\207" [message-cross-post-old-target message-cross-post-default current-prefix-arg target-group message-remove-header "Follow[Uu]p-[Tt]o" t message-goto-newsgroups beginning-of-line re-search-forward regexp-quote "," nil replace-match "" string-match "poster" message-fetch-field "Newsgroups" "^[ ]*" "[ ]*$" "\nFollowup-To: "] 4 (#$ . 74697) (list (completing-read "Followup To: " (if (boundp 'gnus-newsrc-alist) gnus-newsrc-alist) nil nil '("poster" . 0) (if (boundp 'gnus-group-history) 'gnus-group-history)))]) #@393 Insert a in message body note about a set Followup or Crosspost. If there have been previous notes, delete them. TARGET-GROUP specifies the group to Followup-To. When CROSS-POST is t, insert note about crossposting. IN-OLD specifies whether TARGET-GROUP is a member of OLD-GROUPS. OLD-GROUPS lists the old-groups the posting would have been made to before the user asked for a Crosspost. (defalias 'message-cross-post-insert-note #[(target-group cross-post in-old old-groups) "\306 \210\307\310P\311\312#\306 \210\307\310\313\n!\314Q \312#\203(\315 \210`\316y\210`|\210\202\306 \210\307\310\313 !\314Q \312#\203E\315 \210`\316y\210`|\210\202+\306 \203N\307\f!\210 \204_\203_\317\320\"\203h \321Qc\202n\n\321Qc)\207" [mail-header-separator head message-cross-post-note message-followup-to-note message-signature-separator in-old message-goto-signature re-search-backward "^" nil t regexp-quote ".*" beginning-of-line 1 string-match "^[ ]*poster[ ]*$" "\n" cross-post target-group] 4 (#$ . 75652)]) #@116 Crossposts message and set Followup-To to TARGET-GROUP. With prefix-argument just set Follow-Up, don't cross-post. (defalias 'message-cross-post-followup-to #[(target-group) "?\206\306\307!!\206\310\311\"?\205\\\212\312\313!\310\314! \206#\315\" \204/\316\317!\202[\n\203@\310\320\314!\321Q \"?\205[\322!\210 \f\203N \203W\f?\205X \205X\323\n $+\207" [target-group old-groups in-old message-cross-post-note-function message-cross-post-default current-prefix-arg zerop string-width string-match "^[ ]*$" message-fetch-field "Newsgroups" regexp-quote "" error "No current newsgroup" "^[ ]*" "[ ]*$" message-cross-post-followup-to-header t] 5 (#$ . 76682) (list (completing-read "Followup To: " (if (boundp 'gnus-newsrc-alist) gnus-newsrc-alist) nil nil '("poster" . 0) (if (boundp 'gnus-group-history) 'gnus-group-history)))]) #@69 Replace contents of To: header with contents of Cc: or Bcc: header. (defalias 'message-reduce-to-to-cc #[nil "\214\302 \210\303\304!)\305\211\204\214\302 \210\303\306!)\211\203\307 \205F\212\310 \210\311 \210`\312y\210`|\210\313 \314Qc\210\214\302 \210\315\203C\306\202D\304!**\207" [bcc cc-content message-narrow-to-headers message-fetch-field "cc" nil "bcc" t message-goto-to beginning-of-line 1 "To: " "\n" message-remove-header] 4 (#$ . 77539) nil]) #@179 Remove HEADER in the narrowed buffer. If IS-REGEXP, HEADER is a regular expression. If FIRST, only remove the first instance of the header. Return the number of headers removed. (defalias 'message-remove-header #[(header &optional is-regexp first reverse) "eb\210\203 \202\306\307 !\310Q\311\312\313m\204l\n\204l\203,\314 !?\202/\314 !\203T\fT\203<\312`\315y\210\316\317\313\312#\203N\311\224b\202Od|\210\202\315y\210\316\317\313\312#\203f\311\224b\210\202db\210\202\f,\207" [is-regexp header last case-fold-search number regexp "^" regexp-quote ":" 0 t nil looking-at 1 re-search-forward "^[^ ]" reverse first] 5 (#$ . 78012)]) #@64 Remove the first instance of HEADER if there is more than one. (defalias 'message-remove-first-header #[(header) "\303\304\305!\306Q\212eb\210\307 \310\311#\203\nT\202 )\n\312V\205/\313\310\311#\210\nS\211\202*\207" [header regexp count 0 "^" regexp-quote ":" re-search-forward nil t 1 message-remove-header] 5 (#$ . 78678)]) #@47 Narrow the buffer to the head of the message. (defalias 'message-narrow-to-headers #[nil "~\210eb\301\302\303!\304Q\305\306#\203\307\224\202d}\210eb\207" [mail-header-separator re-search-forward "^" regexp-quote "\n" nil t 0] 5 (#$ . 79022)]) #@46 Like `message-narrow-to-head'. Don't widen. (defalias 'message-narrow-to-head-1 #[nil "eb\300\301\302\303#\203`S\202d}\210eb\207" [search-forward "\n\n" nil 1] 5 (#$ . 79276)]) #@105 Narrow the buffer to the head of the message. Point is left at the beginning of the narrowed-to region. (defalias 'message-narrow-to-head #[nil "~\210\300 \207" [message-narrow-to-head-1] 1 (#$ . 79465)]) #@47 Narrow the buffer to the head of the message. (defalias 'message-narrow-to-headers-or-head #[nil "~\210eb\301\302\303!\304Q\305\306#\203\307\225\206\310\224\202d}\210eb\207" [mail-header-separator re-search-forward "\\(\n\\)\n\\|^\\(" regexp-quote "\n\\)" nil t 1 2] 5 (#$ . 79676)]) #@57 Say whether the current buffer contains a news message. (defalias 'message-news-p #[nil "?\205 \206\212\214\302 \210\303\304!\205\303\305!?*\207" [message-this-is-mail message-this-is-news message-narrow-to-headers message-fetch-field "newsgroups" "posted-to"] 2 (#$ . 79973)]) #@57 Say whether the current buffer contains a mail message. (defalias 'message-mail-p #[nil "?\205 \206\212\214\302 \210\303\304!\206\303\305!\206\303\306!*\207" [message-this-is-news message-this-is-mail message-narrow-to-headers message-fetch-field "to" "cc" "bcc"] 2 (#$ . 80264)]) #@45 Say whether we need to insert a MFT header. (defalias 'message-subscribed-p #[nil "\206 \206 \n\206 \207" [message-subscribed-regexps message-subscribed-addresses message-subscribed-address-file message-subscribed-address-functions] 1 (#$ . 80560)]) #@41 Go to the beginning of the next header. (defalias 'message-next-header #[nil "\300 \210m\204\n\301u\210\302\303\304\305#\203\300 \202db?\207" [beginning-of-line 1 re-search-forward "^[^ ]" nil t] 4 (#$ . 80822)]) #@61 Sort the buffer as headers using `message-rank' text props. (defalias 'message-sort-headers-1 #[nil "eb\210\300\301!\210\302\303\304\305\306$\207" [require sort sort-subr nil message-next-header #[nil "\300 \210o?\205\n\301u\207" [message-next-header -1] 1] #[nil "\300`\301\"\206\302\207" [get-text-property message-rank 10000] 3]] 5 (#$ . 81047)]) #@85 Sort the headers of the current message according to `message-header-format-alist'. (defalias 'message-sort-headers #[nil "\212\214GT\303\304 \210\305\306\303\307#\2039\310\311\224\311\224T\312\313\311\224\311\225S{!\236>G\211\2032\n Z\2024\nT$\210\202 *\314 *\207" [message-header-format-alist rank max nil message-narrow-to-headers re-search-forward "^[^ \n]+:" t put-text-property 0 message-rank intern message-sort-headers-1] 7 (#$ . 81406) nil]) #@31 Kill the address under point. (defalias 'message-kill-address #[nil "`\301 \210\302`\")\207" [start message-skip-to-next-address kill-region] 3 (#$ . 81873) nil]) (autoload 'Info-goto-node "info") #@212 Display the Message manual. Prefixed with one \[universal-argument], display the Emacs MIME manual. With two \[universal-argument]'s, display the EasyPG or PGG manual, depending on the value of `mml2015-use'. (defalias 'message-info #[(&optional arg) "\302\303\304\305=\203\306\307!\210 \202+\310=\203\311\202+\312>\204*9\203*\202+\313\"!\207" [arg mml2015-use Info-goto-node format "(%s)Top" 16 require mml2015 4 emacs-mime (nil t) message] 5 (#$ . 82079) "p"]) (byte-code "\301B\303\301!\204\304\301\305\"\210 \204\321\306 \307 \n\"\210\310 \311\312#\210\310 \313\314#\210\310 \315\316#\210\310 \317\320#\210\310 \321\322#\210\310 \323\324#\210\310 \325\326#\210\310 \327\330#\210\310 \331\332#\210\310 \333\334#\210\310 \335\336#\210\310 \337\340#\210\310 \341\342#\210\310 \343\344#\210\310 \345\346#\210\310 \347\350#\210\310 \351\352#\210\310 \353\354#\210\310 \355\356#\210\310 \357\360#\210\310 \361\362#\210\310 \363\364#\210\310 \365\366#\210\310 \367\370#\210\310 \371\372#\210\310 \373\374#\210\310 \375\376#\210\310 \377\201@#\210\310 \201A\201B#\210\310 \201C\346#\210\310 \201D\201E#\210\310 \201F\201G#\210\310 \201H\201I#\210\310 \201J\201K#\210\310 \201L\201M#\210\310 \201N\201O#\210\310 \201P\201Q#\210\310 \201R\201S#\210\310 \201T\201U#\210\310 \201V\201W#\210\310 \201X\201Y#\210\310 \201Z\201[#\210\310 \201\\\201]#\210\310 \201^\201_#\210\310 \201`\201a#\210\310 \201b\201c#\210\310 \201d\201e#\210\310 \201f\201g#\210\310 \201h\201i#\210\310 \201j\201k#\210\310 \201l\201m#\210\310 \201n\201o#\210\310 \201p\201q#\210\310 \201r\201s#\210\310 \201t\201u#\210\305\207" [current-load-list message-mode-map text-mode-map default-boundp set-default nil 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 "\273" comment-region "\356" message-display-abbrev] 4) #@15 Message Menu. (defvar message-mode-menu nil (#$ . 85460)) (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320BBBB\"\312\313\321\322\316\323\324BBBB\"\325\326\327\312\313\330\331\332BB\"\333\312\313\334\335\316\336\337BBBB\"\312\313\340\341\342BB\"\333\312\313\343\344\345BB\"\312\313\346\347\350BB\"\312\313\351\352\353BB\"\312\313\354\355\356BB\"\333\312\313\357\360\361BB\"\257$\207" [message-mode-map easy-menu-do-define message-mode-menu "Message Menu." "Message" ["Yank Original" message-yank-original message-reply-buffer] ["Fill Yanked Message" message-fill-yanked-message t] ["Insert Signature" message-insert-signature t] ["Caesar (rot13) Message" message-caesar-buffer-body t] ["Caesar (rot13) Region" message-caesar-region (message-mark-active-p)] apply vector "Elide Region" message-elide-region :active (message-mark-active-p) (:help "Replace text in region with an ellipsis") "Delete Outside Region" message-delete-not-region (message-mark-active-p) (:help "Delete all quoted text outside region") ["Kill To Signature" message-kill-to-signature t] ["Newline and Reformat" message-newline-and-reformat t] ["Rename buffer" message-rename-buffer t] "Spellcheck" ispell-message (:help "Spellcheck this message") "----" "Insert Region Marked" message-mark-inserted-region (message-mark-active-p) (:help "Mark region with enclosing tags") "Insert File Marked..." message-mark-insert-file (:help "Insert file at point marked with enclosing tags") "Send Message" message-send-and-exit (:help "Send this message") "Postpone Message" message-dont-send (:help "File this draft message and exit") "Send at Specific Time..." gnus-delay-article (:help "Ask, then arrange to send message at that time") "Kill Message" message-kill-buffer (:help "Delete this message without sending") "Message manual" message-info (:help "Display the Message manual")] 30) #@2  (defvar message-mode-field-menu nil (#$ . 87347)) (byte-code "\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322BB\"\316\317\323\324\325BB\"\316\317\326\327\330BB\"\331\332\333\334\335\336\337\340\341\342\331\316\317\343\344\345BB\"\316\317\346\347\350BB\"\331\351\352\316\317\353\354\355BB\"\356BBBBBBBBBBBBBBBBBBBBBBBBBBBBB$\210\357 B\360\357!\204z\361\357\362\"\210\362\207" [message-mode-map current-load-list easy-menu-do-define message-mode-field-menu "" "Field" ["To" message-goto-to t] ["From" message-goto-from t] ["Subject" message-goto-subject t] ["Change subject..." message-change-subject t] ["Cc" message-goto-cc t] ["Bcc" message-goto-bcc t] ["Fcc" message-goto-fcc t] ["Reply-To" message-goto-reply-to t] apply vector "Flag As Important" message-insert-importance-high (:help "Mark this message as important") "Flag As Unimportant" message-insert-importance-low (:help "Mark this message as unimportant") "Request Receipt" message-insert-disposition-notification-to (:help "Request a receipt notification") "----" ["Summary" message-goto-summary t] ["Keywords" message-goto-keywords t] ["Newsgroups" message-goto-newsgroups t] ["Fetch Newsgroups" message-insert-newsgroups t] ["Followup-To" message-goto-followup-to t] ["Crosspost / Followup-To..." message-cross-post-followup-to t] ["Distribution" message-goto-distribution t] ["Expires" message-insert-expires t] ["X-No-Archive" message-add-archive-header t] "Fetch To" message-insert-to (:help "Insert a To header that points to the author.") "Fetch To and Cc" message-insert-wide-reply (:help "Insert To and Cc headers as if you were doing a wide reply.") ["Send to list only" message-to-list-only t] ["Mail-Followup-To" message-goto-mail-followup-to t] "Unsubscribed list post" message-generate-unsubscribed-mail-followup-to (:help "Insert a reasonable `Mail-Followup-To:' header.") (["Reduce To: to Cc:" message-reduce-to-to-cc t] "----" ["Sort Headers" message-sort-headers t] ["Encode non-ASCII domain names" message-idna-to-ascii-rhs t] ["Show Hidden Headers" widen t] ["Goto Body" message-goto-body t] ["Goto Signature" message-goto-signature t]) message-tool-bar-map default-boundp set-default nil] 37) #@440 Strip special properties from the message buffer. Emacs has a number of special text properties which can break message composing in various ways. If this option is set, message will strip these properties from the message composition buffer. However, some packages requires these properties to be present in order to work. If you use one of these packages, turn this option off, and hope the message composition doesn't break too bad. (custom-declare-variable 'message-strip-special-text-properties 't '(#$ . 89556) :version "22.1" :group 'message-various :link '(custom-manual "(message)Various Message Variables") :type 'boolean) #@140 Property list of with properties forbidden in message buffers. The values of the properties are ignored, only the property names are used. (defconst 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) (#$ . 90199)) #@349 Return t when tamago version 4 is not in use at the cursor position. Tamago version 4 is a popular input method for writing Japanese text. It uses the properties `intangible', `invisible', `modification-hooks' and `read-only' when translating ascii or kana text to kanji text. These properties are essential to work, so we should never strip them. (defalias 'message-tamago-not-in-use-p #[(pos) "\301\302!\205&\302J\205&\303\304\"\305>\206&\303\306\"\206&\303\307\"\206&\303\310\"?\207" [pos boundp egg-modefull-mode get-text-property intangible (its-part-1 its-part-2) egg-end egg-lang egg-start] 3 (#$ . 90575)]) (defalias 'message-mail-alias-type-p #[(type) ":\204  =\207 >\207" [message-mail-alias-type type] 2]) (put 'message-mail-alias-type-p 'byte-optimizer 'byte-compile-inline-expand) #@186 Strip forbidden properties between BEGIN and END, ignoring the third arg. This function is intended to be called from `after-change-functions'. See also `message-forbidden-properties'. (defalias 'message-strip-forbidden-properties #[(begin end &optional old-length) "\306 :\204 =\202 >)\203\n >\203\307 \210\f\2055\310 !\2055\311\312\f \313 #*\207" [type message-mail-alias-type this-command message-self-insert-commands message-strip-special-text-properties begin ecomplete message-display-abbrev message-tamago-not-in-use-p nil t remove-text-properties inhibit-read-only buffer-read-only end message-forbidden-properties] 4 (#$ . 91389)]) (byte-code "\302\303N\204\304\302\303\305\306!#\210\307\310!\204\304\310\311\312#\210\310B\313\310!\204*\314\310\315 \"\210\310\303N\2048\304\310\303\305\316!#\210\307\317!\204D\304\317\311\312#\210\317B\313\317!\204T\314\317\320 \"\210\317\303N\204b\304\317\303\305\321!#\210\304\301\311\312#\210\301B\313\301!\204|\314\301\322\301\323\"\210 \"\210\301\303N\204\212\304\301\303\305\324!#\210\304\312\325\326#\207" [current-load-list message-mode-abbrev-table message-mode-hook variable-documentation put purecopy "Hook run when entering Message mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp message-mode-map definition-name message-mode default-boundp set-default make-sparse-keymap "Keymap for `message-mode'." message-mode-syntax-table make-syntax-table "Syntax table for `message-mode'." define-abbrev-table nil "Abbrev table for `message-mode'." derived-mode-parent text-mode] 5) #@2536 Major mode for editing mail and news to be sent. Like Text Mode but with these additional commands:\ C-c C-s `message-send' (send the message) C-c C-c `message-send-and-exit' C-c C-d Postpone sending the message C-c C-k Kill the message C-c C-f move to a header field (and create it if there isn't): C-c C-f C-t move to To C-c C-f C-s move to Subject C-c C-f C-c move to Cc C-c C-f C-b move to Bcc C-c C-f C-w move to Fcc C-c C-f C-r move to Reply-To C-c C-f C-u move to Summary C-c C-f C-n move to Newsgroups C-c C-f C-k move to Keywords C-c C-f C-d move to Distribution C-c C-f C-o move to From ("Originator") C-c C-f C-f move to Followup-To C-c C-f C-m move to Mail-Followup-To C-c C-f C-e move to Expires C-c C-f C-i cycle through Importance values C-c C-f s change subject and append "(was: )" C-c C-f x crossposting with FollowUp-To header and note in body C-c C-f t replace To: header with contents of Cc: or Bcc: C-c C-f a Insert X-No-Archive: header and a note in the body C-c C-t `message-insert-to' (add a To header to a news followup) C-c C-l `message-to-list-only' (removes all but list address in to/cc) C-c C-n `message-insert-newsgroups' (add a Newsgroup header to a news reply) C-c C-b `message-goto-body' (move to beginning of message text). C-c C-i `message-goto-signature' (move to the beginning of the signature). C-c C-w `message-insert-signature' (insert `message-signature-file' file). C-c C-y `message-yank-original' (insert current message, if any). C-c C-q `message-fill-yanked-message' (fill what was yanked). C-c C-e `message-elide-region' (elide the text between point and mark). C-c C-v `message-delete-not-region' (remove the text outside the region). C-c C-z `message-kill-to-signature' (kill the text up to the signature). C-c C-r `message-caesar-buffer-body' (rot13 the message body). C-c C-a `mml-attach-file' (attach a file as MIME). C-c C-u `message-insert-or-toggle-importance' (insert or cycle importance). C-c M-n `message-insert-disposition-notification-to' (request receipt). C-c M-m `message-mark-inserted-region' (mark region with enclosing tags). C-c M-f `message-mark-insert-file' (insert file marked with enclosing tags). M-RET `message-newline-and-reformat' (break the line and reformat). In addition to any hooks its parent mode `text-mode' might have run, this mode runs the hook `message-mode-hook', as the final step during initialization. \{message-mode-map} (defalias 'message-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324 !\210\325\f!\210@ABA\306\326!\210\327\306\330!\210\327\306\331!\210\327\306\332!\210\327\306\333!\210\327\306\334!\210\327\306\335!\210\327\307C\306\336!\210\337\306\340!\210\307 \306\341!\210\327!\306\342!\210\306\343!\210\306\344!\210\306\345!\210\327%\306\346!\210\327&\306\347!\210\350'\351 \210D\203\306DE\352 \210F\203\340\306\353!\210F+\306\354!\210\355\356F!\357Q,\306\360!\210\3610\362\363!\203\365\306\363!\210\364 3\365G \"\210\365H \"\210\366\367!\210\370\367\371\327\372$\210\373IJ:\204JI=\202\"IJ>)\203>\374\375!\2032\375 \210\202]\374\376!\203]\376 \210\202]\377IJ:\204OJI=\202TIJ>)\203]\201M \210K\204g\201N \210\201O \204s\201P \210\306\201L!\210\327L\201Q \210)\201R\201S!\207" [delay-mode-hooks major-mode mode-name message-mode-map message-mode-syntax-table parent make-local-variable t text-mode message-mode "Message" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table message-reply-buffer nil message-inserted-headers message-send-actions message-exit-actions message-kill-actions message-postpone-actions message-draft-article facemenu-add-face-function #[(face end) " \236A\211\203\n` \"\210\202\305\306\f#\210)\307\207" [face message-face-alist face-fun end mode-name error "Face %s not configured for %s mode" ""] 5] facemenu-remove-face-function message-reply-headers message-newsreader message-mailer message-post-method message-sent-message-via message-checksum message-mime-part 0 message-setup-fill-variables turn-on-auto-fill comment-start comment-start-skip "^" regexp-quote "[ ]*" font-lock-defaults (message-font-lock-keywords t) boundp tool-bar-map message-make-tool-bar easy-menu-add gnus-make-local-hook after-change-functions add-hook message-strip-forbidden-properties local abbrev fboundp mail-abbrevs-setup mail-aliases-setup ecomplete message-mode-abbrev-table local-abbrev-table text-mode-abbrev-table buffer-offer-save message-fill-column fill-column message-yank-prefix message-mode-menu message-mode-field-menu type message-mail-alias-type buffer-file-name indent-tabs-mode ecomplete-setup message-set-auto-save-file-name buffer-base-buffer mm-enable-multibyte mml-mode run-mode-hooks message-mode-hook] 6 (#$ . 93054) nil]) #@31 Setup message fill variables. (defalias 'message-setup-fill-variables #[nil "\306\300!\210\307\306\310!\210\306\311!\210\306\312!\210\313\301!\204\314\306\301!\210\315\n\316Q\317\f!\320\321\322\323 \320\324 \320\325\260 \211  \326\nQ\n \326 Q)\306\327!\210\314\306\330!\210\331\205\\\211\207" [fill-paragraph-function adaptive-fill-first-line-regexp message-cite-prefix-regexp quote-prefix-regexp mail-header-separator page-delimiter make-local-variable message-fill-paragraph paragraph-separate paragraph-start adaptive-fill-regexp boundp nil "\\(" "\\)[ ]*" regexp-quote "$\\|" "[ ]*$\\|" "-- $\\|" "---+$\\|" ".*wrote:$\\|" "<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)" "\\|" auto-fill-inhibit-regexp normal-auto-fill-function message-do-auto-fill auto-fill-function] 12 (#$ . 98163)]) #@30 Move point to the To header. (defalias 'message-goto-to #[nil "\300\301!\207" [message-position-on-field "To"] 2 (#$ . 98993) nil]) #@32 Move point to the From header. (defalias 'message-goto-from #[nil "\300\301!\207" [message-position-on-field "From"] 2 (#$ . 99131) nil]) #@35 Move point to the Subject header. (defalias 'message-goto-subject #[nil "\300\301!\207" [message-position-on-field "Subject"] 2 (#$ . 99275) nil]) #@30 Move point to the Cc header. (defalias 'message-goto-cc #[nil "\300\301\302\"\207" [message-position-on-field "Cc" "To"] 3 (#$ . 99428) nil]) #@32 Move point to the Bcc header. (defalias 'message-goto-bcc #[nil "\300\301\302\303#\207" [message-position-on-field "Bcc" "Cc" "To"] 4 (#$ . 99576) nil]) #@31 Move point to the Fcc header. (defalias 'message-goto-fcc #[nil "\300\301\302\303#\207" [message-position-on-field "Fcc" "To" "Newsgroups"] 4 (#$ . 99736) nil]) #@36 Move point to the Reply-To header. (defalias 'message-goto-reply-to #[nil "\300\301\302\"\207" [message-position-on-field "Reply-To" "Subject"] 3 (#$ . 99903) nil]) #@38 Move point to the Newsgroups header. (defalias 'message-goto-newsgroups #[nil "\300\301!\207" [message-position-on-field "Newsgroups"] 2 (#$ . 100074) nil]) #@40 Move point to the Distribution header. (defalias 'message-goto-distribution #[nil "\300\301!\207" [message-position-on-field "Distribution"] 2 (#$ . 100237) nil]) #@39 Move point to the Followup-To header. (defalias 'message-goto-followup-to #[nil "\300\301\302\"\207" [message-position-on-field "Followup-To" "Newsgroups"] 3 (#$ . 100406) nil]) #@44 Move point to the Mail-Followup-To header. (defalias 'message-goto-mail-followup-to #[nil "\300\301\302\"\207" [message-position-on-field "Mail-Followup-To" "To"] 3 (#$ . 100590) nil]) #@36 Move point to the Keywords header. (defalias 'message-goto-keywords #[nil "\300\301\302\"\207" [message-position-on-field "Keywords" "Subject"] 3 (#$ . 100781) nil]) #@35 Move point to the Summary header. (defalias 'message-goto-summary #[nil "\300\301\302\"\207" [message-position-on-field "Summary" "Subject"] 3 (#$ . 100953) nil]) #@50 Move point to the beginning of the message body. (defalias 'message-goto-body #[(&optional interactivep) "\203 \302\303!\203 \304 \210eb\210\305\306 \306Q\307\310#\206 \311\312\307\310#\207" [interactivep mail-header-separator looking-at "[ ]*\n" expand-abbrev search-forward "\n" nil t search-forward-regexp "[^:]+:\\([^\n]\\|\n[ ]\\)+\n\n"] 4 (#$ . 101122) (list t)]) #@43 Return t if point is in the message body. (defalias 'message-in-body-p #[nil "\212\301 \210`)`Y)\207" [body message-goto-body] 2 (#$ . 101504)]) #@39 Move point to the end of the headers. (defalias 'message-goto-eoh #[nil "\300 \210\301y\207" [message-goto-body -1] 1 (#$ . 101657) nil]) #@126 Move point to the beginning of the message signature. If there is no signature in the article, go to the end and return nil. (defalias 'message-goto-signature #[nil "eb\210\301\302\303#\203\304y\207db\210\302\207" [message-signature-separator re-search-forward nil t 1] 4 (#$ . 101802) nil]) #@533 Insert a reasonable MFT header in a post to an unsubscribed list. When making original posts to a mailing list you are not subscribed to, you have to type in a MFT header by hand. The contents, usually, are the addresses of the list and your own address. This function inserts such a header automatically. It fetches the contents of the To: header in the current mail buffer, and appends the current `user-mail-address'. If the optional argument INCLUDE-CC is non-nil, the addresses in the Cc: header are also put into the MFT. (defalias 'message-generate-unsubscribed-mail-followup-to #[(&optional include-cc) "\304\211\214\305 \210\306\307!\210\n\205\310\311!\211\203!\310\312!\313Q\202$\310\312!)\314 \210 \315 Qc*\207" [cc tos include-cc user-mail-address nil message-narrow-to-headers message-remove-header "Mail-Followup-To" message-fetch-field "Cc" "To" "," message-goto-mail-followup-to ", "] 4 (#$ . 102104) "P"]) #@180 Insert a To header that points to the author of the article being replied to. If the original author requested not to be sent mail, don't insert unless the prefix FORCE is given. (defalias 'message-insert-to #[(&optional force) "\304\305!\211\205\227\306\232\206\227\307\232\304\310!\206#\304\311!\206#\304\312! \2038\n\2038\313 \2035\314\2026\315!\210 \203D\n\204D\316\317!\210\n\205W \204Q ?\205W\320\321\nBC!+\207" [mct dont to force message-fetch-reply-field "mail-copies-to" "never" "nobody" "mail-reply-to" "reply-to" "from" message "Ignoring the user request not to have copies sent via mail" "Complying with the user request not to have copies sent via mail" error "No mail address in the article" message-carefully-insert-headers To] 4 (#$ . 103047) "P"]) #@61 Insert To and Cc headers as if you were doing a wide reply. (defalias 'message-insert-wide-reply #[nil "\302!\205\303!\205rq\210\304\305!)\306 !)\207" [message-reply-buffer headers bufferp buffer-name message-get-reply-headers t message-carefully-insert-headers] 2 (#$ . 103838) nil]) #@229 List of lists of header synonyms. E.g., if this list contains a member list with elements `Cc' and `To', then `message-carefully-insert-headers' will not insert a `To' header when the message is already `Cc'ed to the recipient. (custom-declare-variable 'message-header-synonyms ''((To Cc Bcc) (Original-To)) '(#$ . 104138) :version "22.1" :group 'message-headers :link '(custom-manual "(message)Message Headers") :type '(repeat sexp)) #@185 Insert the HEADERS, an alist, into the message buffer. Does not insert the headers when they are already present there or in the synonym headers, defined by `message-header-synonyms'. (defalias 'message-carefully-insert-headers #[(headers) "\306\211\203\315\n@\307 @! A \306\310\306:\203J@ @>\203=\306\211\202>\310\203JA\211\202!,\211\306\211\310\306:\203\225@\311\307!!\211\203\210\312\f\"\203\210\306\211\202\211\310\203\225A\211\202`-\211\203\250\313\314\f#\210\202\305\315 !\203\302\311 !\211\203\302\312\316\"\204\302\317c\210\fc\210,\nA\211\204*\306\207" [headers header #1=#:--cl-dolist-temp-- header-name new-header message-header-synonyms nil symbol-name t mail-fetch-field string-match message "already have `%s' in `%s'" message-position-on-field "\\` *\\'" ", " #2=#:--cl-var-- synonym #3=#:--cl-var-- #4=#:--cl-var-- synonyms #5=#:--cl-var-- old-header #6=#:--cl-var-- #7=#:--cl-var--] 5 (#$ . 104580)]) #@48 Widen the reply to include maximum recipients. (defalias 'message-widen-reply #[nil "\304!\205\305!\205rq\210\306\307!)\212\214\310 \210 \311\211\203A @\312\313\n@!!\210eb\210\313\n@!\314\nA\315\261\210 A\211\204\"-\311\207" [message-reply-buffer follow-to elem #1=#:--cl-dolist-temp-- bufferp buffer-name message-get-reply-headers t message-narrow-to-headers nil message-remove-header symbol-name ": " "\n"] 5 (#$ . 105601) nil]) #@65 Insert the Newsgroups header from the article being replied to. (defalias 'message-insert-newsgroups #[nil "\300\301!\203\302\303!\203\304\305\302\303!\"\204\306c\210\307\303!\206\310c\207" [message-position-on-field "Newsgroups" mail-fetch-field "newsgroups" string-match "\\` *\\'" "," message-fetch-reply-field ""] 4 (#$ . 106053) nil]) #@77 Delete everything in the body of the current message outside of the region. (defalias 'message-delete-not-region #[(beg end) "\304\212 b\210`\305 \210`=\204\306\n!\203\307\310! b\210`\311 \204&`\202*\312y\210`|\210\313c\210 b\210 \314 \210\315y\210`|\210\203Cc\210*\311 \205K\312y\207" [citeprefix beg message-cite-prefix-regexp end nil beginning-of-line looking-at match-string 0 message-goto-signature -2 "\n" message-goto-body 2] 2 (#$ . 106407) "r"]) #@138 Kill all text up to the signature. If a numeric argument or prefix arg is given, leave that number of lines before the signature intact. (defalias 'message-kill-to-signature #[(&optional arg) "\212\214`\211d}\210\302 \210m\204# \203 \247\203 \303 Zy\210\202#\303\210`U?\2056\304`\"\210n?\2056\305c+\207" [point arg message-goto-signature -1 kill-region "\n"] 4 (#$ . 106881) "P"]) #@98 Insert four newlines, and then reformat if inside quoted text. Prefix arg means justify as well. (defalias 'message-newline-and-reformat #[(&optional arg not-break) "\306\211\211\211\211\211\211`\307 \210`\211 U\2037m\2047\310!\2047\310!\2037\311y\210\202\310!\203O\312\313!\313\225b\210\310\314!\210\312\313!\203l\204l \204l \fZGW\203l\306\211\203\351\311y\210m\204\253\310!\204\253\310!\203\253\312\313!\232\203\253\313\225b\210\310\314!\210\nG\312\313!GV\203\245\312\313!\311y\210\202t`\fb\210o\204 \315y\210\310!\204 \310!\203 \312\313!\232\203 `\313\225b\210\310\314!\210\nG\312\313!GV\203\260\312\313!\202\260m\204\310!\204\310!\204\311y\210\202\351`\fb\210o\204 \315y\210\310!\204 \310!\204 `\202 b\210\214\f }\210\2032\306\202_ \203<\316 \210\202B\316 \210\316 \210`\316 \210\316 \210`\317\314!|\210\203_ \204_\n\261\210\320 \210\203{\321\nP!\211\322!\210*\202\200\322!\210 \205\206 b.\207" [fill-paragraph-function bolp leading-space end beg point nil beginning-of-line looking-at 1 match-string 0 "[ ]*" -1 newline re-search-forward undo-boundary regexp-quote fill-paragraph quoted not-break message-cite-prefix-regexp paragraph-start paragraph-separate adaptive-fill-regexp adaptive-fill-first-line-regexp arg] 8 (#$ . 107279) (list (if current-prefix-arg 'full))]) #@171 Message specific function to fill a paragraph. This function is used as the value of `fill-paragraph-function' in Message buffers and is not meant to be called directly. (defalias 'message-fill-paragraph #[(&optional arg) "\302\300!\205?\205\303 \203\304 \210\202\305 \306\"\210\306\207" [filladapt-mode arg boundp message-point-in-header-p message-fill-field message-newline-and-reformat t] 3 (#$ . 108690) (list (if current-prefix-arg 'full))]) #@37 Return t if point is in the header. (defalias 'message-point-in-header-p #[nil "\212\301\302\303!\304Q\305\306#)?\207" [mail-header-separator re-search-backward "^" regexp-quote "\n" nil t] 4 (#$ . 109152)]) #@56 Like `do-auto-fill', but don't fill in message header. (defalias 'message-do-auto-fill #[nil "\300 ?\205\301 \207" [message-point-in-header-p do-auto-fill] 1 (#$ . 109367)]) #@74 Insert a signature. See documentation for variable `message-signature'. (defalias 'message-insert-signature #[(&optional force) "\204 \306=\203\212db\210\307\n\310\311#)?\202;\204$ \203$\311\202;\312!\203/ \202;<\203:\313!\202;\310 ;\203G \202i \311=\205i \205i\203d\314 !\204d\315 \"\202e \316\f!\211\205\234db\210n\204x\317c\210\203\200\317c\210\320c\210 \311=\203\220\321\f!\210\202\223 c\210db\210n\206\234\317c*\207" [message-signature force message-signature-separator signature signature-file message-signature-file 0 re-search-backward nil t functionp eval file-name-directory nnheader-concat file-exists-p "\n" "-- \n" insert-file-contents message-signature-directory message-signature-insert-empty-line] 5 (#$ . 109549) (list 0)]) #@45 Insert header to mark message as important. (defalias 'message-insert-importance-high #[nil "\212\214\300 \210\301\302!\210)\303 \210\304c)\207" [message-narrow-to-headers message-remove-header "Importance" message-goto-eoh "Importance: high\n"] 2 (#$ . 110339) nil]) #@47 Insert header to mark message as unimportant. (defalias 'message-insert-importance-low #[nil "\212\214\300 \210\301\302!\210)\303 \210\304c)\207" [message-narrow-to-headers message-remove-header "Importance" message-goto-eoh "Importance: low\n"] 2 (#$ . 110613) nil]) #@152 Insert a "Importance: high" header, or cycle through the header values. The three allowed values according to RFC 1327 are `high', `normal' and `low'. (defalias 'message-insert-or-toggle-importance #[nil "\212\302\303\214\304 \210\305\306!\211\203+\307\306!\210\302\230\203\310\202*\310\230\203)\311\202*\302)\312 \210\313\314 \"c+\207" [cur new "high" nil message-narrow-to-headers message-fetch-field "Importance" message-remove-header "low" "normal" message-goto-eoh format "Importance: %s\n"] 3 (#$ . 110888) nil]) #@119 Request a disposition notification (return receipt) to this message. Note that this should not be used in newsgroups. (defalias 'message-insert-disposition-notification-to #[nil "\212\214\300 \210\301\302!\210)\303 \210\304\305\306\307!\206\306\310!\206\311 \"c)\207" [message-narrow-to-headers message-remove-header "Disposition-Notification-To" message-goto-eoh format "Disposition-Notification-To: %s\n" message-field-value "Reply-to" "From" message-make-from] 4 (#$ . 111426) nil]) #@119 Elide the text in the region. An ellipsis (from `message-elide-ellipsis') will be inserted where the text was killed. (defalias 'message-elide-region #[(b e) "\303 \"\210\nc\207" [b e message-elide-ellipsis kill-region] 3 (#$ . 111923) "r"]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list message-caesar-translation-table default-boundp set-default nil] 3) #@71 Caesar rotate region B to E by N, default 13, for decrypting netnews. (defalias 'message-caesar-region #[(b e &optional n) "\247\203\f\304\305\"\202 \306\307!\206 \nU?\2052 \203) \310H\310\\U\204-\311!\312 \n #\207" [n b e message-caesar-translation-table mod 26 13 zerop 97 message-make-caesar-translation-table translate-region] 4 (#$ . 112321) (list (min (point) (or (mark t) (point))) (max (point) (or (mark t) (point))) (when current-prefix-arg (prefix-numeric-value current-prefix-arg)))]) #@35 Create a rot table with offset N. (defalias 'message-make-caesar-translation-table #[(n) "\303\304\305\306\" T\211\305W\203 \211I\210\202\306\307O\307\n\\\310\307\n\311\nZ#O\307\211\n\\O\312\313O\313\n\\\310\313\n\311\nZ#O\313\211\n\\O\314\315O\260*\207" [table i n -1 make-string 256 0 65 + 26 91 97 123 255] 11 (#$ . 112837)]) #@286 Caesar rotate all letters in the current buffer by 13 places. Used to encode/decode possibly offensive messages (commonly in rec.humor). With prefix arg, specifies the number of places to rotate each letter forward. Mail and USENET news headers are not rotated unless WIDE is non-nil. (defalias 'message-caesar-buffer-body #[(&optional rotnum wide) "\212\214\204\302 \203`d}\210\303ed #*\207" [wide rotnum message-goto-body message-caesar-region] 4 (#$ . 113189) (byte-code "\203 \301!C\207\302C\207" [current-prefix-arg prefix-numeric-value nil] 2)]) #@62 Pipe the message body in the current buffer through PROGRAM. (defalias 'message-pipe-buffer-body #[(program) "\212\214\301 \203 `d}\210\302ed\303\304%*\207" [program message-goto-body shell-command-on-region nil t] 6 (#$ . 113755)]) #@166 Rename the *message* buffer to "*message* RECIPIENT". If the function is run with a prefix, it will ask for a new buffer name, rather than giving an automatic name. (defalias 'message-rename-buffer #[(&optional enter-string) "\212\214eb\210`\306\307\310#}\210\311 \203\312\313!\202\312\314!\206\315\316\317 \"\2031 \320\211\224O\321P\2022 \322\nP\f\203B\323\324 \"\202C \325 \326\".\207" [mail-header-separator mail-to mail-trimmed-to name-default enter-string name search-forward nil end message-news-p message-fetch-field "Newsgroups" "To" "" string-match "," 0 ", ..." "*message* " read-string "New buffer name: " rename-buffer t] 5 (#$ . 113997) "Pbuffer name: "]) #@96 Fill the paragraphs of a message yanked into this one. Numeric argument means justify as well. (defalias 'message-fill-yanked-message #[(&optional justifyp) "\212eb\210\304\305\305Q\306\307#\210 \310`d #*\207" [mail-header-separator message-yank-prefix fill-prefix justifyp search-forward "\n" nil t fill-individual-paragraphs] 4 (#$ . 114688) "P"]) #@322 Modify text just inserted from a message to be cited. The inserted text should be the region. When this function returns, the region is again around the modified text. Normally, indent each nonblank line `message-indentation-spaces' spaces. However, if `message-yank-prefix' is non-nil, insert that prefix on each line. (defalias 'message-indent-citation #[(&optional start end yank-only) "\204` \204\n\203B\306\214b\307\310\306\311#\203 `S\202!`}\210\312\n\311\"\210edU\2030\311db\210) \203>b\210\202A\313y\210)e\203[l\203[m\204[\314 \210`\313y\210`|\210\202Bdb\210l\204e\315c\210\316\317y!\203\320\321!\203\314 \210`\313y\210`|\210\202e\f\204\223\322 \206\214\323\311!#\210\202\307\212b\210` \206\237\323\311!W\203\306\320\324!\203\260c\210\202\300\320\325!\203\275c\210\202\300\fc\210\313y\210\202\227)b\207" [start yank-only message-ignored-cited-headers all-removed message-yank-prefix end nil search-forward "\n\n" t message-remove-header 1 beginning-of-line "\n" zerop -1 looking-at "$" indent-rigidly mark ">" "^$" message-indentation-spaces message-yank-cited-prefix message-yank-empty-prefix] 5 (#$ . 115047)]) #@172 Remove cited lines containing only blanks. If REMOVE is non-nil, remove newlines, too. To use this automatically, you may add this function to `gnus-message-setup-hook'. (defalias 'message-remove-blank-cited-lines #[(&optional remove) "\304\305\300!\205\n\306P \307R\310\311\312\n#\210\212\313 \210\314\n\315\316#\205/\317 \203)\320\202*\321!\210\202*\207" [message-yank-cited-prefix message-yank-prefix citexp remove "^\\(" boundp "\\|" "\\)+ *\n" gnus-message 8 "removing `%s'" message-goto-body re-search-forward nil t replace-match "" "\n"] 4 (#$ . 116221) "P"]) #@329 If non-nil, start own text above the quote. Note: Top posting is bad netiquette. Don't use it unless you really must. You probably want to set variable only for specific groups, e.g. using `gnus-posting-styles': (eval (set (make-local-variable 'message-cite-reply-above) t)) This variable has no effect in news postings. (defvar message-cite-reply-above nil (#$ . 116804)) #@406 Insert the message being replied to, if any. Puts point before the text and mark after. Normally indents each nonblank line ARG spaces (default 3). However, if `message-yank-prefix' is non-nil, insert that prefix on each line. This function uses `message-cite-function' to do the actual citing. Just \[universal-argument] as argument means don't indent, insert no prefix, and don't delete any headers. (defalias 'message-yank-original #[(&optional arg) "\306 \307\n\205\263 \205\263\f\2037\310 \2041\f\311=\204\"\312\313!\2031\212\314 d{\314 d|\210)\2027\315\304!\210\307\316\n!\203B\317\n\320\"\210\321\212\316\n!\203Q\322\n!\210\202d\n:\203d\323\n@!\203d\324\n@\nA\"\210n\204k\325c\210`)!\210 \204\221 \210\326\320!Sf\325=\204\221`\326\320!b\210\327\325!\210b\210)\f\203\251\314 \210c\210n\203\243\330\202\244\331c\210\314 \210 ?\205\263\332 \211*\207" [body-text modified message-reply-buffer message-cite-function message-cite-reply-above arg buffer-modified-p nil message-news-p is-evil y-or-n-p "Top posting is bad netiquette. Please don't top post unless you really must.\nReally top post? " message-goto-body make-local-variable bufferp delete-windows-on t push-mark insert-buffer-substring functionp apply 10 mark insert-before-markers "\n" "\n\n" message-checksum pt] 4 (#$ . 117191) "P"]) #@53 Insert BUFFER into the current buffer and quote it. (defalias 'message-yank-buffer #[(buffer) "\302!\303\213)\207" [buffer message-reply-buffer get-buffer ((message-yank-original))] 2 (#$ . 118532) "bYank buffer: "]) #@42 Return a list of active message buffers. (defalias 'message-buffers #[nil "\305r\306\307!\305\211\203*\n@\211q\210 \310=\203#\f\204#\311 !B\nA\211\204 +\237)\207" [buffers buffer #1=#:--cl-dolist-temp-- major-mode message-sent-message-via nil buffer-list t message-mode buffer-name] 3 (#$ . 118757)]) #@171 Cite an original message. If STRIP-SIGNATURE is non-nil, strips off the signature from the original message. This function uses `mail-citation-hook' if that is non-nil. (defalias 'message-cite-original-1 #[(strip-signature) "\306\300!\203\203\307\300!\207`\310\311!\312\f\205%\f<\203#\f\202%\fC\214 \n}\210\313 \210\314\315!\316\317\314\320!\206;\321\314\322!\206B\323\314\324!\314\325\311\"\314\326!\317\211\327& )(\330 \n\"\210)\203\216\331 \210\nb\210\332* \311#\203\216\333y\210\334\335!\203|\333y\210\202p\336y\210`\n|\210\337\340 \311#\204\216\341c\210 b\210\342\343 \"\210+\203\246n\204\242\341c\210+ \210 \205\310,?\205\310\344\345 \"\205\310\331 \210`\310\311!|\210\346c\210\347 \210\333y-\207" [mail-citation-hook start end x-no-archive message-indent-citation-function functions boundp run-hooks mark t nil message-narrow-to-head-1 message-fetch-field "x-no-archive" vector 0 "subject" "none" "from" "nobody" "date" "message-id" "references" "" mml-quote-region undo-boundary re-search-backward -1 looking-at "^[ ]*$" 1 search-backward "\n\n" "\n" mapc funcall string-match "yes" "> [Quoted text removed due to X-No-Archive]\n" push-mark message-reply-headers strip-signature message-signature-separator message-citation-line-function message-cite-articles-with-x-no-archive] 10 (#$ . 119077)]) #@47 Cite function in the standard Message manner. (defalias 'message-cite-original #[nil "\300\301!\207" [message-cite-original-1 nil] 2 (#$ . 120422)]) (autoload 'format-spec "format-spec") #@87 Function that inserts a formatted citation line. See `message-citation-line-format'. (defalias 'message-insert-formatted-citation-line #[(&optional from date) "\204\f \205\325\n\205\325 \204\306H\307\310\311\217\211@\211\f@ A@A @\2062 A@\2062 B\n\206q\312\313C\"\205q\314\315\316\"\210\317H\211D\320\232\203T\321\202p\322\323\324D#\206p\325D!E\326\323\327\324ED%\210E))F\330\307GH\f;\203\272\312\331\f\"\203\226\332\f\333\"@\332\f\333\"A@@\202\272\312\334\f\"\203\256\332\f\335\"A@\332\f\335\"@@\202\272\312\336\f\"\203\272\f\320@\337GBG\340GBG\341GBG GBG\342GBG\343GBG\344GBG\345GBG\346GBG@GBG\347GBGBGBG\350GBG\351GBG\352GBG\353GBG\354GBG\355GBG\356GBG GBG\357GBG\360GBG\361GBGAGBG\362GBG\363GBG\364GBG\365GBG\366GBG\367GBG\370GBG\371GBGH\372X\203\263HG>\204\252H\373X\204\232H\374Y\203\252HGBG\307\375\376\217GBGHT\211H\202\377G!*I\201K\201LI\"J\201MCJ\"c\210. \201N \207" [message-reply-headers from date data name fname 2 nil (byte-code "\302!\203\n\202 \303 !\207" [gnus-extract-address-components from boundp mail-extract-address-components] 2) ((error)) string-match "%[^fnNFL]" autoload gnus-date-get-time "gnus-util" 3 "" (0 0) get-text-property 0 gnus-time safe-date-to-time put-text-property 1 65 "\\`\\(\\w\\|[-.]\\)+ \\(\\w\\|[-.]\\)+\\'" split-string "[ ]+" "\\`\\(\\w\\|[-.]\\)+, \\(\\w\\|[-.]\\)+\\'" "[ ,]+" "\\`\\(\\w\\|[-.]\\)+\\'" 69 "" 70 74 "" 75 "" 76 78 79 "" 80 "

" 81 "" 102 105 "" 110 111 "" 113 "" 116 "" 118 "" 122 90 97 (byte-code "\302\303\304\" \"\207" [i replydate format-time-string format "%%%c"] 4) ((error (format ">%c<" i))) reverse lname net name-or-net message-citation-line-format d time replydate lst i flist spec apply format-spec-make format-spec newline] 7 (#$ . 120615)]) #@113 Cite function in the standard Message manner. This function strips off the signature from the original message. (defalias 'message-cite-original-without-signature #[nil "\300\301!\207" [message-cite-original-1 t] 2 (#$ . 122521)]) #@32 Insert a simple citation line. (defalias 'message-insert-citation-line #[nil "\205\301H\302\261\210\303 \210\303 \207" [message-reply-headers 2 " writes:" newline] 2 (#$ . 122758)]) (defalias 'message-position-on-field #[(header &rest afters) "\304\214eb\305\306\307 !\310Q!\210\311\224}\210eb\210\305\306\307\n!\312Q\313\304#\2033\305\314\313\315#\210\316 \210\317\313x\210\304\202d \203N\305\306\307 @!\312Q\313\304#\204N \211A@\210\2023 \203[\305\314\313\315#\210\316 \210\n\320\261\210\321u\210\313*\207" [case-fold-search mail-header-separator header afters t re-search-forward "^" regexp-quote "$" 0 ":" nil "^[^ ]" move beginning-of-line "\n" ": \n" -1] 5]) #@107 Remove the signature from the text between point and mark. The text will also be indented the normal way. (defalias 'message-remove-signature #[nil "\212`\303\304\n\300\305!\305#\204\306 \202?\307y\210\310\311!\203#\307y\210\202\312y\210\313 `\303\223 b\210\306 \210\314 \210\300\305!|\210\303\211\223+\207" [mark start message-signature-separator nil re-search-forward t message-indent-citation -1 looking-at "[ ]*$" 1 make-marker undo-boundary] 4 (#$ . 123445)]) #@78 Send message like `message-send', then, if no errors, exit from mail buffer. (defalias 'message-send-and-exit #[(&optional arg) "p\305 !\205.\306\n!\205.\f\203\307\n!\210\202)\310\n!\210\np=\203)\311\n!\210\312 !\210\313*\207" [message-exit-actions actions buf arg message-kill-buffer-on-exit message-send buffer-name kill-buffer bury-buffer message-bury message-do-actions t] 2 (#$ . 123928) "P"]) #@100 Don't send the message you have been editing. Instead, just auto-save the buffer and then bury it. (defalias 'message-dont-send #[nil "\302\303!\210\304 \210\305p!\210\306 !)\207" [message-postpone-actions actions set-buffer-modified-p t save-buffer message-bury message-do-actions] 2 (#$ . 124343) nil]) #@26 Kill the current buffer. (defalias 'message-kill-buffer #[nil "\306 \203\203\307\310!\205a \n \f\306 \311\312p!\210\2030\313!\204<\203\\\313!\203\\\314 \210\307\315\316 \203J\317\202K\320\"!\203\\\311\321\322\217\210\323 \210)\324!-\207" [message-kill-buffer-query message-kill-actions message-draft-article buffer-auto-save-file-name buffer-file-name modified buffer-modified-p yes-or-no-p "Message modified; kill anyway? " nil kill-buffer file-exists-p raise-frame format "Remove the backup file%s? " " too" "" (delete-file auto-save-file-name) ((error)) message-disassociate-draft message-do-actions file-name auto-save-file-name draft-article actions] 5 (#$ . 124656) nil]) #@24 Bury this mail BUFFER. (defalias 'message-bury #[(buffer) "\306p!\307p!\210\310\311 !\203\312\313 \314 \"\203\315\313 !\202u\316\211\317 \204^r\320\321\322 \323\"!q\210 \324=\325\304!\203@\f\202A\326\205\\\325\305!\205\\ \205\\\327 !\205\\\330 !?\205\\ )\n\203q \203l\331 !\202t\332 \202t\331!*)\207" [newbuf summary-buffer rmail-flag major-mode mail-bury-selects-summary rmail-summary-buffer other-buffer bury-buffer window-dedicated-p frame-selected-window delq selected-frame visible-frame-list delete-frame nil one-window-p window-buffer next-window selected-window not rmail-mode boundp t buffer-name get-buffer-window switch-to-buffer delete-window] 4 (#$ . 125376)]) #@355 Send the message in the current buffer. If `message-interactive' is non-nil, wait for success indication or error messages, and inform user. Otherwise any failure is reported in a message back to the user from the mailer. The usage of ARG is defined by the instance that called Message. It should typically alter the sending method in some way or other. (defalias 'message-send #[(&optional arg) "\306 \210\307\310ed\311\312$\210)\313 \210\314\315!\210 \203!\316\317!\204!\320 \210\321\n!\210 \307\312\211\211\f-./0\322 \210/\203\2510\211A0@\211.\203\251.\2111A@) \2038.@2>\203\221\323\324!\204\221\32534)\204\200.@\326=\204\213\316\327\330.@\"!\202\216\331\332!\2038.\2111AA)@5!\211/\2038\307-\2028-\204\374/\203\374\323\333!\323\334!6\2117\204\3066\205\3648\335=\206\3648\336=?\205\364\337\327\3407\203\3466\203\346\341\202\3607\203\357\333\202\360\334\"!\211*\204\374\331\342!\210 \204\n/\205H-\205H\343 \210\212\314\344!\210)\321\345!\210\3469::\204(:9=\202-9:>)\2034\347 \210\350\312!\210\351\307!\210\352 \210\353 \210\354;!\210\307.\207" [inhibit-read-only message-confirm-send message-sending-message message-send-method-alist message-options dont-barf-on-no-method undo-boundary t put-text-property read-only nil message-fix-before-sending run-hooks message-send-hook y-or-n-p "Send message? " keyboard-quit message message-options-set-recipient message-fetch-field "supersedes" multiple-copies news format "Already sent message via %s; resend? " error "Denied posting -- multiple copies" "Fcc" "Gcc" always never gnus-y-or-n-p "No receiver, perform %s anyway? " "Fcc and Gcc" "No methods specified to send by" message-do-fcc message-sent-hook "Sending...done" ecomplete message-put-addresses-in-ecomplete set-buffer-modified-p delete-auto-save-file-if-necessary message-disassociate-draft message-do-send-housekeeping message-do-actions sent elem success alist x message-sent-message-via feature message-shoot-gnksa-feet arg gcc fcc message-allow-no-recipients type message-mail-alias-type message-send-actions] 7 (#$ . 126080) "P"]) #@36 Send the current message via mail. (defalias 'message-send-via-mail #[(arg) "\301!\207" [arg message-send-mail] 2 (#$ . 128219)]) #@36 Send the current message via news. (defalias 'message-send-via-news #[(arg) " !\207" [message-send-news-function arg] 2 (#$ . 128356)]) #@38 Eval FORMS if TYPE is to be checked. (defalias 'message-check '(macro . #[(type &rest forms) "\302\303D\304 BE\207" [type forms or message-check-element save-excursion] 4 (#$ . 128499)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put message-check lisp-indent-function 1 edebug-form-spec (form body)] 4) #@217 Return a list of start and end positions where the text has PROP. START and END bound the search, they default to `point-min' and `point-max' respectively. If REVERSE is non-nil, find text which does not have PROP. (defalias 'message-text-with-property #[(prop &optional start end reverse) "\204e \204\fd\306\211\f\203=\203q\307 \306$\211\203q\310 \306 $ \2060 B\nB \211\204\202q\203q\311 \"\204Z\310 \306 $\211\203q\311 \"\203q\307 \306$ \206g B\nB \211\204A\n\237*\207" [start end regions next reverse prop nil text-property-any next-single-property-change get-text-property] 6 (#$ . 128826)]) #@243 List of regexps of potentially bogus mail addresses. See `message-check-recipients' how to setup checking. This list should make it possible to catch typos or warn about spam-trap addresses. It doesn't aim to verify strict RFC conformance. (custom-declare-variable 'message-bogus-addresses ''("noreply" "nospam" "invalid" "@@" "[^[:ascii:]].*@" "[ ]") '(#$ . 129471) :version "23.1" :group 'message-headers :type '(choice (const :tag "None" nil) (list (set :inline t (const "noreply") (const "nospam") (const "invalid") (const :tag "duplicate @" "@@") (const :tag "non-ascii local part" "[^[:ascii:]].*@") (const :tag "whitespace" "[ ]")) (repeat :inline t :tag "Other" (regexp))))) #@63 Do various things to make the message nice before sending it. (defalias 'message-fix-before-sending #[nil "db\210n\204\n\306c\210~\210\307 \210\310\311!\204U\212\312\313!\314\211\211\203T\n\203J\n\211@@)\n\211@A)\nA\315 \313\314$\210\316\317 \"\320\321#\210\202\"\322\323!\204T\324\325!\210,\310\326!\204'\212\314\211\2112\327 \2103\314w\210\330`\331\"\203|\332`\331\"\206zdb\210\314f\2112\203\264\3332!\334W\204\242\335 \203\256\3362!\337>\203\256\330`\340\"\204\256\316\317``T\"\320\321#\210\341\314u\210\202f \203&\342\343\344\345\346\3474\"D\350BB\"\211\351=\203\321\324\352!\210\327 \2103\314w\210m\204&\314f2\3332!\334W\206\375\335 \205\375\3362!\353>\205\375\330`\340\"?)\203\f\354=\203 \355 \210\202\356\357!\210\f\345=\2034c\210\314u\2103\314w\210\202\331,\310\360!\2061\212\361 )\207" [to from regions x choice found "\n" message-sort-headers message-check-element invisible-text message-text-with-property invisible nil put-text-property message-overlay-put message-make-overlay face highlight yes-or-no-p "Invisible text found and made visible; continue sending? " error "Invisible text found and made visible" illegible-text message-goto-body get-text-property no-illegible-text next-single-property-change mm-char-int 128 mm-multibyte-p char-charset (eight-bit-control eight-bit-graphic eight-bit control-1) untranslated-utf-8 t gnus-multiple-choice "Non-printable characters found. Continue sending?" (100 "Remove non-printable characters and send") 114 format "Replace non-printable characters with \"%s\" and send" ((105 "Ignore non-printable characters and send") (101 "Continue editing")) 101 "Non-printable characters" (eight-bit-control eight-bit-graphic eight-bit control-1) 105 message-kill-all-overlays delete-char 1 bogus-recipient message-check-recipients char mm-7bit-chars message-replacement-char] 8 (#$ . 130164)]) #@324 Check if a mail address in RECIPIENTS looks bogus. RECIPIENTS is a mail header. Return a list of potentially bogus addresses. If none is found, return nil. An address might be bogus if the domain part is not fully qualified, see `message-valid-fqdn-regexp', or if there's a matching entry in `message-bogus-addresses'. (defalias 'message-bogus-recipient-p #[(recipients) "\302\303\304\305 \306\"\"\210)\207" [found recipients nil mapc #[(address) "\211A@)\306\307\"\203\306\310\n\311Q\"\2033 \2058 <\203)\312\313 \314#\202* \306\f\")\2058 B\211\207" [address x message-valid-fqdn-regexp message-bogus-addresses re found string-match "@" ".@.*\\(" "\\)\\'" mapconcat identity "\\|"] 5] mail-extract-address-components t] 5 (#$ . 132073)]) #@120 Warn before composing or sending a mail to an invalid address. This function could be useful in `message-setup-hook'. (defalias 'message-check-recipients #[nil "\214\305 \210\306\307\211\203F @\310!\211;\203>\311\n!\307\211\203=\f@\211\2036\312\313\314 \"!\2046\315\316!\210\fA\211\204\"*) A\211\204\f+\307\207" [hdr #1=#:--cl-dolist-temp-- addr bog #2=#:--cl-dolist-temp-- message-narrow-to-headers ("To" "Cc" "Bcc") nil message-fetch-field message-bogus-recipient-p y-or-n-p format "Address `%s' might be bogus. Continue? " error "Bogus address"] 6 (#$ . 132840) nil]) (custom-add-option 'message-setup-hook 'message-check-recipients) #@62 Add ACTION to be performed when doing an exit of type TYPES. (defalias 'message-add-action #[(action &rest types) "\205\302\303\304\305\211A@\"! \"\210\202\207" [types action add-to-list intern format "message-%s-actions"] 6 (#$ . 133502)]) #@81 Delete ACTION from lists of actions performed when doing an exit of type TYPES. (defalias 'message-delete-action #[(action &rest types) "\303 \205\304\305\306 \211A@\"!\211\307\nJ\"L\210\202)\207" [var types action nil intern format "message-%s-actions" delq] 5 (#$ . 133756)]) #@33 Perform all actions in ACTIONS. (defalias 'message-do-actions #[(actions) "\303\211\203\n@\303\304\305\217\210\nA\211\204*\303\207" [actions action #1=#:--cl-dolist-temp-- nil (byte-code "\301!\203\f \210\202\302!\210\301\207" [action functionp eval] 2) ((error))] 4 (#$ . 134048)]) #@31 Send mail as message/partial. (defalias 'message-send-mail-partially #[nil "eb\210\306\307\310!\311Q!\210\312\311!\210\313\314!\210eb\315\316!p\317 \320\321\211\211\211*+,-m\204ad-.\\W\203Bdb\210\202V-.\\b\210\322 \210`-X\203V\320y\210-\fB`-\202.\fGd\fB\211\237\323\216\212\f\211A@-\f\205\"+q\210\324,-\f@#\210,q\210eb\210\n\203\236eb\210``}\210\nc\210\202\314\325 \210e`{eb\210``}\210\nc\210\326\327!\210\326\330!\210\326\331!\210\326\332!\210\326\333!\210db\210\334c\210\335 db\210\336\337* $c\210\340u\210\341\342/>\203\353\343\317 \311\261\210\344/>\203\371\345\346 \311\261\210\347 \210\321\210\336\350 #c\210~\2100\2061 \210) T\f\211A@-\351 \210\202u. \207" [mail-header-separator required-mail-headers header total plist n re-search-forward "^" regexp-quote "\n" replace-match run-hooks message-send-mail-hook message-generate-new-buffer-clone-locals " message temp" message-make-message-id 1 nil beginning-of-line ((kill-buffer tembuf)) copy-to-buffer message-goto-eoh message-remove-header "Mime-Version" "Content-Type" "Content-Transfer-Encoding" "Message-ID" "Lines" "Mime-Version: 1.0\n" buffer-string format "Content-Type: message/partial; id=\"%s\"; number=%d; total=%d\n\n" -1 "" Message-ID "Message-ID: " Lines "Lines: " message-make-lines message-goto-subject " (%d/%d)" erase-buffer id curbuf tembuf p message-send-mail-partially-limit message-required-mail-headers message-send-mail-real-function message-send-mail-function] 10 (#$ . 134352)]) (defalias 'message-send-mail #[(&optional arg) "\306\307!\210\310\311!\312\313 p\314\315\316!\203\316\312!\202 @AB\203=B\317=\204=\320\321!\210\322 \210\323 \210\320\324!\210\214\325 \210\326 \203X\327\330!\204X\331\332 B@BA\202d\327\330!\333\232\203d\334\335!\210\n?\205kCC\336A!\210)\337\340!\204\246\212eb\210\341\342\312\314#\203\245\343\224b\210\344\345!\203\225\346c\210\202}\347y\210\344\350!\204}\351\352!\210\202})\353\354!\210)\355\216rq\210\356 \210r q\210\357ed\")c\210\360 \210\214\325 \210\361@>\203\321\336\362!\210\334D\314\"\210EF\363 \210*db\210h\364U\204\353\364c\210\365 \210\214\325 \210\n\205\"\366\367!\204\366\370!\204\366\371!\205\"\366\372!\211G\203\373G!@\374\230\205!\366\375!\376\230?))\203)\377 \210\212eb\210\341\201L\312\314#)\203D\201M\201N\201OC\"\210\201P \210H\203|\201Q HW\204|\201R\344\201S\314\201T\201Q \201U\245\201VH\201U\245\201W&\204\216\320\201X!\210I\206\211J \210\202\223\201Y \210* q\210\201ZKB\211K.\207" [tembuf case-fold-search news mailbuf message-this-is-mail message-posting-charset require mail-utils message-generate-new-buffer-clone-locals " message temp" nil message-news-p t fboundp gnus-setup-posting-charset opportunistic message "Generating hashcash..." hashcash-wait-async mail-add-payment "Generating hashcash...done" message-narrow-to-headers message-subscribed-p mail-fetch-field "mail-followup-to" "Mail-Followup-To" message-make-mail-followup-to "" message-remove-header "^Mail-Followup-To:" message-generate-headers message-check-element continuation-headers re-search-forward "^[^ \n][^ \n:]*[ \n]" 0 y-or-n-p "Fix continuation lines? " " " 1 "Send anyway? " error "Failed to send the message" run-hooks message-header-hook ((kill-buffer tembuf)) erase-buffer mml-buffer-substring-no-properties-except-hard-newlines message-encode-message-body Lines (Lines) mail-encode-encoded-word-buffer 10 message-cleanup-headers message-fetch-field "cc" "bcc" "to" "content-type" mail-header-parse-content-type "text/plain" "content-transfer-encoding" "base64" message-insert-courtesy-copy message-required-mail-headers headers message-generate-hashcash message-deletable-headers message-ignored-mail-headers message-default-charset mail-parse-charset content-type message-send-mail-partially-limit message-send-mail-real-function message-send-mail-function message-sent-message-via #1="[^-\377]" signal cl-assertion-failed (save-excursion (goto-char (point-min)) (not (re-search-forward #1# nil t))) mm-disable-multibyte buffer-size message-talkative-question "The message size is too large, split? " "The message size, " 1000 "KB, is too large.\n\nSome mail gateways (MTA's) bounce large messages. To avoid the\nproblem, answer `y', and the message will be split into several\nsmaller pieces, the size of each is about " "KB except the last\none.\n\nHowever, some mail readers (MUA's) can't read split messages, i.e.,\nmails in message/partially format. Answer `n', and the message will be\nsent in one piece.\n\nThe size limit is controlled by `message-send-mail-partially-limit'.\nIf you always want Gnus to send messages in one piece, set\n`message-send-mail-partially-limit' to nil.\n" "Sending via mail..." message-send-mail-partially mail] 10]) #@45 Send off the prepared buffer with sendmail. (defalias 'message-send-mail-with-sendmail #[nil "\203\n\306\307!\202 \310\311\211\312\216\313\214\314 \210\315\316!)eb\210\317\320\321 !\322Q!\210\323\322!\210\324u\210\325 \326\327!\210 Tb\210\3308!\203E\331 \210\203Qr q\210\332 \210))\3339:;\334\335\336ed\337\340!\203i \202\225\341\342!\203s\342\202\225\341\343!\203}\343\202\225\341\344!\203\207\344\202\225\345\346!\204\224\347\350!\210\313<\351\311 \311\352\257=>?\205\247\353\354 D?\205\255\355\n\203\266\nC\202\267\356%\"\211?\203\332?\247\203\314\357?!\204\332 \203\324\360 !\210\361\362?\"\210+\205r q\210eb\210\317\363\311\313#\203\365\323\364!\210\202\346\357\365 !?\205\361\366\367 \"),\207" [message-interactive delimline resend-to-addresses errbuf case-fold-search mail-header-separator message-generate-new-buffer-clone-locals " sendmail errors" 0 nil ((byte-code "\301!\203\n\302!\210\301\207" [errbuf bufferp kill-buffer] 2)) t message-narrow-to-headers message-fetch-field "resent-to" re-search-forward "^" regexp-quote "\n" replace-match -1 point-marker run-hooks message-send-mail-hook eval newline erase-buffer "/" apply call-process-region append boundp sendmail-program file-exists-p "/usr/sbin/sendmail" "/usr/lib/sendmail" "/usr/ucblib/sendmail" file-executable-p "/usr/bin/mail" message "/usr/bin/mail is not an executable. Setting mail-interactive to t." "fakemail" "-oi" "-f" message-sendmail-envelope-from ("-oem" "-odb") ("-t") zerop pop-to-buffer error "Sending...failed with exit value %d" "\n+ *" "; " buffer-size "Sending...failed to %s" buffer-string message-mailer-swallows-blank-line default-directory message-send-coding-system coding-system-for-write mail-interactive message-sendmail-extra-arguments message-sendmail-f-is-evil cpr] 11 (#$ . 139176)]) #@153 Pass the prepared message buffer to qmail-inject. Refer to the documentation for the variable `message-send-mail-function' to find out how to use this. (defalias 'message-send-mail-with-qmail #[nil "eb\210\306\307\310!\311Q!\210\312\311!\210\313\314!\210 \315\316ed \317\211\211\320\f!\203)\f \202*\f&)\211\321=\2038\317\202S \322=\203D\323\324!\202S \325=\203P\323\326!\202S\323\327!)\207" [mail-header-separator message-send-coding-system coding-system-for-write message-qmail-inject-program message-qmail-inject-args #1=#:--cl-var-- re-search-forward "^" regexp-quote "\n" replace-match run-hooks message-send-mail-hook apply call-process-region nil functionp 0 100 error "qmail-inject reported permanent failure" 111 "qmail-inject reported transient failure" "qmail-inject reported unknown failure"] 11 (#$ . 141024)]) #@43 Send the prepared message buffer with mh. (defalias 'message-send-mail-with-mh #[nil "\305\306  \2036 \f\2035eb\210\307\310\311\f@!\312Q\305\313#\203,\314 \210`\315y\210`|\210\f\211A@\210\202 )\316\317!\210\320 *\207" [name mh-previous-window-config buffer-file-name message-mh-deletable-headers headers nil mh-new-draft-name re-search-forward "^" symbol-name ": *" t beginning-of-line 1 run-hooks message-send-mail-hook mh-send-letter] 4 (#$ . 141865)]) #@294 Send the prepared message buffer with `smtpmail-send-it'. The only difference from `smtpmail-send-it' is that this command evaluates `message-send-mail-hook' just before sending a message. It is useful if your ISP requires the POP-before-SMTP authentication. See the Gnus manual for details. (defalias 'message-smtpmail-send-it #[nil "\300\301!\210\302 \207" [run-hooks message-send-mail-hook smtpmail-send-it] 2 (#$ . 142337)]) #@194 Send the prepared message buffer with `mailclient-send-it'. The only difference from `mailclient-send-it' is that this command evaluates `message-send-mail-hook' just before sending a message. (defalias 'message-send-mail-with-mailclient #[nil "\300\301!\210\302 \207" [run-hooks message-send-mail-hook mailclient-send-it] 2 (#$ . 142774)]) #@117 Return a string that is non-trivial to guess. Do not use this for anything important, it is cryptographically weak. (defalias 'message-canlock-generate #[nil "\301\302!\210\303\302\304 \305\306\307 \307\310!\307 $\311\312 !\311\313 !R!)\207" [sha1-maximum-internal-length require sha1 nil message-unique-id format "%x%x%x" random t prin1-to-string recent-keys garbage-collect] 7 (#$ . 143122)]) #@183 The password used by message for cancel locks. This is the value of `canlock-password', if that option is non-nil. Otherwise, generate and save a value for `canlock-password' first. (defalias 'message-canlock-password #[nil "\204\f\302\300\303 \"\210\207" [canlock-password canlock-password-for-verify customize-save-variable message-canlock-generate] 3 (#$ . 143525)]) (defalias 'message-insert-canlock #[nil "\205 \301 \210\302 \207" [message-insert-canlock message-canlock-password canlock-insert-header] 1]) (defalias 'message-send-news #[(&optional arg) "\306\307!\310\311\n!\203\n !\202\n\214\312 \210\313\314!)\214\312 \210\313\315!)6\316\f \"7\316\f6\2065\317\"8\3207\205C\3147BC8\205M\3158BC9#9p: \203f;<\203f\321;B\202h;;\322<\323 !=\310>\324 \2057\214\325 \210\326?!\210\327 \210\330\331!\210)7\203\234;<\203\234\332;B;\333 \210\f\334 )\2057\335\216rq\210\336 \210\337 \210r:q\210\340ed\")c\210\341 \210\214\325 \210\342@>\203\321\326\343!\210\344A\322\"\210BC\345 \210*db\210h\346U\204\353\346c\210\322eb\210\347\350\351D!\352Q!\210\353\352!\210\354u\210)\330\355!\210\356\f!\210\357\360\361\f!\"\210\317D\362\f!)>*:q\210>\203.\363EB\211E\2027\357\364\365\f@!\"\210\310. \207" [tembuf case-fold-search message-post-method arg method newsgroups-field message-generate-new-buffer-clone-locals " *message temp*" nil functionp message-narrow-to-headers-or-head message-fetch-field "Newsgroups" "Followup-To" gnus-group-name-charset "" append (existing-newsgroups . disabled) t gnus-setup-posting-charset message-check-news-body-syntax message-narrow-to-headers message-generate-headers message-insert-canlock run-hooks message-header-hook (valid-newsgroups . disabled) message-cleanup-headers message-check-news-syntax ((kill-buffer tembuf)) buffer-disable-undo erase-buffer mml-buffer-substring-no-properties-except-hard-newlines message-encode-message-body Lines (Lines) message-remove-header mail-encode-encoded-word-buffer 10 re-search-forward "^" regexp-quote "\n" replace-match -1 message-send-news-hook gnus-open-server message "Sending news via %s..." gnus-server-string gnus-request-post news "Couldn't send message via news: %s" nnheader-get-report followup-field group-field-charset followup-field-charset rfc2047-header-encoding-alist messbuf message-syntax-checks message-this-is-news message-posting-charset result message-required-news-headers message-required-mail-headers message-ignored-news-headers message-default-charset mail-parse-charset mail-header-separator message-sent-message-via] 4]) #@51 Return non-nil if this TYPE is not to be checked. (defalias 'message-check-element #[(type) "\303=\203\304\207 \236\211:\205\nA\305=)\207" [message-syntax-checks type able dont-check-for-anything-just-trust-me t disabled] 3 (#$ . 146119)]) #@34 Check the syntax of the message. (defalias 'message-check-news-syntax #[nil "\212\214~\210\212\214\300 \210\301 ,\207" [message-narrow-to-headers message-check-news-header-syntax] 1 (#$ . 146372)]) (defalias 'message-check-news-header-syntax #[nil "\306\307!\204 \212\310\311!\211\203\312\313\"?\206\314\315\316!\210*\205o\306\302!\204B\212\317\310\320!\211\2039\312\313\n\"?\206>\314\315\321!\210+\205o\306\322!\204]\212\312\323\310\320!\"\203X\324\325!\202Y\317)\205o\306\326!\204\255\212`\314\327\314@ \204\232\330\331\314\317#\203\232`\327\224Z\332V\203\214\317`\327\224Z\202\220\333\334!\327\224@\334y\210\202m \203\250\324\335\336 \f#!\202\251\317-\205o\306\337!\204\360\212\314 \204\336\330\340\314\317#\203\336\212\330\341\342\327\224\327\225\343Z{\211!\344Q\314\317#\204\332\314)\202\266 \203\353\324\335\345 \"!\202\354\317*\205o\306\346!\204\212\330\347\314\317#\203 \324\335\350\327\224\327\225S{\"!\202\317)\205o\306\351!\204W\212\310\311!\310\352!\314AB\211\203V\312\353\"\203VB\204V\354\355\356\357\360\361\362!B\"\"\211AG!\204Veb\210\363A\364\261\210,\306\365!\204q\212\330\366\314\317#\203l\324\367!\202m\317)\205o\306\370!\204\213\212\330\371\314\317#\203\206\324\372!\202\207\317)\205o\306\373!\204\305\212\317\310\374\317\"\211;?\206\301\312\375;\"\203\270\312\376;\"\203\270\312\377;\"?\206\301\324\335\201S;\"!+\205o\306\201T!\204\212\317\310\311!\310\352!B\362B\203\351\353BQ\202\353!C\201UD!\203\375D \202\377D\211E:\203*E@\201V=\203*F\203*\201WF@FA\"@\201X!)\202,EG\357\201Y\201ZG!\"H\314IC\203pC@\361\232\204eC@H\235\204eC@I\235\204eC@IBIC\211AC@\210\202>\201[\201J!\203\211J\203\211\201[\201K!\204\215\317\202K\203\233K\201\\=\203\330I\203\330\324\335\201]IG\334U\203\263\201^\202\266\201_IG\334U\203\304\201`\202\307\201a\201b\201cI\201d#$!\202I\204\341\317\202\324\335\201eIG\334U\203\364\201^\202\367\201_IG\334U\203\201`\202\201a\201b\201cI\201d#$!. \205o\306\201f!\204_\212eb\210\317L\330\201g\314\317#\203Y\327\224b\210\324\201h!\203H\201ic\210\202*\334y\210\324\201j!\204*\314L\202*L*\205o\306\201k!\204\314\212\317\201l\314\211MNN\203\264M\204\264\201mN@!\211\203\244\312\201n \"\203\241\314\357\201o\362 \353\"\">\203\244\317MM\204tN\211AN@\210\202tM\204\275\317\202\310\324\335\201pN@ #!-\205o\306\201q!\204:\212\317\201r\314\211\211\211CMNN\203#M\204#\201mN\211AN@!\211\203\346\362 \353\"CC\211AC@\211\203\346C\235\203M\314\211C\202M\204,\317\2025\324\335\201sM\"!.\205o\306\201O!\204\352\212\317\310\201t!O\314PO\204^\315\201u!\210\314\202\346\312\201v\201wO!A@\211P\"\203\243\312\201xP\"\204\243\312\201yP\"\204\243\312\201zP\"\204\243\312\201{P\"\203\243\312\201|O\"\203\257\315\201}O\"\210\314\202\346\201~O!\211Q:\203\323\201Q@!\201\200=\204\323QA\211Q\202\270Q)\203\345\315\201\201O\"\210\314\202\346\317,\205o\306\201R!\206o\212\317\310\201\202!R\314PR\204\317\202n\312\353R\"\203\324\335\201\203R\"!\202n\312\201v\201wR!A@\211P\"\203a\312\201xP\"\204a\312\201yP\"\204a\312\201zP\"\204a\312\201{P\"\203a\312\201|R\"\203m\324\335\201\204R\"!\202n\317,\207" [group case-fold-search subject found length header message-check-element newsgroups message-fetch-field "newsgroups" string-match "\\`[ ]*\\'" nil message "The newsgroups field is empty or missing. Posting is denied." t "subject" "The subject field is empty or missing. Posting is denied." subject-cmsg "^cmsg " y-or-n-p "The control code \"cmsg\" is in the subject. Really post? " long-header-lines 0 re-search-forward "^\\([^ :]+\\): " 998 match-string-no-properties 1 format "Your %s header is too long (%d). Really post? " multiple-headers "^[^ :]+: " "^" regexp-quote 2 ":" "Multiple %s headers. Really post? " sendsys "^Sendsys:\\|^Version:" "The article contains a %s command. Really post? " shorten-followup-to "followup-to" "," zerop completing-read "Followups to (default no Followup-To header): " mapcar list "poster" message-tokenize-header "Followup-To: " "\n" shoot "Message-ID.*.i-did-not-set--mail-host-address--so-tickle-me" "You appear to have a misconfigured system. Really post? " approved "^Approved:" "The article contains an Approved header. Really post? " message-id "message-id" "@" "@[^.]*\\." "\\.>" start to followup-to groups message-post-method post-method gnus-message-group-art method known-groups errors gnus-active-hashtb gnus-read-active-file do-posting error headers from ad addresses reply-to "The Message-ID looks strange: \"%s\". Really post? " existing-newsgroups functionp nnvirtual nnvirtual-find-group-art gnus-find-method-for-group #[(n) "\303\304\305 \"\203 \306\225\307O\202 )\310\n\"\"\207" [n gname method gnus-group-name-decode string-match "^[^:]+:" 0 nil gnus-group-name-charset] 5] gnus-groups-from-server boundp some "Really use %s possibly unknown group%s: %s? " "this" "these" "" "s" mapconcat identity ", " "Really post to %s unknown group%s: %s? " continuation-headers "^[^ \n][^ \n:]*[ \n]" "Fix continuation lines? " " " "Send anyway? " valid-newsgroups ("Newsgroups" "Followup-To") mail-fetch-field "\\`\\([-+_&.a-zA-Z0-9]+\\)?\\(,[-+_&.a-zA-Z0-9]+\\)*\\'" #[(g) "\301\302\"?\207" [g string-match "\\.\\'\\|\\.\\."] 3] "The %s header looks odd: \"%s\". Really post? " repeated-newsgroups ("Newsgroups" "Followup-To") "Group %s is repeated in headers. Really post? " "from" "There is no From line. Posting is denied." "@[^\\.]*\\." mail-extract-address-components "\\.\\." "@\\." "\\.$" "^[^@]+@[^@]+$" "(.*).*(.*)" "Denied posting -- the From looks strange: \"%s\"." rfc822-addresses string-to-char 40 "Denied posting -- bad From address: \"%s\"." "reply-to" "Multiple Reply-To addresses: \"%s\". Really post? " "The Reply-To looks strange: \"%s\". Really post? "] 10]) (defalias 'message-check-news-body-syntax #[nil "\306\307!\204@\212eb\210\310\311\312!\313Q!\210\314y\210\315\316!\204*`\317\210` Z\320W)\2031\321\314y!\204n\206<m\206<\322\323!)\205\270\306\324!\204\212\212eb\210\310\311\312!\313Q!\210\314y\210`db\210\325 \317\326#\210\327 \210\325\330\n\326#\206\206\331 )\203\201\322\332!\202\206\333\334!\210\317*\205\270\306\335!\204\246\212\310\336\337!\317\326#\203\241\322\340!\202\242\326)\205\270\306\341!\204\303\212\342 \343V\203\276\322\344\345\342 \"!\202\277\326)\205\270\306\346!\204\367\212'?\206\363\347 '=?\206\363\350 )\203\356\322\351!\202\363\333\352!\210\317)\205\270\306\353!\204^\212\317\211:;db\210\325 \317\326#\204\326\202Z\354 T;\310\355\317\326#\203&\356 S\202'd:\357;:\"\360Y\203Y\353 )\203Q\322\344\361\357;:\"\"!\202Z\333\362!\210\317\202Z\326+\205\270\306\363!\206\270\212db\210\326<\364\365\317\326#\203z\366\367\317\326#<<\203\203\326\202\267\350 )\203\230\322\370!\202\267eb\210\310\311\312!\313Q!\210\366\367\317\326#\203\262\322\370!\202\267\333\371!\210\317*\207" [mail-header-separator p b message-signature-separator feature message-shoot-gnksa-feet message-check-element long-lines re-search-forward "^" regexp-quote "$" 1 looking-at "<#\\(/\\)?\\(multipart\\|part\\|external\\|mml\\)" nil 80 zerop y-or-n-p "You have lines longer than 79 characters. Really post? " empty re-search-backward t beginning-of-line "[^ \n ]" empty-article "Empty article. Really post? " message "Denied posting -- Empty article." control-chars mm-string-to-multibyte "[- --\200-\237]" "The article contains control characters. Really post? " size buffer-size 60000 format "The article is %d octets long. Really post? " new-text message-checksum quoted-text-only "It looks like no new text has been added. Really post? " "Denied posting -- no new text has been added." signature point-at-eol "<#/?\\(multipart\\|part\\|external\\|mml\\)" point-at-bol count-lines 5 "Signature is excessively long (%d lines). Really post? " "Denied posting -- Excessive signature." quoting-style search-backward-regexp "^>[^\n]*\n" search-forward-regexp "^[ ]*[^>\n]" "Your text should follow quoted text. Really post? " "Denied posting -- only quoted text." sig-end sig-start no-problem] 6]) #@45 Return a "checksum" for the current buffer. (defalias 'message-checksum #[nil "\302\212eb\210\303\304\305 !\306Q!\210m\2043\307\310!\204-\311\312\313\"\314!\203(\302\202)\313\315f#\313u\210\202))\207" [sum mail-header-separator 0 re-search-forward "^" regexp-quote "$" looking-at "[ \n]" logxor ash 1 natnump nil] 4 (#$ . 154783)]) #@44 Process Fcc headers in the current buffer. (defalias 'message-do-fcc #[nil "\306p\307\211\212\214\310 \210\311\312\306\")\n\205\332\313\314!q\210\315 \210\316\f!\210\317 \210\214\310 \210\311\312\306\"\211\203B\n B\320\312\307\306#\210\202,&\321'B'(\322 \210+eb\210\323\324\325)!\326Q\307\306#\203g\327\330\306\211#\210 \203\327 \211A@\331\332\n\"\203\214\333ed*\307\211\211+\334\335\n\"&\210\202g\336\n!\337\340\n!!\204\237\341\340\n!\306\"\210,\203\263,\342=\204\263,\n!\210\202g\343\n!\203\311\344\n!\203\311\342\n\335\307\306$\210\202g\306-\342\n\335\306\211$\210)\202g\345p!.\207" [message-fcc-externalize-attachments mml-externalize-attachments file list buf case-fold-search t nil message-narrow-to-headers message-fetch-field "fcc" get-buffer-create " *message temp*" erase-buffer insert-buffer-substring message-encode-message-body message-remove-header ("Newsgroups" . default) mail-encode-encoded-word-buffer re-search-forward "^" regexp-quote "$" replace-match "" string-match "^[ ]*|[ ]*\\(.*\\)[ ]*$" call-process-region match-string 1 expand-file-name file-exists-p file-name-directory make-directory rmail-output file-readable-p mail-file-babyl-p kill-buffer message-default-charset rfc2047-header-encoding-alist mail-parse-charset mail-header-separator shell-file-name shell-command-switch message-fcc-handler-function mail-use-rfc822] 11 (#$ . 155133)]) #@55 Append this article to Unix/babyl mail file FILENAME. (defalias 'message-output #[(filename) "\303!\203\f\304!\204 \305!\211\205r q\210\n)\306=)\203%\307\310\"\207\311\310\"\207" [filename buff major-mode file-readable-p mail-file-babyl-p find-buffer-visiting rmail-mode gnus-output-to-rmail t gnus-output-to-mail] 4 (#$ . 156554)]) #@47 Do various automatic cleanups of the headers. (defalias 'message-cleanup-headers #[nil "\214\300 \210\301\302\303\304#\203\305\306\304\211#\210\202eb\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\2028eb\210\301\315\303\304#\203]\305\316\304\211#\210\202Leb\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 (#$ . 156904)]) #@58 Make a valid data header. If NOW, use that time instead. (defalias 'message-make-date #[(&optional now) "\302\303\304 \")\207" [system-time-locale now "C" format-time-string "%a, %d %b %Y %T %z"] 3 (#$ . 157521)]) #@50 Insert the Expires header. Expiry in DAYS days. (defalias 'message-insert-expires #[(days) "\212\301\302\303\"\210\304!c)\207" [days message-position-on-field "Expires" "X-Draft-From" message-make-expires-date] 3 (#$ . 157742) "NExpire article in how many days? "]) #@125 Make date string for the Expires header. Expiry in DAYS days. In posting styles use `("Expires" (make-expires-date 30))'. (defalias 'message-make-expires-date #[(days) "\303\304 ! \3058\\\305\233\n\240\210\306\307\310\"!*\207" [cur days nday decode-time current-time 3 message-make-date apply encode-time] 4 (#$ . 158017)]) #@27 Make a unique Message-ID. (defalias 'message-make-message-id #[nil "\303\304 \212\305\306!)\212\305\307!)\n\203/\n\310H\203/\n\311H\203/ \203/\312\n\311H!\312 !\230\203:\203>\313\314\"\203>\315\202?\316*\317\320 \321\260\207" [psupersedes psubject message-reply-headers "<" message-unique-id message-fetch-field "subject" "supersedes" 5 1 message-strip-subject-re string-match "_-_@" "_-_" "" "@" message-make-fqdn ">"] 6 (#$ . 158354)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list message-unique-id-char default-boundp set-default nil] 3) (defalias 'message-unique-id #[nil "\206\304\305\306!\307\310\311\"S\"T\312\246\313 \n\314>\204\"\315\316 !\203;\317 \227\320\321 \"\2036 \322\224\323I\210\202& )\202@\324\316 \325\"\324 @\307\326\246\327\"\\\330\"\324 A@\307\326\245\327\"\\\330\"\331R)\207" [message-unique-id-char tm system-type user logand random t lsh 1 20 625 current-time (ms-dos emx) floatp user-uid user-login-name string-match "[^a-z0-9_]" 0 95 message-number-base36 -1 25 16 4 ".fsf"] 7]) (defalias 'message-number-base36 #[(num len) "\302W\203\f \302X\202\302U\203\303\207\304 \305\245S\"\306\307 \305\246H!P\207" [len num 0 "" message-number-base36 36 char-to-string "zyxwvutsrqponmlkjihgfedcba9876543210"] 5]) #@30 Make an Organization header. (defalias 'message-make-organization #[nil "\205\304!\203 \202\305\306!r\nq\210\307\216\310 \210 ;\203) c\210\202= \311=\203= \203=\312 !\203=\313 !\210eb\210\314\315\316\311#\203Q\317\320\311\211#\210\202@\321\322 !?\205[\323 ,\207" [message-user-organization organization #1=#:temp-buffer message-user-organization-file functionp generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte t file-exists-p insert-file-contents re-search-forward "[ \n]+" nil replace-match "" zerop buffer-size buffer-string] 4 (#$ . 159661)]) #@54 Count the number of lines and return numeric string. (defalias 'message-make-lines #[nil "\212\214~\210\300 \210\301\302`d\"!*\207" [message-goto-body int-to-string count-lines] 4 (#$ . 160314)]) #@48 Return the References header for this message. (defalias 'message-make-references #[nil "\205%\303H\304H \204\n\205$ \206\305 \205\306\n\206#\305Q*\207" [message-reply-headers references message-id 4 5 "" " "] 3 (#$ . 160516)]) #@49 Return the In-Reply-To header for this message. (defalias 'message-make-in-reply-to #[nil "\205\214\306H\307H\310H\211\205\213\311 ! \211\205\312\f@\203o\313\314\f@\"\203j\315\316!r q\210\317\216\320 \210\f@c\210eb\210\321\322\323\324#\203a\325u\210\326\327\323x\306\246!\330\224b\210\203[\331c\210\323u\210\202?\322\332 \322Q+\202r\f@\202r\fA@\333\n\203}\n\334\230\203\201\335\202\202\n\322 \205\210\336\260)+\207" [message-reply-headers msg-id date from name #1=#:temp-buffer 2 3 4 mail-extract-address-components " (" string-match "[^-]" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte search-forward "\"" nil t -1 zerop "\\\\" 0 "\\" buffer-string "'s message of \"" "" "(unknown date)" ")"] 8 (#$ . 160764)]) #@29 Make a Distribution header. (defalias 'message-make-distribution #[nil "\302\303!\304 !\203 \202)\207" [orig-distribution message-distribution-function message-fetch-reply-field "distribution" functionp] 2 (#$ . 161593)]) #@54 Return an Expires header based on `message-expires'. (defalias 'message-make-expires #[nil "\303 \304\305\306#\211\211@\307 \310\311\312\"\245!\\\240\210\nA\nA@\307 !\310\311\312\"\246\\\240\210\313\n!*\207" [message-expires future current current-time * 1.0 86400 round expt 2 16 message-make-date] 8 (#$ . 161828)]) #@19 Return uucp path. (defalias 'message-make-path #[nil "\302  \204\303 \304Q\202 ;\203 \304Q\202)\207" [login-name message-user-path user-login-name system-name "!"] 3 (#$ . 162155)]) #@21 Make a From header. (defalias 'message-make-from #[(&optional name address) "\n\206\306 \f\206\307\305!\203 \206\305 \211'\310\230\203%\311 '\312\313!(r(q\210\314\216\315 \210 \203?'\316\232\203E c\210\202\357 \317=\204\202 \320=\204\263\321\322'\"\203\202'\323P)\321\324)\"\203y)\325\224\326I\210)\325\225S\326I\210\202_\321\327)\")\203\263'c\210eb\210\330\322\323\331#\203\252eb\210\332c\210\330\333\323\331#\203\247\334\335\336\"\210\202\227\332c\210\337 \340\261\210\202\357 \341\261\210`*'c\210*b\210\330\342\323\331#\203\323\334\335\336\"\210\202\303*b\210\330\343\323\331#\203\353\334\344\336\"\210*b\210\202\327)\345c\210\346 .\207" [message-from-style style address login name user-full-name message-make-address boundp "&" user-login-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-enable-multibyte "" angles parens string-match "[^- !#-'*+/-9=?A-Z^-~]" nil "([^()]*)" 0 45 "[\\()]" re-search-forward 1 "\"" "[\"\\]" replace-match "\\\\\\&" t " <" ">" " (" "[()\\]" "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" "\\1(\\3)" ")" buffer-string fullname #1# tmp fullname-start] 5 (#$ . 162355)]) #@131 Return the "real" user address. This function tries to ignore all user modifications, and give as trustworthy answer as possible. (defalias 'message-make-sender #[nil "\300 \301\302 Q\207" [user-login-name "@" system-name] 3 (#$ . 163625)]) #@31 Make the address of the user. (defalias 'message-make-address #[nil "\300 \206 \301 \302\303 Q\207" [message-user-mail-address user-login-name "@" message-make-domain] 3 (#$ . 163872)]) #@51 Return the pertinent part of `user-mail-address'. (defalias 'message-user-mail-address #[nil "\205\301\302\"\205\301\303\"\203\304!A@\207\207" [user-mail-address string-match "@.*\\." " " mail-extract-address-components] 3 (#$ . 164065)]) #@27 Return the envelope from. (defalias 'message-sendmail-envelope-from #[nil "\301=\203\302\303\304!!A@\207;\203\207\305 \207" [message-sendmail-envelope-from header mail-extract-address-components message-fetch-field "from" message-make-address] 3 (#$ . 164321)]) #@44 Return user's fully qualified domain name. (defalias 'message-make-fqdn #[nil "\300 \306 \211\205\307\310 \"\205\311\312 \"\313\f\2034\f;\2034\307 \f\"\2034\307\f\"\2044\f\202\210\307 \"\203G\307\"\204G\202\210\314\315!\203i ;\203i\307  \"\203i\307 \"\204i \202\210\n\203\205\n;\203\205\307 \n\"\203\205\307\n\"\204\205\n\202\210\316P,\207" [system-name user-mail user-domain case-fold-search message-user-fqdn message-valid-fqdn-regexp message-user-mail-address string-match "@\\(.*\\)\\'" match-string 1 t boundp mail-host-address ".i-did-not-set--mail-host-address--so-tickle-me" message-bogus-system-names] 4 (#$ . 164596)]) #@30 Return the name of the host. (defalias 'message-make-host-name #[nil "\301 \302\303\"\210\304\211\225SO)\207" [fqdn message-make-fqdn string-match "^[^.]+\\." 0] 3 (#$ . 165273)]) #@25 Return the domain name. (defalias 'message-make-domain #[nil "\206\301 \207" [mail-host-address message-make-fqdn] 1 (#$ . 165462)]) #@100 Send a message to the list only. Remove all addresses but the list address from To and Cc headers. (defalias 'message-to-list-only #[nil "\301\302!\211\205\212\303\304!\210\303\305!\210\306\307\310\"\210c))\207" [listaddr message-make-mail-followup-to t message-remove-header "to" "cc" message-position-on-field "To" "X-Draft-From"] 4 (#$ . 165605) nil]) #@177 Return the Mail-Followup-To header. If passed the optional argument ONLY-SHOW-SUBSCRIBED only return the subscribed address (and not the additional To and Cc header contents). (defalias 'message-make-mail-followup-to #[(&optional only-show-subscribed) "\306\307\310!\307\311! \211\205\n\205\312\nQ\313\314\315 !\" \205\203\316\211\211\211 !\212\317\320!\"r\"q\210\321\216\322 !\210m\204w`!\323y\210` n\203U S \324! {!\203n\325Q\202?\326P\202?\205\201\327PC.#\330\331$\313\324%\"#\313\332&\"%'\333 (\334\216\f)\316*\306+\316,):\203 )@*'-\316.\306/\3160-:\203\355-@.\335.*\"\203\340\3060\316\211/\202\341\306\203\355-A\211-\202\3040,\203\376*,\316\211+\202\377\306\203 )A\211)\202\254,,\2111\2052\2031\202 .\n\207" [case-fold-search to cc msg-recipients recipients message-subscribed-address-file t message-fetch-field "To" "cc" ", " mapcar mail-strip-quoted-names message-tokenize-header nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents 1 regexp-quote "\\|" "\\`\\(" "\\)\\'" apply append funcall match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match re item end begin #1# file-regexps message-subscribed-regexps message-subscribed-addresses message-subscribed-address-functions mft-regexps save-match-data-internal #2=#:--cl-var-- recipient #3=#:--cl-var-- #4=#:--cl-var-- #5=#:--cl-var-- regexp #6=#:--cl-var-- #7=#:--cl-var-- list only-show-subscribed] 9 (#$ . 165971)]) #@63 Interactively potentially IDNA encode domain names in HEADER. (defalias 'message-idna-to-ascii-rhs-1 #[(header) "\306!\307\211\211\211\205\206\310\311\312\311\313\311\314\315\f\316\"\"\"\"!\307\211\203\204 @\317\320 \"\2032 \2026\321 !\227 \n\232\204}\322=\203O\323\324\325 \n$!\203}eb\210\326\327\330Q\307\316#\203}\331 \210\332\333 P\307\316#\203u\334\333\nP\316\211#\210\202`db\210~\210\202R A\211\204$*\307,\207" [header address ace rhs field #1=#:--cl-dolist-temp-- message-fetch-field nil mm-delete-duplicates mapcar #[(rhs) "\302\303\"\211A@)\206 \304\207" [rhs x split-string "@" ""] 4] downcase cadr mail-extract-address-components t string-match "\\`[[:ascii:]]*\\'" idna-to-ascii ask y-or-n-p format "Replace %s with %s in %s:? " re-search-forward "^" ":" message-narrow-to-field search-forward "@" replace-match message-use-idna] 12 (#$ . 167608)]) #@103 Possibly IDNA encode non-ASCII domain names in From:, To: and Cc: headers. See `message-idna-encode'. (defalias 'message-idna-to-ascii-rhs #[nil "\205!\212\214\301 \210\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310!*\207" [message-use-idna message-narrow-to-headers-or-head message-idna-to-ascii-rhs-1 "From" "To" "Reply-To" "Mail-Reply-To" "Mail-Followup-To" "Cc"] 2 (#$ . 168505) nil]) #@83 Prepare article HEADERS. Headers already prepared in the buffer are not modified. (defalias 'message-generate-headers #[(headers) "\306 \"\214\307 \210\310 \311 \312 \313 \314 @\315\211AB\316 C\317 D\315E\320 F\321 GHI\322 J\323K\315\211LM\315\211NO\315PQ\324 \204[\325\303\326!\"\203\214eb\210\327\330\331@!\332Q\315\323#\203\203\333\334\224T\335\"\203\203\336 \210`\337y\210`|\210\211A@\210\202[)\203\371eb\210\211A@\211O:\203\273O@\340=\203\263OAM\323L\202\277O@M\202\277OMM;\203\312M\202\316\331M!P\327\330\341P\227!\342Q\315\323#\203\365\315f\343U\204\354\344c\210\202\357\337u\210\345\346!\203\215O:\203.O@\340=\203.PR\235\204.OAM\347OA!\203OA \206w\350OA!\205wOAJ\202wO:\203POA;\203AOA\206w\347OA!\205wOA \202w\350M!\203cMJ\203cMJ\202w\351\352\331M!\227!!?\205w\353\354\355M\"!\211N\203\215N\356\232\204\215\212n\203\304db\210MS\236A\211T\203\243TMN\"\210\202\253P\357N\261\210PRBR\360 b\210n\204\275\361c\210\362y\210)\202\334`\363 |\210L\204\334PRBRNc\210\360 \210MQ>\203\365\336 \210\345\364!\203\365\365`\334\225\366p$\210)\202\215\367\370!\367\371!\372 U;\211V\203h\351\373!\204h\374V!\211WA@)\227U\227\230\204h;\203:\374;!\211WA@)\227U\227\230\204heb\210\327\375\315\323#\203N\336 \210\376c\210\336 \210\377 \204_\201X\201YU\"\203h\201ZU\361\261\210+\201[ .\207" [headers message-required-headers Date Message-ID Organization From append message-narrow-to-headers message-make-date message-make-message-id message-make-organization message-make-from message-make-path nil message-make-in-reply-to message-make-references message-make-distribution message-make-lines message-make-expires t buffer-modified-p delq copy-sequence re-search-forward "^" symbol-name ": *" get-text-property 0 message-deletable beginning-of-line 1 optional regexp-quote ":" 32 " " looking-at "[ ]*\n[^ ]" functionp boundp message-check-element intern read-from-minibuffer format "Empty header for %s; enter value: " "" ": " message-fill-field "\n" -1 point-at-eol "[^:]+: " add-text-properties (message-deletable t face italic) message-fetch-field "from" "sender" message-make-sender sender mail-extract-address-components "^\\(Original-\\)*Sender:" "Original-" message-news-p Path Subject Newsgroups In-Reply-To References To Distribution Lines message-newsreader User-Agent Expires case-fold-search optionalp header value elem header-string message-deletable-headers message-inserted-headers message-header-format-alist formatter secure-sender from x string-match "@.+\\.." "Sender: " message-idna-to-ascii-rhs] 6 (#$ . 168928)]) #@64 Insert a courtesy message in mail copies of combined messages. (defalias 'message-insert-courtesy-copy #[nil "\302\212\214\303 \210\304\305!\211\203db\210\306\307\261\210)\310y\210 \2051\311\312 \"\203/\313 \"c\2021 c*\207" [newsgroups message-courtesy-message nil message-narrow-to-headers message-fetch-field "newsgroups" "Posted-To: " "\n" 1 string-match "%s" format] 3 (#$ . 171616)]) (defalias 'message-skip-to-next-address #[nil "\212\303 \210`)\304\211\305\306!\203\307u\210`\nU\204?\310=\203$ \203?\311dw\210g\211\312=\2033 ?`\nU\204\307u\210\202\313\304w+\207" [char quoted end message-next-header nil looking-at "," 1 44 "^,\"" 34 " \n"] 3]) (defalias 'message-fill-address #[(header value) "\302\303!!\304 :\203 @\202 \305\261\210\306 \207" [header value capitalize symbol-name ": " "\n" message-fill-field-address] 4]) #@140 Split current line, moving portion beyond point vertically down. If the current line has `message-yank-prefix', insert it on the new line. (defalias 'message-split-line #[nil "\300\301\302\217\207" [nil (split-line message-yank-prefix) ((error (split-line)))] 3 (#$ . 172487) "*"]) (defalias 'message-insert-header #[(header value) "\302\303!!\304 :\203 @\202 \261\207" [header value capitalize symbol-name ": "] 3]) (defalias 'message-field-name #[nil "\212eb\210\300\301!\205\302\303\304\305!!!)\207" [looking-at "\\([^:]+\\):" intern capitalize match-string 1] 4]) (defalias 'message-fill-field #[nil "\212\214\303 \210\304 \211 \236\211A@)\206\305 \210)d*\207" [field-name message-field-fillers x message-narrow-to-field message-field-name message-fill-field-general] 3]) (defalias 'message-fill-field-address #[nil "m?\205)\301 \210\302i\303V\203\"\203\"\212b\210\304c\210)`T\202%`T)\202\207" [last message-skip-to-next-address nil 78 "\n "] 2]) (defalias 'message-fill-field-general #[nil "`\303\304\305\306\307\310#\203m\204\311\312\310\211#\210\202\313\nd\"\210\314y\210\315\316!\2033\317 \210`\320y\210`|\210\nb\210\305\321\307\310#\210\315\322!\203H\311\312\310\211#\210db+\207" [fill-prefix fill-column begin 78 " " search-forward "\n" nil t replace-match " " fill-region-as-paragraph -1 looking-at "[ ]*$" beginning-of-line 1 ":" "\n[ ]+"] 4]) #@61 Cut SURPLUS elements out of LIST, beginning with CUTth one. (defalias 'message-shorten-1 #[(list cut surplus) "\303Z \233\304\303Z\n\305# \233\241\207" [cut list surplus 2 + 1] 5 (#$ . 173885)]) #@202 Trim REFERENCES to be 21 Message-ID long or less, and fold them. When sending via news, also check that the REFERENCES are less than 988 characters long, and if they are not, trim them until they are. (defalias 'message-shorten-references #[(header references) "\306\307\310\311\312\313!r\fq\210\314\216 c\210eb\210\315\316\311\317#\203)\320\307!B\202\237\211G+\n V\203H\n Z\321 #\210\nZ)\203t\322\312\313!rq\210\323\216\324\325\326\327#\"\210\330 +W\203t\321 \331#\210\202M\324\325\326\327#\",\207" [refs cut count maxcount #1=#:temp-buffer references 21 0 2 nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward "<[^ <]+@[^ <]+>" t match-string message-shorten-1 998 ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) message-insert-header mapconcat identity " " buffer-size 1 surplus message-this-is-news #2# header] 8 (#$ . 174089)]) #@57 Move point to where the user probably wants to find it. (defalias 'message-position-point #[nil "\300 \210\301\302\303\304#\203!\305\306!\210~\210\307u\210\303f\310=\203\307u\207\311c\207db\210~\210\307y\210\312\313!?\2052\314y\207" [message-narrow-to-headers re-search-forward "^[^:]+:[ ]*$" nil t search-backward ":" 1 32 " " looking-at "$" 2] 4 (#$ . 175091)]) #@93 Whether \\[message-beginning-of-line] goes to beginning of header values. (custom-declare-variable 'message-beginning-of-line 't '(#$ . 175466) :version "22.1" :group 'message-buffers :link '(custom-manual "(message)Movement") :type 'boolean) #@620 Move point to beginning of header value or to beginning of line. The prefix argument N is passed directly to `beginning-of-line'. This command is identical to `beginning-of-line' if point is outside the message header or if the option `message-beginning-of-line' is nil. If point is in the message header and on a (non-continued) header line, move point to the beginning of the header value or the beginning of line, whichever is closer. If point is already at beginning of line, move point to beginning of header value. Therefore, repeated calls will toggle point between beginning of field and beginning of line. (defalias 'message-beginning-of-line #[(&optional n) "\2032\306 \2032`\307\n!\210`\310 \311\312\f\313#\211\203. W\204* U\203. \202/ b,\207\307\n!\207" [message-beginning-of-line here n bol eol eoh message-point-in-header-p beginning-of-line point-at-eol re-search-forward ": *" t] 5 (#$ . 175734) "p"]) #@57 Return a new (unique) buffer name based on TYPE and TO. (defalias 'message-buffer-name #[(type &optional to group) "\306>\2032\307\310 \n\203\311\312\n!@\206\n\313Q\202\313 \203, \313\230\204,\314 P\202-\313\310\260!\207\315!\203> \n #\207\316=\203p\307\317 \n\203Y\311\312\n!@\206T\n\313Q\202Z\313 \203j \313\230\204j\314 P\202k\313\310\260!\207\320=\203\307\310 \321Q!\202\207\322\323 \n #)\324\325\326\327\f\"\203\231\f\330\211\224O\202\232\f!\331Q\332\"\333\334\335\332\336\337\340 \"\"\341\"!\211#@A)\206\270\f+\207" [message-generate-new-buffers type to group new regexp (unique t) generate-new-buffer-name "*" " to " mail-extract-address-components "" " on " functionp unsent "*unsent " standard " message*" unique message-buffer-name "\\`" regexp-quote string-match "<[0-9]+>\\'" 0 "\\(?:<\\([0-9]+\\)>\\)?\\'" nil last sort delq mapcar #[(b) "\303\304 !\211\"\205\"r q\210\n)\305=\205\"\306\307\310 \"\206\311! B\207" [regexp b major-mode string-match buffer-name message-mode string-to-number match-string 1 "1"] 4] buffer-list car-less-than-car case-fold-search x] 8 (#$ . 176675)]) #@68 Pop to buffer NAME, and warn if it already exists and is modified. (defalias 'message-pop-to-buffer #[(name &optional switch-function) "\304!\211\203F\305 !\203F\306 \307\"\211\203$\310\311\n!!\210\312\n!\210\202/ \206)\313 !\210 q\210\314 \203B\315\316!\317\320!\210\204B\321\322!\210)\202Q \206K\313!\210q\210\323 \210\324 )\207" [name buffer window switch-function get-buffer buffer-name get-buffer-window 0 gnus-select-frame-set-input-focus window-frame select-window pop-to-buffer buffer-modified-p y-or-n-p "Message already being composed; erase? " message nil error "Message being composed" erase-buffer message-mode] 4 (#$ . 177817)]) #@27 Kill old message buffers. (defalias 'message-do-send-housekeeping #[nil "\306p\" \203.\203.G Y\203.\211A@\307\n!\203*\310\n!\204*\311\n!\210)\202 \2038 \210\202\251\312\313\307 \"\203\251\314\315\307 \"\316\211\211\203g\317\230\204g\320\230\204g\321\322Q\202\232\323 \210\324\325!\324\326!~\210 \203\206\327\330 !@\206\201 \322Q\202\230\f\203\227\f\331\230\204\227\332\f\322Q\202\230\333\307 \230\204\250\334\335\"\210+ \205\263pC\244\211\207" [message-buffer-list message-max-buffers buffer message-send-rename-function group to delq buffer-name buffer-modified-p kill-buffer string-match "\\`\\*\\(sent \\|unsent \\)?\\(.+\\)\\*[^\\*]*\\|\\`mail to " 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 name] 4 (#$ . 178480)]) (defalias 'message-mail-user-agent #[nil "\204\303\202\304=\203 \202\211\305>?\205\n)\207" [message-mail-user-agent mail-user-agent mua nil t (message-user-agent gnus-user-agent)] 3]) (defalias 'message-setup #[(headers &optional yank-action actions continue switch-function) "\306 \307\211\211\f\203 \204\310 #\202b\311 !\312 \236\211\203/A\313 \"\314 \236\211\203?A\313 \" \315 \n\316\317 \"\320!\203[\321D\202]&),\207" [field to subject mua message-this-is-mail headers message-mail-user-agent nil message-setup-1 copy-sequence Subject delq To compose-mail mapcar #[(item) "\301\302@\"AB\207" [item format "%s"] 3] bufferp insert-buffer yank-action actions mail-user-agent continue switch-function] 9]) #@210 Return a list that includes all headers from HEADERS. If INCLUDED-HEADERS is a list, just include those headers. If it is t, include all headers. In any case, headers from EXCLUDED-HEADERS are not included. (defalias 'message-headers-to-generate #[(headers included-headers excluded-headers) "\306\211\n\306\211\203K\f@\211:\203 @\307=\203 A\202+ :\203* @\202+ \211 >\204D \310=\204@ >\203D B\fA\211\204\f* \237*\207" [header-name result headers header #1=#:--cl-dolist-temp-- excluded-headers nil optional t included-headers] 3 (#$ . 180196)]) (defalias 'message-setup-1 #[(headers &optional yank-action actions) "\306\211\203\n@\306\307\306\217\210\nA\211\204* :\203* @\310=\203* A@\202+ eb\210\311  !!\203c!\211\"@@)\236\204X!\211\"@@)C B !\211A!@\210\2027 * \"\210`\312y\210`|\210#\203\200#c\210n\204\200\313c\210$\314\261\210\312y\210\315 \203\261%\203\236%c\210n\204\236\313c\210&\203\261\316\317\320'(\"&\321#!\210\322 \203\331)\203\306)c\210n\204\306\313c\210&\203\331\316\317\320*(\"&\323#!\210\324\325!\210\326 \210\214\327 \210\324\330!\210)\306+,\203\364\331 \210\324\332!\210\322 \203\n\214\327 \210-\203 \333 \210)\334 \210\335\306!\210\336 \207" [actions action #1=#:--cl-dolist-temp-- yank-action message-reply-buffer headers nil (byte-code "\301\302\303\304@D\304ADE\"\207" [action add-to-list message-send-actions apply quote] 6) insert-buffer mail-header-format -1 10 "\n" message-news-p message-generate-headers message-headers-to-generate append (Lines Subject) message-mail-p (Lines Subject) run-hooks message-signature-setup-hook message-insert-signature message-narrow-to-headers message-header-setup-hook mail-add-payment-async message-setup-hook message-use-alternative-email-as-from message-position-point set-buffer-modified-p undo-boundary message-header-format-alist alist h x message-default-headers mail-header-separator message-default-news-headers message-generate-headers-first message-required-news-headers message-required-headers message-default-mail-headers message-required-mail-headers buffer-undo-list message-generate-hashcash message-alternative-emails] 6]) #@67 Associate the message buffer with a file in the drafts directory. (defalias 'message-set-auto-save-file-name #[nil "\205:\306\307!!\204\310\311\"\210\312 \203\313\314!\2023\315\n\316>\203(\317\202)\320\321\322!P\"\323 \324 \210 \211\207" [message-auto-save-directory message-draft-article system-type buffer-file-name buffer-auto-save-file-name message-draft-coding-system file-directory-p directory-file-name make-directory t gnus-alive-p nndraft-request-associate-buffer "drafts" expand-file-name (ms-dos ms-windows windows-nt cygwin cygwin32 win32 w32 mswindows) "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 (#$ . 182396)]) #@60 Disassociate the message buffer from the drafts directory. (defalias 'message-disassociate-draft #[nil "\205 \301C\302\303\304$\207" [message-draft-article nndraft-request-expire-articles "drafts" nil t] 5 (#$ . 183140)]) #@39 Generate the headers for the article. (defalias 'message-insert-headers #[nil "\212\214\302 \210\303 \203\304\305\306\305\307\310!\"\"!\210\311 \205&\304\305\306\305\307\310 !\"\"!*\207" [message-required-news-headers message-required-mail-headers message-narrow-to-headers message-news-p message-generate-headers delq Lines Subject copy-sequence message-mail-p] 7 (#$ . 183371) nil]) #@246 Start editing a mail message to be sent. OTHER-HEADERS is an alist of header/value pairs. CONTINUE says whether to continue editing a message already being composed. SWITCH-FUNCTION is a function used to switch to and display the mail buffer. (defalias 'message-mail #[(&optional to subject other-headers continue switch-function yank-action send-actions) "\306\307 \204\"\310 \203\n\311=\204\312\n!\205\n\313\314 \")\f\"\210\315\316 \206)\317B\320 \2060\317BD\321\211\203\\@\211@;\203S\322\323@!!\240\210A\211\204=\321*\244 \f%\210)\306\207" [message-this-is-mail continue message-generate-new-buffers to switch-function subject t message-mail-user-agent message-pop-to-buffer standard functionp message-buffer-name "mail" message-setup To "" Subject nil intern capitalize other-headers h #1=#:--cl-dolist-temp-- yank-action send-actions] 7 (#$ . 183767) nil]) #@42 Start editing a news article to be sent. (defalias 'message-news #[(&optional newsgroups subject) "\303\304\305\306\307 #!\210\310\311 \206\312B\313\n\206\312BD!)\207" [message-this-is-news newsgroups subject t message-pop-to-buffer message-buffer-name "posting" nil message-setup Newsgroups "" Subject] 5 (#$ . 184677) nil]) #@270 Discard mail address in full names. When the full name in reply headers contains the mail address (e.g. "foo@bar "), discard full name. ADDRCELL is a cons cell where the car is the mail address and the cdr is the complete address (full name and mail address). (defalias 'message-alter-recipients-discard-bogus-full-name #[(addrcell) "\301\302@!\303\302@!QA\"\203@@B\207\207" [addrcell string-match regexp-quote ".*"] 5 (#$ . 185015)]) #@188 Function called to allow alteration of reply header structures. It is called in `message-get-reply-headers' for each recipient. The function is called with one parameter, a cons cell ... (custom-declare-variable 'message-alter-recipients-function 'nil '(#$ . 185474) :type '(choice (const :tag "None" nil) (const :tag "Discard bogus full name" message-alter-recipients-discard-bogus-full-name) function) :version "23.1" :group 'message-headers) (defalias 'message-get-reply-headers #[(wide &optional to-address address-headers) "\306\211\211\211\211\211\211\211\211;<=\214\307 \210\310\311!\206^>?\306@\312A\306B?:\203U?@@\313@>\203H\312B\306\211A\202I\312\203U?A\211?\202.B,\205^\310\314!\310\315!C\205q\316\317\320\310C\"\321#\310\322!<\310\323!\206\212\310\324!\206\212\310\325!\206\212\326D\205\223\310\327!)<\203\306<\227\330\232\204\252<\227\331\232\203\263\312;\306<\202\306<\227\332\232\204\303<\227\333\232\203\306 <\334 E\335\216F\204\330\321 P\202\210G\203 G\306H\211I\203I@H\310H!\211J\203\375 \321JQ)IA\211I\204\350*\202\210\n\203=\336\337\n\"\203=D\340=\2036\341\342\343\312\344\n\345\336\346\n\"\203/\347\2020\350\351&\203=\321\nP\202\210K\203U\321KP<\203\210 \321\203\n\203\305 !\306>\203 \307\306 !P\310>\203.\f\203.\310 !\311>\2038\311 ! \207" [functions message-simplify-subject-functions gnus-list-identifiers subject message-subject-trailing-was-query message-strip-list-identifiers message-strip-subject-re "Re: " message-strip-subject-trailing-was message-strip-subject-encoded-words] 3 (#$ . 189883)]) #@61 Start editing a reply to the article in the current buffer. (defalias 'message-reply #[(&optional to-address wide) "\306\307!\210p\310\211\211\211\211\211\211\211\211\311\211\310$%&'()*\214\312 \210+\204>\313,!\203K\212, )\202K\313-!\203K\212- )\314\315\311\"\314\316!\314\317!'\314\320!\206`\321)\314\322!\206i\323(\324(!(\314\325!\211\203\205\326\327\"\203\205\330\331\" \204\220\332+.\")\333 \204\256\334\335+\203\241\336\202\242\337)+\205\253.#!\210\340\331()'\f \331\211\341& /\342\343(B B*\". \207" [gnus-warning message-this-is-mail inhibit-point-motion-hooks follow-to message-id references require gnus-sum nil t message-narrow-to-head-1 functionp message-fetch-field "message-id" "references" "date" "from" "nobody" "subject" "none" message-simplify-subject "gnus-warning" string-match "<[^>]+>" match-string 0 message-get-reply-headers message-mail-user-agent message-pop-to-buffer message-buffer-name "wide reply" "reply" vector "" message-setup Subject cc to reply-to date subject from cur wide message-reply-to-function message-wide-reply-to-function to-address message-reply-headers] 13 (#$ . 190362) nil]) #@59 Make a "wide" reply to the message in the current buffer. (defalias 'message-wide-reply #[(&optional to-address) "\301\302\"\207" [to-address message-reply t] 3 (#$ . 191547) nil]) #@104 Follow up to the message in the current buffer. If TO-NEWSGROUPS, use that as the new Newsgroups line. (defalias 'message-followup #[(&optional to-newsgroups) "\306\307!\210p\310\211\211\211\211\211\211\211\211\311\211\310\211\211\211\211@ABCDEFGHIJ\214eb\312\313\310\311#\203A`S\202Bd}\210\314K!\203PK A\315\316!I\315\317!G\315\320!\206a\321H\315\322!C\315\323\311\"B\315\324!\315\325!\315\326!\315\327!F\315\330!E\315\331!\315\332!D\315\333!\211\203\242\334\335 \"\203\242\336\337 \"B ;\203\264\311L\334\340 \")\203\264\310\341H!H~\210)\342\343\344I\n#!\210\345\337HIGBC\337\211\346& M\347\350HB\351N\203\354\352NBC\202xA\203\366A\202x\f\203iO\203i\f\227\353\232\2033O\354=\204\355\356\357\311\360$\203-\310\361E\206)F\206)I\206)\346B\202e\352\nB\202e\f\n\232\204\\O\362=\203\\\355\356\363\f\364Q\311\365\f\366\334\367\f\"\203U\370\202V\371\372&\203b\352\fB\202e\352\nBC\202x\203t\352BC\202x\352\nBC \205\200\373 BCD\205\276D\227\374\232\206\222D\227\375\232?\205\276\376D\227\377\232\204\247D\227\353\232\203\272E\206\274F\206\274I\206\274\346\202\274DBC#BJ\".\207" [posted-to gnus-warning newsgroups distribution followup-to message-this-is-news require gnus-sum nil t search-forward "\n\n" functionp message-fetch-field "from" "date" "subject" "none" "references" "message-id" "followup-to" "newsgroups" "posted-to" "reply-to" "mail-reply-to" "distribution" "mail-copies-to" "gnus-warning" string-match "<[^>]+>" match-string 0 "world" message-simplify-subject message-pop-to-buffer message-buffer-name "followup" vector "" message-setup Subject append Newsgroups "poster" use message-talkative-question y-or-n-p "Obey Followup-To: poster? " "You should normally obey the Followup-To: header.\n\n`Followup-To: poster' sends your response via e-mail instead of news.\n\nA typical situation where `Followup-To: poster' is used is when the poster\ndoes not read the newsgroup, so he wouldn't see any replies sent to it.\n\nYou may customize the variable `message-use-followup-to', if you\nwant to get rid of this query permanently." To ask "Obey Followup-To: " "? " "You should normally obey the Followup-To: header.\n\n `Followup-To: " "'\ndirects your response to " "," "the specified newsgroups" "that newsgroup only" ".\n\nIf a message is posted to several newsgroups, Followup-To is often\nused to direct the following discussion to one newsgroup only,\nbecause discussions that are spread over several newsgroup tend to\nbe fragmented and very difficult to follow.\n\nAlso, some source/announcement newsgroups are not intended for discussion;\nresponses here are directed to other newsgroups.\n\nYou may customize the variable `message-use-followup-to', if you\nwant to get rid of this query permanently." Distribution "never" "nobody" Cc "always" inhibit-point-motion-hooks follow-to message-id references mct mrt reply-to date subject from cur message-followup-to-function case-fold-search message-reply-headers to-newsgroups message-use-followup-to] 17 (#$ . 191736) nil]) #@313 Non-nil means current article is yours. If you have added 'cancel-messages to `message-shoot-gnksa-feet', all articles are yours except those that have Cancel-Lock header not belonging to you. Instead of shooting GNKSA feet, you should modify `message-alternative-emails' regexp to match all of yours addresses. (defalias 'message-is-yours-p #[nil "\212\214\305 \210\306\307!\203\310 \204\311\202e\312\313!\202e\314\211\315 )\206d\306\316!\211\203> \227\317 \227\230\206d\306\320!\211\203U\321!@\227\321\322 !@\227\230\206d\205d\f\205d\323\f\321!@\"**\207" [from sender feature 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 string-match] 4 (#$ . 194840)]) #@82 Cancel an article you posted. If ARG, allow editing of the cancellation message. (defalias 'message-cancel-news #[(&optional arg) "\306 \204 \307\310!\210\311\211\211\211\211\212\214\312 \210\313\314!\313\315!\313\316\317\"\313\320!)\321 \2043\307\322!\210\323\324!\205\211 \203C\325 \210\202H\326\327!q\330 \210\331 \332\333\f\332\334\n\332\335\n\332 \203b\336 \332Q\202c\337'\332(\261\210\340\341!\210 ?\205\211\342\343!\210\344)* )\203\206\342\345!\210\346!.\207" [buf distribution message-id newsgroups from arg message-news-p error "This is not a news article; canceling is impossible" nil message-narrow-to-head-1 message-fetch-field "from" "newsgroups" "message-id" t "distribution" message-is-yours-p "This article is not yours" yes-or-no-p "Do you really want to cancel this article? " message-news get-buffer-create " *message cancel*" erase-buffer "Newsgroups: " "\n" "From: " "Subject: cmsg cancel " "Control: cancel " "Distribution: " "" run-hooks message-cancel-hook message "Canceling your article..." dont-check-for-anything-just-trust-me "Canceling your article...done" kill-buffer mail-header-separator message-cancel-message message-syntax-checks message-send-news-function] 16 (#$ . 195781) "P"]) #@168 Start composing a message to supersede the current message. This is done simply by taking the old article and adding a Supersedes header line with the old Message-ID. (defalias 'message-supersede #[nil "p\303 \204 \304\305!\210\306\307\310!!\210\311!\210\312 \210\313 \210 \203$\314 \315\"\210eb\210\316\317\320\315#\2046\304\321!\210\202<\322\323\315\211#\210db\210\nc\210~\210\324y)\207" [cur message-ignored-supersedes-headers mail-header-separator message-is-yours-p error "This article is not yours" message-pop-to-buffer message-buffer-name "supersede" insert-buffer-substring mime-to-mml message-narrow-to-head-1 message-remove-header t re-search-forward "^Message-ID: " nil "No Message-ID in this article" replace-match "Supersedes: " 1] 4 (#$ . 197031) nil]) #@65 Reread contents of current buffer from its last auto-save file. (defalias 'message-recover #[nil "\302 \303\213\203\304\305 \210\306\304\")\202\307\310!)\207" [file-name buffer-read-only make-auto-save-file-name ((byte-code "\303\220rq\210\304 \210)\305!\210\306\307\310\311\311\312\n&)\221\210\313\314\315\n\"!\207" [standard-output default-directory file-name "*Directory*" fundamental-mode buffer-disable-undo "/" call-process "ls" nil "-l" yes-or-no-p format "Recover auto save file %s? "] 8)) nil erase-buffer insert-file-contents error "message-recover cancelled"] 3 (#$ . 197811) nil]) #@120 Remove junk like "Re:", "(fwd)", etc. added to subject string SUBJECT. Previous forwarders, replyers, etc. may add it. (defalias 'message-wash-subject #[(subject) "\302\303!rq\210\304\216 c\210eb\210\305\306\307\310#\203\311\312!\210\202eb\210\305\313\307\310#\2031\311\312!\210\202\"db\210\314\315\307\310#\203C\311\312!\210\2024eb\210\305\316\307\310#\203U\311\312!\210\202Fdb\210\314\317\307\310#\203g\311\312!\210\202X\320 +\207" [#1=#:temp-buffer subject generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward "\\([Rr][Ee]:\\|[Ff][Ww][Dd]\\(\\[[0-9]*\\]\\)?:\\|[Ff][Ww]:\\)" nil t replace-match "" "\\[[^ ]*\\(@\\|\\.\\)[^ ]*\\]" re-search-backward "([Ff][Ww][Dd])" "^[ ]+" "[ ]+$" buffer-string] 4 (#$ . 198423)]) #@48 Non-nil means the original message is decoded. (defvar message-forward-decoded-p nil (#$ . 199240)) #@239 Generate a SUBJECT for a forwarded message. The form is: [Source] Subject, where if the original message was mail, Source is the name of the sender, and if the original message was news, Source is the list of newsgroups is was posted to. (defalias 'message-forward-subject-name-subject #[(subject) "\306\307!\306\310!\203\311!\202) \203(\312 !@\206)\312 !\211A@)\206)\313\314\f\2033 \2026\315 !\316 R+\207" [group from x prefix message-forward-decoded-p subject message-fetch-field "newsgroups" "from" gnus-group-decoded-name gnus-extract-address-components "(nowhere)" "[" mail-decode-encoded-word-string "] "] 5 (#$ . 199347)]) #@227 Generate a SUBJECT for a forwarded message. The form is: [Source] Subject, where if the original message was mail, Source is the sender, and if the original message was news, Source is the list of newsgroups is was posted to. (defalias 'message-forward-subject-author-subject #[(subject) "\304\305!\211\203\306!\202\304\307!\206\310\311\n\203 \202\"\312 !\313 R*\207" [group prefix message-forward-decoded-p subject message-fetch-field "newsgroups" gnus-group-decoded-name "from" "(nowhere)" "[" mail-decode-encoded-word-string "] "] 5 (#$ . 199998)]) #@126 Generate a SUBJECT for a forwarded message. The form is: Fwd: Subject, where Subject is the original subject of the message. (defalias 'message-forward-subject-fwd #[(subject) "\301\302\"\203 \207\303P\207" [subject string-match "^Fwd: " "Fwd: "] 3 (#$ . 200569)]) #@73 Return a Subject header suitable for the message in the current buffer. (defalias 'message-make-forward-subject #[nil "\212\214\306 \210\307\310! \203 \203 \202\311 !\202\312\f\203'\313 !\n\2033\n<\2043\nC\n\314\211\203S@\315 !\203J !A\211\204<* ,\207" [message-make-forward-subject-function subject funcs message-forward-decoded-p message-wash-forwarded-subjects func message-narrow-to-head-1 message-fetch-field "Subject" mail-decode-encoded-word-string "" message-wash-subject nil functionp #1=#:--cl-dolist-temp--] 3 (#$ . 200844)]) #@139 Forward the current message via mail. Optional NEWS will use news to forward instead of mail. Optional DIGEST will use digest to forward. (defalias 'message-forward #[(&optional news digest) "p\306\301p\"\203 \202\n\307 \f\203\310\311 \"\210\202#\312\311 \"\210\313 \"+\207" [cur gnus-article-decoded-p message-forward-decoded-p subject news digest local-variable-p message-make-forward-subject message-news nil message-mail message-forward-make-body] 3 (#$ . 201420) "P"]) (defalias 'message-forward-make-body-plain #[(forward-buffer) "\306c\210`\307\310\311!r\nq\210\312\216\313 \210r q\210\f\203: p\314\216\315\305!\316\216\317\305\307\"\210\320\307!\210\321 -\202I\315\305!\322\216\317\305\307\"\210\321 *)c\210\323 \210\324 \210eb\210\325\326!\203_\327\330!\210\321 +c\210`\331c\210\332 \"*\207" [e b #1=#:temp-buffer forward-buffer mm-emacs-mule enable-multibyte-characters "\n-------------------- Start of forwarded message --------------------\n" nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte ((byte-code "q\210\302 !\207" [#2=#:buffer #3=#:multibyte set-buffer-multibyte] 2)) default-value ((byte-code "\301\302\"\207" [#4=#:--cl-letf-save-- set-default enable-multibyte-characters] 3)) set-default set-buffer-multibyte buffer-string ((byte-code "\301\302\"\207" [#5=#:--cl-letf-save-- set-default enable-multibyte-characters] 3)) mm-enable-multibyte mime-to-mml looking-at "From " replace-match "X-From-Line: " "\n-------------------- End of forwarded message --------------------\n" message-remove-ignored-headers #2# #3# #4# #5#] 3]) (defalias 'message-remove-ignored-headers #[(b e) "\205=\214 \n}\210 b\210`\306\307\310\311#\206`}\210;\203\"C\202#\211\310\211\203; @\312\f\311\"\210 A\211\204,,\310\207" [message-forward-ignored-headers b e ignored elem #1=#:--cl-dolist-temp-- search-forward "\n\n" nil t message-remove-header] 6]) (defalias 'message-forward-make-body-mime #[(forward-buffer) "`\302c\210\214``}\210\303 !\210eb\210\304\305!\203\306\307!\210db\210)\310c\210\311`\312#)\207" [b forward-buffer "\n\n<#part type=message/rfc822 disposition=inline raw=t>\n" mml-insert-buffer looking-at "From " replace-match "X-From-Line: " "<#/part>\n" add-text-properties (no-illegible-text t rear-nonsticky t start-open t)] 4]) (defalias 'message-forward-make-body-mml #[(forward-buffer) "\306c\210`\307\n\204l\310\311!r q\210\312\216\313 \210r\fq\210 \203?p\314\216\315\316!\317\216\320\316\307\"\210\321\307!\210\322 -\202N\315\316! \323\216\320\316\307\"\210\322 *)c\210\324 \210\325 \210eb\210\326\327!\203d\330\331!\210\322 +c\210\202\206\214``}\210\332\f!\210eb\210\326\327!\203\202\330\331!\210db\210)`\333c\210\n?\205\231!\205\231\334 \"*\207" [e b message-forward-decoded-p #1=#:temp-buffer forward-buffer mm-emacs-mule "\n\n<#mml type=message/rfc822 disposition=inline>\n" nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte ((byte-code "q\210\302 !\207" [#2=#:buffer #3=#:multibyte set-buffer-multibyte] 2)) default-value enable-multibyte-characters ((byte-code "\301\302\"\207" [#4=#:--cl-letf-save-- set-default enable-multibyte-characters] 3)) set-default set-buffer-multibyte buffer-string ((byte-code "\301\302\"\207" [#5=#:--cl-letf-save-- set-default enable-multibyte-characters] 3)) mm-enable-multibyte mime-to-mml looking-at "From " replace-match "X-From-Line: " mml-insert-buffer "<#/mml>\n" message-remove-ignored-headers #2# #3# #4# #5# message-forward-ignored-headers] 3]) (defalias 'message-forward-make-body-digest-plain #[(forward-buffer) "\303c\210`\304\305\n!\210`\306c*\207" [e b forward-buffer "\n-------------------- Start of forwarded message --------------------\n" nil mml-insert-buffer "\n-------------------- End of forwarded message --------------------\n"] 2]) (defalias 'message-forward-make-body-digest-mime #[(forward-buffer) "\303c\210`\304\305\n!\210`\306c\210\214 }\210 b\210`\307\310\304\311#\206\"`}\210ed|+\207" [e b forward-buffer "\n<#multipart type=digest>\n" nil insert-buffer-substring "<#/multipart>\n" search-forward "\n\n" t] 5]) (defalias 'message-forward-make-body-digest #[(forward-buffer) "\203\302 !\207\303 !\207" [message-forward-as-mime forward-buffer message-forward-make-body-digest-mime message-forward-make-body-digest-plain] 2]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload mm-uu-dissect-text-parts "mm-uu" mm-uu-dissect] 3) #@236 Say whether the current buffer contains signed or encrypted message. If DONT-EMULATE-MIME is nil, this function does the MIME emulation on messages that don't conform to PGP/MIME described in RFC2015. HANDLES is for the internal use. (defalias 'message-signed-or-encrypted-p #[(&optional dont-emulate-mime handles) "\204$\306\211\307\310\311\"\211\203 \204#\312!\210\202# \204#\313 *\204~ \204~p\306\211\314\315!r q\210\316\216\317\f!\210\307\311\211\"\211\203|\320@!\321!\210\203z\211@;\203c@\202hA@@)\322\232\203z\323\3248!\210\313 \202|\310.\205\211\325\326\215\321!\210\207" [handles mm-verify-option mm-decrypt-option dont-emulate-mime cur #1=#:temp-buffer never mm-dissect-buffer nil t mm-uu-dissect-text-parts mm-uu-dissect generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-buffer-substring bufferp mm-destroy-parts "text/plain" mm-decode-content-transfer-encoding 2 found (byte-code "@;\203@\304\235\203\305\306\307\"\202A\202C\310\211\203p\n@\211@;\203:\311 \"\203i\305\306\307\"\210\202i\312 @!\203i \211@;\203N @\202R A@@)\313\232\203ir @q\210\311 !\203h\305\306\307\"\210)\nA\211\204\"*\310\207" [handles handle #2=#:--cl-dolist-temp-- dont-emulate-mime ("multipart/signed" "multipart/encrypted") throw found t nil message-signed-or-encrypted-p bufferp "message/rfc822"] 4) handle] 4 (#$ . 206008)]) (defalias 'message-forward-make-body #[(forward-buffer &optional digest) "\203\n\305 \210\202 db\210 \203\306\n!\210\202D \203@\f\2039\f\307=\2032r\nq\210\310\311\312\217)\2049\313\n!\210\202D\314\n!\210\202D\315\n!\210\316 \207" [message-forward-before-signature digest forward-buffer message-forward-as-mime message-forward-show-mml message-goto-body message-forward-make-body-digest best nil (message-signed-or-encrypted-p) ((error t)) message-forward-make-body-mml message-forward-make-body-mime message-forward-make-body-plain message-position-point] 3]) (defalias 'message-forward-rmail-make-body #[(forward-buffer) "\301\213\210\302!\207" [forward-buffer ((byte-code "q\210\301 \203\302\303!\203\303 \210\202\304\305!\210\301\207" [forward-buffer rmail-msg-is-pruned fboundp rmail-msg-restore-non-pruned-header rmail-toggle-header 0] 2)) message-forward-make-body] 2]) #@35 Let RMAIL use message to forward. (defalias 'message-insinuate-rmail #[nil "\302\303\211\207" [rmail-enable-mime-composing rmail-insert-mime-forwarded-message-function t message-forward-rmail-make-body] 2 (#$ . 208360) nil]) #@40 Resend the current article to ADDRESS. (defalias 'message-resend #[(address) "\306\307\"\210\212p\310\311 \204\312\313!q\210\314 \210\315\310\211\316\317BC!\210+\320\321!\210\322 \210\323&\315\"\210eb\210\324\325\310\315#\203F\326u\210\327c\210\2025~\210\310y\210`d|\210`\330\n!\210eb\210\331\332!\210\326u\210\214 `}\210\323'\315\"\210db\210)(c\210\333\334 \315#\203\203\335 \210\336c\210\202r b\210\337\340!\203\220\341\342!\210\315\310\211\211)*+\343 \210,\344p!\210*\306\345\")\207" [address beg cur message-setup-hook message-generate-hashcash message-this-is-mail message "Resending message to %s..." nil message-mail-user-agent get-buffer-create " *message resend*" erase-buffer t message-setup To message-generate-headers (From Date To Message-ID) message-narrow-to-headers 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: " message-send-mail kill-buffer "Resending message to %s...done" message-ignored-mail-headers message-ignored-resent-headers mail-header-separator rfc2047-encode-encoded-words message-required-mail-headers message-inhibit-body-encoding] 4 (#$ . 208593) (list (message-read-from-minibuffer "Resend message to: "))]) #@172 Re-mail the current message. This only makes sense if the current message is a bounce message that contains some mail you have written which has been bounced back to you. (defalias 'message-bounce #[nil "\305\306!\307\310\311\312!!\210 @;\203\313\314 !@!\210\202l\313 !\210\315 \210eb\210\316\317\307\306#\210`\316\n\307\306#\204D\320\321\307\322#\210\323\324\306#\203[\325y\210e\316\326\307\306#\203U\327\224\202V`|\210\202lb\210\323\330\307\306#\203l\327\224\327\225|\210\331 \210\214\332 \210\333 \306\"\210db\210\fc\210)\334 *\207" [boundary handles message-unsent-separator message-ignored-bounced-headers mail-header-separator mm-dissect-buffer t nil message-pop-to-buffer message-buffer-name "bounce" mm-insert-part last undo-boundary re-search-forward "\n\n+" search-forward "\n\n" move re-search-backward "^Return-Path:.*\n" 1 "^[^ \n ]+:" 0 "^.?From .*\n" mime-to-mml message-narrow-to-head-1 message-remove-header message-position-point] 5 (#$ . 209946) nil]) #@73 Like `message-mail' command, but display mail buffer in another window. (defalias 'message-mail-other-window #[(&optional to subject) "\306 \204\307\310\211\211\211\311\312\313 \"!\210-\307\314\315 \206!\316B\317\206)\316BD\310\211\211\320%)\207" [same-window-regexps same-window-buffer-names special-display-regexps special-display-buffer-names pop-up-windows to message-mail-user-agent t nil message-pop-to-buffer message-buffer-name "mail" message-setup To "" Subject switch-to-buffer-other-window message-this-is-mail subject] 6 (#$ . 210937) nil]) #@72 Like `message-mail' command, but display mail buffer in another frame. (defalias 'message-mail-other-frame #[(&optional to subject) "\306 \204\307\310\211\211\211\311\312\313 \"!\210-\307\314\315 \206!\316B\317\206)\316BD\310\211\211\320%)\207" [same-window-regexps same-window-buffer-names special-display-regexps special-display-buffer-names pop-up-frames to message-mail-user-agent t nil message-pop-to-buffer message-buffer-name "mail" message-setup To "" Subject switch-to-buffer-other-frame message-this-is-mail subject] 6 (#$ . 211509) nil]) #@42 Start editing a news article to be sent. (defalias 'message-news-other-window #[(&optional newsgroups subject) "\306\307\211\211\211\310\311\312\307 #!\210-\306\313\314 \206\315B\316\206%\315BD!)\207" [same-window-regexps same-window-buffer-names special-display-regexps special-display-buffer-names pop-up-windows newsgroups t nil message-pop-to-buffer message-buffer-name "posting" message-setup Newsgroups "" Subject message-this-is-news subject] 5 (#$ . 212077) nil]) #@42 Start editing a news article to be sent. (defalias 'message-news-other-frame #[(&optional newsgroups subject) "\306\307\211\211\211\310\311\312\307 #!\210-\306\313\314 \206\315B\316\206%\315BD!)\207" [same-window-regexps same-window-buffer-names special-display-regexps special-display-buffer-names pop-up-frames newsgroups t nil message-pop-to-buffer message-buffer-name "posting" message-setup Newsgroups "" Subject message-this-is-news subject] 5 (#$ . 212567) nil]) #@173 Bold all nonblank characters in the region. Works by overstriking characters. Called from program, takes two arguments START and END which specify the range to operate on. (defalias 'message-bold-region #[(start end) "\212\303 \211 \n]\304\223\210 \n^b\210`W\205(\305\306!\204\"\304f\307\261\210\310u\210\202*\207" [end1 start end make-marker nil looking-at "[_- ]" "" 1] 4 (#$ . 213056) "r"]) #@154 Remove all boldness (overstruck characters) in the region. Called from program, takes two arguments START and END which specify the range to operate on. (defalias 'message-unbold-region #[(start end) "\212\303 \211 \n]\304\223\210 \n^b\210\305\306\307#\205)\304f`\310Zf=\203\311\312!\210\202*\207" [end1 start end make-marker nil search-forward "" t 2 delete-char -2] 5 (#$ . 213466) "r"]) #@72 Exchange point and mark, but don't activate region if it was inactive. (defalias 'message-exchange-point-and-mark #[nil "\300\301!\302 `\303\223\210b\207" [mark t mark-marker nil] 4 (#$ . 213870)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [defalias message-make-overlay make-overlay message-delete-overlay delete-overlay message-overlay-put overlay-put] 3) (defalias 'message-kill-all-overlays #[nil "\300\301\302ed\"\"\207" [mapcar delete-overlay overlays-in] 5]) #@68 Update message mode toolbar. Setter function for custom variables. (defalias 'message-tool-bar-update #[(&optional symbol value) "\302\303\304\"\210\205 \302 \"\207" [symbol value set-default message-tool-bar-map nil] 3 (#$ . 214368)]) #@281 Specifies the message mode tool bar. It can be either a list or a symbol refering to a list. See `gmm-tool-bar-from-list' for the format of the list. The default key map is `message-mode-map'. Pre-defined symbols include `message-tool-bar-gnome' and `message-tool-bar-retro'. (custom-declare-variable 'message-tool-bar '(if (eq gmm-tool-bar-style 'gnome) 'message-tool-bar-gnome 'message-tool-bar-retro) '(#$ . 214614) :type '(repeat gmm-tool-bar-list-item) :type '(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) #@124 List of items for the message tool bar (GNOME style). See `gmm-tool-bar-from-list' for details on the format of the list. (custom-declare-variable 'message-tool-bar-gnome ''((ispell-message "spell" nil :visible (or (not (boundp 'flyspell-mode)) (not flyspell-mode))) (flyspell-buffer "spell" t :visible (and (boundp 'flyspell-mode) flyspell-mode) :help "Flyspell whole buffer") (gmm-ignore "separator") (message-send-and-exit "mail/send") (message-dont-send "mail/save-draft") (message-kill-buffer "close") (mml-attach-file "attach" mml-mode-map) (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) (gmm-customize-mode "preferences" t :help "Edit mode preferences") (message-info "help" t :help "Message manual")) '(#$ . 215361) :type '(repeat gmm-tool-bar-item) :version "23.1" :initialize 'custom-initialize-default :set 'message-tool-bar-update :group 'message) #@124 List of items for the message tool bar (retro style). See `gmm-tool-bar-from-list' for details on the format of the list. (custom-declare-variable 'message-tool-bar-retro ''((message-send-and-exit "gnus/mail-send") (message-kill-buffer "close") (message-dont-send "cancel") (mml-attach-file "attach" mml-mode-map) (ispell-message "spell") (mml-preview "preview" mml-mode-map) (message-insert-importance-high "gnus/important") (message-insert-importance-low "gnus/unimportant") (message-insert-disposition-notification-to "gnus/receipt")) '(#$ . 216488) :type '(repeat gmm-tool-bar-item) :version "23.1" :initialize 'custom-initialize-default :set 'message-tool-bar-update :group 'message) #@164 List of icon items from the global tool bar. These items are not displayed on the message mode tool bar. See `gmm-tool-bar-from-list' for the format of the list. (custom-declare-variable 'message-tool-bar-zap-list ''(new-file open-file dired kill-buffer write-file print-buffer customize help) '(#$ . 217185) :type 'gmm-tool-bar-zap-list :version "23.1" :initialize 'custom-initialize-default :set 'message-tool-bar-update :group 'message) #@94 Make a message mode tool bar from `message-tool-bar-list'. When FORCE, rebuild the tool bar. (defalias 'message-make-tool-bar #[(&optional force) "\306\300!\203,\203, \203\n\203,\307\310\311\312\313$\211@\306\304!\205\"\fB\314 \315#* \207" [tool-bar-mode message-tool-bar-map force load-path image-load-path message-tool-bar boundp gmm-image-load-path-for-library "message" "mail/save-draft.xpm" nil t gmm-tool-bar-from-list message-mode-map message-tool-bar-zap-list] 6 (#$ . 217632)]) #@46 Regexp that match headers that lists groups. (custom-declare-variable 'message-newgroups-header-regexp '"^\\(Newsgroups\\|Followup-To\\|Posted-To\\|Gcc\\):" '(#$ . 218137) :group 'message :type 'regexp) #@75 Alist of (RE . FUN). Use FUN for completion on header lines matching RE. (custom-declare-variable 'message-completion-alist '(list (cons message-newgroups-header-regexp 'message-expand-group) '("^\\(Resent-\\)?\\(To\\|B?Cc\\):" . message-expand-name) '("^\\(Reply-To\\|From\\|Mail-Followup-To\\|Mail-Copies-To\\):" . message-expand-name) '("^\\(Disposition-Notification-To\\|Return-Receipt-To\\):" . message-expand-name)) '(#$ . 218346) :version "22.1" :group 'message :type '(alist :key-type regexp :value-type function)) #@125 List of databases to try for name completion (`message-expand-name'). Each element is a symbol and can be `bbdb' or `eudc'. (custom-declare-variable 'message-expand-name-databases '(list 'bbdb 'eudc) '(#$ . 218877) :group 'message :type '(set (const bbdb) (const eudc))) #@147 *Function to execute when `message-tab' (TAB) is executed in the body. If nil, the function bound in `text-mode-map' or `global-map' is executed. (custom-declare-variable 'message-tab-body-function 'nil '(#$ . -219155) :version "22.1" :group 'message :link '(custom-manual "(message)Various Commands") :type '(choice (const nil) function)) #@142 Complete names according to `message-completion-alist'. Execute function specified by `message-tab-body-function' when not in those headers. (defalias 'message-tab #[nil "\211\203 \211@@)\306 )\204 A\211\204 \211@A)\2067\f\2067\307 \310\"\2067\307\n\310\"\2067\311 )\207" [message-completion-alist alist x mail-abbrev-mode-regexp message-tab-body-function text-mode-map mail-abbrev-in-expansion-header-p lookup-key " " indent-relative global-map] 4 (#$ . 219502) nil]) (byte-code "\300\301\302\217\207" [nil (byte-code "\302\303!rq\210\304\216p\305\306!\210)\307\310\311\"\210+\302\207" [#1=#:temp-buffer standard-output generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) eval (display-completion-list nil "") defalias message-display-completion-list display-completion-list] 3) ((error (byte-code "\300\301\302\"\207" [defalias message-display-completion-list #[(completions &optional ignore) "\301!\207" [completions display-completion-list] 2 "Display the list of completions, COMPLETIONS, using `standard-output'."]] 3)))] 3) #@36 Expand the group name under point. (defalias 'message-expand-group #[nil "\212\214\212\305 \210\306\307w\210`T)`}\210\310\307x\210`*\311\312\307w\210`\313\303!\205& \314\n\f#,\207" [b completion-ignore-case e gnus-active-hashtb hashtb beginning-of-line "^:" nil "^, \n" t "^, \n " boundp message-completion-in-region] 4 (#$ . 220618)]) (byte-code "\300\301\302\303!\203\f\303\202 \304\"\207" [defalias message-completion-in-region fboundp completion-in-region #[(e b hashtb) " {\306\n \"\307`|\210\fG\310U\203,\f@\n\230\203&\nc\210\311\312!\202\201\f@c\202\201\313\n \"\211\203@ \n\230\204@ c\202\201\nc\210 \204M\311\314!\202\201\315 \316\317\320 \"r\321\216\322\323!\210\324 \210\307\325 \210p\326\327\f\330\"\n\"\210)\307eb\210`\331y\210`|-+\207" [b e string hashtb completions comp all-completions nil 1 message "Only matching group" try-completion "No matching groups" selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203(\n@\305 @!\203!\306 A!\203!\307 @ A\310#\210\nA\211\204*\306 !\2034\311 \310\"\210\304\207" [save-selected-window-alist elt #:--cl-dolist-temp-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) pop-to-buffer "*Completions*" buffer-disable-undo erase-buffer message-display-completion-list sort string< 3 save-selected-window-alist save-selected-window-window buffer-read-only standard-output] 4]] 4) (defalias 'message-expand-name #[nil "\302>\203\303\301!\203 \203\304 \207\305>\203\"\306\307!\203\"\307 \207\310 \207" [message-expand-name-databases eudc-protocol eudc boundp eudc-expand-inline bbdb fboundp bbdb-complete-name expand-abbrev] 2]) #@199 Call FUNCTION with argument QUESTION; optionally display TEXT... args. If SHOW is non-nil, the arguments TEXT... are displayed in a temp buffer. The following arguments may contain lists of values. (defalias 'message-talkative-question #[(ask question show &rest text) "\203\304 !\211\203\305\213\207\n !\207" [show text ask question message-flatten-list ((byte-code "\303\220r\303q\210\304 \210\305\306\"\210eb)\221\210 \n!\207" [text ask question " *MESSAGE information message*" fundamental-mode mapc princ] 4))] 2 (#$ . 222383)]) #@127 Return a new, flat list that contains all elements of LIST. (message-flatten-list '(1 (2 3 (4 5 (6))) 7)) => (1 2 3 4 5 6 7) (defalias 'message-flatten-list #[(list) ":\203 \301\302\303\304\"\"\207\205C\207" [list apply append mapcar message-flatten-list] 5 (#$ . 222931)]) #@230 Create and return a buffer with name based on NAME using `generate-new-buffer'. Then clone the local variables and values from the old buffer to the new one, cloning only the locals having a substring matching the regexp VARSTR. (defalias 'message-generate-new-buffer-clone-locals #[(name &optional varstr) "pr\303 !q\210\304\n\"\210p*\207" [oldbuf name varstr generate-new-buffer message-clone-locals] 3 (#$ . 223220)]) #@62 Clone the local variables from BUFFER to the current buffer. (defalias 'message-clone-locals #[(buffer &optional varstr) "rq\210\303 )\304\305\306\n\"*\207" [buffer regexp locals buffer-local-variables "^gnus\\|^nn\\|^message\\|^sendmail\\|^smtp\\|^user-mail-address" mapcar #[(local) ":\205&@\205&\303 \304@!\"\205&\n\203\"\303\n\304@!\"\205&\305\306\307\217\207" [local regexp varstr string-match symbol-name nil (byte-code "\301@!AL\207" [local make-local-variable] 2) ((error))] 4]] 3 (#$ . 223649)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list message-inhibit-body-encoding default-boundp set-default nil] 3) (defalias 'message-encode-message-body #[nil "?\205\216 \206\n\n\306\307\211\310 \210\214`d}\210\311 \211\203Ied|\210c\210eb\210\312H\313=\203<\314\315!\210\202I\316\317!\210e`S{e`|\210*\214\320 \210\321\322!\210db\210\323c\210\f\203_\fc\210\206i\324\325\307\306#)\214\320 \210\326\327!\210\326\330!\210) ?\205\215eb\210\331\332\307\306#\205\215\315y\210\333c,\207" [message-inhibit-body-encoding mail-parse-charset message-default-charset content-type-p lines case-fold-search t nil message-goto-body mml-generate-mime 0 10 delete-char 1 search-forward "\n\n" message-narrow-to-headers-or-head message-remove-header "Mime-Version" "MIME-Version: 1.0\n" re-search-backward "^Content-Type:" message-remove-first-header "Content-Type" "Content-Transfer-Encoding" re-search-forward "^MIME-Version:" "Content-Type: text/plain; charset=us-ascii\n" new mml-boundary] 5]) #@60 Read from the minibuffer while providing abbrev expansion. (defalias 'message-read-from-minibuffer #[(prompt &optional initial-contents) "\306\307!\203\310\307\311\f \"+\207\312\313\f \"*\207" [message-minibuffer-local-map minibuffer-local-map minibuffer-setup-hook mail-abbrev-mode-regexp prompt initial-contents fboundp mail-abbrevs-setup "" read-from-minibuffer mail-abbrev-minibuffer-setup-hook read-string] 3 (#$ . 225209)]) #@163 Set From field of the outgoing message to the first matching address in `message-alternative-emails', looking at To, Cc and From headers in the original article. (defalias 'message-use-alternative-email-as-from #[nil "\305\306!\210\307\310\311\312\313\314#!\315\"\316 \203-\317 @\"\203$ @\316 \211A@\210\202\n?\2065\n\f\232?\205I\320\321!\210db\210\322\n\323 )\324\261+\207" [fields emails email message-alternative-emails user-mail-address require mail-utils ("To" "Cc" "From") split-string mail-strip-quoted-names mapconcat message-fetch-reply-field "," "[ \f \n ,]+" nil string-match message-remove-header "From" "From: " message-make-from "\n"] 6 (#$ . 225655)]) (defalias 'message-options-get #[(symbol) " \236A\207" [symbol message-options] 2]) (defalias 'message-options-set #[(symbol value) " \236\211\203 \203\n \241\210\202%\304\n \"\202% \203% B B) \207" [symbol message-options the-cons value delq] 4]) (defalias 'message-options-set-recipient #[nil "\214\303 \210\304\305\306\307\310!!\"\210\304\311\306\307\312!\307\313!\307\314!\211\206!\315\n\205* \205*\316 \206/\315\n\2047 \205<\205<\316\206A\315\260+!\")\207" [bcc cc to message-narrow-to-headers-or-head message-options-set message-sender mail-strip-quoted-names message-fetch-field "from" message-recipients "to" "cc" "bcc" "" ", "] 9]) #@62 Hide headers based on the `message-hidden-headers' variable. (defalias 'message-hide-headers #[nil ";\203\nC\202 \306\307e\211\203Y\212\214\310 \210eb\210m\204X\311\f!\204.\312 \210\202`\307\211 \f\312 \210\f`{ `\fZ\f`|\210 b\210 c\210 \\+\202* d},\207" [message-hidden-headers end-of-headers after-change-functions inhibit-point-motion-hooks regexps header-len t nil message-narrow-to-headers message-hide-header-p message-next-header header begin] 5 (#$ . 227013)]) (defalias 'message-hide-header-p #[(regexps) "\305\211\n@\306=\203\307\n\210\nA\n\305\211\203,\f@ \206$\310 !\fA\211\204*\2036 ?\2027 *\207" [reverse result regexps regexp #1=#:--cl-dolist-temp-- nil not t looking-at] 3]) (defalias 'message-put-addresses-in-ecomplete #[nil "\305\306\211\203? @\307!\310\n\311\"\306\211\2037\f@\312\211 \313\314#\315\314#\316\317\320 !@ #\210\fA\211\204+ A\211\204*\321 \207" [header #1=#:--cl-dolist-temp-- value string #2=#:--cl-dolist-temp-- ("to" "cc" "from" "reply-to") nil message-field-value mail-header-parse-addresses raw gnus-replace-in-string "^ +\\| +$" "" "\n" ecomplete-add-item mail mail-header-parse-address ecomplete-save] 7]) #@61 Display the next possible abbrev for the text before point. (defalias 'message-display-abbrev #[(&optional choose) "\305 f\306>\205^\307 \205^\212\310 \210\311f\312>\203\313\314y!\204\315\316!)\205^`\212\317\320\311\321#\2053`T)\211\205< {\211\205N\313\nG!?\205N\322\323\n # \205]\f\205] |\210\fc,\207" [end start word choose match point-at-bol (67 84 9 32) message-point-in-header-p beginning-of-line nil (9 32) zerop -1 looking-at "To:\\|Cc:" re-search-backward "[\n ]" t ecomplete-display-matches mail] 5 (#$ . 228226) (list t)]) #@43 Separator for `message-send-form-letter'. (custom-declare-variable 'message-form-letter-separator '"\n----------next form letter message follows this line----------\n" '(#$ . 228785) :group 'message-various :version "23.1" :type 'string) #@157 Delay in seconds when sending a message with `message-send-form-letter'. Only used when `message-send-form-letter' is called with non-nil argument `force'. (custom-declare-variable 'message-send-form-letter-delay '1 '(#$ . 229030) :group 'message-various :version "23.1" :type 'integer) #@211 Sent all form letter messages from current buffer. Unless FORCE, prompt before sending. The messages are separated by `message-form-letter-separator'. Header and body are separated by `mail-header-separator'. (defalias 'message-send-form-letter #[(&optional force) "\306\211\307\211\211\211\211\211eb\210\204\212`\310\307\311#\203.\312`G\313#\2021\311d\314 \f\"\315\316!r\nq\210 c\210\317 \210\320\321!\322\n!\210 \203W\323!!\210 \204e\324\325\326 \"!\203pT\327 \210\202|\330\325\331 \"!\210T\332\n!\203\206\333\n!\210)\202\330\334#.\207" [done to buff text end start 0 nil search-forward t - -1 buffer-substring-no-properties generate-new-buffer "*mail - form letter*" message-mode message-fetch-field "To" switch-to-buffer sit-for y-or-n-p format "Send message to `%s'? " message-send-and-exit message "Message to `%s' skipped." buffer-live-p kill-buffer "%s message(s) sent, %s skipped." skipped sent message-form-letter-separator force message-send-form-letter-delay] 8 (#$ . 229324) "P"]) #@133 Remove HEADER and insert the NEW-VALUE. If AFTER, insert after this header. If FORCE, insert new field even if NEW-VALUE is empty. (defalias 'message-replace-header #[(header new-value &optional after force) "\212\214\304 \210\305!\210) \204\nG\306V\205' \203!\307 \"\210\202%\307!\210\nc)\207" [header force new-value after message-narrow-to-headers message-remove-header 0 message-position-on-field] 3 (#$ . 230373)]) #@79 Mail addresses that have no full name. Used in `message-simplify-recipients'. (custom-declare-variable 'message-recipients-without-full-name '(list "ding@gnus.org" "bugs@gnus.org" "emacs-devel@gnu.org" "emacs-pretest-bug@gnu.org" "bug-gnu-emacs@gnu.org") '(#$ . 230808) :type '(choice (const :tag "None" nil) (repeat string)) :version "23.1" :group 'message-headers) (defalias 'message-simplify-recipients #[nil "\302\303\211\203& @\304\305\306\307!\205\310\307!\311\"\312#\"\210 A\211\204*\303\207" [hdr #1=#:--cl-dolist-temp-- ("Cc" "To") nil message-replace-header mapconcat #[(addrcomp) "\203\303\304! \211A@)\"\203 \211A@)\207 @\203)\305 @ \211A@)\"\207 \211A@)\207" [message-recipients-without-full-name addrcomp x string-match regexp-opt message-make-from] 4] message-fetch-field mail-extract-address-components t ", "] 8 nil nil]) (byte-code "\300\301!\210\302\303!\207" [provide message run-hooks message-load-hook] 2)