;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:17:56 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/message.el ;;; in Emacs version 20.4.1 ;;; 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 "\303\304!\210\303\305!\210\303\306!\210\303\307!\210\310\311\"\203\303\312!\210\202\"\303\313!\210\303\314!\210\303\315!\210\303\316!\210\303\317!\210\320\321\322\323 \324\n\325\n\326& \210\327\330\331\332#\210\327\333\331\332#\210\320\334\335\336 \337\n\321&\210\320\340\335\341 \342\n\321&\210\320\343\335\344 \345\n\321&\210\320\346\335\347 \350\n\321&\210\320\351\335\352 \353\n\346&\210\320\354\335\355 \356\n\321&\210\320\357\335\360 \361\n\321&\210\320\362\335\363\n\321%\210\320\364\335\365\n\321%\210\320\366\335\367\n\321\n\370&\207" [emacs-version :link :group require mailheader nnheader easymenu custom string-match "XEmacs\\|Lucid" mail-abbrevs mailabbrev mail-parse mm-bodies mm-encode 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/" '(#$ . -2303) :group 'message-various :type 'directory) #@61 *How many buffers to keep before starting to kill them off. (custom-declare-variable 'message-max-buffers '10 '(#$ . -2485) :group 'message-buffers :type 'integer) #@56 Function called to rename the buffer after sending it. (custom-declare-variable 'message-send-rename-function 'nil '(#$ . 2655) :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 '(#$ . -2831) :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" '(#$ . -3223) :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\\):" '(#$ . -3681) :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 '(#$ . -3902) :type '(choice (const :tag "simple" nil) (const parens) (const angles) (const default)) :group 'message-headers) #@518 *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 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 '(#$ . -4461) :group 'message-news) #@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)) '(#$ . -5074) :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)) '(#$ . -5605) :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) '(#$ . 6024) :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:" '(#$ . -6244) :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:" '(#$ . -6503) :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:" '(#$ . -6740) :group 'message-interface :type 'regexp) #@46 *Regexp matching "Re: " in the subject line. (custom-declare-variable 'message-subject-re-regexp '"^[ ]*\\([Rr][Ee]:[ ]*\\)*[ ]*" '(#$ . -7218) :group 'message-various :type 'regexp) #@42 Regexp matching the signature separator. (custom-declare-variable 'message-signature-separator '"^-- *$" '(#$ . 7410) :type 'regexp :group 'message-various) #@48 *The string which is inserted for elided text. (custom-declare-variable 'message-elide-ellipsis '"\n[...]\n\n" '(#$ . -7573) :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 '(#$ . 7744) :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 '(#$ . -8001) :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 '(#$ . -8494) :group 'message-buffers :type 'boolean) (byte-code "\301B\301\207" [current-load-list gnus-local-organization] 2) #@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) '(#$ . -8768) :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" '(#$ . -9138) :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 '(#$ . -9314) :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 '(#$ . -10001) :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 '(#$ . -10253) :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:" '(#$ . -10514) :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 'nil '(#$ . -10757) :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 '"." '(#$ . -10995) :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." '(#$ . 11168) :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 '(#$ . 11359) :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 '(#$ . 12029) :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 '(#$ . 12339) :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 '(#$ . 12621) :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 '(#$ . 12908) :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 '(#$ . -13193) :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 '(#$ . -13642) :group 'message-sending :type 'boolean) #@39 Location of the qmail-inject program. (custom-declare-variable 'message-qmail-inject-program '"/var/qmail/bin/qmail-inject" '(#$ . 13899) :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 '(#$ . 14081) :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 (#$ . 14517)) (byte-code "\301B\302B\301\207" [current-load-list gnus-post-method gnus-select-method] 2) #@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 ""))) '(#$ . -14810) :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 '(#$ . -15213) :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 '(#$ . 15398) :group 'message-various :type 'hook) #@36 Hook run when cancelling articles. (custom-declare-variable 'message-cancel-hook 'nil '(#$ . 15616) :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 '(#$ . 15760) :group 'message-various :type 'hook) #@35 Hook run in message mode buffers. (custom-declare-variable 'message-mode-hook 'nil '(#$ . 16028) :group 'message-various :type 'hook) #@60 Hook run in a message mode buffer narrowed to the headers. (custom-declare-variable 'message-header-hook 'nil '(#$ . 16168) :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 '(#$ . 16335) :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 '(#$ . -16519) :type 'function :group 'message-insertion) #@51 *Prefix inserted on the lines of yanked messages. (custom-declare-variable 'message-yank-prefix '"> " '(#$ . -16727) :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 '(#$ . -16892) :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 '(#$ . -17134) :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 '(#$ . -17643) :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 '(#$ . -18158) :type 'sexp :group 'message-insertion) #@62 *File containing the text inserted at end of message buffer. (custom-declare-variable 'message-signature-file '"~/.signature" '(#$ . -18512) :type 'file :group 'message-insertion) #@51 *Function called to return a Distribution header. (custom-declare-variable 'message-distribution-function 'nil '(#$ . -18698) :group 'message-news :group 'message-headers :type 'function) #@45 Number of days before your article expires. (custom-declare-variable 'message-expires '14 '(#$ . 18892) :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 '(#$ . 19111) :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 (#$ . 19828)) #@73 A list of actions to be performed upon exiting after sending a message. (defvar message-exit-actions nil (#$ . 19953)) #@68 A list of actions to be performed before killing a message buffer. (defvar message-kill-actions nil (#$ . 20078)) #@63 A list of actions to be performed after postponing a message. (defvar message-postpone-actions nil (#$ . 20198)) (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 '"" '(#$ . -20497) :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 '"" '(#$ . -20779) :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 '"" '(#$ . -20993) :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{|}~]+:")) '(#$ . -21216) :group 'message-sending :type 'sexp) (byte-code "\300\301\302\217\207" [#1=#:G82092 (byte-code "\300\301\302\303\304\305%\207" [define-mail-user-agent message-user-agent message-mail message-send-and-exit message-kill-buffer message-send-hook] 6) ((error))] 3) #@64 If non-nil, delete the deletable headers before feeding to mh. (defvar message-mh-deletable-headers '(Message-ID Date Lines Sender) (#$ . 22233)) #@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)) (#$ . 22386)) #@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 (#$ . -22913)) #@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 '(nnheader-concat message-directory "drafts/") '(#$ . -23109) :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 '(#$ . -23373) :group 'message-buffers :type '(choice (const :tag "unique" unique) (const :tag "unsent" unsent))) #@44 Default charset used in non-MULE XEmacsen. (custom-declare-variable 'message-default-charset 'nil '(#$ . 23636) :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 'rmail-dont-reply-to-names '(#$ . -23786) :group 'message :type '(choice (const :tag "Yourself" nil) regexp)) #@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) (#$ . 24066)) #@82 Abbrev table used in Message mode buffers. Defaults to `text-mode-abbrev-table'. (defvar message-mode-abbrev-table text-mode-abbrev-table (#$ . 24328)) (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[ ].*\\)*\\)" "^\\([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\\).*>" (0 'message-mml-face)))] 15) (#$ . 27050)) (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))) (#$ . 28349)) #@35 Hook run before sending messages. (custom-declare-variable 'message-send-hook 'nil '(#$ . 28632) :group 'message-various :options '(ispell-message) :type 'hook) #@40 Hook run before sending mail messages. (custom-declare-variable 'message-send-mail-hook 'nil '(#$ . 28799) :group 'message-various :type 'hook) #@40 Hook run before sending news messages. (custom-declare-variable 'message-send-news-hook 'nil '(#$ . 28949) :group 'message-various :type 'hook) #@34 Hook run after sending messages. (custom-declare-variable 'message-sent-hook 'nil '(#$ . 29099) :group 'message-various :type 'hook) #@40 Coding system to encode outgoing mail. (defvar message-send-coding-system 'binary (#$ . 29238)) #@32 Coding system to compose mail. (defvar message-draft-coding-system mm-auto-save-coding-system (#$ . 29340)) (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\311 B\312 B\307\207" [message-buffer-list current-load-list message-this-is-news message-this-is-mail message-draft-article message-mime-part boundp nil message-posting-charset gnus-active-hashtb gnus-read-active-file] 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) (#$ . 29854)) #@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: +---+ *|?$" (#$ . 30314)) #@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)) (#$ . 30758)) (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\313\"\210\300\314\315\"\210\300\316\315\"\210\300\317\320\"\210\300\321\320\"\210\300\322\307\"\210\300\323\324\"\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-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 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 (#$ . 31691)])) (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])) #@76 Split HEADER into a list of header elements. "," is used as the separator. (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 (#$ . 32129)]) #@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 (#$ . 32721)]) #@59 The same as `mail-fetch-field', only remove all newlines. (defalias 'message-fetch-field #[(header &optional not-all) "\304\305 \306\n?#\211\205\"\307\310 \"\203\311\312\304\211 $\202 \313\314 \"*\207" [inhibit-point-motion-hooks header not-all value t mail-fetch-field nil string-match "\n[ ]+" replace-match " " format "%s"] 6 (#$ . 33203)]) #@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 (#$ . 33561)]) #@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 (#$ . 33792)]) #@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 (#$ . 34253)]) (defalias 'message-set-work-buffer #[nil "\300\301!\203\f\301q\210\302 \207\303\301!q\210\304 \210\305\306!\205)\307\310!\205)\311\310!\205)\306\312!\207" [get-buffer " *message work*" erase-buffer get-buffer-create kill-all-local-variables fboundp set-buffer-multibyte boundp enable-multibyte-characters default-value 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 (#$ . 34807)]) #@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 (#$ . 35004)]) #@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 (#$ . 35204)]) #@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 (#$ . 35867)]) #@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 (#$ . 36211)]) #@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 (#$ . 36466)]) #@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 (#$ . 36716)]) #@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 (#$ . 37031)]) #@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 (#$ . 37322)]) #@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 (#$ . 37618)]) #@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 (#$ . 37835)]) #@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 (#$ . 38194) 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 (#$ . 40389)) (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 (#$ . 41291)) (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 \210\307\310!\311L\210\307\312!\210\307\313!\210\307\314!\210\307\315!\210\307\316!\210\317\320!\210\321!\210\322 !\210\n\323\324\325@\307\326!\210\307\327!\210\330\325\307\331!\210\307\332!\210\333A!\334\335B\336\333C!\337\260\211\307\340!\210\311 \307\341!\210\307\342!\210\307\343!\210\307\344!\311L\210\307\345!\311L\210\307\346!\347L\210\350\351D\"\203\215\352 \210\353E \"\210\353F \"\210G\354=\203\257\355\356!\203\254\356 \210\202\257\357 \210\360 \210\350\361D\"\204\300\307\362!\363L\210\307\364!\210\3654P4\366\367!\204\323\3117\307\367!\210\3657P7\355\370!\203\363\366\371!\203\363\372\371!\203\363\370\325!\210\307\373!\210\311;\374 \210\375\376\377\"\207" [message-mode-syntax-table message-mode-map message-mode-abbrev-table local-abbrev-table major-mode mode-name 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] paragraph-separate paragraph-start regexp-quote "$\\|[ ]*[a-z0-9A-Z]*>+[ ]*$\\|[ ]*$\\|" "-- $\\|---+$\\|" "[> " "]+$" message-reply-headers message-newsreader message-mailer message-post-method message-sent-message-via message-checksum message-mime-part 0 string-match "XEmacs\\|Lucid" message-setup-toolbar easy-menu-add abbrev fboundp mail-abbrevs-setup mail-aliases-setup message-set-auto-save-file-name "XEmacs" font-lock-defaults (message-font-lock-keywords t) adaptive-fill-regexp "[ ]*[-a-z0-9A-Z]*\\(>[ ]*\\)+[ ]*\\|" boundp adaptive-fill-first-line-regexp set-buffer-multibyte enable-multibyte-characters default-value indent-tabs-mode mml-mode run-hooks text-mode-hook message-mode-hook buffer-offer-save mail-header-separator page-delimiter message-yank-prefix emacs-version message-mode-menu message-mode-field-menu message-mail-alias-type] 8 (#$ . 42042) nil]) #@30 Move point to the To header. (defalias 'message-goto-to #[nil "\300\301!\207" [message-position-on-field "To"] 2 (#$ . 45793) nil]) #@35 Move point to the Subject header. (defalias 'message-goto-subject #[nil "\300\301!\207" [message-position-on-field "Subject"] 2 (#$ . 45931) nil]) #@30 Move point to the Cc header. (defalias 'message-goto-cc #[nil "\300\301\302\"\207" [message-position-on-field "Cc" "To"] 3 (#$ . 46084) 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 (#$ . 46232) 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 (#$ . 46392) 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 (#$ . 46559) nil]) #@38 Move point to the Newsgroups header. (defalias 'message-goto-newsgroups #[nil "\300\301!\207" [message-position-on-field "Newsgroups"] 2 (#$ . 46730) nil]) #@40 Move point to the Distribution header. (defalias 'message-goto-distribution #[nil "\300\301!\207" [message-position-on-field "Distribution"] 2 (#$ . 46892) 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 (#$ . 47060) nil]) #@36 Move point to the Keywords header. (defalias 'message-goto-keywords #[nil "\300\301\302\"\207" [message-position-on-field "Keywords" "Subject"] 3 (#$ . 47243) nil]) #@35 Move point to the Summary header. (defalias 'message-goto-summary #[nil "\300\301\302\"\207" [message-position-on-field "Summary" "Subject"] 3 (#$ . 47414) 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 (#$ . 47582) nil]) #@39 Move point to the end of the headers. (defalias 'message-goto-eoh #[nil "\300 \210\301y\207" [message-goto-body -1] 1 (#$ . 47868) 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 (#$ . 48012) 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 (#$ . 48313) "P"]) #@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 (#$ . 49030) 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 (#$ . 49383) "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 (#$ . 49712) 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 (#$ . 49932) 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 (#$ . 50382) (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 (#$ . 51014) "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?\205M \203) \310H\310\\U\204-\311! \nW\205M f\312W\203F\313 \211T f fH$\210 T\211\202.\207" [n b e message-caesar-translation-table mod 26 13 0 97 message-make-caesar-translation-table 255 subst-char-in-region] 7 (#$ . 51387) (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 (#$ . 51955)]) #@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 (#$ . 52301) (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\302 \203 `d}\210ed{\303ed \304\211%\305\232?\205#c\210\306\307 \"+\207" [body program message-goto-body call-process-region t 0 message "%s failed"] 6 (#$ . 52829)]) #@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 (#$ . 53125) "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 (#$ . 53815) "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 (#$ . 54173)]) #@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 (#$ . 55117) "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 (#$ . 55862) "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--82093 major-mode message-sent-message-via nil buffer-list t message-mode buffer-name] 3 (#$ . 56070)]) #@47 Cite function in the standard Message manner. (defalias 'message-cite-original-without-signature #[nil "`\306\307!\205<\203\202C\310 \n\"\210\nb\210\311\f \307#\203<\312y\210\313\314!\2035\312y\210\202)\315y\210`\n|\210 b\210 \203M \211A@ \210\202? \205Zn\204X\316c\210 +\207" [message-indent-citation-function functions end start message-signature-separator message-citation-line-function mark t mml-quote-region re-search-backward -1 looking-at "^[ ]*$" 1 "\n"] 4 (#$ . 56393)]) (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 (#$ . 56974)]) #@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 (#$ . 57386)]) (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 (#$ . 58047)]) #@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 (#$ . 58529) "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 (#$ . 58942) 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 (#$ . 59201) 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 (#$ . 59494)]) #@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\317!\210 \307\312\211\f\203X \211A@\211\203X A@ \203S @>\203G\320\321\322 @\"!\203 AA@!\211\203 \307\202 \n\204d\f\203d\323\324!\210\f\205\215\n\205\215\325 \210\212\314\326!\210)\316\327!\210\330\312!\210\331\307!\210\332 \210\333 \210\334!\210\307,\207" [inhibit-read-only message-send-method-alist sent elem success alist undo-boundary t put-text-property read-only nil message-fix-before-sending run-hooks message-send-hook message "Sending..." y-or-n-p format "Already sent message via %s; resend? " error "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 message-sent-message-via arg message-send-actions] 5 (#$ . 59825) "P"]) #@36 Send the current message via mail. (defalias 'message-send-via-mail #[(arg) "\301!\207" [arg message-send-mail] 2 (#$ . 61114)]) #@36 Send the current message via news. (defalias 'message-send-via-news #[(arg) " !\207" [message-send-news-function arg] 2 (#$ . 61250)]) #@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 (#$ . 61392)])) (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 (#$ . 61717)]) #@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 (#$ . 62175)]) #@33 Perform all actions in ACTIONS. (defalias 'message-do-actions #[(actions) "\205\301\302\303\217\210\211A\210\202\207" [actions #1=#:G82094 (byte-code "\301@!\203@ \210\202\302@!\210\301\207" [actions message-functionp eval] 2) ((error))] 3 (#$ . 62441)]) (defalias 'message-send-mail #[(&optional arg) "\306\307!\210\310\311!\312\313 p\314\315\312!\214\316 \210\n?\205 \"\"\317#!\210)\320\321!\210)\322\216\212q\210\323 \210\324\325\212 q\210\326 )\"c\210\327 \210\214\316 \210\330#>\203T\317\331!\210\332$\314\"\210\333 \210)db\210h\334U\204j\334c\210\n\203}\335\336!\204z\335\337!\203}\340 \210% \210* q\210\341&B\211&.\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 gnus-setup-posting-charset message-narrow-to-headers message-generate-headers run-hooks message-header-hook ((kill-buffer tembuf)) erase-buffer format "%s" buffer-string message-encode-message-body Lines (Lines) message-remove-header mail-encode-encoded-word-buffer 10 message-fetch-field "cc" "to" message-insert-courtesy-copy mail message-deletable-headers message-required-mail-headers message-ignored-mail-headers 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 (#$ . 63765)]) #@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=#:G82095 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 (#$ . 65068)]) #@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 (#$ . 65873)]) (defalias 'message-send-news #[(&optional arg) "\306\307!\310\311\n!\203\n !\202\np \203!\3121B\202#11\3132\314\315\316!!3\3104\317 \205\327\214\320 \210\3215!\210\322\323!\210)\324 \210\325 \205\327\326\216\212q\210\327 \210\330 \210\331\332\212 q\210\333 )\"c\210\334 \210\214\320 \210\3356>\203w\321\336!\210\3377\313\"\2103@8\340 \210*db\210h\341U\204\222\341c\210\313eb\210\342\343\3449!\345Q!\210\346\345!\210\347\350!\210)\322\351!\210\352\f!\210\3539\354\f!)4* q\2104\203\316\355:B\211:\202\327\356\357\360\f@!\"\210\310.\207" [tembuf case-fold-search message-post-method arg method messbuf message-generate-new-buffer-clone-locals " *message temp*" nil message-functionp (existing-newsgroups . disabled) t gnus-setup-posting-charset message-fetch-field "Newsgroups" message-check-news-body-syntax message-narrow-to-headers message-generate-headers run-hooks message-header-hook message-cleanup-headers message-check-news-syntax ((kill-buffer tembuf)) buffer-disable-undo erase-buffer format "%s" buffer-string 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 message-syntax-checks message-this-is-news message-posting-charset result message-required-news-headers message-required-mail-headers message-ignored-news-headers mail-parse-charset mail-header-separator message-sent-message-via] 4]) #@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 (#$ . 67915)]) #@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 (#$ . 68168)]) (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@!A\374\375!\205\232=B\327CB\203\266\374\376!\203\266>\203\266>\377=\203\272\317\202)A\203\347\374\201IA@B\"!\204\335A@\353\232\204\335A@CBCA\211AA\210\202\272C\204\360\317\202)\324\337\201JCG\201KU\203\201L\202\201MCG\201KU\203\201N\202\201O\201P\201QC\201R#$!.\205\207\306\201S!\204\237\212\317\201T\327\211DEFF\203\206D\204\206\201UF@!\211E\203w\312\201VE\"\203t\327\351\201W\354E\346\"\">\203w\317DD\204DF\211AF\210\202DD\204\217\317\202\233\324\337\201XF@E#!-\205\207\306\201Y!\204\212\317\201Z\327\211\211\211ADEFF\203\371D\204\371\201UF\211AF@!\211E\203\272\354E\346\"AA\211AA@\211\203\272A\235\203\334D\327\211A\202\336D\204\317\202 \324\337\201[D\"!.\205\207\306\201G!\206\207\212\317\310\201\\!G\327HG\2044\315\201]!\210\327\202\206\312\201^\201_G!A@\211H\"\203y\312\201`H\"\204y\312\201aH\"\204y\312\201bH\"\204y\312\201cH\"\203y\312\201dG\"\203\205\315\201eG\"\210\327\202\206\317,\207" [group case-fold-search subject found to followup-to message-check-element newsgroyps 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 newsgroups 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 "\304\305!\2042\212eb\210\306\307\310!\311Q!\210\312\210i\313W\203#\314y\315U\204n\206.m\206.\316\317!)\205\331\304\320!\204e\212eb\210\306\307\310!\311Q!\210\314y\210`db\210\321\n\312\322#\210\315y\210\321\323 \322#\206a\316\324!*\205\331\304\325!\204\212\306\326\312\322#\203z\316\327!\202{\322)\205\331\304\330!\204\234\212\331 \332V\203\227\316\333\334\331 \"!\202\230\322)\205\331\304\335!\204\267\212 ?\206\263\303 =?\206\263\316\336!)\205\331\304\337!\206\331\212db\210\340`d\"\341V\203\327\316\333\342\340`d\"S\"!\202\330\322)\207" [mail-header-separator b message-signature-separator 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. Really post? " 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 "It looks like no new text has been added. Really post? " signature count-lines 5 "Your .sig is %d lines; it should be max 4. Really post? "] 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 (#$ . 73616)]) #@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)eb\210\320\321\322\f!\323Q!\210\324\325\306\211#\210 \203\260 \211A@\326\327\"\203e\330ed \307\211\211#\331\332\"&\210\202A\333!\334\335!!\204x\336\335!\306\"\210$\203\214$\337=\204\214$!\210\202A\340!\203\242\341!\203\242\337\332\307\306$\210\202A\306%\337\332\306\211$\210)\202A\342p!-\207" [file list buf case-fold-search mail-header-separator shell-file-name t nil get-buffer-create " *message temp*" erase-buffer insert-buffer-substring message-narrow-to-headers message-fetch-field "fcc" message-remove-header 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 shell-command-switch message-fcc-handler-function mail-use-rfc822] 11 (#$ . 73965)]) #@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 rmail-output-to-rmail-file t gnus-output-to-mail] 3 (#$ . 75056)]) #@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 (#$ . 75315)]) #@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 (#$ . 75931)]) #@27 Make a unique Message-ID. (defalias 'message-make-message-id #[nil "\303\304 \212\305\306!)\212\305\307!)\n\2035\n\310H\2035\n\311H\2035 \2035\n\311H\2035\312\n\311H!\312 !\230\203@\203D\313\314\"\203D\315\202E\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 (#$ . 76375)]) (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 (#$ . 77651)]) #@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 (#$ . 78165)]) #@49 Return the In-Reply-To header for this message. (defalias 'message-make-in-reply-to #[nil "\205;\304H\305H\211\205:\306\307\n\"\211\203& \310U\204&\n\310 O\202'\n\311 \2032 \312\230\2036\313\2027 \314R)*\207" [message-reply-headers date from stop-pos 2 3 string-match " *at \\| *@ \\| *(\\| *<" 0 "'s message of \"" "" "(unknown date)" "\""] 5 (#$ . 78441)]) #@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 (#$ . 78822)]) #@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 (#$ . 79064)]) #@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 (#$ . 79385)]) #@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 (#$ . 79584)]) #@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 (#$ . 80643)]) #@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 (#$ . 80889)]) #@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 (#$ . 81081)]) #@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 (#$ . 81310)]) #@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 (#$ . 81756)]) #@25 Return the domain name. (defalias 'message-make-domain #[nil "\206\301 \207" [mail-host-address message-make-fqdn] 1 (#$ . 81944)]) #@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\252eb\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 \206S\345IA!\205SIAJ\202SI:\2039IA;\203*IA\206S\344IA!\205SIA \202S\345G!\203LGJ\203LGJ\202S\346\347\350G\"!\211H\203\202H\351\232\204\202\212n\203\204db\210G;\203sG\202w\327G!\352H\353\261\210\354y\210\202\215`\355 |\210Hc\210GJ>\203\246\332y\210\342\356!\203\246\357`\332\225\360p$\210)\202\202\361\362!\361\363!\364 L6\211M\205 \365\366!?\205 \367M!A@\227L\227\230?\205 6\203\346\3676!A@\227L\227\230?\205 eb\210\325\370\314\321#\203\372\332y\210\371c\210\332y\210\372 \204\373\374L\"\205 \375L\353\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 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 message-check-element 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 (#$ . 82085)]) #@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 (#$ . 84364)]) (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\225\323\324\325\326\327\"\"\nS\\\307 S\233\" #$#$V\203\206#\"@GTZ# T \"A\"\202g \307V\203\224\322  #\210,\330\331\332#%!\203\260\333\334&!!\335%\336\261\202\266\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-cater-to-broken-inn ptr totalsize maxsize refstring header] 7 (#$ . 85716)]) #@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 (#$ . 86809)]) #@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 (#$ . 87183)]) #@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 (#$ . 87781)]) #@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 (#$ . 88208)]) (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\327\333!\210)\334\317!\210\317*\327\335!\210\336 \210\337 \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-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 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 (#$ . 90115)]) #@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 (#$ . 90614)]) #@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 (#$ . 90844) 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 (#$ . 91238) 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 (#$ . 91679) nil]) #@61 Start editing a reply to the article in the current buffer. (defalias 'message-reply #[(&optional to-address wide) "p\306\211\211\211\211\211\211\211\211\307\211\306\211\211<=>?@ABCD\214\310 \210E\204>\311F!\203KF \202K\311G!\203K\212G )\312\313!C\312\314!A\312\315!\206\\\316B\312\317!?\312\320!>\312\321!\312\322!@\312\323!=\312\324\307\"<\325HB\"\203\215B\326\225\306OB\327BPB\312\330!\211\203\250\325\331\"\203\250\332\326\"<\n\203\327\n\227\333\232\204\272\n\227\334\232\203\301\307\306\202\327\n\227\335\232\204\317\n\227\336\232\203\327@\206\326C \204\365E\203\345I\203\337I\206\362@\206\362CBCE\203\365\n\203\365\340\nB B\202\365\306J\212\341 \210 \204@\206C\206\342c\210?\2034n\203,\342\202-\343?\342Q\2025\342c\210\n\203In\203C\342\202D\343\nP\202J\342c\210>\203`n\203Y\342\202Z\343>P\202a\342c\210eb\210\344\345\306\307#\203w\346\347\307\211#\210\202fKL\350\351 !\352 \210c\210)eb\210m\203\231@\206\227C\206\227\342c\210\353\354\355\351 !\"\211JMM\203\277\356\357M\211AM@@M\"J\"J\202\245*\337J\211AJ@ABCJ\203\364\340\360\361J\343#BN\325\362NA\"\203\356N\211A\326\225\306O\241\210N B))~\210)\363\364E\203\365\202\366CE\205 I#!\210\367\326BCA<=\326\211\342& O\370\371BB\372 =\2044<\205J\373=\206;\342=\205A\347<\206G\342QBC\"BD\".\207" [gnus-warning never-mct mct message-this-is-mail inhibit-point-motion-hooks follow-to nil t message-narrow-to-head message-functionp message-fetch-field "from" "date" "subject" "none" "to" "cc" "mail-copies-to" "reply-to" "references" "message-id" string-match 0 "Re: " "gnus-warning" "<[^>]+>" match-string "never" "nobody" "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] "^ +" message-pop-to-buffer message-buffer-name "wide reply" "reply" vector message-setup Subject append References message-id references cc to reply-to date subject from cur wide message-reply-to-function message-wide-reply-to-function message-subject-re-regexp to-address ccalist message-dont-reply-to-names rmail-dont-reply-to-names s ccs message-reply-headers] 16 (#$ . 92012) 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 (#$ . 94422) 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) "p\306\211\211\211\211\211\211\211\307\211\306\211\211\211\211?@ABCDEFGH\214eb\310\311\306\307#\203:`S\202;d}\210\312I!\203II @\313\314!G\313\315!E\313\316!\206Z\317F\313\320!B\313\321\307\"A\313\322!\313\323!\313\324!\313\325!D\313\326!\313\327!C\313\330!\211\203\226\331\332 \"\203\226\333\334 \"A ;\203\250\307J\331\335 \")\203\250\306\331KF\"\203\271F\334\225\306OF\336FPF~\210)\337\340\341G\n#!\210\342\343FB\344L\203\336\345LBC\202e@\203\350@\202e\f\203VM\203V\f\227\346\232\203 M\347=\204\350\351\352\307\353$\203\306\354D\206G\206\355B\202R\345\nB\202R\f\n\232\204IM\356=\203I\350\351\357\f\360Q\307\361\f\362\331\363\f\"\203B\364\202C\365\366&\203O\345\fB\202R\345\nBC\202e\203a\345BC\202e\345\nBC \205m\367 BCB\204wA\205\215\370B\206~\355B\205\204\371A\206\212\355QBCC\205\306C\227\372\232\206\237C\227\373\232?\205\306\374C\227\375\232\204\264C\227\346\232\203\302D\206\304G\206\304\355\202\304CBC$BH\"\210\376\334FGEAB\334\211\355& \211N.\207" [posted-to gnus-warning newsgroups distribution followup-to message-this-is-news 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" "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" Cc "always" vector inhibit-point-motion-hooks follow-to message-id references mct reply-to date subject from cur message-followup-to-function case-fold-search message-subject-re-regexp to-newsgroups message-use-followup-to message-reply-headers] 16 (#$ . 94610) nil]) #@31 Cancel an article you posted. (defalias 'message-cancel-news #[nil "\306 \204 \307\310!\210\311\312!\205\234\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\330\331!q\332 \210\333\f\334\335\326 \334\336 \334\337 \334\n\203x\340\n\334Q\202y\341)\334*\261\210\342\343!\210\344\345!\210\346+, )\203\227\344\347!\210\350 !.\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" get-buffer-create " *message cancel*" erase-buffer "Newsgroups: " "\n" "From: " "Subject: cmsg cancel " "Control: cancel " "Distribution: " "" run-hooks message-cancel-hook message "Canceling your article..." dont-check-for-anything-just-trust-me "Canceling your article...done" kill-buffer mail-header-separator message-cancel-message message-syntax-checks message-send-news-function] 16 (#$ . 97540) nil]) #@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 \203B\322 \323\"\210eb\210\324\325\326\323#\204T\313\327!\210\202Z\330\331\323\211#\210db\210\fc\210~\210\332y+\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 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 (#$ . 98818) 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\220\306 !\210\307\310\311\312 \312\313 &)\221\210\314\315\316 \"!\207" [system-type standard-output default-directory file-name vax-vms "*Directory*" 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 (#$ . 99752) 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 (#$ . 100359)]) #@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 (#$ . 101211)]) #@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 (#$ . 101668)]) #@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 (#$ . 101899)]) #@95 Forward the current message via mail. Optional NEWS will use news to forward instead of mail. (defalias 'message-forward #[(&optional news) "p\306 \307 \203\310\307 \"\210\202\311\307 \"\210\312 \210\f\203%\313c\210\202(\314c\210`\307\315\n!\210`\f\203:\316c\210\204a\203a\214 }\210b\210`\317\314\307\320#\206X`}\210\321\320\"\210)*\322 +\207" [art-beg subject cur news message-forward-as-mime e message-make-forward-subject nil message-news message-mail message-goto-body "\n\n<#part type=message/rfc822 disposition=inline>\n" "\n\n" mml-insert-buffer "<#/part>\n" search-forward t message-remove-header message-position-point b current-prefix-arg message-forward-ignored-headers] 5 (#$ . 102368) "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 (#$ . 103105) (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 than contains some mail you have written which has been bounced back to you. (defalias 'message-bounce #[nil "\305\306!\307\310\311\312!!\210 @;\203\313\314 !@!\210\202P\313 !\210\315 \210eb\210\316\317\307\306#\210\320\n\307\306#\2039\321y\204?\320\322\307\306#\210e\320\323\307\306#\203M\324\224\202N`|\210\214\325 \210\326 \306\"\210db\210\fc\210)\327 *\207" [boundary handles message-unsent-separator message-ignored-bounced-headers mail-header-separator mm-dissect-buffer t nil message-pop-to-buffer message-buffer-name "bounce" mm-insert-part last undo-boundary search-forward "\n\n" re-search-forward 1 "^Return-Path:.*\n" "^[^ \n ]+:" 0 message-narrow-to-head message-remove-header message-position-point] 5 (#$ . 104215) 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 (#$ . 105060) 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 (#$ . 105551) 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 (#$ . 106039) 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 (#$ . 106526) 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 (#$ . 107012) "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 (#$ . 107414) "r"]) (byte-code "\301\302\303\"\210\304\305\"\203\306\307!\210\301\207" [emacs-version defalias message-exchange-point-and-mark exchange-point-and-mark string-match "XEmacs\\|Lucid" require messagexmas] 3) #@46 Regexp that match headers that lists groups. (defvar message-newgroups-header-regexp "^\\(Newsgroups\\|Followup-To\\|Posted-To\\|Gcc\\):" (#$ . 108017)) #@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 (#$ . 108177) 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 (#$ . 108575)]) #@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\305\"\210eb\221\210) \n!\207" [text ask question " *MESSAGE information message*" mapcar princ] 4))] 2 (#$ . 109468)]) #@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 (#$ . 109995)]) #@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 (#$ . 110284)]) #@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=#:G82096 (byte-code "\301@!AL\207" [local make-local-variable] 2) ((error))] 4]] 3 (#$ . 110716)]) #@47 Replace characters in STRING from FROM to TO. (defalias 'message-replace-chars-in-string #[(string from to) "\305\306OG\305 \nW\203$ H U\203 \fI\210 T\211\202 +\207" [string idx len from to 0 nil] 4 (#$ . 111232)]) (byte-code "\302\300!\204\303\300 B\303\207" [message-inhibit-body-encoding current-load-list boundp nil] 2) (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!\210*\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 (#$ . 112434)]) (byte-code "\300\301!\210\302\303!\207" [provide message run-hooks message-load-hook] 2)