;ELC ;;; compiled by gsstark@lola-granola.MIT.EDU on Tue Jul 23 13:36:05 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.2.37/lisp/message.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`message.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!!!\"#!'!" [require mailheader rmail nnheader timezone easymenu string-match "XEmacs\\|Lucid" emacs-version mail-abbrevs mailabbrev] 3) #@66 *Directory from which all other mail file variables are derived. (defvar message-directory "~/Mail/" (#$ . -690)) #@61 *How many buffers to keep before starting to kill them off. (defvar message-max-buffers 10 (#$ . -810)) #@56 Function called to rename the buffer after sending it. (defvar message-send-rename-function nil (#$ . 920)) #@202 *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 `rmail-output' which saves in Unix mailbox format. (defvar message-fcc-handler-function (quote rmail-output) (#$ . -1035)) #@135 *This is inserted at the start of a mailed copy of a posted message. If this variable is nil, no such courtesy message will be added. (defvar message-courtesy-message "The following message is a courtesy copy of an article\nthat has been posted as well.\n\n" (#$ . -1315)) #@68 *Regexp that matches headers to be removed in resent bounced mail. (defvar message-ignored-bounced-headers "^\\(Received\\|Return-Path\\):" (#$ . -1594)) #@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. (defvar message-from-style (quote default) (#$ . -1755)) #@439 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. (defvar message-syntax-checks nil (#$ . 2189)) #@290 *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 X-Newsreader are optional. If don't you want message to insert some header, remove it from this list. (defvar message-required-news-headers (quote (From Newsgroups Subject Date Message-ID (optional . Organization) Lines (optional . X-Newsreader))) (#$ . -2681)) #@187 *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 X-Mailer are optional. (defvar message-required-mail-headers (quote (From Subject Date (optional . In-Reply-To) Message-ID Lines (optional . X-Mailer))) (#$ . -3137)) #@88 *Headers to be deleted if they already exist and were generated by message previously. (defvar message-deletable-headers (quote (Message-ID Date)) (#$ . -3473)) #@66 *Regexp of headers to be removed unconditionally before posting. (defvar message-ignored-news-headers "^NNTP-Posting-Host:\\|^Xref:\\|^Bcc:\\|^Gcc:\\|^Fcc:" (#$ . -3640)) #@66 *Regexp of headers to be removed unconditionally before mailing. (defvar message-ignored-mail-headers "^Gcc:\\|^Fcc:" (#$ . -3817)) #@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. (defvar message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|Return-Path:\\|^Supersedes:" (#$ . -3956)) #@42 Regexp matching the signature separator. (defvar message-signature-separator "^-- *$" (#$ . 4288)) #@126 Non-nil means when sending a message wait for and display errors. nil means let mailer mail back a message to report errors. (defvar message-interactive nil (#$ . 4394)) #@279 *Non-nil means that a new message buffer will be created whenever `mail-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. (defvar message-generate-new-buffers t (#$ . -4571)) #@80 *Non-nil means that the message buffer will be killed after sending a message. (defvar message-kill-buffer-on-exit nil (#$ . -4908)) (byte-code " B" [gnus-local-organization current-load-list] 2) #@91 *String to be used as an Organization header. If t, use `message-user-organization-file'. (defvar message-user-organization (byte-code "!\n !ć" [boundp gnus-local-organization getenv "ORGANIZATION" t] 2) (#$ . -5114)) #@32 *Local news organization file. (defvar message-user-organization-file "/usr/lib/news/organization" (#$ . -5351)) #@77 *Directory where message autosaves buffers. If nil, message won't autosave. (defvar message-autosave-directory "~/" (#$ . -5470)) #@48 *Delimiter inserted before forwarded messages. (defvar message-forward-start-separator "------- Start of forwarded message -------\n" (#$ . -5606)) #@47 *Delimiter inserted after forwarded messages. (defvar message-forward-end-separator "------- End of forwarded message -------\n" (#$ . -5760)) #@71 *If non-nil, put the signature before any included forwarded message. (defvar message-signature-before-forwarded-message t (#$ . -5909)) #@64 *Regexp matching headers to be included in forwarded messages. (defvar message-included-forward-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-\\|^Message-ID:\\|^References:" (#$ . -6052)) #@79 *All headers that match this regexp will be deleted when resending a message. (defvar message-ignored-resent-headers "^Return-receipt" (#$ . -6415)) #@50 Delete these headers from the messages you yank. (defvar message-ignored-cited-headers "." (#$ . 6570)) #@266 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'. Legal values include `message-send-mail-with-mh' and `message-send-mail-with-sendmail', which is the default. (defvar message-send-mail-function (quote message-send-mail-with-sendmail) (#$ . 6681)) #@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'. (defvar message-send-news-function (quote message-send-news) (#$ . 7041)) #@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. (defvar message-reply-to-function nil (#$ . 7276)) #@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. (defvar message-wide-reply-to-function nil (#$ . 7495)) #@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. (defvar message-followup-to-function nil (#$ . 7719)) #@276 *Specifies what to do with Followup-To header. If nil, ignore the header. If it is t, use its value, but query before using the "poster" value. If it is the symbol `ask', query the user whether to ignore the "poster" value. If it is the symbol `use', always use the value. (defvar message-use-followup-to (quote ask) (#$ . -7941)) (byte-code " B B" [gnus-post-method current-load-list gnus-select-method] 2) #@27 Method used to post news. (defvar message-post-method (byte-code "!\f \f !\nÇ" [boundp gnus-post-method gnus-select-method (nnspool "")] 2) (#$ . 8363)) #@62 *If non-nil, generate all possible headers before composing. (defvar message-generate-headers-first nil (#$ . -8536)) #@112 Normal hook, run each time a new outgoing message is initialized. The function `message-setup' runs this hook. (defvar message-setup-hook nil (#$ . 8661)) #@153 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. (defvar message-signature-setup-hook nil (#$ . 8823)) #@35 Hook run in message mode buffers. (defvar message-mode-hook nil (#$ . 9035)) #@60 Hook run in a message mode buffer narrowed to the headers. (defvar message-header-hook nil (#$ . 9118)) #@71 Hook called narrowed to the headers when setting up a message buffer. (defvar message-header-setup-hook nil (#$ . 9228)) #@57 *Function called to insert the "Whomever writes:" line. (defvar message-citation-line-function (quote message-insert-citation-line) (#$ . -9355)) #@78 *Prefix inserted on the lines of yanked messages. nil means use indentation. (defvar message-yank-prefix "> " (#$ . -9507)) #@123 *Number of spaces to insert at the beginning of each cited line. Used by `message-yank-original' via `message-yank-cite'. (defvar message-indentation-spaces 3 (#$ . -9638)) #@43 *Function for citing an original message. (defvar message-cite-function (quote message-cite-original) (#$ . -9817)) #@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. (defvar message-indent-citation-function (quote message-indent-citation) (#$ . -9940)) (byte-code "! B‡" [boundp message-abbrevs-loaded nil current-load-list] 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. (defvar message-signature t (#$ . -10378)) #@63 *File containing the text inserted at end of message. buffer. (defvar message-signature-file "~/.signature" (#$ . -10674)) #@51 *Function called to return a Distribution header. (defvar message-distribution-function nil (#$ . -10803)) #@46 *Number of days before your article expires. (defvar message-expires 14 (#$ . -10916)) #@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). (defvar message-user-path nil (#$ . 11010)) (byte-code "! B! B!  B!- B!: B!G B‡" [boundp message-reply-buffer nil current-load-list message-reply-headers message-newsreader message-mailer message-sent-message-via message-checksum] 2) #@73 A list of actions to be performed upon successful sending of a message. (defvar message-send-actions nil (#$ . 11426)) #@73 A list of actions to be performed upon exiting after sending a message. (defvar message-exit-actions nil (#$ . 11551)) #@68 A list of actions to be performed before killing a message buffer. (defvar message-kill-actions nil (#$ . 11676)) #@63 A list of actions to be performed after postponing a message. (defvar message-postpone-actions nil (#$ . 11796)) #@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. (defvar message-default-headers nil (#$ . -11916)) #@61 *A string of header lines to be inserted in outgoing mails. (defvar message-default-mail-headers nil (#$ . -12127)) #@69 *A string of header lines to be inserted in outgoing news articles. (defvar message-default-news-headers nil (#$ . -12249)) #@229 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. (defvar message-mailer-swallows-blank-line (byte-code "\n\"-!-!Ȏq!eb #,-χ" [string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" system-configuration file-readable-p "/etc/sendmail.cf" get-buffer-create " *temp*" buffer ((kill-buffer buffer)) insert-file-contents nil case-fold-search re-search-forward "^OR\\>" t (looking-at "[ ]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:")] 4) (#$ . 12380)) #@42 Syntax table used while in Message mode. (defvar message-mode-syntax-table (byte-code " !\n#\n)" [copy-syntax-table text-mode-syntax-table table modify-syntax-entry 37 ". "] 4) (#$ . 13041)) #@82 Abbrev table used in Message mode buffers. Defaults to `text-mode-abbrev-table'. (defvar message-mode-abbrev-table text-mode-abbrev-table (#$ . 13245)) #@54 Additional expressions to highlight in Message mode. (defvar message-font-lock-keywords (byte-code "P !QE ѰBӯ*" ["A-Za-z" cite-prefix "0-9_.@-" cite-suffix ("^To:" . font-lock-function-name-face) ("^[GBF]?[Cc][Cc]:\\|^Reply-To:" . font-lock-keyword-face) ("^\\(Subject:\\)[ ]*\\(.+\\)?" (1 font-lock-comment-face) (2 font-lock-type-face nil t)) "^\\(" regexp-quote mail-header-separator "\\)$" 1 font-lock-comment-face "^[ ]*" "\\([" "]+[" "]*\\)?" "[>|}].*" font-lock-reference-face ("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*" . font-lock-string-face)] 11) (#$ . 13403)) #@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 (quote ((bold . bold-region) (underline . underline-region) (default lambda (b e) (unbold-region b e) (ununderline-region b e)))) (#$ . 14008)) #@35 Hook run before sending messages. (defvar message-send-hook nil (#$ . 14298)) #@34 Hook run after sending messages. (defvar message-sent-hook nil (#$ . 14382)) (byte-code "! B!.R   ְ) B‡" [boundp message-buffer-list nil current-load-list message-unix-mail-delimiter "\\([A-Z]?[A-Z]?[A-Z][A-Z]\\( DST\\)?" "\\|[-+]?[0-9][0-9][0-9][0-9]" "\\|" "\\) *" time-zone-regexp "From " "\\(" "[^ \n]*" "\\(\\|\".*\"[^ \n]*\\)" "\\|<[^<>\n]+>" "\\) ?" "\\([^ \n]*\\) *" "\\([^ ]*\\) *" "\\([0-9]*\\) *" "\\([0-9:]*\\) *" " [0-9][0-9]\\([0-9]*\\) *" "\\(remote from .*\\)?" "\n"] 15) #@74 A regexp that matches the separator before the text of a failed message. (defvar message-unsent-separator (concat "^ *---+ +Unsent message follows +---+ *$\\|" "^ *---+ +Returned message +---+ *$\\|" "^Start of returned message$\\|" "^ *---+ +Original message +---+ *$\\|" "^ *--+ +begin message +--+ *$\\|" "^ *---+ +Original message follows +---+ *$\\|" "^|? *---+ +Message text follows: +---+ *|?$") (#$ . 14915)) #@36 Alist used for formatting headers. (defvar message-header-format-alist (quote ((Newsgroups) (To . message-fill-address) (Cc . message-fill-address) (Subject) (In-Reply-To) (Fcc) (Bcc) (Date) (Organization) (Distribution) (Lines) (Expires) (Message-ID) (References . message-fill-header) (X-Mailer) (X-Newsreader))) (#$ . 15338)) (byte-code "\"\"" [autoload message-setup-toolbar "messagexmas" mh-send-letter "mh-comp"] 3) #@44 Return point at the beginning of the line. (defalias 'message-point-at-bol #[nil "`y`b)" [p 0] 2 (#$ . 15774)]) #@38 Return point at the end of the line. (defalias 'message-point-at-eol #[nil "``b)" [p nil] 2 (#$ . 15898)]) (defalias 'message-delete-line '(macro . #[(&optional n) "\f DBBE" [delete-region (progn (beginning-of-line) (point)) progn forward-line n 1 ((point))] 5])) #@76 Split HEADER into a list of header elements. "," is used as the separator. (defalias 'message-tokenize-header #[(header &optional separator) "\n\"Ɖ \n  cebmh 0 3u`\nVZmJ !ZZ\n`{Bϕ\n!gU!?!." [format "[%s]+" separator "," 1 t nil elems quoted first beg regexp message-set-work-buffer header looking-at 0 34] 5 (#$ . 16184)]) #@59 The same as `mail-fetch-field', only remove all newlines. (defalias 'message-fetch-field #[(header) " ! \n#)" [mail-fetch-field header value nnheader-replace-chars-in-string 10 32] 5 (#$ . 16583)]) #@49 Fetch FIELD from the message we're replying to. (defalias 'message-fetch-reply-field #[(header) "!q !)" [message-reply-buffer buffer-name message-fetch-field header] 2 (#$ . 16796)]) (defalias 'message-set-work-buffer #[nil "!\fq !q p!" [get-buffer " *message work*" erase-buffer get-buffer-create kill-all-local-variables buffer-disable-undo] 2]) #@40 Return non-nil if FORM is funcallable. (defalias 'message-functionp #[(form) "9 !<@=" [form fboundp lambda] 2 (#$ . 17179)]) #@34 Remove "Re:" from subject lines. (defalias 'message-strip-subject-re #[(subject) "\n\" \nÕO\n" [string-match "^[Rr][Ee]: *" subject 0 nil] 3 (#$ . 17325)]) #@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  Q \nmnn 0\n!?4\n!\\ T  D`y#VĔbWd|y#Ĕb ," [is-regexp header "^" ":" 0 t nil last case-fold-search number regexp reverse looking-at first 1 re-search-forward "^[^ ]"] 5 (#$ . 17496)]) #@47 Narrow the buffer to the head of the message. (defalias 'message-narrow-to-headers #[nil "~eb !Q#ǔd}eb" [re-search-forward "^" regexp-quote mail-header-separator "\n" nil t 0] 5 (#$ . 18018)]) #@47 Narrow the buffer to the head of the message. (defalias 'message-narrow-to-head #[nil "~eb#`Sd}eb" [search-forward "\n\n" nil 1] 5 (#$ . 18233)]) #@57 Say whether the current buffer contains a news message. (defalias 'message-news-p #[nil " !*" [message-narrow-to-headers message-fetch-field "newsgroups"] 2 (#$ . 18398)]) #@57 Say whether the current buffer contains a mail message. (defalias 'message-mail-p #[nil " !!!*" [message-narrow-to-headers message-fetch-field "to" "cc" "bcc"] 2 (#$ . 18583)]) #@41 Go to the beginning of the next header. (defalias 'message-next-header #[nil "ym\nu#yĂdb?" [0 1 re-search-forward "^[^ ]" nil t] 4 (#$ . 18783)]) #@61 Sort the buffer as headers using `message-rank' text props. (defalias 'message-sort-headers-1 #[nil "eb$" [sort-subr nil message-next-header #[nil " o?\nu" [message-next-header -1] 1] #[nil "`\"‡" [get-text-property message-rank 0] 3]] 5 (#$ . 18955)]) #@85 Sort the headers of the current message according to `message-header-format-alist'. (defalias 'message-sort-headers #[nil "GT #9ɔɔTɔɕS{!>G2 \nZ4 T$ * *" [message-header-format-alist nil rank max message-narrow-to-headers re-search-forward "^[^ \n]+:" t put-text-property 0 message-rank intern message-sort-headers-1] 7 (#$ . 19233) nil]) (byte-code "! B ! # # # # # # # # # # # # # # # # # # # # # # # # # # #‡" [boundp message-mode-map nil current-load-list copy-keymap text-mode-map 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 "" message-fill-yanked-message "" message-insert-signature "" message-caesar-buffer-body "" message-sort-headers "" message-rename-buffer "" message-send-and-exit "" message-send " " message-kill-buffer "" message-dont-send " " message-tab] 4) #@15 Message Menu. (defvar message-mode-menu nil (#$ . 20599)) (byte-code "\n$BB" [easy-menu-do-define message-mode-menu message-mode-map "Message Menu." ("Message" "Go to Field:" "----" ["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] "----" "Miscellaneous Commands:" "----" ["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] ["Rename buffer" message-rename-buffer t] ["Spellcheck" ispell-message t] "----" ["Send Message" message-send-and-exit t] ["Abort Message" message-dont-send t]) facemenu-add-face-function current-load-list facemenu-remove-face-function] 5) #@1107 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-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-f move to Fcc C-c C-f C-r move to Reply-To C-c C-f C-u move to Summary C-c C-f C-n move to Newsgroups C-c C-f C-k move to Keywords C-c C-f C-d move to Distribution C-c C-f C-o move to 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-r message-ceasar-buffer-body (rot13 the message body). (defalias 'message-mode #[nil " !!!!! ! !\f !!!!!!R!R!!!!!#!$'\" * \"! ! \"" [kill-all-local-variables make-local-variable message-reply-buffer nil message-send-actions message-exit-actions message-kill-actions message-postpone-actions set-syntax-table message-mode-syntax-table use-local-map message-mode-map message-mode-abbrev-table local-abbrev-table message-mode major-mode "Message" mode-name t buffer-offer-save font-lock-defaults (message-font-lock-keywords t) facemenu-add-face-function facemenu-remove-face-function #[(face end) " A\n` \"#)LJ" [face message-face-alist face-fun end error "Face %s not configured for %s mode" mode-name ""] 5] paragraph-separate paragraph-start regexp-quote mail-header-separator "$\\|[ ]*[-_][-_][-_]+$\\|" "-- $\\|" message-reply-headers message-newsreader message-mailer message-post-method message-sent-message-via message-checksum string-match "XEmacs\\|Lucid" emacs-version message-setup-toolbar easy-menu-add message-mode-menu fboundp mail-abbrevs-setup intern "mail-aliases-setup" run-hooks text-mode-hook message-mode-hook] 4 (#$ . 21717) nil]) #@30 Move point to the To header. (defalias 'message-goto-to #[nil "!" [message-position-on-field "To"] 2 (#$ . 24075) nil]) #@35 Move point to the Subject header. (defalias 'message-goto-subject #[nil "!" [message-position-on-field "Subject"] 2 (#$ . 24204) nil]) #@30 Move point to the Cc header. (defalias 'message-goto-cc #[nil "\"" [message-position-on-field "Cc" "To"] 3 (#$ . 24348) nil]) #@32 Move point to the Bcc header. (defalias 'message-goto-bcc #[nil "#" [message-position-on-field "Bcc" "Cc" "To"] 4 (#$ . 24484) nil]) #@31 Move point to the Fcc header. (defalias 'message-goto-fcc #[nil "#" [message-position-on-field "Fcc" "To" "Newsgroups"] 4 (#$ . 24629) nil]) #@36 Move point to the Reply-To header. (defalias 'message-goto-reply-to #[nil "\"" [message-position-on-field "Reply-To" "Subject"] 3 (#$ . 24781) nil]) #@38 Move point to the Newsgroups header. (defalias 'message-goto-newsgroups #[nil "!" [message-position-on-field "Newsgroups"] 2 (#$ . 24940) nil]) #@40 Move point to the Distribution header. (defalias 'message-goto-distribution #[nil "!" [message-position-on-field "Distribution"] 2 (#$ . 25093) nil]) #@39 Move point to the Followup-To header. (defalias 'message-goto-followup-to #[nil "\"" [message-position-on-field "Followup-To" "Newsgroups"] 3 (#$ . 25252) nil]) #@36 Move point to the Keywords header. (defalias 'message-goto-keywords #[nil "\"" [message-position-on-field "Keywords" "Subject"] 3 (#$ . 25423) nil]) #@35 Move point to the Summary header. (defalias 'message-goto-summary #[nil "\"" [message-position-on-field "Summary" "Subject"] 3 (#$ . 25582) nil]) #@50 Move point to the beginning of the message body. (defalias 'message-goto-body #[nil "! eb Q#" [looking-at "[ ]*\n" expand-abbrev search-forward "\n" mail-header-separator nil t] 4 (#$ . 25738) nil]) #@55 Move point to the beginning of the message signature. (defalias 'message-goto-signature #[nil "eb # db" [re-search-forward message-signature-separator nil t] 4 (#$ . 25958) nil]) #@79 Insert a To header that points to the author of the article being replied to. (defalias 'message-insert-to #[nil "!!!\"c!%!%c" [message-position-on-field "To" mail-fetch-field "to" string-match "\\` *\\'" ", " message-fetch-reply-field "reply-to" "from" ""] 4 (#$ . 26150) nil]) #@65 Insert the Newsgroups header from the article being replied to. (defalias 'message-insert-newsgroups #[nil "!!!\"c!c" [message-position-on-field "Newsgroups" mail-fetch-field "newsgroups" string-match "\\` *\\'" "," message-fetch-reply-field ""] 4 (#$ . 26464) nil]) #@78 Insert a signature. See documentation for the `message-signature' variable. (defalias 'message-insert-signature #[(&optional force) " =db\f#)?;$ $Ƃ;!/ ;<:!; ;G \\ =\\\n\\\n!\\  dbnlcc =~\n! cdbnc*" [message-signature force 0 re-search-backward message-signature-separator nil t message-functionp eval signature message-signature-file file-exists-p "\n" "\n-- \n" insert-file-contents] 5 (#$ . 26763) (list 0)]) (byte-code "! B‡" [boundp message-caesar-translation-table nil current-load-list] 2) #@69 Caesar rotation of region by N, default 13, for decrypting netnews. (defalias 'message-caesar-region #[(b e &optional n) "\f\" ÉU U?,H\\U\"\f  T WJ\f I5\fO\f\\Z\\\\O\f\\O\fO\f\\Z\\\\O\f\\O\fO\f* W T f fH$ T" [n mod 26 13 0 b e message-caesar-translation-table 97 -1 make-string 256 table i 65 91 123 255 subst-char-in-region] 10 (#$ . 27362) (list (min (point) (or (mark t) (point))) (max (point) (or (mark t) (point))) (when current-prefix-arg (prefix-numeric-value current-prefix-arg)))]) #@264 Caesar rotates all letters in the current buffer by 13 places. Used to encode/decode possibly 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) " `d}ed\n#*" [message-goto-body message-caesar-region rotnum] 4 (#$ . 27963) (byte-code " !CC" [current-prefix-arg prefix-numeric-value nil] 2)]) #@168 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) "eb` #} !!\"0ˉOP2  PG\"I\"." [search-forward mail-header-separator nil end message-news-p message-fetch-field "Newsgroups" "To" mail-to string-match "," 0 ", ..." mail-trimmed-to "*message* " name-default enter-string read-string "New buffer name: " name rename-buffer t] 5 (#$ . 28455) "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) "eb\nQ# `d$*" [search-forward "\n" mail-header-separator nil t message-yank-prefix fill-prefix fill-individual-paragraphs justifyp] 5 (#$ . 29054) "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 "` b#`S`} \")/!\n#Hb`!WEcy3)b)" [start message-ignored-cited-headers search-forward "\n\n" nil t message-remove-header message-yank-prefix indent-rigidly mark message-indentation-spaces 1] 5 (#$ . 29386)]) #@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) " \n. .\n\"\n! n!c ?. B )" [buffer-modified-p modified message-reply-buffer message-cite-function delete-windows-on t insert-buffer message-exchange-point-and-mark 10 message-checksum buffer-size] 3 (#$ . 30008) "P"]) (defalias 'message-cite-original #[nil "`<Cb # A@  0n.c *" [message-indent-citation-function functions start message-citation-line-function "\n"] 3]) #@47 Function that inserts a simple citation line. (defalias 'message-insert-citation-line #[nil "\nH±" [message-reply-headers 2 " writes:\n\n"] 2 (#$ . 30899)]) (defalias 'message-position-on-field #[(header &rest afters) "eb !Q!ǔ}eb!Q#4#yxjR@!Q#RA4`#yϱu*" [t case-fold-search re-search-forward "^" regexp-quote mail-header-separator "$" 0 header ":" nil "^[^ ]" move "\n" afters ": \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 "`\f!# ?y!#yy `\nb !| +" [nil mark start re-search-forward message-signature-separator t message-indent-citation -1 looking-at "[ ]*$" 1 make-marker undo-boundary] 4 (#$ . 31382)]) #@78 Send message like `message-send', then, if no errors, exit from mail buffer. (defalias 'message-send-and-exit #[(&optional arg) "p\f!-\n!-\n!*\n!\np=*\n! !*" [message-exit-actions actions buf message-send arg buffer-name message-kill-buffer-on-exit kill-buffer bury-buffer message-bury message-do-actions] 2 (#$ . 31763) "P"]) #@47 Don't send the message you have been editing. (defalias 'message-dont-send #[nil "p!\n!" [message-bury message-do-actions message-postpone-actions] 2 (#$ . 32122) nil]) #@26 Kill the current buffer. (defalias 'message-kill-buffer #[nil "p! !)" [message-kill-actions actions kill-buffer message-do-actions] 2 (#$ . 32301) nil]) #@24 Bury this mail buffer. (defalias 'message-bury #[(buffer) " ! !!& A& \"& !)\n!)" [other-buffer buffer newbuf bury-buffer fboundp frame-parameters dedicated delq selected-frame visible-frame-list delete-frame switch-to-buffer] 3 (#$ . 32466)]) #@223 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. (defalias 'message-send #[(&optional arg) "  Ƃǂ\"!' *!  ed$) !! ]>U!! v>o!! !!!! %!̇" [buffer-file-name y-or-n-p format "Send buffer contents as %s message? " message-mail-p message-news-p "mail and news" "mail" "news" buffer-modified-p "No changes in the buffer; really send? " undo-boundary t inhibit-read-only put-text-property read-only nil message-fix-before-sending run-hooks message-send-hook message "Sending..." news message-sent-message-via "Already sent message via news; resend? " message-send-news-function arg mail "Already sent message via mail; resend? " message-send-mail message-do-fcc message-sent-hook "Sending...done" set-buffer-modified-p delete-auto-save-file-if-necessary message-do-send-housekeeping message-do-actions message-send-actions] 5 (#$ . 32741) "P"]) #@63 Do various things to make the message nice before sending it. (defalias 'message-fix-before-sending #[nil "dbn?\nc" ["\n"] 1 (#$ . 33867)]) #@62 Add ACTION to be performed when doing an exit of type TYPES. (defalias 'message-add-action #[(action &rest types) "\n\nA@\"!JCL)" [nil var types intern format "message-%s-actions" action] 5 (#$ . 34018)]) #@33 Perform all actions in ACTIONS. (defalias 'message-do-actions #[(actions) "ÏA" [actions nil (byte-code " @! @  @!" [message-functionp actions eval] 2) ((error))] 3 (#$ . 34250)]) (defalias 'message-send-mail #[(&optional arg) "!! p ?   !)!)Ў q ӊq )\"c \")dbhUZcn!k!n  *qB," [require mail-utils generate-new-buffer " message temp" nil message-news-p mailbuf news case-fold-search tembuf message-narrow-to-headers message-deletable-headers message-generate-headers message-required-mail-headers run-hooks message-header-hook ((kill-buffer tembuf)) erase-buffer format "%s" buffer-string message-remove-header message-ignored-mail-headers t 10 message-fetch-field "cc" "to" message-insert-courtesy-copy message-send-mail-function mail message-sent-message-via] 4]) #@45 Send off the prepared buffer with sendmail. (defalias 'message-send-mail-with-sendmail #[nil "\n! ĉ !)eb!Q!!! Tb!E Rq ))ed!f g D?xC$\")qeb#! Ued{\")!!+" [message-interactive generate-new-buffer " sendmail errors" 0 nil delimline resend-to-addresses errbuf t case-fold-search message-narrow-to-headers message-fetch-field "resent-to" re-search-forward "^" regexp-quote mail-header-separator "\n" replace-match backward-char 1 point-marker eval message-mailer-swallows-blank-line newline erase-buffer "/" default-directory apply call-process-region append boundp sendmail-program "/usr/lib/sendmail" "-oi" "-f" user-login-name ("-oem" "-odb") ("-t") "\n\n* *" "; " buffer-size error "Sending...failed to %s" bufferp kill-buffer] 11 (#$ . 35131)]) #@43 Send the prepared message buffer with mh. (defalias 'message-send-mail-with-mh #[nil " !P!  ʏ*" [nil make-temp-name file-name-as-directory message-autosave-directory "msg." name mh-previous-window-config buffer-file-name mh-send-letter (delete-file name) ((error))] 4 (#$ . 36019)]) (defalias 'message-send-news #[(&optional arg) "!\f!\f !\fp B \n \f !!) Ԏ\fqp! ؊ q )\"c \")dbhUtc eb!!Q!!!)\n@!\n@\"!\nA@\nAA\"\n@\"! * q+B+\n@!\"." [generate-new-buffer " *message temp*" nil message-functionp message-post-method arg (existing-newsgroups . disabled) message-syntax-checks result messbuf method case-fold-search tembuf message-narrow-to-headers message-generate-headers message-required-news-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-remove-header message-ignored-news-headers t 10 re-search-forward "^" regexp-quote mail-header-separator "\n" replace-match backward-char 1 require intern "%s-open-server" "%s-request-post" news message-sent-message-via message "Couldn't send message via news: %s" nnheader-get-report] 6]) #@34 Check the syntax of the message. (defalias 'message-check-news-syntax #[nil " ! !\"!)!f\f\fR#RДЕZ{\fP#N\f)*\fa\f\"!b*!#ДЕS{\"!)!!!\"!B\"\"GUeb+!#!)!#!)!/-!,?+,\"$,\"+,\"!+!T-!2K2\"?P!+!-!!vQx!7!9:;:ɂ77@:\"!7@⚄7@;B;7A7;ɂ;GU@;GUABCD;E#$!.F!lɁGˉHIJ-JSHSKJ@!IDÁLI\"AMI\"\">DHHJAJH\\ɂhҁNJ@I#!,-ŁO!PQ!˂P\"RP\"˂ÁSP\"TP\"˂ÁUP\"VP\"˂+*W!ebρXY!ZQ!i[WyUnmǁ\\!)]!MebρXY!ZQ!y`^_#4dby`a^#Iǁb!*c!ḿd#hǁe!i)f!g hVҁig \"!Ʌj!kk k@=g kA=ǁl!m!db`n#op#ɇq`d\"rVҁsq`d\"\"!ɇ" [message-narrow-to-headers message-check-element subject-cmsg string-match "^cmsg " message-fetch-field "subject" y-or-n-p "The control code \"cmsg \" is in the subject. Really post? " t multiple-headers nil found re-search-forward "^[^ :]+: " "^" 0 2 format "Multiple %s headers. Really post? " sendsys "^Sendsys:\\|^Version:" "The article contains a %s command. Really post? " shorten-followup-to "newsgroups" "followup-to" to followup-to newsgroups "," completing-read "Followups to: (default all groups) " mapcar #[(g) "C" [g] 1] "poster" message-tokenize-header "Followup-To: " "\n" shoot "Message-ID.*.i-have-a-misconfigured-system-so-shoot-me" "You appear to have a misconfigured system. Really post? " approved "^Approved:" "The article contains an Approved header. Really post? " message-id case-fold-search "message-id" "@" "@[^\\.]*\\." "The Message-ID looks strange: \"%s\". Really post? " subject "\\`[ ]*\\'" message "The subject field is empty or missing. Posting is denied." existing-newsgroups groups boundp gnus-active-hashtb hashtb errors intern "Really post to %s unknown group%s: %s " 1 "this" "these" "" "s" mapconcat identity ", " valid-newsgroups ("Newsgroups" "Followup-To") error header headers mail-fetch-field "\\`\\([-+_&.a-zA-Z0-9]+\\)?\\(,[-.a-zA-Z0-9]+\\)*\\'" #[(g) "\n\"?" [string-match "\\.\\'\\|\\.\\." g] 3] "The %s header looks odd: \"%s\". Really post? " "from" from "There is no From line. Posting is denied." "Denied posting -- the From looks strange: \"%s\"." "@[^@]*@" "Denied posting -- two \"@\"'s in the From header: %s." "(.*).*(.*)" "Denied posting -- the From header looks strange: \"%s\"." long-lines regexp-quote mail-header-separator "$" 80 "You have lines longer than 79 characters. Really post? " empty b message-signature-separator re-search-backward "[^ \n ]" "Empty article. Really post? " control-chars "[- --]" "The article contains control characters. Really post? " size buffer-size 60000 "The article is %d octets long. Really post? " new-text message-checksum "It looks like no new text has been added. Really post? " signature "^-- $" search-forward message-forward-end-separator count-lines 5 "Your .sig is %d lines; it should be max 4. Really post? "] 10 (#$ . 37327)]) #@52 Returns non-nil if this type is not to be checked. (defalias 'message-check-element #[(type) "=‡ :\fA=)" [message-syntax-checks dont-check-for-anything-just-trust-me t type able disabled] 3 (#$ . 40723)]) #@45 Return a "checksum" for the current buffer. (defalias 'message-checksum #[nil "eb !Q!m'!! \"g\"u) )" [0 sum re-search-forward "^" regexp-quote mail-header-separator "$" looking-at "[ \n]" logxor ash 1] 4 (#$ . 40949)]) #@44 Process Fcc headers in the current buffer. (defalias 'message-do-fcc #[nil "p!qp! \f! !2\n B#)eb!Q!# A@\n\"ked\n\"&F\n!\n!!~\n!\"!!=!\n!F\n!\n!\n\"F%\n$)Fp!-" [t nil file list buf case-fold-search get-buffer-create " *message temp*" buffer-disable-undo erase-buffer insert-buffer-substring message-narrow-to-headers message-fetch-field "fcc" message-remove-header re-search-forward "^" regexp-quote mail-header-separator "$" replace-match "" string-match "^[ ]*|[ ]*\\(.*\\)[ ]*$" call-process-region shell-file-name shell-command-switch match-string 1 expand-file-name file-exists-p file-name-directory make-directory message-fcc-handler-function rmail-output file-readable-p mail-file-babyl-p mail-use-rfc822 kill-buffer] 11 (#$ . 41200)]) #@47 Do various automatic cleanups of the headers. (defalias 'message-cleanup-headers #[nil " #ĉ#)eb#s`#0ɔ4y`}eb#Jĉ#9eb#^ĉ#Meb#oĉ#)" [message-narrow-to-headers re-search-forward "^[ ]*\n" nil t replace-match "" "^\\(Newsgroups\\|Followup-To\\): +" "^[^ ]" 0 1 "\n[ ]+" " " "[ \n]*,[ \n]*\\|[ ]+" "," ",+$"] 5 (#$ . 42071)]) #@27 Make a valid data header. (defalias 'message-make-date #[nil "  ! !\")" [current-time now timezone-make-date-arpa-standard current-time-string current-time-zone] 4 (#$ . 42480)]) #@27 Make a unique Message-ID. (defalias 'message-make-message-id #[nil " !) 3 H3 H3\f3 H3 H!\f!3ɂ4) Ͱ" ["<" message-unique-id message-fetch-field "subject" psubject message-reply-headers 5 1 message-strip-subject-re "_-_" "" "@" message-make-fqdn ">"] 6 (#$ . 42671)]) (byte-code "! B‡" [boundp message-unique-id-char nil current-load-list] 2) (defalias 'message-unique-id #[nil "!\"S\"TǦ  \n>:   \"4 ДI\" )? \" @զ\"\\\" A@ե\"\\\"R)" [message-unique-id-char logand random t lsh 1 20 625 current-time tm system-type (ms-dos emx vax-vms) user-login-name user string-match "[^a-z0-9_]" 0 95 message-number-base36 user-uid -1 25 16 4 ".fsf"] 7]) (defalias 'message-number-base36 #[(num len) "W\f\nXUÇ\nťS\"\nŦH!P" [len 0 num "" message-number-base36 36 char-to-string "zyxwvutsrqponmlkjihgfedcba9876543210"] 5]) #@30 Make an Organization header. (defalias 'message-make-organization #[nil "!\n\n!\n \n \f;&\fc=\f===!=!eb#QƉ#@ U?[ *" [getenv "ORGANIZATION" message-user-organization message-functionp organization message-set-work-buffer t message-user-organization-file file-exists-p insert-file-contents re-search-forward "[ \n]+" nil replace-match "" buffer-size 0 buffer-string] 4 (#$ . 43599)]) #@54 Count the number of lines and return numeric string. (defalias 'message-make-lines #[nil "~eb !Q!y`d\"!*" [re-search-forward "^" regexp-quote mail-header-separator "$" 1 int-to-string count-lines] 4 (#$ . 44046)]) #@49 Return the In-Reply-To header for this message. (defalias 'message-make-in-reply-to #[nil "6HH5\f\"\"\fO#\f . ʘ2˂3 Q)*" [message-reply-headers 2 3 date from string-match " *at \\| *@ \\| *(\\| *<" stop-pos 0 "'s message of " "" "(unknown date)"] 5 (#$ . 44280)]) #@29 Make a Distribution header. (defalias 'message-make-distribution #[nil "!\f!\f \n)" [message-fetch-reply-field "distribution" orig-distribution message-functionp message-distribution-function] 2 (#$ . 44584)]) #@54 Return an Expires header based on `message-expires'. (defalias 'message-make-expires #[nil " \n__@\f\"!\\ A A@\f!\"\\ ! !#*" [current-time 1.0 message-expires 86400 future current round expt 2 16 timezone-make-date-arpa-standard current-time-string current-time-zone (0 "UT")] 8 (#$ . 44811)]) #@19 Return uucp path. (defalias 'message-make-path #[nil " \n Q\n;\n Q )" [user-login-name login-name message-user-path system-name "!"] 3 (#$ . 45137)]) #@21 Make a From header. (defalias 'message-make-from #[nil " !  Ř  (\fɚ. c=k=\f\"k\fP\"bєIѕSIH\")\fceb#ebc#\"c ܱ ݱ`\fcb#\"b#\"b)c +" [message-make-address login boundp user-full-name fullname "&" user-login-name message-set-work-buffer message-from-style "" angles parens string-match "[^- !#-'*+/-9=?A-Z^-~]" nil tmp "([^()]*)" 0 45 "[\\()]" re-search-forward 1 "\"" "[\"\\]" replace-match "\\\\\\&" t " <" ">" " (" fullname-start "[()\\]" "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" "\\1(\\3)" ")" buffer-string] 5 (#$ . 45312)]) #@132 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 " Q" [user-login-name "@" system-name] 3 (#$ . 46035)]) #@31 Make the address of the user. (defalias 'message-make-address #[nil " Q" [message-user-mail-address user-login-name "@" message-make-domain] 3 (#$ . 46270)]) #@51 Return the pertinent part of `user-mail-address'. (defalias 'message-user-mail-address #[nil " !A@" [user-mail-address mail-extract-address-components] 2 (#$ . 46444)]) #@44 Return user's fully qualified domain name. (defalias 'message-make-fqdn #[nil " \"B!*;*\"*B\n\"?\n\"?\n\"BP*" [system-name message-user-mail-address user-mail string-match "[^.]\\.[^.]" boundp mail-host-address "\\." "@\\(.*\\)\\'" match-string 1 ".i-have-a-misconfigured-system-so-shoot-me"] 3 (#$ . 46625)]) #@30 Return the name of the host. (defalias 'message-make-host-name #[nil "  \" ĉSO)" [message-make-fqdn fqdn string-match "^[^.]+\\." 0] 3 (#$ . 46988)]) #@25 Return the domain name. (defalias 'message-make-domain #[nil " " [mail-host-address message-make-fqdn] 1 (#$ . 47152)]) #@83 Prepare article HEADERS. Headers already prepared in the buffer are not modified. (defalias 'message-generate-headers #[(headers) "     \n\f   !?8  !\"##eb#@!Q#xT\"xy`y`|#A#N)#eb#A#@!:!@=!A!@!!Q#gUcu!!:\n!@=\n!A!A!!A F!A!F!AJF!:,!A;!AF!A!F!A F!?J?JF\"!  nldb! yu` | c\">y!`p$)!ׁ@!A BCDEC!?FD!A@B?CFC!A@B?ebG#yHcyIB." [message-narrow-to-headers message-make-date Date message-make-message-id Message-ID message-make-organization Organization message-make-from From message-make-path Path nil Subject Newsgroups message-make-in-reply-to In-Reply-To To message-make-distribution Distribution message-make-lines Lines message-newsreader X-Newsreader message-fetch-field "X-Newsreader" message-mailer X-Mailer message-make-expires Expires t case-fold-search header value elem message-deletable-headers headers re-search-forward "^" symbol-name ": *" get-text-property 0 message-deletable 1 optional ":" 32 " " looking-at "[ ]*$" fboundp boundp read-from-minibuffer format "Empty header for %s; enter value: " "" ": " "\n" -1 message-point-at-eol "[^:]+: " add-text-properties (message-deletable t face italic) "from" "sender" message-make-sender secure-sender sender from message-check-element mail-extract-address-components "^Sender:" "Original-" "Sender: "] 6 (#$ . 47284)]) #@64 Insert a courtesy message in mail copies of combined messages. (defalias 'message-insert-courtesy-copy #[nil " !db ű*yc)" [message-narrow-to-headers message-fetch-field "newsgroups" newsgroups "Posted-To: " "\n" 1 message-courtesy-message] 4 (#$ . 48897)]) (defalias 'message-fill-address #[(header value) "``}\n!!\f:\f@\fűedS}ƉebmpdwgU:mafiVZZbc)`Tf`Tf?m(u(*db~y)" [capitalize symbol-name header ": " value "\n" nil last quoted "^,\"" 44 78 "\n " 1] 4]) (defalias 'message-fill-header #[(header value) "`!! : @ ʱ\f`}\f`\"y!<y`y`|\fb#!Qԉ#db," [78 " " fill-prefix fill-column begin capitalize symbol-name header ": " value "\n" fill-region-as-paragraph -1 looking-at "[ ]*$" 0 1 re-search-forward ":" nil t "\n[ ]+" replace-match " "] 4]) #@57 Move point to where the user probably wants to find it. (defalias 'message-position-point #[nil " # !~ugUucdb~y!?1y" [message-narrow-to-headers re-search-forward "^[^:]+:[ ]*$" nil t search-backward ":" 1 32 " " looking-at "$" 2] 4 (#$ . 49785)]) #@57 Return a new (unique) buffer name based on TYPE and TO. (defalias 'message-buffer-name #[(type &optional to group) " !\f \n \f# <\n % !@ Q&\f6\fɘ6\fP7ư!\n\"" [message-functionp message-generate-new-buffers type to group generate-new-buffer-name "*" " to " mail-extract-address-components "" " on " format "*%s message*"] 6 (#$ . 50071)]) #@68 Pop to buffer NAME, and warn if it already exists and is modified. (defalias 'message-pop-to-buffer #[(name) " !%\n!%\n!q *!*!* !q) " [get-buffer name 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 (#$ . 50449)]) #@27 Kill old message buffers. (defalias 'message-do-send-housekeeping #[nil "p \"\n* G\nY* A@ !& !& !)6 J \"J ̕OP\"\nT pC" [delq message-buffer-list message-max-buffers buffer buffer-name buffer-modified-p kill-buffer message-send-rename-function string-match "\\`\\*" rename-buffer "*sent " 0 nil t] 5 (#$ . 50812)]) (byte-code " B" [mc-modes-alist current-load-list] 2) (defalias 'message-setup #[(headers &optional replybuffer actions) "!  B\f\feb \n \f\fI\f@@\n?\f@@C B \fA\f& * \"`y`|`c`ѱ`S$y c!\"\"! c!\"\"!! !)!! " [boundp mc-modes-alist message-mode (message-mode (encrypt . mc-encrypt-message) (sign . mc-sign-message)) actions message-send-actions replybuffer message-reply-buffer mail-header-format headers message-header-format-alist alist h -1 message-default-headers put-text-property mail-header-separator "\n" read-only nil message-news-p message-default-news-headers message-generate-headers-first message-generate-headers delq Lines Subject copy-sequence message-required-news-headers message-mail-p message-default-mail-headers message-required-mail-headers run-hooks message-signature-setup-hook message-insert-signature message-set-auto-save-file-name message-narrow-to-headers message-header-setup-hook set-buffer-modified-p message-setup-hook message-position-point undo-boundary] 7]) #@67 Associate the message buffer with a file in the drafts directory. (defalias 'message-set-auto-save-file-name #[nil ".!\"!P!!q\n p!) )" [message-autosave-directory file-exists-p make-directory t make-temp-name file-name-as-directory "msg." name get-buffer-create " *draft tmp*" buffer-file-name make-auto-save-file-name kill-buffer buffer-auto-save-file-name clear-visited-file-modtime] 3 (#$ . 52318)]) #@42 Start editing a mail message to be sent. (defalias 'message-mail #[(&optional to subject) " \"! BBD!" [message-pop-to-buffer message-buffer-name "mail" to message-setup To "" Subject subject] 4 (#$ . 52759) nil]) #@42 Start editing a news article to be sent. (defalias 'message-news #[(&optional newsgroups subject) "\f#!\fB BD!" [message-pop-to-buffer message-buffer-name "news" nil newsgroups message-setup Newsgroups "" Subject subject] 5 (#$ . 52996) nil]) #@61 Start editing a reply to the article in the current buffer. (defalias 'message-reply #[(&optional to-address wide ignore-reply-to) "p \n \f eb#6`S7d}M![ [![ )!!\f!l !\n! !?! !! \" O  P !\n\"\n\"\f\f隃\fꚃ ++ BC-  cn !\n'\f<n67\fP=c SnLM PTc ! ceb !\"-777A7@@7\"-\"-n*-A-@ABC--#BB)~)@+#!A \f& BCD BE FG\nQBC\"B\"." [nil t gnus-warning never-mct mct inhibit-point-motion-hooks follow-to message-id references cc to reply-to date subject from cur search-forward "\n\n" wide message-functionp message-reply-to-function message-wide-reply-to-function message-fetch-field "from" "date" "subject" "none" "to" "cc" "mail-copies-to" ignore-reply-to "reply-to" "references" "message-id" string-match "^[ ]*[Rr][Ee]:[ ]*" 0 "Re: " "gnus-warning" "<[^>]+>" match-string "never" "always" to-address To ccalist message-set-work-buffer "" ", " rmail-dont-reply-to buffer-string erase-buffer mapcar #[(addr) " ! B" [mail-strip-quoted-names addr] 2] message-tokenize-header s delq assoc Cc mapconcat #[(addr) "A" [addr] 1] message-pop-to-buffer message-buffer-name "wide reply" "reply" vector message-reply-headers message-setup Subject append References " "] 15 (#$ . 53263) nil]) (defalias 'message-wide-reply #[(&optional to-address) " \"" [message-reply to-address t] 3 nil nil]) (defalias 'message-followup #[nil "p \n \f eb#6`S7d}!E !!\f!V ! !!!! !!\n!\n\"\n\"\f;\f\" \" O  P ~) #! B? ;.; .=$ B7 B7 ..=. Q \"%&@&4 B7 BC? BC\fIA\fBCB R ZC`QBC\n\nD?E\nF \nBC$B\"G \f & H." [nil t gnus-warning newsgroups distribution followup-to inhibit-point-motion-hooks follow-to message-id references mct reply-to date subject from cur search-forward "\n\n" message-functionp message-followup-to-function message-fetch-field "from" "date" "subject" "none" "references" "message-id" "followup-to" "newsgroups" "reply-to" "distribution" "mail-copies-to" "gnus-warning" string-match "<[^>]+>" match-string 0 "world" "^[ ]*[Rr][Ee]:[ ]*" "Re: " message-pop-to-buffer message-buffer-name "followup" message-setup Subject append message-use-followup-to "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 "" Newsgroups 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/announcment newsgroups are not indented for discussion;\nresponses here are directed to other newsgroups." Distribution References " " "never" Cc "always" vector message-reply-headers] 14 nil nil]) #@31 Cancel an article you posted. (defalias 'message-cancel-news #[nil " !!ʼn \n !\n! !!)\n!A@ J!!qp!  tQu \n!&' )!!." [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 buf distribution message-id newsgroups from message-narrow-to-head message-fetch-field "from" "newsgroups" "message-id" "distribution" mail-extract-address-components message-make-address "This article is not yours" get-buffer-create " *message cancel*" buffer-disable-undo erase-buffer "Newsgroups: " "\n" "From: " message-make-from "Subject: cmsg cancel " "Control: cancel " "Distribution: " "" mail-header-separator "This is a cancel message from " ".\n" message "Canceling your article..." dont-check-for-anything-just-trust-me message-syntax-checks message-send-news-function "Canceling your article...done" kill-buffer] 18 (#$ . 56999) 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!!A@ !!!! \f-\f\"eb#?!EΉ#dbc~y)" [cur mail-extract-address-components message-fetch-field "from" message-make-address error "This article is not yours" message-pop-to-buffer message-buffer-name "supersede" insert-buffer-substring message-narrow-to-head message-ignored-supersedes-headers message-remove-header t re-search-forward "^Message-ID: " nil "No Message-ID in this article" replace-match "Supersedes: " mail-header-separator 1] 4 (#$ . 58016) nil]) #@65 Reread contents of current buffer from its last auto-save file. (defalias 'message-recover #[nil " ‹ \")!)" [make-auto-save-file-name file-name ((byte-code "=\f!\f &) \"!" [system-type vax-vms "*Directory*" buffer-disable-undo standard-output "/" default-directory call-process "ls" nil "-l" file-name yes-or-no-p format "Recover auto save file %s? "] 8)) nil buffer-read-only erase-buffer insert-file-contents error "message-recover cancelled"] 3 (#$ . 58736) nil]) #@73 Return a Subject header suitable for the message in the current buffer. (defalias 'message-make-forward-subject #[nil " Â\f!!R" ["[" message-fetch-field message-news-p "newsgroups" "from" "(nowhere)" "] " "Subject" ""] 5 (#$ . 59254)]) #@97 Forward the current message via mail. Optional NEWS will use news to forward instead of mail. (defalias 'message-forward #[(&optional news) "p   \" \"!db$ l+c``}\nc\n!db\fced#eby`#X`SY`}eb$~ *" [message-make-forward-subject subject cur news message-news nil message-mail message-signature-before-forwarded-message message-goto-body "\n" message-forward-start-separator insert-buffer-substring message-forward-end-separator set-text-properties 1 search-forward "\n\n" t message-remove-header message-included-forward-headers message-position-point] 5 (#$ . 59517) "P"]) #@40 Resend the current article to ADDRESS. (defalias 'message-resend #[(address) "p!qp!  BC!! #1uc ~y`d|`\n!eb!u `}\"db)c #nyc] p!+" [nil beg cur get-buffer-create " *message resend*" buffer-disable-undo erase-buffer message-setup To address 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 message-ignored-resent-headers mail-header-separator re-search-backward "^\\(Also-\\)?Resent-" 0 "Also-" message-send-mail kill-buffer] 4 (#$ . 60156) "sResend 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 "p!!\n! !6!6 \"4 \"Q6~eb# R #Ryn#`yn#n#e#|ڔ}`| \"dbc) *" [nil boundary cur message-pop-to-buffer message-buffer-name "bounce" insert-buffer-substring undo-boundary message-narrow-to-head message-fetch-field "Mime-Version" "Content-Type" string-match "boundary=\"\\([^\"]+\\)\"" match-string 1 " *\n" "Content-Type: message/rfc822" search-forward "\n\n" t re-search-forward 2 message-unsent-separator "^Return-Path:.*\n" "^[^ \n ]+:" 0 message-remove-header message-ignored-bounced-headers mail-header-separator message-position-point] 5 (#$ . 60827) nil]) #@73 Like `message-mail' command, but display mail buffer in another window. (defalias 'message-mail-other-window #[(&optional to subject) "\n\"!-\nB$BD!" [t nil same-window-regexps same-window-buffer-names special-display-regexps special-display-buffer-names pop-up-windows message-pop-to-buffer message-buffer-name "mail" to message-setup To "" Subject subject] 5 (#$ . 61691) nil]) #@72 Like `message-mail' command, but display mail buffer in another frame. (defalias 'message-mail-other-frame #[(&optional to subject) "\n\"!-\nB$BD!" [t nil same-window-regexps same-window-buffer-names special-display-regexps special-display-buffer-names pop-up-frames message-pop-to-buffer message-buffer-name "mail" to message-setup To "" Subject subject] 5 (#$ . 62107) nil]) #@42 Start editing a news article to be sent. (defalias 'message-news-other-window #[(&optional newsgroups subject) "\n#!-\nB%BD!" [t nil same-window-regexps same-window-buffer-names special-display-regexps special-display-buffer-names pop-up-windows message-pop-to-buffer message-buffer-name "news" newsgroups message-setup Newsgroups "" Subject subject] 5 (#$ . 62520) nil]) #@42 Start editing a news article to be sent. (defalias 'message-news-other-frame #[(&optional newsgroups subject) "\n#!-\nB%BD!" [t nil same-window-regexps same-window-buffer-names special-display-regexps special-display-buffer-names pop-up-frames message-pop-to-buffer message-buffer-name "news" newsgroups message-setup Newsgroups "" Subject subject] 5 (#$ . 62929) 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) " \n ]ē\n ^b` W'!!gDZu*" [make-marker end1 start end nil looking-at "[_- ]" "" 1] 4 (#$ . 63337) "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) " \n ]ē\n ^b #(g`Zf=!*" [make-marker end1 start end nil re-search-forward "" t 2 delete-char -2] 5 (#$ . 63679) "r"]) (byte-code "\" \"!" [defalias message-exchange-point-and-mark exchange-point-and-mark string-match "XEmacs\\|Lucid" emacs-version require messagexmas] 3) #@46 Regexp that match headers that lists groups. (defvar message-newgroups-header-regexp "^\\(Newsgroups\\|Followup-To\\|Posted-To\\):" (#$ . 64187)) #@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 " ) " [message-newgroups-header-regexp mail-abbrev-mode-regexp mail-abbrev-in-expansion-header-p message-expand-group tab-to-tab-stop] 1 (#$ . 64340) nil]) (byte-code " B" [gnus-active-hashtb current-load-list] 2) (defalias 'message-expand-group #[nil "x`)\n`{! \"\np \f\n`|\nGUI\n@ B c!\n@c \"\fa\f a\fc c\fo!!p! p\n\"!)eb !)." ["^, : \n" nil b t completion-ignore-case string boundp gnus-active-hashtb hashtb all-completions completions cur comp 1 message "Only matching group" try-completion "No matching groups" pop-to-buffer "*Completions*" buffer-disable-undo buffer-read-only erase-buffer standard-output display-completion-list sort string<] 4]) #@75 Ask QUESTION, displaying the rest of the arguments in a temporary buffer. (defalias 'message-y-or-n-p '(macro . #[(question show &rest text) "\n \fBBBB" [message-talkative-question (quote y-or-n-p) question show text] 5 (#$ . 65239)])) #@162 Call FUNCTION with argument QUESTION, displaying the rest of the arguments in a temporary buffer if SHOW. The following arguments may contain lists of values. (defalias 'message-talkative-question #[(ask question show &rest text) "\n!Ë\f !" [show message-flatten-list text ((byte-code "q \"eb)\f !" [" *MESSAGE information message*" mapcar princ text ask question] 4)) ask question] 2 (#$ . 65485)]) (defalias 'message-flatten-list #[(&rest list) " !" [message-flatten-list-1 list] 2]) (defalias 'message-flatten-list-1 #[(list) ": \"\"C" [list apply append mapcar message-flatten-list-1] 5]) (byte-code "!!" [run-hooks message-load-hook provide message] 2)