;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:03:42 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/message.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`message.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\305\306!\203\302\307!\210\302\310!\210\302\311!\210\312\313\314\315\316 \317 \320& \210\321\322\323\324#\210\321\325\323\324#\210\312\326\327\330\331 \313&\210\312\332\327\333\334 \313&\210\312\335\327\336\337 \313&\210\312\340\327\341\342 \313&\210\312\343\327\344\345 \340&\210\312\346\327\347\350 \313&\210\312\351\327\352\353 \313&\210\312\354\327\355 \313%\210\312\356\327\357 \313%\210\312\360\327\361 \313 \362&\207" [:link :group require mailheader nnheader featurep xemacs mail-abbrevs mail-parse mml custom-declare-group message ((user-mail-address custom-variable) (user-full-name custom-variable)) "Mail and news message composing." (custom-manual "(message)Top") 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/" '(#$ . -2124) :group 'message-various :type 'directory) #@61 *How many buffers to keep before starting to kill them off. (custom-declare-variable 'message-max-buffers '10 '(#$ . -2306) :group 'message-buffers :type 'integer) #@56 Function called to rename the buffer after sending it. (custom-declare-variable 'message-send-rename-function 'nil '(#$ . 2476) :group 'message-buffers :type 'function) #@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 '(#$ . -2652) :type '(radio (function-item message-output) (function :tag "Other")) :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" '(#$ . -3044) :group 'message-sending :type 'string) #@68 *Regexp that matches headers to be removed in resent bounced mail. (custom-declare-variable 'message-ignored-bounced-headers '"^\\(Received\\|Return-Path\\):" '(#$ . -3502) :group 'message-interface :type 'regexp) #@371 *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 ''default '(#$ . -3723) :type '(choice (const :tag "simple" nil) (const parens) (const angles) (const default)) :group 'message-headers) #@532 *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 subject-cmsg multiple-headers sendsys message-id from long-lines control-chars size new-text quoting-style redirected-followup signature approved sender empty empty-headers message-id from subject shorten-followup-to existing-newsgroups buffer-file-name unchanged newsgroups. (custom-declare-variable 'message-syntax-checks 'nil '(#$ . -4282) :group 'message-news :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 don't you 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) Lines (optional . User-Agent)) '(#$ . -4930) :group 'message-news :group 'message-headers :type '(repeat sexp)) #@189 *Headers to be generated or prompted for when mailing a message. RFC822 required that From, Date, To, Subject and Message-ID be included. Organization, Lines and User-Agent are optional. (custom-declare-variable 'message-required-mail-headers ''(From Subject Date (optional . In-Reply-To) Message-ID Lines (optional . User-Agent)) '(#$ . -5461) :group 'message-mail :group '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) '(#$ . 5880) :group '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:" '(#$ . -6100) :group 'message-news :group 'message-headers :type 'regexp) #@66 *Regexp of headers to be removed unconditionally before mailing. (custom-declare-variable 'message-ignored-mail-headers '"^[GF]cc:\\|^Resent-Fcc:\\|^Xref:" '(#$ . -6359) :group 'message-mail :group 'message-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-Complaints-To:\\|Return-Path:\\|^Supersedes:\\|^NNTP-Posting-Date:\\|^X-Trace:\\|^X-Complaints-To:" '(#$ . -6596) :group 'message-interface :type 'regexp) #@46 *Regexp matching "Re: " in the subject line. (custom-declare-variable 'message-subject-re-regexp '"^[ ]*\\([Rr][Ee]:[ ]*\\)*[ ]*" '(#$ . -7074) :group 'message-various :type 'regexp) #@42 Regexp matching the signature separator. (custom-declare-variable 'message-signature-separator '"^-- *$" '(#$ . 7266) :type 'regexp :group 'message-various) #@48 *The string which is inserted for elided text. (custom-declare-variable 'message-elide-ellipsis '"\n[...]\n\n" '(#$ . -7429) :type 'string :group 'message-various) #@126 Non-nil means when sending a message wait for and display errors. nil means let mailer mail back a message to report errors. (custom-declare-variable 'message-interactive 'nil '(#$ . 7600) :group 'message-sending :group 'message-mail :type 'boolean) #@282 *Non-nil means that a new message buffer will be created whenever `message-setup' is called. 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 '(#$ . -7857) :group 'message-buffers :type '(choice (const :tag "off" nil) (const :tag "unique" unique) (const :tag "unsent" unsent) #'fun)) #@80 *Non-nil means that the message buffer will be killed after sending a message. (custom-declare-variable 'message-kill-buffer-on-exit 'nil '(#$ . -8350) :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) '(#$ . -8548) :group 'message-headers :type '(choice string (const :tag "consult file" t))) #@32 *Local news organization file. (custom-declare-variable 'message-user-organization-file '"/usr/lib/news/organization" '(#$ . -8918) :type 'file :group 'message-headers) #@420 *A list of functions that are called to generate a subject header 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-fwd (Subject of article with 'Fwd:' prepended to it. (custom-declare-variable 'message-make-forward-subject-function ''message-forward-subject-author-subject '(#$ . -9094) :group 'message-forwarding :type '(radio (function-item message-forward-subject-author-subject) (function-item message-forward-subject-fwd))) #@135 *If non-nil, 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 '(#$ . -9781) :group 'message-forwarding :type 'boolean) #@93 *If non-nil, forward messages are shown as mml. Otherwise, forward messages are unchanged. (custom-declare-variable 'message-forward-show-mml 't '(#$ . -10031) :group 'message-forwarding :type 'boolean) #@66 *If non-nil, put forwarded message before signature, else after. (custom-declare-variable 'message-forward-before-signature 't '(#$ . -10241) :group 'message-forwarding :type 'boolean) #@135 *If non-nil, try to remove as much old cruft as possible from the subject of messages before generating the new subject of a forward. (custom-declare-variable 'message-wash-forwarded-subjects 'nil '(#$ . -10433) :group '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:" '(#$ . -10694) :group 'message-interface :type '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" '(#$ . -10937) :group 'message-forwarding :type '(choice (const :tag "None" nil) regexp)) #@51 *Delete these headers from the messages you yank. (custom-declare-variable 'message-ignored-cited-headers '"." '(#$ . -11211) :group 'message-insertion :type 'regexp) #@47 Message to be inserted in the cancel message. (custom-declare-variable 'message-cancel-message '"I am canceling my own article.\n" '(#$ . 11384) :group 'message-interface :type 'string) #@310 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' (the default), `message-send-mail-with-mh', `message-send-mail-with-qmail' and `smtpmail-send-it'. (custom-declare-variable 'message-send-mail-function ''message-send-mail-with-sendmail '(#$ . 11577) :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 smtpmail-send-it) (function :tag "Other")) :group 'message-sending :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 '(#$ . 12247) :group 'message-sending :group 'message-news :type 'function) #@162 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 '(#$ . 12557) :group 'message-interface :type 'function) #@162 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 '(#$ . 12839) :group 'message-interface :type 'function) #@162 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 '(#$ . 13126) :group 'message-interface :type 'function) #@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 '(#$ . -13411) :group 'message-interface :type '(choice (const :tag "ignore" nil) (const use) (const ask))) #@139 *Non-nil means that "-f username" should not be added 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 '(#$ . -13860) :group 'message-sending :type 'boolean) #@39 Location of the qmail-inject program. (custom-declare-variable 'message-qmail-inject-program '"/var/qmail/bin/qmail-inject" '(#$ . 14117) :group 'message-sending :type 'file) #@311 Arguments passed to qmail-inject programs. This should be a list of strings, one string for each argument. 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 '(#$ . 14299) :group 'message-sending :type '(repeat string)) #@140 Non-nil means Gnus should not fold the `References' header. Folding `References' makes ancient versions of INN create incorrect NOV lines. (defvar message-cater-to-broken-inn t (#$ . 14735)) #@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 ""))) '(#$ . -14933) :group 'message-news :group 'message-sending :type 'sexp) #@62 *If non-nil, generate all possible headers before composing. (custom-declare-variable 'message-generate-headers-first 'nil '(#$ . -15336) :group 'message-headers :type 'boolean) #@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 '(#$ . 15521) :group 'message-various :type 'hook) #@36 Hook run when cancelling articles. (custom-declare-variable 'message-cancel-hook 'nil '(#$ . 15739) :group 'message-various :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 '(#$ . 15883) :group 'message-various :type 'hook) #@35 Hook run in message mode buffers. (custom-declare-variable 'message-mode-hook 'nil '(#$ . 16151) :group 'message-various :type 'hook) #@60 Hook run in a message mode buffer narrowed to the headers. (custom-declare-variable 'message-header-hook 'nil '(#$ . 16291) :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 '(#$ . 16458) :group 'message-various :type 'hook) #@57 *Function called to insert the "Whomever writes:" line. (custom-declare-variable 'message-citation-line-function ''message-insert-citation-line '(#$ . -16642) :type 'function :group 'message-insertion) #@51 *Prefix inserted on the lines of yanked messages. (custom-declare-variable 'message-yank-prefix '"> " '(#$ . -16850) :type 'string :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 '3 '(#$ . -17015) :group 'message-insertion :type 'integer) #@223 *Function for citing an original message. Predefined functions include `message-cite-original' and `message-cite-original-without-signature'. Note that `message-cite-original' uses `mail-citation-hook' if that is non-nil. (custom-declare-variable 'message-cite-function ''message-cite-original '(#$ . -17257) :type '(radio (function-item message-cite-original) (function-item message-cite-original-without-signature) (function-item sc-cite-original) (function :tag "Other")) :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 '(#$ . -17766) :type 'function :group 'message-insertion) (byte-code "\302\300!\204\303\300 B\303\207" [message-abbrevs-loaded current-load-list boundp nil] 2) #@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 't '(#$ . -18281) :type 'sexp :group 'message-insertion) #@62 *File containing the text inserted at end of message buffer. (custom-declare-variable 'message-signature-file '"~/.signature" '(#$ . -18635) :type 'file :group 'message-insertion) #@51 *Function called to return a Distribution header. (custom-declare-variable 'message-distribution-function 'nil '(#$ . -18821) :group 'message-news :group 'message-headers :type 'function) #@45 Number of days before your article expires. (custom-declare-variable 'message-expires '14 '(#$ . 19015) :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 '(#$ . 19234) :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 "\306\300!\204\307\300 B\306\302!\204\307\302 B\306\303!\204 \307\303 B\306\304!\204,\307\304 B\306\305!\2048\307\305 B\306\310!\204E\307\310 B\307\207" [message-reply-buffer current-load-list message-reply-headers message-newsreader message-mailer message-sent-message-via boundp nil message-checksum] 2) #@73 A list of actions to be performed upon successful sending of a message. (defvar message-send-actions nil (#$ . 19951)) #@73 A list of actions to be performed upon exiting after sending a message. (defvar message-exit-actions nil (#$ . 20076)) #@68 A list of actions to be performed before killing a message buffer. (defvar message-kill-actions nil (#$ . 20201)) #@63 A list of actions to be performed after postponing a message. (defvar message-postpone-actions nil (#$ . 20321)) (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 '"" '(#$ . -20620) :group '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 '"" '(#$ . -20902) :group 'message-headers :group 'message-mail :type 'message-header-lines) #@69 *A string of header lines to be inserted in outgoing news articles. (custom-declare-variable 'message-default-news-headers '"" '(#$ . -21116) :group 'message-headers :group 'message-news :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 (save-excursion (set-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{|}~]+:")) '(#$ . -21339) :group 'message-sending :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) (#$ . 22254)) #@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)) (#$ . 22407)) #@135 *What alias expansion type to use in Message buffers. The default is `abbrev', which uses mailabbrev. nil switches mail aliases off. (defvar message-mail-alias-type 'abbrev (#$ . -22934)) #@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")) '(#$ . -23130) :group 'message-buffers :type 'directory) #@81 *The way new message buffers are named. Valid valued are `unique' and `unsent'. (custom-declare-variable 'message-buffer-naming-style ''unique '(#$ . -23418) :group 'message-buffers :type '(choice (const :tag "unique" unique) (const :tag "unsent" unsent))) #@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) '(#$ . 23681) :group 'message :type 'symbol) #@111 *A regexp specifying names to prune when doing wide replies. A value of nil means exclude your own name only. (custom-declare-variable 'message-dont-reply-to-names '(and (boundp 'rmail-dont-reply-to-names) rmail-dont-reply-to-names) '(#$ . -23916) :group 'message :type '(choice (const :tag "Yourself" nil) regexp)) #@426 *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. (defvar message-shoot-gnksa-feet nil (#$ . -24239)) (defalias 'message-gnksa-enable-p #[(feature) "\207" [message-shoot-gnksa-feet feature] 2]) (put 'message-gnksa-enable-p 'byte-optimizer 'byte-compile-inline-expand) #@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) (#$ . 24900)) #@82 Abbrev table used in Message mode buffers. Defaults to `text-mode-abbrev-table'. (defvar message-mode-abbrev-table text-mode-abbrev-table (#$ . 25162)) (byte-code "\302\303\304\305\306 \307&\210\310\311\312\313 \314%\210\310\315\316\317 \314%\210\310\320\321\322 \314%\210\310\323\324\325 \314%\210\310\326\327\325 \314%\210\310\330\331\332 \314%\210\310\333\334\335 \314%\210\310\336\337\340 \314%\210\310\341\342\343 \314%\210\310\344\345\346 \314%\207" [:link :group custom-declare-group message-headers nil "Message headers." (custom-manual "(message)Variables") message custom-declare-face message-header-to-face ((((class color) (background dark)) (:foreground "green2" :bold t)) (((class color) (background light)) (:foreground "MidnightBlue" :bold t)) (t (:bold t :italic t))) "Face used for displaying From headers." message-faces message-header-cc-face ((((class color) (background dark)) (:foreground "green4" :bold t)) (((class color) (background light)) (:foreground "MidnightBlue")) (t (:bold t))) "Face used for displaying Cc headers." message-header-subject-face ((((class color) (background dark)) (:foreground "green3")) (((class color) (background light)) (:foreground "navy blue" :bold t)) (t (:bold t))) "Face used for displaying subject headers." message-header-newsgroups-face ((((class color) (background dark)) (:foreground "yellow" :bold t :italic t)) (((class color) (background light)) (:foreground "blue4" :bold t :italic t)) (t (:bold t :italic t))) "Face used for displaying newsgroups headers." message-header-other-face ((((class color) (background dark)) (:foreground "#b00000")) (((class color) (background light)) (:foreground "steel blue")) (t (:bold t :italic t))) message-header-name-face ((((class color) (background dark)) (:foreground "DarkGreen")) (((class color) (background light)) (:foreground "cornflower blue")) (t (:bold t))) "Face used for displaying header names." message-header-xheader-face ((((class color) (background dark)) (:foreground "blue")) (((class color) (background light)) (:foreground "blue")) (t (:bold t))) "Face used for displaying X-Header headers." message-separator-face ((((class color) (background dark)) (:foreground "blue3")) (((class color) (background light)) (:foreground "brown")) (t (:bold t))) "Face used for displaying the separator." message-cited-text-face ((((class color) (background dark)) (:foreground "red")) (((class color) (background light)) (:foreground "red")) (t (:bold t))) "Face used for displaying cited text names." message-mml-face ((((class color) (background dark)) (:foreground "ForestGreen")) (((class color) (background light)) (:foreground "ForestGreen")) (t (:bold t))) "Face used for displaying MML."] 8) #@54 Additional expressions to highlight in Message mode. (defvar message-font-lock-keywords (byte-code "\304\304\305P\306\307\nP\310B\311\nP\312B\313\nP\314B\315\nP\316B\317\nP\320B\321\nP\322B\323 \205; \324\232?\205;\325\326 !\327Q\330BC\331\332\333 \334\335\260\336B\337B\"+BBBBBB\207" [cite-prefix cite-suffix content mail-header-separator "A-Za-z" "0-9_.@-" "[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?" "^\\([Tt]o:\\)" ((1 'message-header-name-face) (2 'message-header-to-face nil t)) "^\\(^[GBF]?[Cc][Cc]:\\|^[Rr]eply-[Tt]o:\\)" ((1 'message-header-name-face) (2 'message-header-cc-face nil t)) "^\\([Ss]ubject:\\)" ((1 'message-header-name-face) (2 'message-header-subject-face nil t)) "^\\([Nn]ewsgroups:\\|Followup-[Tt]o:\\)" ((1 'message-header-name-face) (2 'message-header-newsgroups-face nil t)) "^\\([A-Z][^: \n ]+:\\)" ((1 'message-header-name-face) (2 'message-header-other-face nil t)) "^\\(X-[A-Za-z0-9-]+\\|In-Reply-To\\):" ((1 'message-header-name-face) (2 'message-header-name-face)) append "" "^\\(" regexp-quote "\\)$" (1 'message-separator-face) "^[ ]*" "\\([" "]+[" "]*\\)?" "[:>|}].*" ((0 'message-cited-text-face)) (("<#/?\\(multipart\\|part\\|external\\|mml\\).*>" (0 'message-mml-face)))] 15) (#$ . 27884)) (put 'message-mode 'font-lock-defaults '(message-font-lock-keywords t)) #@114 Alist of mail and news faces for facemenu. The cdr of ech entry is a function for applying the face to a region. (defvar message-face-alist '((bold . bold-region) (underline . underline-region) (default lambda (b e) (unbold-region b e) (ununderline-region b e))) (#$ . 29192)) #@35 Hook run before sending messages. (custom-declare-variable 'message-send-hook 'nil '(#$ . 29475) :group 'message-various :options '(ispell-message) :type 'hook) #@40 Hook run before sending mail messages. (custom-declare-variable 'message-send-mail-hook 'nil '(#$ . 29642) :group 'message-various :type 'hook) #@40 Hook run before sending news messages. (custom-declare-variable 'message-send-news-hook 'nil '(#$ . 29792) :group 'message-various :type 'hook) #@34 Hook run after sending messages. (custom-declare-variable 'message-sent-hook 'nil '(#$ . 29942) :group 'message-various :type 'hook) #@40 Coding system to encode outgoing mail. (defvar message-send-coding-system 'binary (#$ . 30081)) #@32 Coding system to compose mail. (defvar message-draft-coding-system mm-auto-save-coding-system (#$ . 30183)) #@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 '(#$ . 30298) :group 'message-buffers :type '(choice (const :tag "unlimited" nil) (integer 1000000))) #@123 A regexp to match the alternative email addresses. The first matched address (not primary one) is used in the From field. (custom-declare-variable 'message-alternative-emails 'nil '(#$ . 30671) :group 'message-headers :type '(choice (const :tag "Always use primary" nil) regexp)) (byte-code "\306\300!\204\307\300 B\306\302!\204\310\302 B\306\303!\204 \310\303 B\306\304!\204,\310\304 B\306\305!\2048\310\305 B\306\311!\204E\310 \311 B\306\312!\204R\310\n\312 B\310\207" [message-sending-message current-load-list message-buffer-list message-this-is-news message-this-is-mail message-draft-article boundp "Sending..." nil message-mime-part message-posting-charset] 2) #@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) (#$ . 31368)) #@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 +---+ *$\\|^|? *---+ +Message text follows: +---+ *|?$" (#$ . 31828)) #@36 Alist used for formatting headers. (defvar message-header-format-alist '((Newsgroups) (To . message-fill-address) (Cc . message-fill-address) (Subject) (In-Reply-To) (Fcc) (Bcc) (Date) (Organization) (Distribution) (Lines) (Expires) (Message-ID) (References . message-shorten-references) (User-Agent)) (#$ . 32272)) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\304\"\210\300\306\307\"\210\300\310\307\"\210\300\311\307\"\210\300\312\307\"\210\300\313\314\"\210\300\315\316\"\210\300\317\316\"\210\300\320\321\"\210\300\322\321\"\210\300\323\307\"\210\300\324\325\"\210\300\326\327\"\207" [autoload message-setup-toolbar "messagexmas" mh-new-draft-name "mh-comp" mh-send-letter gnus-point-at-eol "gnus-util" gnus-point-at-bol gnus-output-to-rmail gnus-output-to-mail mail-abbrev-in-expansion-header-p "mailabbrev" nndraft-request-associate-buffer "nndraft" nndraft-request-expire-articles gnus-open-server "gnus-int" gnus-request-post gnus-alive-p gnus-group-name-charset "gnus-group" rmail-output "rmail"] 3) #@78 Ask QUESTION, displaying the rest of the arguments in a temp. 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 (#$ . 33299)])) (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])) #@48 Remove double quotes (") from strings in list. (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 (#$ . 33737)]) #@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\214\306\307 \206 \310\"\311\312\313\211\211\212\314 \210c\210eb\210m\204\210 \2030\313\2023\311u\210`V\203[m\204M\315!\203[\f\204[\n\204[`{ B\316\225\202#\313f\317=\203h\f?\202#\313f\320=\203x\f\204x\312\202#\313f\321=\203#\f\204#\313\202# \237.\207" [header separator paren elems quoted first format "[%s]+" "," 1 t nil message-set-work-buffer looking-at 0 34 40 41 beg regexp] 6 (#$ . 34012)]) #@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\310!!\311\216r q\210\312!\210eb\210\313\n!+\207" [file #1=#:temp-buffer message-unix-mail-delimiter file-exists-p file-readable-p file-regular-p get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nnheader-insert-file-contents looking-at] 3 (#$ . 34661)]) #@59 The same as `mail-fetch-field', only remove all newlines. (defalias 'message-fetch-field #[(header &optional not-all) "\305\305\306\n\307 ?#\211\205)\310\311\f\"\203 \312\313\305\211\f$\202\314\315\fG\307\f$\210\f+\207" [inhibit-point-motion-hooks case-fold-search header not-all value t mail-fetch-field nil string-match "\n[ ]+" replace-match " " set-text-properties 0] 6 (#$ . 35143)]) #@54 Narrow the buffer to the header on the current line. (defalias 'message-narrow-to-field #[nil "\300y\210`\301y\210\302\303\304\305#\203\300y\210`\202d}\210eb\207" [0 1 re-search-forward "^[^ \n ]" nil t] 5 (#$ . 35547)]) #@72 Add the HEADERS to the message header, skipping those already present. (defalias 'message-add-header #[(&rest headers) "\205:\302\303\304@\"\204\305\306@\"\210\307\310@\"\214\311 \210\312\313\314 !\315Q\302\316#\2041@\317\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 10] 5 (#$ . 35778)]) #@49 Fetch FIELD from the message we're replying to. (defalias 'message-fetch-reply-field #[(header) "\205\302!\205\212q\210\303 !)\207" [message-reply-buffer header buffer-name message-fetch-field] 2 (#$ . 36239)]) (defalias 'message-set-work-buffer #[nil "\301\302!\203\f\302q\210\303 \207\304\302!q\210\305 \210\306\307!?\205.\310\300!\205.\205.\311\312!\205.\312\313!\207" [default-enable-multibyte-characters get-buffer " *message work*" erase-buffer get-buffer-create kill-all-local-variables featurep xemacs boundp fboundp set-buffer-multibyte t] 2]) #@40 Return non-nil if FORM is funcallable. (defalias 'message-functionp #[(form) "9\203 \301!\206<\203@\302=\206\303!\207" [form fboundp lambda byte-code-function-p] 2 (#$ . 36811)]) #@53 Remove list identifiers in `gnus-list-identifiers'. (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 (#$ . 37008)]) #@34 Remove "Re:" from subject lines. (defalias 'message-strip-subject-re #[(subject) "\302 \"\203 \303\225\304O\207 \207" [message-subject-re-regexp subject string-match 0 nil] 3 (#$ . 37453)]) #@176 Remove HEADER in the narrowed buffer. If 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 (#$ . 37653)]) #@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 (#$ . 38316)]) #@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 (#$ . 38660)]) #@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 "~\210eb\300\301\302\303#\203`S\202d}\210eb\207" [search-forward "\n\n" nil 1] 5 (#$ . 38915)]) #@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\224\202$\310\311\305\306#\203#`S\202$d}\210eb\207" [mail-header-separator re-search-forward "^" regexp-quote "\n" nil t 0 search-forward "\n\n"] 5 (#$ . 39165)]) #@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 (#$ . 39480)]) #@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 (#$ . 39771)]) #@41 Go to the beginning of the next header. (defalias 'message-next-header #[nil "\300y\210m\204\n\301u\210\302\303\304\305#\203\300y\210\304\202db?\207" [0 1 re-search-forward "^[^ ]" nil t] 4 (#$ . 40067)]) #@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 (#$ . 40284)]) #@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 (#$ . 40643) nil]) (byte-code "\303\300!\204\304\300 B\204\374\305 \306\n\"\210\307\310\311#\210\307\312\313#\210\307\314\315#\210\307\316\317#\210\307\320\321#\210\307\322\323#\210\307\324\325#\210\307\326\327#\210\307\330\331#\210\307\332\333#\210\307\334\335#\210\307\336\337#\210\307\340\341#\210\307\342\343#\210\307\344\345#\210\307\346\347#\210\307\350\351#\210\307\352\353#\210\307\354\355#\210\307\356\357#\210\307\360\361#\210\307\362\363#\210\307\364\365#\210\307\366\367#\210\307\370\371#\210\307\372\373#\210\307\374\375#\210\307\376\377#\210\307\201@\201A#\210\307\201B\201C#\210\307\201D\201E#\210\307\201F\201G#\210\307\201H\201I#\210\307\201J\201K#\210\304\207" [message-mode-map current-load-list text-mode-map boundp nil make-keymap set-keymap-parent define-key "?" describe-mode "" message-goto-to "" 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-keywords "" message-goto-summary "" message-goto-body " " message-goto-signature "" message-insert-to "" message-insert-newsgroups "" 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 "" message-elide-region "" message-delete-not-region "" message-kill-to-signature "\215" message-newline-and-reformat "" mml-attach-file " " message-tab] 4) #@15 Message Menu. (defvar message-mode-menu nil (#$ . 42838)) (easy-menu-do-define 'message-mode-menu message-mode-map "Message Menu." '("Message" ["Sort Headers" message-sort-headers t] ["Yank Original" message-yank-original t] ["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 (mark t)] ["Elide Region" message-elide-region (mark t)] ["Delete Outside Region" message-delete-not-region (mark t)] ["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 t] ["Attach file as MIME" mml-attach-file t] "----" ["Send Message" message-send-and-exit t] ["Abort Message" message-dont-send t] ["Kill Message" message-kill-buffer t])) #@2  (defvar message-mode-field-menu nil (#$ . 43740)) (byte-code "\302\303\304\305$\210\306 B\307 B\302\207" [message-mode-map current-load-list easy-menu-do-define message-mode-field-menu "" ("Field" ["Fetch To" message-insert-to t] ["Fetch Newsgroups" message-insert-newsgroups t] "----" ["To" message-goto-to t] ["Subject" message-goto-subject t] ["Cc" message-goto-cc t] ["Reply-To" message-goto-reply-to t] ["Summary" message-goto-summary t] ["Keywords" message-goto-keywords t] ["Newsgroups" message-goto-newsgroups t] ["Followup-To" message-goto-followup-to t] ["Distribution" message-goto-distribution t] ["Body" message-goto-body t] ["Signature" message-goto-signature t]) facemenu-add-face-function facemenu-remove-face-function] 5) #@1512 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 Pospone 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-f move to Followup-To C-c C-t message-insert-to (add a To header to a news followup) 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). M-RET message-newline-and-reformat (break the line and reformat). (defalias 'message-mode #[nil "\306\307p\"\203\n\310 \210\311 \210\312\313!\314L\210\312\315!\210\312\316!\210\312\317!\210\312\320!\210\312\321!\210\322\323!\210\324!\210\325 !\210\n\326\327\3308\312\331!\210\312\332!\210\333\330\312\334!\210\314\312\335!\210\312\336!\210\312\337!\210\312\340!\314L\210\312\341!\314L\210\312\342!\343L\210\344 \210\345\346!\203~\347 \210\202\204\312\350!\351L\210\3529 \"\210\352: \"\210;\353=\203\246\354\355!\203\243\355 \210\202\246\356 \210\357 \210\345\346!\204\304\360\361!\203\3041\203\304\354\362!\203\304\362\330!\210\312\363!\210\3143\364 \210\365\366\367\"\207" [message-mode-syntax-table message-mode-map message-mode-abbrev-table local-abbrev-table major-mode mode-name local-variable-p mml-buffer-list mml-destroy-buffers kill-all-local-variables make-local-variable message-reply-buffer nil message-send-actions message-exit-actions message-kill-actions message-postpone-actions message-draft-article make-local-hook kill-buffer-hook set-syntax-table use-local-map message-mode "Message" t facemenu-add-face-function facemenu-remove-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] message-reply-headers message-newsreader message-mailer message-post-method message-sent-message-via message-checksum message-mime-part 0 message-setup-fill-variables featurep xemacs message-setup-toolbar font-lock-defaults (message-font-lock-keywords t) easy-menu-add abbrev fboundp mail-abbrevs-setup mail-aliases-setup message-set-auto-save-file-name boundp default-enable-multibyte-characters set-buffer-multibyte indent-tabs-mode mml-mode run-hooks text-mode-hook message-mode-hook buffer-offer-save message-mode-menu message-mode-field-menu message-mail-alias-type] 3 (#$ . 44491) nil]) #@31 Setup message fill variables. (defalias 'message-setup-fill-variables #[nil "\306\307!\210\306\305!\210\306\310!\210\311\300!\204\312\306\300!\210\306\313!\210\314\315\316 !\317\320\321\322\260\316 !\323\324\325\326\f\323\327\n\330\260\n\211\n\317Q\n\317Q\331\211 )\207" [adaptive-fill-first-line-regexp message-yank-prefix quote-prefix-regexp mail-header-separator page-delimiter paragraph-start make-local-variable paragraph-separate adaptive-fill-regexp boundp nil auto-fill-inhibit-regexp "[ ]*" "\\(\\(" regexp-quote "\\|" "\\w+>\\|" "[|:>]" "\\)[ ]*\\)+" "$\\|" "[ ]*$\\|" "-- $\\|" "---+$\\|" ".*wrote:$\\|" "$" "^[A-Z][^: \n ]+:"] 11 (#$ . 47897)]) #@30 Move point to the To header. (defalias 'message-goto-to #[nil "\300\301!\207" [message-position-on-field "To"] 2 (#$ . 48578) nil]) #@35 Move point to the Subject header. (defalias 'message-goto-subject #[nil "\300\301!\207" [message-position-on-field "Subject"] 2 (#$ . 48716) nil]) #@30 Move point to the Cc header. (defalias 'message-goto-cc #[nil "\300\301\302\"\207" [message-position-on-field "Cc" "To"] 3 (#$ . 48869) 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 (#$ . 49017) 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 (#$ . 49177) 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 (#$ . 49344) nil]) #@38 Move point to the Newsgroups header. (defalias 'message-goto-newsgroups #[nil "\300\301!\207" [message-position-on-field "Newsgroups"] 2 (#$ . 49515) nil]) #@40 Move point to the Distribution header. (defalias 'message-goto-distribution #[nil "\300\301!\207" [message-position-on-field "Distribution"] 2 (#$ . 49677) 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 (#$ . 49845) nil]) #@36 Move point to the Keywords header. (defalias 'message-goto-keywords #[nil "\300\301\302\"\207" [message-position-on-field "Keywords" "Subject"] 3 (#$ . 50028) nil]) #@35 Move point to the Summary header. (defalias 'message-goto-summary #[nil "\300\301\302\"\207" [message-position-on-field "Summary" "Subject"] 3 (#$ . 50199) nil]) #@50 Move point to the beginning of the message body. (defalias 'message-goto-body #[nil "\301\302!\203 \303 \210eb\210\304\305\305Q\306\307#\206\304\310\306\307#\207" [mail-header-separator looking-at "[ ]*\n" expand-abbrev search-forward "\n" nil t "\n\n"] 4 (#$ . 50367) nil]) #@39 Move point to the end of the headers. (defalias 'message-goto-eoh #[nil "\300 \210\301y\207" [message-goto-body -1] 1 (#$ . 50653) 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 (#$ . 50797) nil]) #@222 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, the function signals an error. With the prefix argument FORCE, insert the header anyway. (defalias 'message-insert-to #[(&optional force) "\302\303! \204\203\227\304\232\204\227\305\232\203\306\307!\210)\310\311!\2037\312\313!\2037\314\315\312\313!\"\2047\316c\210\302\317!\206D\302\320!\206D\321c\207" [co force message-fetch-reply-field "mail-copies-to" "never" "nobody" error "The user has requested not to have copies sent via mail" message-position-on-field "To" mail-fetch-field "to" string-match "\\` *\\'" ", " "reply-to" "from" ""] 4 (#$ . 51098) "P"]) #@48 Widen the reply to include maximum recipients. (defalias 'message-widen-reply #[nil "\205\304!\205\212q\210\305\306!)\212\214\307 \210 \310\211\203? @\311\312\n@!!\210eb\210\312\n@!\313\nA\314\261\210 A\211\204 -\310\207" [message-reply-buffer follow-to elem #1=#:--dolist-temp--88894 buffer-name message-get-reply-headers t message-narrow-to-headers nil message-remove-header symbol-name ": " "\n"] 5 (#$ . 51815) 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 (#$ . 52257) nil]) #@85 Delete everything in the body of the current message that is outside of the region. (defalias 'message-delete-not-region #[(beg end) "\212b\210`\302 \204`\202\303y\210`|\210\304c\210 b\210 \305 \210\306y\210`|\210)\302 \205,\303y\207" [end beg message-goto-signature -2 "\n" message-goto-body 2] 2 (#$ . 52610) "r"]) #@39 Deletes all text up to the signature. (defalias 'message-kill-to-signature #[nil "`\301 \210m\204\f\302y\210\303`\"\210n?\205\304c)\207" [point message-goto-signature -2 kill-region "\n"] 3 (#$ . 52939) nil]) #@64 Insert four newlines, and then reformat if inside quoted text. (defalias 'message-newline-and-reformat #[nil "\304\305\306\211n\204 \212\307y\210\310 \nP!\203\311\307!)\312c\210`\313c\210`\314\315!|\210 \2032 c\210\316\306!\210b\210\317y,\207" [point quoted supercite-thing prefix "[]>|:}+ ]*" "[-._a-zA-Z0-9]*[>]+[ ]*" nil 0 looking-at match-string "\n" "\n\n\n" re-search-forward "[ ]*" fill-paragraph 1] 4 (#$ . 53159) nil]) #@78 Insert a signature. See documentation for the `message-signature' variable. (defalias 'message-insert-signature #[(&optional force) "\204 \305=\203\212db\210\306\n\307\310#)?\202;\204$ \203$\310\202;\311!\203/ \202;<\203:\312!\202;\211;\203E \202V \310=\205V\f\205V\313\f!\205V \211\205\201db\210n\204e\314c\210\315c\210 \310=\203u\316\f!\210\202x c\210db\210n\206\201\314c*\207" [message-signature force message-signature-separator signature message-signature-file 0 re-search-backward nil t message-functionp eval file-exists-p "\n" "\n-- \n" insert-file-contents] 5 (#$ . 53609) (list 0)]) #@128 Elide the text between point and mark. 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 (#$ . 54241) "r"]) (byte-code "\302\300!\204\303\300 B\303\207" [message-caesar-translation-table current-load-list boundp nil] 2) #@69 Caesar rotation of region by N, default 13, for decrypting netnews. (defalias 'message-caesar-region #[(b e &optional n) "\247\203\f\304\305\"\202 \306\211\307U\206 \nU?\2052 \203) \310H\310\\U\204-\311!\312 \n #\207" [n b e message-caesar-translation-table mod 26 13 0 97 message-make-caesar-translation-table translate-region] 5 (#$ . 54614) (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\n\307\\\n\310\nZ\\\307\\O\307\n\307\\O\311\312O\n\312\\\n\310\nZ\\\312\\O\312\n\312\\O\313\314O\260*\207" [table i n -1 make-string 256 0 65 26 91 97 123 255] 9 (#$ . 55126)]) #@266 Caesar rotates all letters in the current buffer by 13 places. Used to encode/decode possiblyun offensive messages (commonly in net.jokes). With prefix arg, specifies the number of places to rotate each letter forward. Mail and USENET news headers are not rotated. (defalias 'message-caesar-buffer-body #[(&optional rotnum) "\212\214\301 \203 `d}\210\302ed#*\207" [rotnum message-goto-body message-caesar-region] 4 (#$ . 55472) (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 (#$ . 56000)]) #@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 (#$ . 56241) "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 (#$ . 56931) "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 #[nil "` \203:\305\214b\306\307\305\310#\203`S\202`}\210\311 \310\"\210edU\203(\310db\210)\n\2036b\210\2029\312y\210)e\203Sl\203Sm\204S\313y\210`\312y\210`|\210\202:db\210l\204]\314c\210\315y\313U\203w\316\317!\203w\313y\210`\312y\210`|\210\202] \204\206\320\321\310!\f#\210\202\234\212b\210`\321\310!W\203\233 c\210\312y\210\202\212)b)\207" [start message-ignored-cited-headers all-removed message-yank-prefix message-indentation-spaces nil search-forward "\n\n" t message-remove-header 1 0 "\n" -1 looking-at "$" indent-rigidly mark] 5 (#$ . 57289)]) #@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) "\304  \205*\n\205*\305 \306\"\210\307 !\210\n \210\310 \210n\204!\311c\210?\205*\303 \211)\207" [modified message-reply-buffer message-cite-function message-checksum buffer-modified-p delete-windows-on t insert-buffer message-exchange-point-and-mark 10] 3 (#$ . 58233) "P"]) #@53 Insert BUFFER into the current buffer and quote it. (defalias 'message-yank-buffer #[(buffer) "\302\213)\207" [buffer message-reply-buffer ((message-yank-original))] 1 (#$ . 58978) "bYank buffer: "]) #@42 Return a list of active message buffers. (defalias 'message-buffers #[nil "\305\212\306\307!\305\211\203*\n@\211q\210 \310=\203#\f\204#\311 !B\nA\211\204 +\237)\207" [buffers buffer #1=#:--dolist-temp--88895 major-mode message-sent-message-via nil buffer-list t message-mode buffer-name] 3 (#$ . 59186)]) #@47 Cite function in the standard Message manner. (defalias 'message-cite-original-without-signature #[nil "`\306\307!\205<\203\202C\310 \n\"\210\311 \210\nb\210\312\f \307#\203?\313y\210\314\315!\2038\313y\210\202,\316y\210`\n|\210 b\210 \203P \211A@ \210\202B \205]n\204[\317c\210 +\207" [message-indent-citation-function functions end start message-signature-separator message-citation-line-function mark t mml-quote-region undo-boundary re-search-backward -1 looking-at "^[ ]*$" 1 "\n"] 4 (#$ . 59509)]) (byte-code "\301B\301\207" [current-load-list mail-citation-hook] 2) #@47 Cite function in the standard Message manner. (defalias 'message-cite-original #[nil "\306\300!\203\203\307\300!\207`\310\311! \205! <\203 \202! C\312\f \"\210\fb\210\n\203:\n\211A@ \210\202, \205Gn\204E\313c\210 +\207" [mail-citation-hook message-indent-citation-function functions end start message-citation-line-function boundp run-hooks mark t mml-quote-region "\n"] 3 (#$ . 60113)]) #@47 Function that inserts a simple citation line. (defalias 'message-insert-citation-line #[nil "\205\n\301H\302\261\207" [message-reply-headers 2 " writes:\n\n"] 2 (#$ . 60525)]) (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\311y\210\316\313x\210\304\202c \203M\305\306\307 @!\312Q\313\304#\204M \211A\210\2023 \203Z\305\314\313\315#\210\311y\210\n\317\261\210\320u\210\313*\207" [case-fold-search mail-header-separator header afters t re-search-forward "^" regexp-quote "$" 0 ":" nil "^[^ ]" move "\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 (#$ . 61186)]) #@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 (#$ . 61668) "P"]) #@47 Don't send the message you have been editing. (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 (#$ . 62081) nil]) #@26 Kill the current buffer. (defalias 'message-kill-buffer #[nil "\303 \203 \304\305!\205\306\307p!\210\310 !)\207" [message-kill-actions actions buffer-file-name buffer-modified-p yes-or-no-p "Message modified; kill anyway? " nil kill-buffer message-do-actions] 2 (#$ . 62340) nil]) #@24 Bury this mail buffer. (defalias 'message-bury #[(buffer) "\302!\303!\210\304\305!\203&\306\305 \236A\203&\307\310 \311 \"\203&\312\310 !\202)\313 !)\207" [buffer newbuf other-buffer bury-buffer fboundp frame-parameters dedicated delq selected-frame visible-frame-list delete-frame switch-to-buffer] 3 (#$ . 62633)]) #@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\316 !\210\n\307\312\211 \203{\211A@\211\203{\fA@ \203!\f@ >\203j\317!\")\204Z\f@\320=\204d\321\322\323\f@\"!\202g\324\325!\203!\fAA@#!\211\203!\307\202! \204\207 \203\207\324\326!\210 \205\260 \205\260\327 \210\212\314\330!\210)\316\331!\210\332\312!\210\333\307!\210\334 \210\335 \210\336$!\210\307,\207" [inhibit-read-only message-sending-message message-send-method-alist sent elem success undo-boundary t put-text-property read-only nil message-fix-before-sending run-hooks message-send-hook message multiple-copies news y-or-n-p format "Already sent message via %s; resend? " error "Denied posting -- multiple copies." "No methods specified to send by" message-do-fcc message-sent-hook "Sending...done" set-buffer-modified-p delete-auto-save-file-if-necessary message-disassociate-draft message-do-send-housekeeping message-do-actions alist message-sent-message-via feature message-shoot-gnksa-feet arg message-send-actions] 5 (#$ . 62964) "P"]) #@36 Send the current message via mail. (defalias 'message-send-via-mail #[(arg) "\301!\207" [arg message-send-mail] 2 (#$ . 64420)]) #@36 Send the current message via news. (defalias 'message-send-via-news #[(arg) " !\207" [message-send-news-function arg] 2 (#$ . 64556)]) #@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 (#$ . 64698)])) (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) #@63 Do various things to make the message nice before sending it. (defalias 'message-fix-before-sending #[nil "db\210n\204\n\300c\210\301\302!\206,\212\303ed\304\305$\205+\306ed\304\307$\210\310\311!?\205+\312\313!)\207" ["\n" message-check-element invisible-text text-property-any invisible t put-text-property nil yes-or-no-p "Invisible text found and made visible; continue posting? " error "Invisible text found and made visible"] 5 (#$ . 65023)]) #@62 Add ACTION to be performed when doing an exit of type TYPES. (defalias 'message-add-action #[(action &rest types) "\303 \205\304\305\306 \211A@\"!\211\211J\nC\244L\210\202)\207" [var types action nil intern format "message-%s-actions"] 5 (#$ . 65481)]) #@33 Perform all actions in ACTIONS. (defalias 'message-do-actions #[(actions) "\205\301\302\303\217\210\211A\210\202\207" [actions #1=#:G88896 (byte-code "\301@!\203@ \210\202\302@!\210\301\207" [actions message-functionp eval] 2) ((error))] 3 (#$ . 65747)]) #@30 Sendmail 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/012m\204ad23\\W\203Bdb\210\202V23\\b\210\322y\210`2X\203V\320y\2102\fB`2\202.\fGd\fB\211\237\323\216\212\f\211A@2\f\205S0q\210\32412\f@#\2101q\210eb\210\n\203\236eb\210``}\210\nc\210\202\315\325 \210e`{eb\210``}\210\nc\210\326\327!\210\326\330!\210\326\331!\210\326\332!\210\326\333!\210db\210\334c\210ed{db\210\335\336/ $c\210\337\3404>\203\351\341\317 \311\261\210\3424>\203\372\337\343\344 \311\261\210)\345 \210\321\210\335\346 #c\210db\210\311c\210~\210\347\350!\204:\351\352!\203:*\203:\353\354!\203:p5\355\216\3216\354\321!\2107 \210+\202B\32167 \210)) T\f\211A@2\356 \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 0 ((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" format "Content-Type: message/partial; id=\"%s\"; number=%d; total=%d\n" "" Message-ID "Message-ID: " Lines "Lines: " message-make-lines message-goto-subject " (%d/%d)" featurep xemacs boundp enable-multibyte-characters fboundp set-buffer-multibyte ((byte-code "q\210\301\302!\207" [#1=#:buffer set-buffer-multibyte t] 2)) erase-buffer id curbuf tembuf p message-send-mail-partially-limit message-required-mail-headers #1# default-enable-multibyte-characters message-send-mail-function] 10 (#$ . 66022)]) (defalias 'message-send-mail #[(&optional arg) "\306\307!\210\310\311!\312\313 p\314\315\316!\203\316\312!\202 \214\317 \210\n?\205*--\320.!\210)\321\322!\210)\323\216\212q\210\324 \210r q\210\325ed\")c\210\326 \210\214\317 \210\327.>\203]\320\330!\210\331/\314\"\21001\332 \210*db\210h\333U\204w\333c\210\214\317 \210\n\205\223\334\335!\204\213\334\336!\205\223\337\334\340!!@\341\230)\203\232\342 \2102\203\254d2W\204\254\343\344!\204\342\345\346!\204\327\347\350!\203\327(\203\327\315\351!\203\327p3\352\216\3124\351\312!\2105 \210+\202\345\31245 \210)\202\345\353 \210* q\210\3546B\2116.\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 message-narrow-to-headers message-generate-headers run-hooks message-header-hook ((kill-buffer tembuf)) erase-buffer buffer-substring-no-properties message-encode-message-body Lines (Lines) message-remove-header mail-encode-encoded-word-buffer 10 message-fetch-field "cc" "to" mail-header-parse-content-type "content-type" "text/plain" message-insert-courtesy-copy y-or-n-p "The message size is too large, should it be sent partially?" featurep xemacs boundp enable-multibyte-characters set-buffer-multibyte ((byte-code "q\210\301\302!\207" [#1=#:buffer set-buffer-multibyte t] 2)) message-send-mail-partially mail message-deletable-headers message-required-mail-headers message-ignored-mail-headers message-default-charset mail-parse-charset message-send-mail-partially-limit #1# default-enable-multibyte-characters message-send-mail-function message-sent-message-via] 3]) #@45 Send off the prepared buffer with sendmail. (defalias 'message-send-mail-with-sendmail #[nil "\203\n\306\307!\202 \310\311\211\312\214\313 \210\314\315!)eb\210\316\317\320 !\321Q!\210\322\321!\210\323\324!\210\325 \326\327!\210 Tb\210\330.!\203D\331 \210\203P\212 q\210\332 \210))\333/01\334\335\336ed\337\340!\203h \202i\341\311 \311\342\2572?\205y\343\344 D?\205\345\n\203\210\nC\202\211\346$\"\210*\205\277\212 q\210eb\210\316\347\311\312#\203\247\322\350!\210\202\230\351 \310U\204\265\352\353ed{\"\210)\354 !\205\277\355 !+\207" [message-interactive delimline resend-to-addresses errbuf case-fold-search mail-header-separator message-generate-new-buffer-clone-locals " sendmail errors" 0 nil t message-narrow-to-headers message-fetch-field "resent-to" re-search-forward "^" regexp-quote "\n" replace-match backward-char 1 point-marker run-hooks message-send-mail-hook eval newline erase-buffer "/" apply call-process-region append boundp sendmail-program "/usr/lib/sendmail" "-oi" "-f" message-make-address ("-oem" "-odb") ("-t") "\n\n* *" "; " buffer-size error "Sending...failed to %s" bufferp kill-buffer message-mailer-swallows-blank-line message-send-coding-system coding-system-for-write default-directory message-sendmail-f-is-evil] 10 (#$ . 69510)]) #@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\316\317d \320\211\211\f&)\211\321=\203-\320\202H \317=\2039\322\323!\202H \324=\203E\322\325!\202H\322\326!)\207" [mail-header-separator message-send-coding-system coding-system-for-write message-qmail-inject-program message-qmail-inject-args #1=#:G88897 re-search-forward "^" regexp-quote "\n" replace-match run-hooks message-send-mail-hook apply call-process-region 1 nil 0 error "qmail-inject reported permanent failure" 111 "qmail-inject reported transient failure" "qmail-inject reported unknown failure"] 10 (#$ . 70813)]) #@43 Send the prepared message buffer with mh. (defalias 'message-send-mail-with-mh #[nil "\305\306  \2035 \f\2034eb\210\307\310\311\f@!\312Q\305\313#\203,\314y\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 0 1 run-hooks message-send-mail-hook mh-send-letter] 4 (#$ . 71618)]) (defalias 'message-send-news #[(&optional arg) "\306\307!\310\311\n!\203\n !\202\n\211\312\211\204 \313 !\314\f4\"5\31067\2118\20388A\202[7\211A7@\2118\203Y\3158@ \"\2038\31078A6\20286-\2119\203l\3169B:B\202n::p; \203~\317\3106\324 \205D\214\325 \210\326?!\210\327\330!\210)9\203\262\331\203\344\326\342!\210\343A\320\"\210BC\344 \210*db\210h\345U\204\376\345c\210\320eb\210\346\347\350D!\351Q!\210\352\351!\210\353\354!\210)\327\355!\210\356\f!\210\312D\357\f!)6*;q\2106\203;\360EB\211E\202D\361\362\363\f@!\"\210\310.\n\207" [tembuf case-fold-search message-post-method arg method group message-generate-new-buffer-clone-locals " *message temp*" nil message-functionp "" gnus-find-method-for-group assoc string-match "Newsgroups" (existing-newsgroups . disabled) t gnus-setup-posting-charset message-narrow-to-headers-or-head message-fetch-field message-check-news-body-syntax message-narrow-to-headers message-generate-headers run-hooks message-header-hook (valid-newsgroups . disabled) message-cleanup-headers message-check-news-syntax ((kill-buffer tembuf)) buffer-disable-undo erase-buffer buffer-substring-no-properties message-encode-message-body Lines (Lines) message-remove-header mail-encode-encoded-word-buffer 10 re-search-forward "^" regexp-quote "\n" replace-match backward-char 1 message-send-news-hook gnus-open-server gnus-request-post news message "Couldn't send message via news: %s" nnheader-get-report gnus-group-name-charset-method-alist gnus-group-name-charset-group-alist result alist item group-name-charset rfc2047-header-encoding-alist messbuf message-syntax-checks message-this-is-news message-posting-charset 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] 5]) #@52 Returns 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 (#$ . 74117)]) #@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 (#$ . 74370)]) (defalias 'message-check-news-header-syntax #[nil "\306\307!\204 \212\310\311!\211\203\312\313\"?\206\314\315\316!!*\205\207\306\302!\204B\212\317\310\320!\211\2039\312\313\n\"?\206>\314\315\321!!+\205\207\306\322!\204]\212\312\323\310\320!\"\203X\324\325!\202Y\317)\205\207\306\326!\204\240\212\327 \204\216\330\331\327\317#\203\216\212\330\332\333\334\224\334\225\335Z{\211!\336Q\327\317#\204\212\327)\202f \203\233\324\337\340 \"!\202\234\317*\205\207\306\341!\204\302\212\330\342\327\317#\203\275\324\337\343\334\224\334\225S{\"!\202\276\317)\205\207\306\344!\204\212\310\311!\310\345!\327\211\203\312\346\"\203 \204\347\350\351\352\353\354!B\"\"\211G\334U\204eb\210\355\f\356\261\210,\306\357!\204\212\330\360\327\317#\203\324\361!\202\317)\205\207\306\362!\2046\212\330\363\327\317#\2031\324\364!\2022\317)\205\207\306\365!\204n\212\317\310\366\317\"\2115?\206j\312\3675\"\203c\312\3705\"\203c\312\3715\"?\206j\324\337\3725\"!+\205\207\306\373!\204.\212\317\310\311!\310\345!\354 \203\215\346 Q\202\217!@\374\375!\205\232=A\327BA\203\266\374\376!\203\266>\203\266>\377=\203\272\317\202)@\203\347\374\201H@@A\"!\204\335@@\353\232\204\335@@BBB@\211A@\210\202\272B\204\360\317\202)\324\337\201IBG\201JU\203\201K\202\201LBG\201JU\203\201M\202\201N\201O\201PB\201Q#$!.\205\207\306\201R!\204\237\212\317\201S\327\211CDEE\203\206C\204\206\201TE@!\211D\203w\312\201UD\"\203t\327\351\201V\354D\346\"\">\203w\317CC\204DE\211AE\210\202DC\204\217\317\202\233\324\337\201WE@D#!-\205\207\306\201X!\204\212\317\201Y\327\211\211\211@CDEE\203\371C\204\371\201TE\211AE@!\211D\203\272\354D\346\"@@\211A@@\211\203\272@\235\203\334C\327\211@\202\336C\204\317\202 \324\337\201ZC\"!.\205\207\306\201F!\206\207\212\317\310\201[!F\327GF\2044\315\201\\!\210\327\202\206\312\201]\201^F!A@\211G\"\203y\312\201_G\"\204y\312\201`G\"\204y\312\201aG\"\204y\312\201bG\"\203y\312\201cF\"\203\205\315\201dF\"\210\327\202\206\317,\207" [group case-fold-search subject found to followup-to message-check-element newsgroups message-fetch-field "newsgroups" string-match "\\`[ ]*\\'" ignore 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? " multiple-headers nil re-search-forward "^[^ :]+: " "^" regexp-quote 0 2 ":" format "Multiple %s headers. Really post? " sendsys "^Sendsys:\\|^Version:" "The article contains a %s command. Really post? " shorten-followup-to "followup-to" "," completing-read "Followups to: (default all groups) " mapcar #[(g) "C\207" [g] 1] "poster" message-tokenize-header "Followup-To: " "\n" shoot "Message-ID.*.i-did-not-set--mail-host-address--so-shoot-me" "You appear to have a misconfigured system. Really post? " approved "^Approved:" "The article contains an Approved header. Really post? " message-id "message-id" "@" "@[^.]*\\." "\\.>" "The Message-ID looks strange: \"%s\". Really post? " existing-newsgroups boundp gnus-active-hashtb gnus-read-active-file some groups hashtb errors error header headers from ad intern "Really post to %s unknown group%s: %s " 1 "this" "these" "" "s" mapconcat identity ", " 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\"."] 10]) (defalias 'message-check-news-body-syntax #[nil "\306\307!\2042\212eb\210\310\311\312!\313Q!\210\314\210i\315W\203#\316y\317U\204n\206.m\206.\320\321!)\205d\306\322!\204|\212eb\210\310\311\312!\313Q!\210\316y\210`db\210\323\n\314\324#\210\317y\210\323\325 \324#\206x\326\f)\203s\320\327!\202x\330\331!\210\314*\205d\306\332!\204\226\212\310\333\314\324#\203\221\320\334!\202\222\324)\205d\306\335!\204\263\212\336 \337V\203\256\320\340\341\336 \"!\202\257\324)\205d\306\342!\204\345\212 ?\206\341\305 =?\206\341\343\f)\203\334\320\344!\202\341\330\345!\210\314)\205d\306\346!\204\n\212db\210\347`d\"\350V\203\320\340\351\347`d\"S\"!\202\324)\205d\306\352!\206d\212db\210\3241\353\354\314\324#\203&\355\356\314\324#11\203/\324\202c\343\f)\203D\320\357!\202ceb\210\310\311\312!\313Q!\210\355\356\314\324#\203^\320\357!\202c\330\360!\210\314*\207" [mail-header-separator b message-signature-separator feature message-shoot-gnksa-feet message-checksum message-check-element long-lines re-search-forward "^" regexp-quote "$" nil 80 1 0 y-or-n-p "You have lines longer than 79 characters. Really post? " empty re-search-backward t "[^ \n ]" empty-article "Empty article. Really post? " message "Denied posting -- Empty article." control-chars "[- --\200-\237]" "The article contains control characters. Really post? " size buffer-size 60000 format "The article is %d octets long. Really post? " new-text quoted-text-only "It looks like no new text has been added. Really post? " "Denied posting -- no new text has been added." signature count-lines 5 "Your .sig is %d lines; it should be max 4. Really post? " quoting-style search-backward-regexp "^>[^\n]*\n" search-forward-regexp "^[ ]*[^>\n]" "Your text should follow quoted text. Really post? " "Denied posting -- only quoted text." 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 (#$ . 80469)]) #@44 Process Fcc headers in the current buffer. (defalias 'message-do-fcc #[nil "\306p\307\211\212\310\311!q\210\312 \210\313\n!\210\214\314 \210\315\316!\211\203. B\317\316\307\306#\210\202)\320 \210\214\314 \210\f\321 B&\322 \210+eb\210\323\324\325'!\326Q\307\306#\203X\327\330\306\211#\210 \203\310 \211A@\331\332\"\203}\333ed(\307\211\211)\334\335\"&\210\202X\336!\337\340!!\204\220\341\340!\306\"\210*\203\244*\342=\204\244*!\210\202X\343!\203\272\344!\203\272\342\335\307\306$\210\202X\306+\342\335\306\211$\210)\202X\345p!-\207" [file list buf case-fold-search message-default-charset rfc2047-header-encoding-alist t nil get-buffer-create " *message temp*" erase-buffer insert-buffer-substring message-narrow-to-headers message-fetch-field "fcc" message-remove-header message-encode-message-body ("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 mail-parse-charset mail-header-separator shell-file-name shell-command-switch message-fcc-handler-function mail-use-rfc822] 11 (#$ . 80818)]) #@47 Append this article to Unix/babyl mail file.. (defalias 'message-output #[(filename) "\301!\203\302!\203\303\304\"\207\305\304\"\207" [filename file-readable-p mail-file-babyl-p gnus-output-to-rmail t gnus-output-to-mail] 3 (#$ . 82124)]) #@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 (#$ . 82377)]) #@58 Make a valid data header. If NOW, use that time instead. (defalias 'message-make-date #[(&optional now) "\206\304 \305\306!8\307 \310W\203\311 [\312\313\"\314\315\316\317\320\306!8 \"@!\"\312\321\"\314\322\n \323\245 \323\246\324\245$R+\207" [now zone sign parse-time-months current-time 8 decode-time "+" 0 "-" format-time-string "%d" format " %s " capitalize rassoc 4 "%Y %H:%M:%S " "%s%02d%02d" 3600 60] 9 (#$ . 82993)]) #@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 (#$ . 83437)]) (byte-code "\302\300!\204\303\300 B\303\207" [message-unique-id-char current-load-list boundp nil] 2) (defalias 'message-unique-id #[nil "\206\304\305\306!\307\310\311\"S\"T\312\313\\\246\314 \n\315>\2036\316 \227\317\320 \"\2031 \313\224\321I\210\202! )\202;\322\323 \324\"\322 @\307\325\246\326\"\\\327\"\322 A@\307\325\245\326\"\\\327\"\330R)\207" [message-unique-id-char tm system-type user logand random t lsh 1 20 625 0 current-time (ms-dos emx vax-vms) user-login-name string-match "[^a-z0-9_]" 95 message-number-base36 user-uid -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\303!\203 \202\212\304 \210 ;\203 c\210\2024 \305=\2034\n\2034\306\n!\2034\307\n!\210eb\210\310\311\312\305#\203H\313\314\305\211#\210\2027\315 \316U?\205R\317 *\207" [message-user-organization organization message-user-organization-file message-functionp message-set-work-buffer t file-exists-p insert-file-contents re-search-forward "[ \n]+" nil replace-match "" buffer-size 0 buffer-string] 4 (#$ . 84700)]) #@54 Count the number of lines and return numeric string. (defalias 'message-make-lines #[nil "\212\214~\210eb\210\301\302\303!\304Q!\210\305y\210\306\307`d\"!*\207" [mail-header-separator re-search-forward "^" regexp-quote "$" 1 int-to-string count-lines] 4 (#$ . 85214)]) #@49 Return the In-Reply-To header for this message. (defalias 'message-make-in-reply-to #[nil "\205\301H\207" [message-reply-headers 4] 2 (#$ . 85490)]) #@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" message-functionp] 2 (#$ . 85649)]) #@54 Return an Expires header based on `message-expires'. (defalias 'message-make-expires #[nil "\303 \304_\305_\211\211@\306 \307\310\311\"\245!\\\240\210\nA\nA@\306 !\307\310\311\"\246\\\240\210\312\n!*\207" [message-expires future current current-time 1.0 86400 round expt 2 16 message-make-date] 8 (#$ . 85891)]) #@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 (#$ . 86212)]) #@21 Make a From header. (defalias 'message-make-from #[nil "\306 \307\303!\203 \206\303 \211\310\230\203\311 \212\312 \210 \203)\f\313\232\203/\nc\210\202\320 \314=\204e \315=\204\225\316\317\f\"\203e\f\320P\316\321 \"\203] \322\224\323I\210 \322\225S\323I\210\202F\316\324 \")\203\225\fc\210eb\210\325\317\320\326#\203\214eb\210\327c\210\325\330\320\326#\203\211\331\332\333\"\210\202y\327c\210\334\n\335\261\210\202\320\n\336\261\210`$\fc\210$b\210\325\337\320\326#\203\264\331\332\333\"\210\202\244$b\210\325\340\320\326#\203\314\331\341\333\"\210$b\210\202\270)\342c\210\343 ,\207" [message-from-style style login user-full-name fullname tmp message-make-address boundp "&" user-login-name message-set-work-buffer "" angles parens string-match "[^- !#-'*+/-9=?A-Z^-~]" nil "([^()]*)" 0 45 "[\\()]" re-search-forward 1 "\"" "[\"\\]" replace-match "\\\\\\&" t " <" ">" " (" "[()\\]" "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" "\\1(\\3)" ")" buffer-string fullname-start] 5 (#$ . 86411)]) #@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 (#$ . 87470)]) #@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 (#$ . 87716)]) #@51 Return the pertinent part of `user-mail-address'. (defalias 'message-user-mail-address #[nil "\205\301\302\"\203\303!A@\207\207" [user-mail-address string-match " " mail-extract-address-components] 3 (#$ . 87908)]) #@44 Return user's fully qualified domain name. (defalias 'message-make-fqdn #[nil "\301 \303 \304\305 \"\203 \202C\306\302!\203'\n;\203'\304\307\n\"\203'\n\202C\203@\304\307\"\203@\304\310\"\203@\311\312\"\202C \313P*\207" [user-mail system-name mail-host-address message-user-mail-address string-match "[^.]\\.[^.]" boundp "\\." "@\\(.*\\)\\'" match-string 1 ".i-did-not-set--mail-host-address--so-shoot-me"] 3 (#$ . 88137)]) #@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 (#$ . 88583)]) #@25 Return the domain name. (defalias 'message-make-domain #[nil "\206\301 \207" [mail-host-address message-make-fqdn] 1 (#$ . 88771)]) #@83 Prepare article HEADERS. Headers already prepared in the buffer are not modified. (defalias 'message-generate-headers #[(headers) "\214\306 \210\307 \310 \311 \312 \313 \314\314>\315 ?\314@\316 A\317 BCD\320 E\321F\314G\314H\314IJK\322 \204M\323\301\324K!\"KK\203\201eb\210\325\326\327K@!\330Q\314\321#\203w\331\332\224T\333\"\203w\332y\210`\334y\210`|\210K\211AK\210\202M)K\203\262eb\210K\211AK@\211I:\203\260I@\335=\203\250IAG\202\264I@G\202\264IG\325\326\336G;\203\302G\202\306\327G!\227!\337Q\314\321#\203\346\314f\340U\204\335\341c\210\202\340\334u\210\342\343!\203\202I:\203I@\335=\203IAG\344IA!\203IA \206[\345IA!\205[IAJ\202[I:\2039IA;\203*IA\206[\344IA!\205[IA \202[\345G!\203LGJ\203LGJ\202[\346G!?\205[\347\350\351G\"!\211H\203\202H\352\232\204\202\212n\203\214db\210G;\203{G\202\327G!\353H\354\261\210\355y\210\202\225`\356 |\210Hc\210GJ>\203\256\332y\210\342\357!\203\256\360`\332\225\361p$\210)\202\202\362\363!\362\364!\365 L6\211M\205\346\366!?\205\367M!A@\227L\227\230?\2056\203\356\3676!A@\227L\227\230?\205eb\210\325\370\314\321#\203\332y\210\371c\210\332y\210\372 \204\373\374L\"\205\375L\354\261.\207" [Date Message-ID Organization From Path Subject 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-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 1 optional regexp-quote ":" 32 " " looking-at "[ ]*\n[^ ]" fboundp boundp message-check-element read-from-minibuffer format "Empty header for %s; enter value: " "" ": " "\n" -1 gnus-point-at-eol "[^:]+: " add-text-properties (message-deletable t face italic) message-fetch-field "from" "sender" message-make-sender sender mail-extract-address-components "^\\(Original-\\)*Sender:" "Original-" message-news-p string-match "@.+\\.." "Sender: " Newsgroups In-Reply-To To Distribution Lines message-newsreader User-Agent Expires case-fold-search header value elem message-deletable-headers headers secure-sender from] 6 (#$ . 88912)]) #@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 (#$ . 91202)]) (defalias 'message-fill-address #[(header value) "\214``}\210\304\305!!\306 :\203 @\202 \307\261\210edS}\210\310\211eb\210m\204h\311dw\210\310f\312=\2049m\203[ \204^i\313V\203U\n\203U\212\nb\210\314c\210)`T\202^`T\202^ ?m\204&\315u\210\202&*db\210~\210\315y)\207" [header value last quoted capitalize symbol-name ": " "\n" nil "^,\"" 44 78 "\n " 1] 4]) (defalias 'message-fill-header #[(header value) "`\305\306\307\310 !!\311\f:\203\f@\202\f\312\261\210\214\n`}\210\313\n`\"\210\314y\210\315\316!\2038\317y\210`\320y\210`|\210\nb\210\321\322\323\324#\210\315\325!\203M\326\327\324\211#\210db,\207" [fill-prefix fill-column begin header value 78 " " capitalize symbol-name ": " "\n" fill-region-as-paragraph -1 looking-at "[ ]*$" 0 1 re-search-forward ":" nil t "\n[ ]+" replace-match " "] 4]) (defalias 'message-shorten-1 #[(list cut surplus) "\303Z \233\303Z\n\\\304\\ \233\241\207" [cut list surplus 2 1] 3]) #@207 Trim REFERENCES to be less than 31 Message-ID long, and fold them. If folding is disallowed, 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\314!!\315\216r\fq\210 c\210eb\210\316\317\311\320#\203+\321\307!B\202\237\211G+\n V\203J\n Z \322  #\210\n Z)!\203\232\"\203\232\323\324\325\326\327\"\"\nS\\\307 S\233# $%$%V\203\213$#@GTZ$ T #A#\202l \307V\203\231\322  #\210,\330\331\332#&!\203\272\"\203\272\333\334'!!\335&\336\261\202\300\337'&\"-\207" [refs cut count maxcount #1=#:temp-buffer references 31 0 6 nil get-buffer-create generate-new-buffer-name " *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 988 apply + mapcar length mapconcat identity " " capitalize symbol-name ": " "\n" message-fill-header surplus message-this-is-news message-cater-to-broken-inn ptr totalsize maxsize refstring header] 7 (#$ . 92554)]) #@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 (#$ . 93688)]) #@57 Return a new (unique) buffer name based on TYPE and TO. (defalias 'message-buffer-name #[(type &optional to group) "\304=\2032\305\306 \n\203\307\310\n!@\206\n\311Q\202\311 \203, \311\230\204,\312 P\202-\311\306\260!\207\313!\203> \n #\207\314=\203p\305\315 \n\203Y\307\310\n!@\206T\n\311Q\202Z\311 \203j \311\230\204j\312 P\202k\311\306\260!\207\316\317 \"\207" [message-generate-new-buffers type to group unique generate-new-buffer-name "*" " to " mail-extract-address-components "" " on " message-functionp unsent "*unsent " format "*%s message*"] 6 (#$ . 94062)]) #@68 Pop to buffer NAME, and warn if it already exists and is modified. (defalias 'message-pop-to-buffer #[(name) "\302!\211\203%\303 !\203%\304 !q\210\305 \203*\306\307!\204*\310\311!\210\202*\304!q\210\312 \210\313 )\207" [name buffer get-buffer buffer-name pop-to-buffer buffer-modified-p y-or-n-p "Message already being composed; erase? " error "Message being composed" erase-buffer message-mode] 3 (#$ . 94660)]) #@27 Kill old message buffers. (defalias 'message-do-send-housekeeping #[nil "\304p\" \203.\203.G Y\203.\211A@\305\n!\203*\306\n!\204*\307\n!\210)\202 \2038 \210\202L\310\311\305 \"\203L\312\313\305 \314\225\315OP\316\"\210 \205VpC\244\211\207" [message-buffer-list message-max-buffers buffer message-send-rename-function delq buffer-name buffer-modified-p kill-buffer string-match "\\`\\*\\(unsent \\)?" rename-buffer "*sent " 0 nil t] 5 (#$ . 95087)]) (byte-code "\301B\301\207" [current-load-list mc-modes-alist] 2) (defalias 'message-setup #[(headers &optional replybuffer actions) "\306\300!\203\307\236\204\310B \203  eb\210\311 !\"##\203F#@@!\236\204<#@@C\"B\"#\211A#\210\202#\"* \"\210`\312y\210`|\210$\203c$c\210n\204c\313c\210\314`%\315\261\210`S\316\317$\210\312y\210\320 \203\233&\203\211&c\210n\204\211\313c\210'\203\233\321\322\323\322\324\325(!\"\"!\210\326 \203\302)\203\260)c\210n\204\260\313c\210'\203\302\321\322\323\322\324\325*!\"\"!\210\327\330!\210\331 \210\214\332 \210+\203\325\333 \210\327\334!\210)\335\317!\210\317,\327\336!\210\337 \210\340 \207" [mc-modes-alist actions message-send-actions replybuffer message-reply-buffer headers boundp message-mode (message-mode (encrypt . mc-encrypt-message) (sign . mc-sign-message)) mail-header-format -1 10 put-text-property "\n" read-only nil message-news-p message-generate-headers delq Lines Subject copy-sequence message-mail-p run-hooks message-signature-setup-hook message-insert-signature message-narrow-to-headers message-use-alternative-email-as-from message-header-setup-hook set-buffer-modified-p message-setup-hook message-position-point undo-boundary message-header-format-alist alist h message-default-headers mail-header-separator message-default-news-headers message-generate-headers-first message-required-news-headers message-default-mail-headers message-required-mail-headers message-alternative-emails buffer-undo-list] 7]) #@67 Associate the message buffer with a file in the drafts directory. (defalias 'message-set-auto-save-file-name #[nil "\205\306 \203\307\310!\202\311\312\"\313 \314 \210\f\211\207" [message-auto-save-directory message-draft-article buffer-file-name buffer-auto-save-file-name message-draft-coding-system buffer-file-coding-system gnus-alive-p nndraft-request-associate-buffer "drafts" expand-file-name "*message*" make-auto-save-file-name clear-visited-file-modtime] 3 (#$ . 97077)]) #@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 (#$ . 97576)]) #@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 (#$ . 97806) nil]) #@91 Start editing a mail message to be sent. OTHER-HEADERS is an alist of header/value pairs. (defalias 'message-mail #[(&optional to subject other-headers continue switch-function yank-action send-actions) "\304\305\306\307 \"!\210\310\311 \206\312B\313\n\206\312BD \205 \244!)\207" [message-this-is-mail to subject other-headers t message-pop-to-buffer message-buffer-name "mail" message-setup To "" Subject] 4 (#$ . 98200) 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 "news" nil message-setup Newsgroups "" Subject] 5 (#$ . 98641) nil]) (defalias 'message-get-reply-headers #[(wide &optional to-address) "\306\211\211\211\211\211\211\211()\307\310!\307\311!\307\312!\307\313!(\307\314!(\203[(\227\315\232\204<(\227\316\232\203D\317\306(\202[(\227\320\232\204T(\227\321\232\203[ \206Y\f(*\203e+\203\212\322+\206p \206p\fBC)*\203m(\203m\323(B)B)\202m\306\212\324 \210 \204\237 \206\235\f\206\235\325c\210 \203\262n\203\253\325\202\254\326 \325Q\202\263\325c\210(\203\311n\203\302\325\202\303\326(P\202\312\325c\210\n\203\336n\203\330\325\202\331\326\nP\202\337\325c\210eb\210\327\330\306\317#\203\365\331\332\317\211#\210\202\344,-\333\334 !\335 \210c\210)eb\210m\203 \206\f\206\325c\210\336\337\340\334 !\"\211..\2038\341\342.\211A.@@.\"\"\202 *\322\211A@ABC)\203l\323\343\344\326#B/\345\346/A\"\203d/\211A\347\225\306O\241\210/)B)))).\207" [ccalist reply-to cc to from never-mct nil message-fetch-field "from" "to" "cc" "mail-copies-to" "reply-to" "never" "nobody" t "always" "poster" To Cc message-set-work-buffer "" ", " re-search-forward "[ ]+" replace-match " " rmail-dont-reply-to buffer-string erase-buffer mapcar #[(addr) "\301!B\207" [addr mail-strip-quoted-names] 2] message-tokenize-header delq assoc mapconcat #[(addr) "A\207" [addr] 1] string-match "^ +" 0 mct follow-to wide to-address message-dont-reply-to-names rmail-dont-reply-to-names s ccs] 9]) #@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/!\203I/ \202I\3130!\203I\2120 )\314\315\311\"\314\316!\314\317!*\314\320!,\314\321!\206c\322+1\203p\323+!+\324\325+!P+\314\326!\211\203\214\327\330\"\203\214\331\332\" \204\227\333.2\")\334\335.\203\243\336\202\244\337,.\205\2552#!\210\340\332+,*\f \332\211\341& 3\342\343+B\344 \204\320\f\205\343\345 \206\326\341 \205\333\346\f\206\340\341QBC\"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 message-functionp message-fetch-field "message-id" "references" "date" "from" "subject" "none" message-strip-list-identifiers "Re: " message-strip-subject-re "gnus-warning" string-match "<[^>]+>" match-string 0 message-get-reply-headers message-pop-to-buffer message-buffer-name "wide reply" "reply" vector "" message-setup Subject append References " " cc to reply-to date subject from cur wide message-reply-to-function message-wide-reply-to-function gnus-list-identifiers to-address message-reply-headers] 13 (#$ . 100402) 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 (#$ . 101712) 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\311\211\310\211\211\211\211@ABCDEFGHI\214eb\312\313\310\311#\203>`S\202?d}\210\314J!\203MJ A\315\316!H\315\317!F\315\320!\206^\321G\315\322!C\315\323\311\"B\315\324!\315\325!\315\326!\315\327!E\315\330!\315\331!D\315\332!\211\203\232\333\334 \"\203\232\335\336 \"B ;\203\254\311K\333\337 \")\203\254\310L\203\267\340G!G\341\342G!PG~\210)\343\344\345H\n#!\210\346\347GB\350M\203\336\351MBC\202eA\203\350A\202e\f\203VN\203V\f\227\352\232\203 N\353=\204\354\355\356\311\357$\203\310\360E\206H\206\361B\202R\351\nB\202R\f\n\232\204IN\362=\203I\354\355\363\f\364Q\311\365\f\366\333\367\f\"\203B\370\202C\371\372&\203O\351\fB\202R\351\nBC\202e\203a\351BC\202e\351\nBC \205m\373 BCC\204wB\205\215\374C\206~\361C\205\204\375B\206\212\361QBCD\205\312D\227\376\232\206\237D\227\377\232?\205\312\201PD\227\201Q\232\204\270D\227\352\232\203\306E\206\310H\206\310\361\202\310DBC$BI\"\210\201R\336GHFBC\336\211\361& \211O.\207" [posted-to gnus-warning newsgroups distribution followup-to message-this-is-news require gnus-sum nil t search-forward "\n\n" message-functionp message-fetch-field "from" "date" "subject" "none" "references" "message-id" "followup-to" "newsgroups" "posted-to" "reply-to" "distribution" "mail-copies-to" "gnus-warning" string-match "<[^>]+>" match-string 0 "world" message-strip-list-identifiers "Re: " message-strip-subject-re message-pop-to-buffer message-buffer-name "followup" 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." 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 indented for discussion;\nresponses here are directed to other newsgroups." Distribution References " " "never" "nobody" inhibit-point-motion-hooks follow-to message-id references mct reply-to date subject from cur message-followup-to-function case-fold-search gnus-list-identifiers to-newsgroups message-use-followup-to message-reply-headers Cc "always" vector] 16 (#$ . 101901) nil]) #@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\312!\205\254\313\211\211\211\211\211\212\214\314 \210\315\316!\315\317!\315\320!\315\321\322\"\315\323!)\203C\227\324 \227\230\204X\325 !A@\227\325\326 !A@\227\230\204X\307\327!\210*\203c\330 \210\202h\331\332!q\333 \210\334\f\335\336 \335\337 \335\340 \335\n\203\202\341\n\335Q\202\203\342+\335,\261\210\343\344!\210*?\205\252\345\346!\210\347-. )\203\247\345\350!\210\351 !.\207" [sender buf distribution message-id newsgroups from message-news-p error "This is not a news article; canceling is impossible" yes-or-no-p "Do you really want to cancel this article? " nil message-narrow-to-head message-fetch-field "from" "sender" "newsgroups" "message-id" t "distribution" message-make-sender mail-extract-address-components message-make-from "This article is not yours" 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 arg mail-header-separator message-cancel-message message-syntax-checks message-send-news-function] 16 (#$ . 104909) "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\305\306!\305\307! \203 \227\310 \227\230\204,\311!A@\227\311\312 !A@\227\230\204,\313\314!\210\315\316\317!!\210\320\n!\210\321 \210\322 \210 \203E\323 \324\"\210eb\210\325\326\327\324#\204W\313\330!\210\202]\331\332\324\211#\210db\210\fc\210~\210\333y+\207" [from sender cur message-ignored-supersedes-headers mail-header-separator message-fetch-field "sender" "from" message-make-sender mail-extract-address-components message-make-from error "This article is not yours" message-pop-to-buffer message-buffer-name "supersede" insert-buffer-substring mime-to-mml message-narrow-to-head message-remove-header t re-search-forward "^Message-ID: " nil "No Message-ID in this article" replace-match "Supersedes: " 1] 4 (#$ . 106305) 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 "\304=\204\"\305\220r q\210\306 \210)\307 !\210\310\311\312\313 \313\314 &)\221\210\315\316\317 \"!\207" [system-type standard-output default-directory file-name vax-vms "*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 (#$ . 107261) nil]) #@108 Remove junk like "Re:", "(fwd)", etc. that was added to the subject by previous forwarders, replyers, etc. (defalias 'message-wash-subject #[(subject) "\302\303\304!!\305\216rq\210\306 !\210eb\210\307\310\311\312#\203\"\313\314!\210\202eb\210\307\315\311\312#\2034\313\314!\210\202%db\210\316\317\311\312#\203F\313\314!\210\2027eb\210\307\320\311\312#\203X\313\314!\210\202Idb\210\316\321\311\312#\203j\313\314!\210\202[\322 +\207" [#1=#:temp-buffer subject get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-string 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 (#$ . 107904)]) #@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) "\301\302\303 \203 \304\202\f\305!\206\306\307R\207" [subject "[" message-fetch-field message-news-p "newsgroups" "from" "(nowhere)" "] "] 4 (#$ . 108756)]) #@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) "\301P\207" [subject "Fwd: "] 2 (#$ . 109213)]) #@73 Return a Subject header suitable for the message in the current buffer. (defalias 'message-make-forward-subject #[nil "\212\214\304 \210 \203\305\306\307!\206\310!\202\306\307!\206\310\211\203+ <\204+ C \203B\311 @!\203; @\n! A\211\204/\n,\207" [message-make-forward-subject-function message-wash-forwarded-subjects subject funcs message-narrow-to-head message-wash-subject message-fetch-field "Subject" "" message-functionp] 5 (#$ . 109444)]) #@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 \203 \306 \202\307\306 !\310\f\203\311\310\n\"\210\202#\312\310\n\"\210 \203-\313 \210\2020db\210\203P\203@\314c\210\202S \203J\315c\210\202S\316c\210\202S\317c\210`\310\203q\203j\320!\210\202\200\321!\210\202\200 \203|\320!\210\202\200\321!\210`\203\243\203\223\322c\210\202\246 \203\235\323c\210\202\246\324c\210\202\246\325c\210\203\317\203\317\214}\210b\210`\326\327\310\330#\206\305`}\210ed|\210)\202\367\204\367 \203\367\214}\210b\210`\326\327\310\330#\206\356`}\210\331 \330\"\210)*\332 +\207" [cur message-forward-show-mml subject art-beg news message-forward-before-signature message-make-forward-subject mail-decode-encoded-word-string nil message-news message-mail message-goto-body "\n<#multipart type=digest>\n" "\n\n<#mml type=message/rfc822 disposition=inline>\n" "\n\n<#part type=message/rfc822 disposition=inline raw=t>\n" "\n-------------------- Start of forwarded message --------------------\n" insert-buffer-substring mml-insert-buffer "<#/multipart>\n" "<#/mml>\n" "<#/part>\n" "\n-------------------- End of forwarded message --------------------\n" search-forward "\n\n" t message-remove-header message-position-point message-forward-as-mime digest e b current-prefix-arg message-forward-ignored-headers] 5 (#$ . 109914) "P"]) #@40 Resend the current article to ADDRESS. (defalias 'message-resend #[(address) "\306\307\"\210\212p\310\311\312!q\210\313 \210\314\315BC!\210\316\317!\210\320 \210\321\322\310\323#\2031\324u\210\325c\210\202 ~\210\310y\210`d|\210`\326\n!\210eb\210\327\330!\210\324u\210\214 `}\210\331 \323\"\210db\210)\fc\210\332\333 \323#\203l\334y\210\335c\210\202[ b\210\336\337!\203y\340\341!\210\323\310%\342 \210*\343p!\210*\306\344\")\207" [address beg cur message-ignored-resent-headers mail-header-separator message-required-mail-headers message "Resending message to %s..." nil get-buffer-create " *message resend*" erase-buffer message-setup To message-generate-headers (From Date To) message-narrow-to-headers re-search-forward "^[A-Za-z]" t -1 "Resent-" insert-buffer-substring search-forward "\n\n" message-remove-header re-search-backward "^\\(Also-\\)*Resent-" 0 "Also-" looking-at "From " replace-match "X-From-Line: " message-send-mail kill-buffer "Resending message to %s...done" message-inhibit-body-encoding] 4 (#$ . 111443) (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 "\306\307!\310\311\312\313!!\210 @;\203+\314 \nA:\203#\n\211A\210\202\n)@!\210\202_\314 !\210\315 \210eb\210\316\317\310\307#\210\320 \310\307#\203H\321y\204N\320\322\310\307#\210e\320\323\310\307#\203\\\324\224\202]`|\210\325\326!\204y\327\304!\203y\f\203y\330\331!\203y\331\307!\210\332 \210\214\333 \210\334 \307\"\210db\210c\210)\335 *\207" [boundary handles x message-unsent-separator default-enable-multibyte-characters message-ignored-bounced-headers mm-dissect-buffer t nil message-pop-to-buffer message-buffer-name "bounce" mm-insert-part undo-boundary search-forward "\n\n" re-search-forward 1 "^Return-Path:.*\n" "^[^ \n ]+:" 0 featurep xemacs boundp fboundp set-buffer-multibyte mime-to-mml message-narrow-to-head message-remove-header message-position-point mail-header-separator] 5 (#$ . 112553) nil]) #@73 Like `message-mail' command, but display mail buffer in another window. (defalias 'message-mail-other-window #[(&optional to subject) "\306\307\211\211\211\310\311\312 \"!\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 to t nil message-pop-to-buffer message-buffer-name "mail" message-setup To "" Subject message-this-is-mail subject] 5 (#$ . 113597) nil]) #@72 Like `message-mail' command, but display mail buffer in another frame. (defalias 'message-mail-other-frame #[(&optional to subject) "\306\307\211\211\211\310\311\312 \"!\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 to t nil message-pop-to-buffer message-buffer-name "mail" message-setup To "" Subject message-this-is-mail subject] 5 (#$ . 114088) 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 "news" message-setup Newsgroups "" Subject message-this-is-news subject] 5 (#$ . 114576) 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 "news" message-setup Newsgroups "" Subject message-this-is-news subject] 5 (#$ . 115063) 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 '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 (#$ . 115549) "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 '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 re-search-forward "" t 2 delete-char -2] 5 (#$ . 115951) "r"]) (defalias 'message-exchange-point-and-mark 'exchange-point-and-mark) #@46 Regexp that match headers that lists groups. (defvar message-newgroups-header-regexp "^\\(Newsgroups\\|Followup-To\\|Posted-To\\|Gcc\\):" (#$ . 116419)) #@107 Expand group names in Newsgroups and Followup-To headers. Do a `tab-to-tab-stop' if not in those headers. (defalias 'message-tab #[nil "\302 )\203 \303 \207\304 \207" [message-newgroups-header-regexp mail-abbrev-mode-regexp mail-abbrev-in-expansion-header-p message-expand-group tab-to-tab-stop] 1 (#$ . 116579) nil]) (byte-code "\301B\301\207" [current-load-list gnus-active-hashtb] 2) #@36 Expand the group name under point. (defalias 'message-expand-group #[nil "\212\214\212\306y\210\307\310w\210`T)`}\210\311\310x\210`*\312\313\310w\210`{\314\303!\205( \315\n\f\"\310`|\210 G\316U\203R @\n\230\203L\nc\210\317\320!\202\237 @c\202\237\321\n\f\"\211\203i\n\230\204ic\202\237\nc\210\204w\317\322!\202\237\323 \324\216\325\326!\210\327 \210\310\330 \210p \331\332 \333\"!\210)eb\210`\334y\210`|+.\207" [b completion-ignore-case string gnus-active-hashtb hashtb completions 0 "^:" nil "^, \n" t "^, \n " boundp all-completions 1 message "Only matching group" try-completion "No matching groups" selected-window ((select-window save-selected-window-window)) pop-to-buffer "*Completions*" buffer-disable-undo erase-buffer display-completion-list sort string< 3 comp save-selected-window-window buffer-read-only standard-output] 4 (#$ . 116977)]) #@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 "\212\303\220\303q\210\304 \210\305\306\"\210eb\221\210) \n!\207" [text ask question " *MESSAGE information message*" fundamental-mode mapcar princ] 4))] 2 (#$ . 117870)]) #@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 (#$ . 118423)]) #@230 Create and return a buffer with a 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) "p\212\303 !q\210\304\n\"\210p*\207" [oldbuf name varstr generate-new-buffer message-clone-locals] 3 (#$ . 118712)]) #@62 Clone the local variables from BUFFER to the current buffer. (defalias 'message-clone-locals #[(buffer &optional varstr) "\212q\210\303 )\304\305\306\n\"*\207" [buffer regexp locals buffer-local-variables "^gnus\\|^nn\\|^message\\|^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 #1=#:G88898 (byte-code "\301@!AL\207" [local make-local-variable] 2) ((error))] 4]] 3 (#$ . 119144)]) (defalias 'message-replace-chars-in-string #[(string from to) "\303 \n#\207" [from to string mm-subst-char-in-string] 4]) (byte-code "\302\303\304\305#\210\306\300!\204\307\300 B\307\207" [message-inhibit-body-encoding current-load-list put message-replace-chars-in-string byte-optimizer byte-compile-inline-expand boundp nil] 4) (defalias 'message-encode-message-body #[nil "?\205\205 \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\324\325\307\306#)\214\320 \210\326\327!\210\326\330!\210) ?\205\204eb\210\331\332!\210\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] 5]) #@60 Read from the minibuffer while providing abbrev expansion. (defalias 'message-read-from-minibuffer #[(prompt) "\303\304!\203\305\304\306\n!*\207\307\310\n!)\207" [minibuffer-setup-hook mail-abbrev-mode-regexp prompt fboundp mail-abbrevs-setup "" read-from-minibuffer mail-abbrev-minibuffer-setup-hook read-string] 2 (#$ . 120850)]) (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?\2064\n\f\232?\205@db\210\320\n\321\261+\207" [fields emails email message-alternative-emails user-mail-address require mail-utils ("To" "Cc") split-string mail-strip-quoted-names mapconcat message-fetch-reply-field "," "[ \f \n ,]+" nil string-match "From: " "\n"] 6]) (byte-code "\300\301!\203 \302\303!\210\304 \210\305\306!\210\307\310!\207" [featurep xemacs require messagexmas message-xmas-redefine provide message run-hooks message-load-hook] 2)