;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:17:22 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/gnus-msg.el ;;; in Emacs version 20.4.1 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-msg.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require gnus gnus-ems message gnus-art] 2) #@553 *Preferred method for posting USENET news. If this variable is `current', Gnus will use the "current" select method when posting. If it is nil (which is the default), Gnus will use the native select method when posting. This method will not be used in mail groups and the like, only in "real" newsgroups. If not nil nor `native', the value must be a valid method as discussed in the documentation of `gnus-select-method'. It can also be a list of methods. If that is the case, the user will be queried for what select method to use when posting. (custom-declare-variable 'gnus-post-method ''current '(#$ . -754) :group 'gnus-group-foreign :type `(choice (const nil) (const current) (const native) (sexp :tag "Methods" ,gnus-select-method))) #@439 *All outgoing messages will be put in this group. If you want to store all your outgoing mail and articles in the group "nnml:archive", you set this variable to that value. This variable can also be a list of group names. If you want to have greater control over what group to put each message in, you can set this variable to a function that checks the current newsgroup name and then returns a suitable group name (or list of names). (defvar gnus-outgoing-message-group nil (#$ . -1508)) #@199 *Regexp matching groups that are really mailing lists. This is useful when you're reading a mailing list that has been gatewayed to a newsgroup, and you want to followup to an article in the group. (defvar gnus-mailing-list-groups nil (#$ . -2007)) #@55 *If non-nil, add a `to-list' parameter automatically. (defvar gnus-add-to-list nil (#$ . -2262)) #@161 Format string to be inserted when complaining about crossposts. The first %s will be replaced by the Newsgroups header; the second with the current group name. (defvar gnus-crosspost-complaint "Hi,\n\nYou posted the article below with the following Newsgroups header:\n\nNewsgroups: %s\n\nThe %s group, at least, was an inappropriate recipient\nof this message. Please trim your Newsgroups header to exclude this\ngroup before posting in the future.\n\nThank you.\n\n" (#$ . 2366)) #@45 Hook run after setting up a message buffer. (defvar gnus-message-setup-hook nil (#$ . 2855)) #@47 *Should we create the *Gnus Help Bug* buffer? (defvar gnus-bug-create-help-buffer t (#$ . -2954)) #@39 *Alist of styles to use when posting. (defvar gnus-posting-styles nil (#$ . -3058)) #@617 Alist of regexps and permitted unencoded charsets for posting. Each element of the alist has the form (TEST HEADER BODY-LIST), where TEST is either a regular expression matching the newsgroup header or a variable to query, HEADER is the charset which may be left unencoded in the header (nil means encode all charsets), BODY-LIST is a list of charsets which may be encoded using 8bit content-transfer encoding in the body, or one of the special values nil (always encode using quoted-printable) or t (always use 8bit). Note that any value other tha nil for HEADER infringes some RFCs, so use this option with care. (custom-declare-variable 'gnus-group-posting-charset-alist ''(("^\\(no\\|fr\\|dk\\)\\.[^,]*\\(,[ \n]*\\(no\\|fr\\|dk\\)\\.[^,]*\\)*$" iso-8859-1 (iso-8859-1)) (message-this-is-mail nil nil) (message-this-is-news nil t)) '(#$ . 3149) :type '(repeat (list :tag "Permitted unencoded charsets" (choice :tag "Where" (regexp :tag "Group") (const :tag "Mail message" :value message-this-is-mail) (const :tag "News article" :value message-this-is-news)) (choice :tag "Header" (const :tag "None" nil) (symbol :tag "Charset")) (choice :tag "Body" (const :tag "Any" :value t) (const :tag "None" :value nil) (repeat :tag "Charsets" (symbol :tag "Charset"))))) :group 'gnus-charset) #@36 Inhibit the use of posting styles. (defvar gnus-inhibit-posting-styles nil (#$ . 4442)) (byte-code "\306\300!\204\307\300 B\306\302!\204\310\302 B\306\303!\204 \310\303 B\306\304!\204,\310\304 B\311\305 B\312\313\314\310\315$\210\312\316\317\"\210\312\320\317\"\210\312\321\322\"\210\312\323\324\"\210\325\326\327\"\210\325\330\331\"\210\306\332!\204d\310\332 B\310\207" [gnus-message-buffer current-load-list gnus-article-copy gnus-last-posting-server gnus-message-group-art gnus-bug-message boundp "*Mail Gnus*" nil "Sending a bug report to the Gnus Towers.\n========================================\n\nThe buffer below is a mail buffer. When you press `C-c C-c', it will\nbe sent to the Gnus Bug Exterminators.\n\nThe thing near the bottom of the buffer is how the environment\nsettings will be included in the mail. Please do not delete that.\nThey will tell the Bug People what your environment is, so that it\nwill be easier to locate the bugs.\n\nIf you have found a bug that makes Emacs go \"beep\", set\ndebug-on-error to t (`M-x set-variable RET debug-on-error RET t RET')\nand include the backtrace in your bug report.\n\nPlease describe the bug in annoying, painstaking detail.\n\nThank you for your help in stamping out bugs.\n" autoload gnus-uu-post-news "gnus-uu" t news-setup "rnewspost" news-reply-mode rmail-dont-reply-to "mail-utils" rmail-output "rmailout" gnus-define-keys-1 (gnus-summary-send-map "S" gnus-summary-mode-map) ("p" gnus-summary-post-news "f" gnus-summary-followup "F" gnus-summary-followup-with-original "c" gnus-summary-cancel-article "s" gnus-summary-supersede-article "r" gnus-summary-reply "y" gnus-summary-yank-message "R" gnus-summary-reply-with-original "w" gnus-summary-wide-reply "W" gnus-summary-wide-reply-with-original "n" gnus-summary-followup-to-mail "N" gnus-summary-followup-to-mail-with-original "m" gnus-summary-mail-other-window "u" gnus-uu-post-news "\343" gnus-summary-mail-crosspost-complaint "om" gnus-summary-mail-forward "op" gnus-summary-post-forward "Om" gnus-uu-digest-mail-forward "Op" gnus-uu-digest-post-forward) (gnus-send-bounce-map "D" gnus-summary-send-map) ("b" gnus-summary-resend-bounced-mail "r" gnus-summary-resend-message) gnus-article-reply] 5) (defalias 'gnus-setup-message '(macro . #[(config &rest forms) "\306\307!\306\310!\306\311!\306\312!\313 \314B\n\315B \316B\317B\320BBBB\321\322\323\324\325\fB\326 \n F\327\330\331\332 EE\330\333E\334BBBBBB\335\336 ,\337BB\340BBBBBBBB\207" [group article buffer winconf forms config make-symbol "gnus-setup-message-winconf" "gnus-setup-message-buffer" "gnus-setup-message-article" "gnus-setup-message-group" let ((current-window-configuration)) ((buffer-name (current-buffer))) ((and gnus-article-reply (gnus-summary-article-number))) (gnus-newsgroup-name) ((message-header-setup-hook (copy-sequence message-header-setup-hook)) (message-mode-hook (copy-sequence message-mode-hook))) (add-hook 'message-header-setup-hook 'gnus-inews-insert-gcc) (add-hook 'message-header-setup-hook 'gnus-inews-insert-archive-gcc) (add-hook 'message-mode-hook 'gnus-configure-posting-styles) unwind-protect progn gnus-inews-add-send-actions (setq gnus-message-buffer (current-buffer)) set (make-local-variable 'gnus-message-group-art) cons (make-local-variable 'gnus-newsgroup-name) ((gnus-run-hooks 'gnus-message-setup-hook)) (gnus-add-buffer) gnus-configure-windows (t) ((set-buffer-modified-p nil))] 14])) (defalias 'gnus-setup-posting-charset #[(group) " \206\304\305 \205\306\307\215+\207" [gnus-group-posting-charset-alist group elem alist "" nil found (byte-code "\211A@\211\205[ @;\203\304 @\n\"\204L @\2119\203&\305 !\2065 <\2032 @\306=\2065\307 !)\203@ @\n!\204L @9\203 @J\203\310\311 A@ AA@B\"\210\202\207" [alist elem group form string-match fboundp lambda byte-code-function-p throw found] 5)] 3]) (defalias 'gnus-inews-add-send-actions #[(winconf buffer article) "\306\307!\210\310\307\311\312\313$\210\314\315\316\317EE\320 \211\321\322\fD\323\324\325$\210\321\326\327 D\330\331 D\2053\332DEE\333\"\207" [gnus-newsgroup-name message-post-method message-mailer message-newsreader winconf buffer make-local-hook message-sent-hook add-hook gnus-inews-do-gcc nil t lambda (arg) gnus-post-method arg gnus-extended-version message-add-action set-window-configuration exit postpone kill when gnus-buffer-exists-p save-excursion set-buffer gnus-summary-mark-article-as-replied send article] 7]) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-setup-message lisp-indent-function 1 edebug-form-spec (form body)] 4) #@152 Start composing a mail. If ARG, use the group under the point to find a posting style. If ARG is 1, prompt for a group name to find the posting style. (defalias 'gnus-group-mail #[(&optional arg) "p\306\216 \203!\307 !\310U\203\311\312\f\313\314 $\202\"\315 \202\"\316\317 \320p! \205E\321`\322\"\211$\203;\323$!\210)\321`\324\"\206E\325 \326!\326!%&'(\327\330\331\"\210\327\330\332\"\210\327\333\334\"\210\335\216\336 \210)\337 \210\340\341\342\"\210\343\313!. \207" [gnus-newsgroup-name buffer group arg gnus-active-hashtb gnus-article-reply ((byte-code "\212q\210 )\303\207" [buffer group gnus-newsgroup-name nil] 1)) prefix-numeric-value 1 completing-read "Use posting style of group: " nil gnus-read-active-file-p gnus-group-group-name "" current-window-configuration buffer-name get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence add-hook message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook gnus-configure-posting-styles ((byte-code "\305 \n#\210p\306\307!\f\nBL\210\306\310!\fL\210\311\312!\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) message-mail gnus-add-buffer gnus-configure-windows message t set-buffer-modified-p to #4# #3# #2# #1#] 8 (#$ . 9058) "P"]) #@110 Start composing a news message. If ARG, post to the group under point. If ARG is 1, prompt for a group name. (defalias 'gnus-group-post-news #[(&optional arg) "\203\303!\304U\203\305\306 \307\310 $\202\311 \202\312\313\314\n\")\207" [arg gnus-active-hashtb gnus-newsgroup-name prefix-numeric-value 1 completing-read "Newsgroup: " nil gnus-read-active-file-p gnus-group-group-name "" gnus-post-news post] 5 (#$ . 10609) "P"]) #@33 Start composing a news message. (defalias 'gnus-summary-post-news #[nil "\301\302\"\207" [gnus-newsgroup-name gnus-post-news post] 3 (#$ . 11051) nil]) #@113 Compose a followup to an article. If prefix argument YANK is non-nil, original article is yanked automatically. (defalias 'gnus-summary-followup #[(yank &optional force-news) "\203 \306@!\210\307\213\210\310\311`\312\"\211\203\306 !\210)\311`\313\"\206$\314 \n\2368 \315\316 \f \316&*\207" [yank to gnus-newsgroup-data gnus-newsgroup-name headers gnus-article-buffer gnus-summary-goto-subject ((gnus-summary-select-article)) 3 get-text-property gnus-intangible gnus-number gnus-summary-last-subject gnus-post-news nil force-news] 9 (#$ . 11211) (list (and current-prefix-arg (gnus-summary-work-articles 1)))]) #@68 Compose a followup to an article and include the original article. (defalias 'gnus-summary-followup-with-original #[(n &optional force-news) "\302\303! \"\207" [n force-news gnus-summary-followup gnus-summary-work-articles] 3 (#$ . 11840) "P"]) #@48 Followup to the current mail message via news. (defalias 'gnus-summary-followup-to-mail #[(&optional arg) "\301\302\"\207" [arg gnus-summary-followup t] 3 (#$ . 12092) (list (and current-prefix-arg (gnus-summary-work-articles 1)))]) #@48 Followup to the current mail message via news. (defalias 'gnus-summary-followup-to-mail-with-original #[(&optional arg) "\301\302!\303\"\207" [arg gnus-summary-followup gnus-summary-work-articles t] 3 (#$ . 12332) "P"]) (defalias 'gnus-inews-yank-articles #[(articles) "\306\211\307 \210\n\211A@\211\2032\310\213\210\311 \210 \f\312 \210 \206&\313\314!*\n\203\315c\210\202\316 \210 b*\207" [article beg articles gnus-article-copy gnus-current-headers message-reply-headers nil message-goto-body ((byte-code "q\210\302\303\211\211 $\210\304 !\207" [gnus-summary-buffer article gnus-summary-select-article nil gnus-summary-remove-process-mark] 5)) gnus-copy-article-buffer message-yank-original mark t "\n" push-mark message-reply-buffer] 2]) #@189 Cancel an article you posted. Uses the process-prefix convention. If given the symbolic prefix `a', cancel using the standard posting method; if not post using the current select method. (defalias 'gnus-summary-cancel-article #[(&optional n symp) "\306!\307\310\311\312 EE\313\f\211A@\211\205c\314\315\313\211\n$\203\\\316 \317\320\"\321\216\203D\322!\210\323!q\210\202I\324!\210\325 ,\203Y\326\n\"\210\327\330!\210\331 \210\332\n!\210\202+\207" [n gnus-newsgroup-name article message-post-method articles #1=#:GnusStartBufferWindow gnus-summary-work-articles lambda (arg) gnus-post-method (not (eq symp 'a)) nil gnus-summary-select-article t selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer message-cancel-news gnus-summary-mark-as-read gnus-cache-remove-article 1 gnus-article-hide-headers-if-wanted gnus-summary-remove-process-mark gnus-original-article-buffer #2=#:buf #3=#:w gnus-canceled-mark] 6 (#$ . 13096) (gnus-interactive "P\ny")]) #@167 Compose an article that will supersede a previous article. This is done simply by taking the old article and adding a Supersedes header line with the old Message-ID. (defalias 'gnus-summary-supersede-article #[nil "\306`\307\"\211\203 \310!\210)\306`\311\"\206\312 \313 \314p!\n\2058\306`\307\"\211\203.\310!\210)\306`\311\"\2068\312 \315\f!\315 !$%&'\316\304\317\"\210\316\304\320\"\210\316\305\321\"\210\322\216\323\324!\210(q\210\325 \210\326\327\330\331)D\332\333)D\334 \335BB\336 \337BBFEEC*B*)\340 \210\341\342\324\"\210\343\327!.\207" [to article gnus-article-reply gnus-newsgroup-name message-header-setup-hook message-mode-hook get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject current-window-configuration buffer-name copy-sequence add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "\305 \n#\210p\306\307!\f\nBL\210\306\310!\fL\210\311\312!\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) gnus-summary-select-article t message-supersede lambda nil when gnus-buffer-exists-p save-excursion set-buffer gnus-cache-possibly-remove-article (nil nil nil t) gnus-summary-mark-as-read (gnus-canceled-mark) gnus-add-buffer gnus-configure-windows reply-yank set-buffer-modified-p #4# #3# #2# #1# gnus-original-article-buffer gnus-summary-buffer message-send-actions] 11 (#$ . 14136) nil]) (defalias 'gnus-copy-article-buffer #[(&optional article-buffer) "\306\307!\212q\210\310\311!\203\312\313!\203\314\313!\203\311\315!\210) \206$\n\316\211\317 !\203E \211\205A ;\203>\317\202?\320 !)\204K\321\322!\202\255\212 q\210\214~\210\323ed#\210q\210\324\325!\210\326\327!\210\326\330!\210\331\332\333 \"\334 \210c\210#q\210eb\210\335$!\203\205\336y\210\202x`\337\340\316\315#\206\220`q\210eb\337\340\316\315#\206\237d|\210\341# \f#\210\342 \210*+\207" [gnus-article-copy article-buffer gnus-article-buffer beg end buffer gnus-get-buffer-create " *gnus article copy*" fboundp set-buffer-multibyte boundp enable-multibyte-characters default-value t nil get-buffer buffer-name error "Can't find any article buffer" copy-to-buffer gnus-article-delete-text-of-type annotation gnus-remove-text-with-property gnus-prev gnus-next format "%s" buffer-string erase-buffer looking-at 1 search-forward "\n\n" insert-buffer-substring article-decode-encoded-words gnus-original-article-buffer message-unix-mail-delimiter] 6]) (defalias 'gnus-post-news #[(post &optional group header article-buffer yank subject force-news) "\203\306 \210 \307 \310p! \205+\311`\312\"\211\203!\313\f!\210)\311`\314\"\206+\315 \316!\316!./01\317\320\321\"\210\317\320\322\"\210\317\323\324\"\210\325\2162\206W \21123\326\326\3264\326\32652\203\263\3272\330\"\3272\331\"\3272\332\"\3272\333\"56\205\227\33462\"427\334\3357\"\203\2567\336\225\326O\202\2607)2\203\277\337!\204\3615\204\3618\204\361\3373\206\320 9\203\3349\336H\202\336:\"\2034\204\204\204;\203\340\206\3762!\210\202R\203\\\346>!\210.\347 \210\350>\203k\351\202t\203s\352\202t\353\354\"\210\355\326!.\207" [article-buffer gnus-add-to-list add-to-list gnus-article-reply to gnus-newsgroup-name gnus-copy-article-buffer current-window-configuration buffer-name get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence add-hook message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook gnus-configure-posting-styles ((byte-code "\305 \n#\210p\306\307!\f\nBL\210\306\310!\fL\210\311\312!\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) nil gnus-group-find-parameter to-address to-group to-list newsgroup string-match "^[^:]+:" 0 gnus-news-group-p message-news gnus-msg-treat-broken-reply-to message-followup message-mail gnus-inews-add-to-address message-wide-reply gnus-inews-yank-articles gnus-add-buffer gnus-configure-windows reply-yank reply message t set-buffer-modified-p #4# #3# #2# #1# group pgroup mailing-list newsgroup-p gnus-mailing-list-groups gname force-news header gnus-current-article post gnus-article-copy message-send-actions yank] 8]) #@49 Remove the Reply-to header iff broken-reply-to. (defalias 'gnus-msg-treat-broken-reply-to #[nil "\301\302\"\205\214\303 \210\304\305!)\207" [gnus-newsgroup-name gnus-group-find-parameter broken-reply-to message-narrow-to-head message-remove-header "reply-to"] 3 (#$ . 19005)]) #@85 Return the posting method based on GROUP and ARG. If SILENT, don't prompt the user. (defalias 'gnus-post-method #[(arg group &optional silent) "\306!\211\204\n\307=\204\n\206\223 \206\223\f\202\223 \2032 \310=\2042\n\307=\203. \202\223 \202\223 \204F\n\203g\n\311=\204g\n@<\203g\312\n\205^\n\311=?\205^\n@<\203\\\n\202^\nC\"\313\314#\"\313\315$\" C C&%\316&\316'\316(%\2035\317%\211A%@((;\203\230\320(!\202( \232\203\243 \202(@;\203\266\203\266\321(\"\202(\203\315\204\315(A@\317\232\203\315(\202((\322(@!)\323\324)*\">\203 \325)\326P!(\236\204 \327(@*\236>\203 \312(\325)\326P!(A@DC\"\202(**(\330(\331\"\204#\330(\332\"\203{('\235\204{('B'\202{\313\333'\"&\324+\203L,\203L,\202[\334\335&\316\336,\206X\317\310B%\211,&\"A@,\202\223\n\311=\203\204 @\337=\204\204\340 \341\336#\203\204 \204\204 \202\223\n\203\222\n\311=\204\222\n\202\223 )\207" [group group-method gnus-post-method gnus-select-method message-post-method arg gnus-find-method-for-group active 0 current append mapcar cdr car nil "" gnus-server-to-method gnus-server-extend-method symbol-name address assoc intern "-address" physical-address gnus-method-option-p post post-mail #[(m) "A@\301\302@!\303RD\207" [m " (" symbol-name ")"] 4] completing-read "Posting method: " t nndraft gnus-get-function request-post gnus-secondary-select-methods gnus-server-alist gnus-opened-servers methods method-alist post-methods method method-name gnus-valid-select-methods silent gnus-last-posting-server] 9 (#$ . 19291)]) (byte-code "\301B\302B\301\207" [current-load-list nnspool-rejected-article-hook xemacs-codename] 2) #@45 Stringified Gnus version and Emacs version. (defalias 'gnus-extended-version #[nil "\305\306\307!\310\"\311\312\313\314\315 \"\203\316\317\320 \"P\202K\314\321 \"\203J\317\320 \"\322\323\n #\324\224\2037\317\324 \"\2028\325\326\304!\203E\311\f\312Q\202F\325R\202K \260\207" [gnus-version emacs-version emacs-major-version emacs-minor-version xemacs-codename "Gnus/" prin1-to-string gnus-continuum-version t " (" ")" " " string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" "Emacs/" match-string 1 "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?" format "/%d.%d" 3 "" boundp] 12 (#$ . 20994) nil]) #@136 Start composing a reply mail to the current message. If prefix argument YANK is non-nil, the original article is yanked automatically. (defalias 'gnus-summary-reply #[(&optional yank wide) "\203 \306@!\210\307\310 \311p! \205+\312`\313\"\211\203!\306\n!\210)\312`\314\"\206+\315 \316\f!\316 ! !\"\317\304\320\"\210\317\304\321\"\210\317\305\322\"\210\323\216\324 \210\325 q\210\326 \210\327\330#\"\210\203e\331!\210)\332 \210\333\203r\334\202s\335\307\"\210\336\330!.\207" [yank gnus-article-reply to gnus-newsgroup-name message-header-setup-hook message-mode-hook gnus-summary-goto-subject t current-window-configuration buffer-name get-text-property gnus-intangible gnus-number gnus-summary-last-subject copy-sequence add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "\305 \n#\210p\306\307!\f\nBL\210\306\310!\fL\210\311\312!\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) gnus-summary-select-article gnus-copy-article-buffer gnus-msg-treat-broken-reply-to message-reply nil gnus-inews-yank-articles gnus-add-buffer gnus-configure-windows reply-yank reply set-buffer-modified-p #4# #3# #2# #1# wide] 8 (#$ . 21616) (list (and current-prefix-arg (gnus-summary-work-articles 1)))]) #@91 Start composing a reply mail to the current message. The original article will be yanked. (defalias 'gnus-summary-reply-with-original #[(n &optional wide) "\302\303! \"\207" [n wide gnus-summary-reply gnus-summary-work-articles] 3 (#$ . 23123) "P"]) #@141 Start composing a wide reply mail to the current message. If prefix argument YANK is non-nil, the original article is yanked automatically. (defalias 'gnus-summary-wide-reply #[(&optional yank) "\301\302\"\207" [yank gnus-summary-reply t] 3 (#$ . 23381) (list (and current-prefix-arg (gnus-summary-work-articles 1)))]) #@96 Start composing a wide reply mail to the current message. The original article will be yanked. (defalias 'gnus-summary-wide-reply-with-original #[(n) "\301\302\"\207" [n gnus-summary-reply-with-original t] 3 (#$ . 23707) "P"]) #@77 Forward the current message to another user. If POST, post instead of mail. (defalias 'gnus-summary-mail-forward #[(&optional not-used post) "\306 \307p!\205 \310`\311\"\211\203\312 !\210)\310`\313\"\206 \314 \n\315 !\315\f!&'(\316\303\317\"\210\316\303\320\"\210\316\304\321\"\210\322\216\323 \210\324)\212*q\210\325 ))\326\327\330!!q\210\331 \210)c\210eb\210\332\333!\203l\334\335!\210\336\337!\210\340+!\210*\341 \210\342\343\344\"\210\345\324!.\207" [gnus-article-reply to gnus-newsgroup-name message-header-setup-hook message-mode-hook #1=#:gnus-setup-message-group current-window-configuration buffer-name get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "\305 \n#\210p\306\307!\f\nBL\210\306\310!\fL\210\311\312!\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article gnus-message-buffer #1# gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) gnus-summary-select-article nil buffer-string gnus-get-buffer-create generate-new-buffer-name " *Gnus forward*" erase-buffer looking-at "From " replace-match "X-From-Line: " run-hooks gnus-article-decode-hook message-forward gnus-add-buffer gnus-configure-windows forward t set-buffer-modified-p #4# #3# #2# text gnus-original-article-buffer post] 8 (#$ . 23941) "P"]) #@40 Resend the current article to ADDRESS. (defalias 'gnus-summary-resend-message #[(address n) "\305!\306\n\211A@\211\205#\307\306\211\211 $\210\212 q\210\310\f!\210)\202*\207" [n article articles gnus-original-article-buffer address gnus-summary-work-articles nil gnus-summary-select-article message-resend] 5 (#$ . 25483) "sResend message(s) to: \nP"]) #@113 Forward the current article to a newsgroup. If FULL-HEADERS (the prefix), include full headers when forwarding. (defalias 'gnus-summary-post-forward #[(&optional full-headers) "\301\302\"\207" [full-headers gnus-summary-mail-forward t] 3 (#$ . 25850) "P"]) #@89 Format string to insert in nastygrams. The current group name will be inserted at "%s". (defvar gnus-nastygram-message "The following article was inappropriately posted to %s.\n\n" (#$ . 26114)) #@56 Send a nastygram to the author of the current article. (defalias 'gnus-summary-mail-nastygram #[(n) "\204\n\306\307!\205 \310 !\210\fq\210\311 \210\312 \n\"c\210\313 )\207" [gnus-expert-user gnus-newsgroup-name group n gnus-message-buffer gnus-nastygram-message gnus-y-or-n-p "Really send a nastygram to the author of the current article? " gnus-summary-reply-with-original message-goto-body format message-send-and-exit] 3 (#$ . 26315) "P"]) #@64 Send a complaint about crossposting to the current article(s). (defalias 'gnus-summary-mail-crosspost-complaint #[(n) "\306!\307\n\211A@\211\205\246 q\210\310 !\210\f\311\312 \"\203( \313\225\307O\202) )\307\211#$%\314 \210&q\210\315\316\317!\211$\320\"G\321X\203q\316\322!\211#\203\\%\315#\320\"\235\204q#\203i\323\321\324\"\210\202\242\323\321\325\"\210\202\242 q\210\326\321!\210'q\210\327 \210\330($%#c\210\331 \210\332\333!\210\334\335\336\211#\210\337 \210\340\341!\203\242\342 \210+\202*\207" [n article articles gnus-summary-buffer gnus-newsgroup-name gname gnus-summary-work-articles nil gnus-summary-goto-subject string-match "^[^:]+:" 0 gnus-summary-select-article message-tokenize-header mail-fetch-field "newsgroups" ", " 1 "followup-to" gnus-message "Followup-to restricted" "Not a crossposted article" gnus-summary-reply-with-original message-goto-body format message-goto-subject re-search-forward " *$" replace-match " (crosspost notification)" t gnus-deactivate-mark gnus-y-or-n-p "Send this complaint? " message-send-and-exit followup-to newsgroups group gnus-original-article-buffer gnus-message-buffer gnus-crosspost-complaint] 4 (#$ . 26769) "P"]) #@31 Compose mail in other window. (defalias 'gnus-summary-mail-other-window #[nil "\306 \307p!\205 \310`\311\"\211\203\312 !\210)\310`\313\"\206 \314 \n\315 !\315\f!\316\303\317\"\210\316\303\320\"\210\316\304\321\"\210\322\216\323 \210)\324 \210\325\326\327\"\210\330\331!.\207" [gnus-article-reply to gnus-newsgroup-name message-header-setup-hook message-mode-hook #1=#:gnus-setup-message-group current-window-configuration buffer-name get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "\305 \n#\210p\306\307!\f\nBL\210\306\310!\fL\210\311\312!\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article gnus-message-buffer #1# gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) message-mail gnus-add-buffer gnus-configure-windows message t set-buffer-modified-p nil #4# #3# #2#] 8 (#$ . 27976) nil]) (defalias 'gnus-mail-parse-comma-list #[nil "\303\211\304\303w\210m\204_`\305\303w\210\212\214\306`}\210b\210\307\310\311\303\312#\203,\nT\202\n\306U\2036\313\2027\n\313\"+\306U\203J\314\303w\210\305\303w\210\202\304\303x\210`{ B\305\303w\210\315\303w\210\202 *\207" [beg accumulated i nil " " "^," 0 logand search-forward "\"" t 2 "," ", "] 5]) (defalias 'gnus-inews-add-to-address #[(group) "\302\303!\211\205\304 \205\305\306\307\"!\205\310 \311B\")\207" [to-address group mail-fetch-field "to" gnus-alive-p gnus-y-or-n-p format "Do you want to add this as `to-list': %s " gnus-group-add-parameter to-list] 5]) #@59 Put the current message in some group and return to Gnus. (defalias 'gnus-put-message #[nil " \n \203\306 !\203\307\310\311\312 #\313 \"J\203%\314\315 \"\210\212\214~\210\316 \210\311\317 \203<\320!\210\202A\320!\210)db\210\321 \322\261\210~\210*\323 \210\324!\205\207 \242\211\205n;\203j\324\202k\325!)\203\200 @q\210 A\203\200\326 A!\210\f\205\207\327\f!+\207" [gnus-article-reply gnus-prev-winconf gnus-newsgroup-name group winconf reply gnus-group-read-only-p read-string "Put in group: " nil gnus-writable-groups intern-soft error "No such group: %s" message-narrow-to-headers message-news-p message-generate-headers "Gcc: " "\n" gnus-inews-do-gcc get-buffer buffer-name gnus-summary-mark-article-as-replied set-window-configuration gnus-newsrc-hashtb gnus-deletable-headers message-required-news-headers message-required-mail-headers gnus-group-buffer buffer] 5 (#$ . 29733) nil]) #@91 Send a reply to the address near point. If YANK is non-nil, include the original article. (defalias 'gnus-article-mail #[(yank) "\212\303\304\305\306#\210`T)\212\307\304\305\306#\210`S){\211\205'\310!\210 \205'\311\nAC!)\207" [address yank gnus-article-current re-search-backward "[ \n]" nil t re-search-forward message-reply gnus-inews-yank-articles] 6 (#$ . 30662) "P"]) (byte-code "\301B\301\207" [current-load-list nntp-server-type] 2) #@44 Send a bug report to the Gnus maintainers. (defalias 'gnus-bug #[nil "\306 \204 \307\310!\210\311 \312p!\205)\313`\314\"\211\203\315 !\210)\313`\316\"\206)\317 \n\320 !\320\f!9:;\321\303\322\"\210\321\303\323\"\210\321\304\324\"\210\325\216\326 \210<\203`\327\330!\210\331 \210=c\210eb\210\332\333!\210\334\335>B\336B!\210<\203x\337?B?eb\210\340\341\342@!\343Q!\210\344y\210\345 \346\347 \346\261\210\350\351!\203\241);\203\241)c\210\352c\210\212\353\354!q\210\355 \210)\356c\210eb\210\357\360\361\362#\210\363\364!\210)\365 \210\366\367\362\"\210\370\361!.\207" [gnus-article-reply to gnus-newsgroup-name message-header-setup-hook message-mode-hook #1=#:gnus-setup-message-group gnus-alive-p error "Gnus has been shut down" current-window-configuration buffer-name get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "\305 \n#\210p\306\307!\f\nBL\210\306\310!\fL\210\311\312!\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article gnus-message-buffer #1# gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) delete-other-windows switch-to-buffer "*Gnus Help Bug*" erase-buffer message-pop-to-buffer "*Gnus Bug*" message-setup To ((Subject . "")) (gnus-bug-kill-buffer) re-search-forward "^" regexp-quote "$" 1 gnus-version "\n" emacs-version boundp nntp-server-type "\n\n\n\n\n" gnus-get-buffer-create " *gnus environment info*" gnus-debug "<#part type=application/x-emacs-lisp buffer=\" *gnus environment info*\" disposition=inline description=\"User settings\"><#/part>" search-forward "Subject: " nil t message "" gnus-add-buffer gnus-configure-windows bug set-buffer-modified-p #4# #3# #2# gnus-bug-create-help-buffer gnus-bug-message gnus-maintainer message-send-actions mail-header-separator] 8 (#$ . 31115) nil]) (defalias 'gnus-bug-kill-buffer #[nil "\300\301!\205 \302\301!\207" [get-buffer "*Gnus Help Bug*" kill-buffer] 2]) #@51 Yank the current article into a composed message. (defalias 'gnus-summary-yank-message #[(buffer n) "\306! \205&\307 @!\210\310\311\312 \210*\212\fq\210\313 !\210) \211A\210\202)\207" [n #1=#:gnus-summary-iterate-articles gnus-inhibit-treatment gnus-display-mime-function buffer gnus-article-buffer gnus-summary-work-articles gnus-summary-goto-subject nil t gnus-summary-select-article message-yank-buffer] 2 (#$ . 33279) (list (completing-read "Buffer: " (mapcar 'list (message-buffers)) nil t) current-prefix-arg)]) #@140 Attempts to go through the Gnus source file and report what variables have been changed. The source file has to be in the Emacs load path. (defalias 'gnus-debug #[nil "\306`\307\211\211\211\310\311\312\"\210\313\314!\210\212\315\316!q\210 \203d\317 \210\320 \211A@!\211\203\321 !\203\322 !\210eb\210\323\324\307\325#\204L\310\311\326 #\210\202e`}\210eb\210\327\330\331\217\211\203\332\333\334\217\210\202S\335p!\210) \237\211\203s\336c\210 \203\226\337 @!\203\206\307\340\341\217\210\202\217\342\343 @!\344\261\210 A\211\204w\345c\210\fb\210\323\346\307\325#\205\264\347\350\351\352\353\314!!\"\325\211#\210\202\234.\207" [sym olist expr file point files ("gnus.el" "gnus-sum.el" "gnus-group.el" "gnus-art.el" "gnus-start.el" "gnus-async.el" "gnus-msg.el" "gnus-score.el" "gnus-win.el" "gnus-topic.el" "nnmail.el" "message.el") nil gnus-message 4 "Please wait while we snoop your variables..." sit-for 0 gnus-get-buffer-create " *gnus bug info*" erase-buffer locate-library file-exists-p insert-file-contents re-search-forward "^;;* *Internal variables" t "Malformed sources in file %s" #1=#:G81988 (byte-code "\300p!\207" [read] 2) ((error)) #2=#:G81989 (byte-code "@\302=\204@\303=\2030\3048;\2030\305\3068!\203*\307\3108!\3068J\232\2040A@ B\302\207" [expr olist defvar defcustom 3 boundp 1 eval 2] 3) ((error)) kill-buffer "------------------ Environment follows ------------------\n\n" boundp (byte-code "\302\303@@J\211:\204 9\203& \304=\204& \305=\204&\306@JD\202)@JEp\"\207" [olist sym pp setq nil t quote] 5) ((error)) ";; (makeunbound '" symbol-name ")\n" "\n\n" "[- -\200-\237]" replace-match format "\\%03o" string-to-char match-string] 7 (#$ . 33812) nil]) #@259 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. If FETCH, try to fetch the article that this is a reply to, if indeed this is a reply. (defalias 'gnus-summary-resend-bounced-mail #[(&optional fetch) "\306\307!\210q\210\310 \311p! \205'\312`\313\"\211\203\314\n!\210)\312`\315\"\206'\316 \317\f!\317 !#$%&\320\304\321\"\210\320\304\322\"\210\320\305\323\"\210\324\216\325\326!\211'\205\242'\327(\211'\205\241''\330\327)*\331\332'*#\203\203'\330\224\330\225\211*O)B)\202g)\237+)(\206\217\333)\233\203\235)A)\202\211)@)*+\334 \210,\203\273+\203\273\335+!\203\273\336 \210+\337 \210\340\341\307\"\210\342\327!.\207" [gnus-original-article-buffer gnus-article-reply to gnus-newsgroup-name message-header-setup-hook message-mode-hook gnus-summary-select-article t current-window-configuration buffer-name get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "\305 \n#\210p\306\307!\f\nBL\210\306\310!\fL\210\311\312!\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) mail-fetch-field "references" nil 0 string-match "<[^>]+>" 1 message-bounce gnus-summary-refer-article gnus-summary-show-all-headers gnus-add-buffer gnus-configure-windows compose-bounce set-buffer-modified-p #4# #3# #2# #1# references n ids beg parent fetch] 8 (#$ . 35547) "P"]) (defalias 'gnus-inews-do-gcc #[(&optional gcc) "\306 \205\315\212\214\307 \210\206\310\311\312\313#p\312\211\211\211\205\313\314\311!\210~\210\315\316\" \211A@\211\205\313\317\320\321\n \"J8\204R)@\322\323\n!!@=\203R)\202m\324\320\321\n \"J88\203j\324\320\321\n \"J88\202m\323\n!\211!\210\317 !\210\325\n\313 #\204\202\326\n \"\210\212\327\330!\210\331\f!\210\332 \210\214\307 \210\333 \210)eb\210\334\335\336*!\337Q\312\313#\203\255\340\341\313\211#\210\342\n \313\211$\204\303\343\344\345\n\346 !$\210\347\320!\210\350p!\210)\202+.\207" [gcc method group groups cur gnus-newsrc-hashtb gnus-alive-p message-narrow-to-headers mail-fetch-field "gcc" nil t message-remove-header message-tokenize-header " ," gnus-check-server 2 intern-soft gnus-server-to-method gnus-group-method 4 gnus-request-group gnus-request-create-group nnheader-set-temp-buffer " *acc*" insert-buffer-substring message-encode-message-body mail-encode-encoded-word-buffer re-search-forward "^" regexp-quote "$" replace-match "" gnus-request-accept-article gnus-message 1 "Couldn't store article in group %s: %s" gnus-status-message sit-for kill-buffer gnus-message-archive-method mail-header-separator] 7 nil nil]) #@60 Insert Gcc headers based on `gnus-outgoing-message-group'. (defalias 'gnus-inews-insert-gcc #[nil "\212\214\304 \210\211\2119\203\305\n!\206#\n<\203 \n@\306=\206#\307\n!)\203, \2027 ;\2046 C\2057 \211\205N\310 ;\203F \202K\311\312 \313#\314\261,\207" [gnus-outgoing-message-group group form gcc message-narrow-to-headers fboundp lambda byte-code-function-p "Gcc: " mapconcat identity " " "\n"] 6 (#$ . 38582)]) #@60 Insert the Gcc to say where the article is to be archived. (defalias 'gnus-inews-insert-archive-gcc #[(&optional group) "\n\206 \206 \306 \205\307 \310\"\311\204 \311\202\304 ;\203* C\202\304 \2042\311\202\304 <\203A @;\203A \202\304 \2119\203P\312!\206b<\203^@\313=\206b\314!)\203l \n!\202\304 \203\303 @@;\203\206\315 @@\n\"\205\267 @A\202\267 @\2119\203\226\312!\206\250<\203\244@\313=\206\250\314!)\203\263 @\n!\202\267\316 @!\211\204\303 A\211\204p \311\204\322\f\205;;\203\335C\212\214\317 \210db\210\320c\210\f\203 \f;\203\365\f\202\366\nc\210\f\321=\204\322c\202:\323y\210\324 \202:\211A@\211\2038\315\325\"\203%\202+\326\"c\210\203 \327c\210\202 \322c*.\207" [gnus-message-archive-group var group gnus-newsgroup-name gcc-self-val result "" gnus-group-find-parameter gcc-self nil fboundp lambda byte-code-function-p string-match eval message-narrow-to-headers "Gcc: " none "\n" 0 kill-line ":" gnus-group-prefixed-name " " gnus-message-archive-method form groups name] 4 (#$ . 39017)]) #@62 Configure posting styles according to `gnus-posting-styles'. (defalias 'gnus-configure-posting-styles #[nil "?\205\n \206\n\306\n\307\211\211\211\211\211\211\211\211\211\2116789:;<=>? \203I\310?\311\312#\211@\203H\313>\314@BC\">)>\307=\211A\203A@\211=\211A=@