;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:03:14 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/gnus-msg.el ;;; in Emacs version 20.7.2 ;;; 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 '(#$ . -737) :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 (#$ . -1491)) #@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 (#$ . -1990)) #@55 *If non-nil, add a `to-list' parameter automatically. (defvar gnus-add-to-list nil (#$ . -2245)) #@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" (#$ . 2349)) #@45 Hook run after setting up a message buffer. (defvar gnus-message-setup-hook nil (#$ . 2838)) #@47 *Should we create the *Gnus Help Bug* buffer? (defvar gnus-bug-create-help-buffer t (#$ . -2937)) #@39 *Alist of styles to use when posting. (defvar gnus-posting-styles nil (#$ . -3041)) #@618 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 than nil for HEADER infringes some RFCs, so use this option with care. (custom-declare-variable 'gnus-group-posting-charset-alist ''(("^\\(no\\|fr\\)\\.[^,]*\\(,[ \n]*\\(no\\|fr\\)\\.[^,]*\\)*$" iso-8859-1 (iso-8859-1)) ("^\\(fido7\\|relcom\\)\\.[^,]*\\(,[ \n]*\\(fido7\\|relcom\\)\\.[^,]*\\)*$" koi8-r (koi8-r)) (message-this-is-mail nil nil) (message-this-is-news nil t)) '(#$ . 3132) :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 (#$ . 4510)) (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\326\fB\327 \n F\330\331\332\333 EE\331\334E\335BBBBBB\336\337 ,\340BB\341BBBBBBBBB\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)) (mbl mml-buffer-list) (message-mode-hook (copy-sequence message-mode-hook))) (setq mml-buffer-list nil) (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) (if (eq major-mode 'message-mode) (let ((mbl1 mml-buffer-list)) (setq mml-buffer-list mbl) (set (make-local-variable 'mml-buffer-list) mbl1) (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)) (mml-destroy-buffers) (setq mml-buffer-list mbl))) (gnus-add-buffer) gnus-configure-windows (t) ((set-buffer-modified-p nil))] 15])) #@145 Start editing a mail message to be sent. Like `message-mail', but with Gnus paraphernalia, particularly the Gcc: header for archiving purposes. (defalias 'gnus-msg-mail #[(&rest args) "\306 \307p!\205 \310`\311\"\211\203\312 !\210)\310`\313\"\206 \314 \n\315 !\f\315 !\316\317\303\320\"\210\317\303\321\"\210\317\305\322\"\210\323\216\324\325 \"\210)\326 \210\327\330\331\"\210\332\316!\210.\331\207" [gnus-article-reply to gnus-newsgroup-name message-header-setup-hook mml-buffer-list message-mode-hook current-window-configuration buffer-name get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence nil add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "\306 \n#\210p\307\310!\f\nBL\210\307\311!\fL\210\312\313!\210 \314=\203:  \307\315!L\210\316\317\320\321\211$\210)\202A\320 \210 \306\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group major-mode gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook kill-buffer-hook mml-destroy-buffers t mbl1 mbl] 5)) apply message-mail gnus-add-buffer gnus-configure-windows message t set-buffer-modified-p mbl #4# #3# #2# #1# args] 9 (#$ . 8260) nil]) (define-mail-user-agent 'gnus-user-agent 'gnus-msg-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook) (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\203\311\202\312\313\314$\210\203\"\306\315!\210\310\315\316\313\314$\210\317\320\321\322 EE\323 \211\324\325 D\326\327\330$\210\324\331\332D\333\334D \205L\335 DEE\336\"\207" [gnus-agent gnus-newsgroup-name message-post-method message-mailer message-newsreader winconf make-local-hook message-sent-hook add-hook gnus-agent-possibly-do-gcc gnus-inews-do-gcc nil t message-header-hook gnus-agent-possibly-save-gcc 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 buffer 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!&'()*\313%\327\330\331\"\210\327\330\332\"\210\327\333\334\"\210\335\216\336 \210)\337 \210\340\341\342\"\210\343\313!.\n\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 "\306 \n#\210p\307\310!\f\nBL\210\307\311!\fL\210\312\313!\210 \314=\203:  \307\315!L\210\316\317\320\321\211$\210)\202A\320 \210 \306\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group major-mode gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook kill-buffer-hook mml-destroy-buffers t mbl1 mbl] 5)) message-mail gnus-add-buffer gnus-configure-windows message t set-buffer-modified-p to mml-buffer-list mbl #4# #3# #2# #1#] 9 (#$ . 11158) "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 (#$ . 12927) "P"]) #@33 Start composing a news message. (defalias 'gnus-summary-post-news #[nil "\301\302\"\207" [gnus-newsgroup-name gnus-post-news post] 3 (#$ . 13369) 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 (#$ . 13529) (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 (#$ . 14158) "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 (#$ . 14410) (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 (#$ . 14650) "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 (#$ . 15414) (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\317\304\320\"\210\317\304\321\"\210\317\322\323\"\210\324\216\325\326!\210*q\210\327 \210\330\316\331\332+D\333\334+D\335 \336BB\337 \340BBFEEC,B,)\341 \210\342\343\326\"\210\344\316!.\207" [to article gnus-article-reply gnus-newsgroup-name message-header-setup-hook mml-buffer-list get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject current-window-configuration buffer-name copy-sequence nil add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook gnus-configure-posting-styles ((byte-code "\306 \n#\210p\307\310!\f\nBL\210\307\311!\fL\210\312\313!\210 \314=\203:  \307\315!L\210\316\317\320\321\211$\210)\202A\320 \210 \306\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group major-mode gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook kill-buffer-hook mml-destroy-buffers t mbl1 mbl] 5)) gnus-summary-select-article t message-supersede lambda 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 mbl #4# #3# #2# #1# gnus-original-article-buffer gnus-summary-buffer message-send-actions] 11 (#$ . 16454) nil]) (defalias 'gnus-copy-article-buffer #[(&optional article-buffer) "\306\307!\212q\210\310\311!\204\"\312\301!\203\" \203\"\313\314!\203\"\314\315!\210)\n\206( \316\211\317\n!\203L\n\211!\205H!;\203D\317\202E\320!!)\204R\321\322!\202\263\212\nq\210\214~\210\323ed#\210q\210\324\325!\210\326\327!\210\326\330!\210\331ed\"\332 \210c\210\"q\210eb\210\333#!\203\213\334y\210\202~`\335\336\316\315#\206\226`q\210eb\335\336\316\315#\206\245d|\210\337\"\f #\210\340 \210*+\207" [gnus-article-copy default-enable-multibyte-characters article-buffer gnus-article-buffer beg end gnus-get-buffer-create " *gnus article copy*" featurep xemacs boundp fboundp set-buffer-multibyte 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 buffer-substring-no-properties erase-buffer looking-at 1 search-forward "\n\n" insert-buffer-substring article-decode-encoded-words buffer 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!3\316!45678\3173\320\321\322\"\210\320\321\323\"\210\320\324\325\"\210\326\2169\206^ 9\31799\211:\204q\3279!:\330:;\"<\317=>\211?\203\212?A\202\256>\211A>@\211?\203\254\331?@9\"\203\212\317>?A=\202\212=-@9A\317\317\317B\317\317C9\203-\3329\333\"\3329\334\"\3329\335\"\3329\336\"CD\205\360\331D9\"B9E\331\337E\"\203E\340\225\317O\202 E)@@\211F\203(@\203(\341\342!\203(\343F@\"\202*F*9\2039\344!\204kC\204kG\204k\344A\206J H\203VH\340H\202XI\"\203\227B\204\227\204\227\204\227J\203}\345\206x9!\210\202\314Kq\210\346 \210\347C\206\214G?\205\222!\210\202\314J\203\300\350\206\244!\210\204\314\204\314\n\203\314\351ADLBL\202\314Kq\210\346 \210\352!\210M\203\326\353M!\210. \354 \210\355M\203\345\356\202\356\203\355\357\202\356\360\361\"\210\362\317!. \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 nil add-hook message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook gnus-configure-posting-styles ((byte-code "\306 \n#\210p\307\310!\f\nBL\210\307\311!\fL\210\312\313!\210 \314=\203:  \307\315!L\210\316\317\320\321\211$\210)\202A\320 \210 \306\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group major-mode gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook kill-buffer-hook mml-destroy-buffers t mbl1 mbl] 5)) gnus-find-method-for-group assoc string-match gnus-group-find-parameter to-address to-group to-list newsgroup "^[^:]+:" 0 featurep mule mm-decode-coding-string 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 mml-buffer-list mbl #4# #3# #2# #1# group method gnus-group-name-charset-method-alist gnus-group-name-charset-group-alist result alist item charset pgroup mailing-list newsgroup-p gnus-mailing-list-groups gname string force-news header gnus-current-article post gnus-article-copy message-send-actions yank] 9]) #@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 (#$ . 22191)]) #@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\232\203\302@!D\207A@\303\302@!\304RD\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 (#$ . 22477)]) #@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 (#$ . 24108) 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\320\304\321\"\210\320\304\322\"\210\320\323\324\"\210\325\216\326 \210\327 q\210\330 \210\214\331 \210db\210)\332`d\"\210\333\317'\"\210\203y\334!\210)\335 \210\336\203\206\337\202\207\340\307\"\210\341\317!.\207" [yank gnus-article-reply to gnus-newsgroup-name message-header-setup-hook mml-buffer-list gnus-summary-goto-subject t current-window-configuration buffer-name get-text-property gnus-intangible gnus-number gnus-summary-last-subject copy-sequence nil add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook gnus-configure-posting-styles ((byte-code "\306 \n#\210p\307\310!\f\nBL\210\307\311!\fL\210\312\313!\210 \314=\203:  \307\315!L\210\316\317\320\321\211$\210)\202A\320 \210 \306\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group major-mode gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook kill-buffer-hook mml-destroy-buffers t mbl1 mbl] 5)) gnus-summary-select-article gnus-copy-article-buffer gnus-msg-treat-broken-reply-to message-narrow-to-head mml-quote-region message-reply gnus-inews-yank-articles gnus-add-buffer gnus-configure-windows reply-yank reply set-buffer-modified-p mbl #4# #3# #2# #1# wide] 9 (#$ . 24730) (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 (#$ . 26531) "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 (#$ . 26789) (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 (#$ . 27115) "P"]) #@436 Forward the current message to another user. If ARG is nil, see `message-forward-as-mime' and `message-forward-show-mml'; if ARG is 1, decode the message and forward directly inline; if ARG is 2, forward message as an rfc822 MIME section; if ARG is 3, decode message and forward as an rfc822 MIME section; if ARG is 4, forward message directly inline; otherwise, use flipped `message-forward-as-mime'. If POST, post instead of mail. (defalias 'gnus-summary-mail-forward #[(&optional arg post) " \n\203?\n\306=\203\307\310\202?\n\311=\203\"\310\307\202?\n\312=\203/\310\310\202?\n\313=\203<\307\307\202??\314 \315p! \205_\316`\317\"\211\203U\320\f!\210)\316`\321\"\206_\322 \323!/\323!01234\307/\324\325\326\"\210\324\325\327\"\210\324\330\331\"\210\332\216\333 \21056\307789\212:q\210\334 7)\335\336\337!!q\210\340 \210 \204\302\341\342!\204\302\343\344!\203\302\344\307!\2107c\210eb\210\345\346!\203\323\347\350!\210 \203\332\351 \210\352;!\210,\353 \210\354\355\310\"\210\356\307!. \207" [message-forward-as-mime message-forward-show-mml arg gnus-article-reply to gnus-newsgroup-name 1 nil t 2 3 4 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 "\306 \n#\210p\307\310!\f\nBL\210\307\311!\fL\210\312\313!\210 \314=\203:  \307\315!L\210\316\317\320\321\211$\210)\202A\320 \210 \306\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group major-mode gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook kill-buffer-hook mml-destroy-buffers t mbl1 mbl] 5)) gnus-summary-select-article buffer-string gnus-get-buffer-create generate-new-buffer-name " *Gnus forward*" erase-buffer featurep xemacs fboundp set-buffer-multibyte looking-at "From " replace-match "X-From-Line: " mime-to-mml message-forward gnus-add-buffer gnus-configure-windows forward set-buffer-modified-p mml-buffer-list mbl #4# #3# #2# #1# gnus-newsgroup-charset gnus-newsgroup-ignored-charsets text mail-parse-ignored-charsets mail-parse-charset gnus-original-article-buffer post] 9 (#$ . 27350) "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 (#$ . 29859) "sResend message(s) to: \nP"]) #@86 Forward the current article to a newsgroup. See `gnus-summary-mail-forward' for ARG. (defalias 'gnus-summary-post-forward #[(&optional arg) "\301\302\"\207" [arg gnus-summary-mail-forward t] 3 (#$ . 30225) "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" (#$ . 30444)) #@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 (#$ . 30645) "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 (#$ . 31099) "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 !\f\315 !\316\317\303\320\"\210\317\303\321\"\210\317\305\322\"\210\323\216\324 \210)\325 \210\326\327\330\"\210\331\316!.\207" [gnus-article-reply to gnus-newsgroup-name message-header-setup-hook mml-buffer-list message-mode-hook current-window-configuration buffer-name get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence nil add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "\306 \n#\210p\307\310!\f\nBL\210\307\311!\fL\210\312\313!\210 \314=\203:  \307\315!L\210\316\317\320\321\211$\210)\202A\320 \210 \306\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group major-mode gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook kill-buffer-hook mml-destroy-buffers t mbl1 mbl] 5)) message-mail gnus-add-buffer gnus-configure-windows message t set-buffer-modified-p mbl #4# #3# #2# #1#] 9 (#$ . 32306) 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 (#$ . 34278) 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 (#$ . 35207) "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 !\f\320 !;<=>?\321\322\303\323\"\210\322\303\324\"\210\322\305\325\"\210\326\216\327 \210@\203f\330\331!\210\332 \210Ac\210eb\210\333\334!\210\335\336BB\337B!\210@\203~\340CBCeb\210\341\342\343D!\344Q!\210\345y\210\346 \347\350 \347\261\210\351\352!\203\247*;\203\247*c\210\353c\210\321E\212\354\355!q\210\356 \210\357 E)\360E\361\261\210)eb\210\362\363\321\364#\210\365\366!\210)\367 \210\370\371\364\"\210\372\321!.\207" [gnus-article-reply to gnus-newsgroup-name message-header-setup-hook mml-buffer-list message-mode-hook 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 nil add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "\306 \n#\210p\307\310!\f\nBL\210\307\311!\fL\210\312\313!\210 \314=\203:  \307\315!L\210\316\317\320\321\211$\210)\202A\320 \210 \306\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group major-mode gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook kill-buffer-hook mml-destroy-buffers t mbl1 mbl] 5)) 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 buffer-string "<#part type=application/x-emacs-lisp disposition=inline description=\"User settings\">\n" "\n<#/part>" search-forward "Subject: " t message "" gnus-add-buffer gnus-configure-windows bug set-buffer-modified-p mbl #4# #3# #2# #1# gnus-bug-create-help-buffer gnus-bug-message gnus-maintainer message-send-actions mail-header-separator text] 9 (#$ . 35660) 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 (#$ . 38053) (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=#:G88792 (byte-code "\300p!\207" [read] 2) ((error)) #2=#:G88793 (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 (#$ . 38586) 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\321\304\322\"\210\321\304\323\"\210\321\324\325\"\210\326\216\327\330!\211)\205\251)\320*\211)\205\250))\331\320+,\332\333),#\203\212)\331\224\331\225\211,O+B+\202n+\237++*\206\226\334+\233\203\244+A+\202\220+@)*-\335 \210.\203\302-\203\302\336-!\203\302\337 \210+\340 \210\341\342\307\"\210\343\320!.\207" [gnus-original-article-buffer gnus-article-reply to gnus-newsgroup-name message-header-setup-hook mml-buffer-list 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 nil add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook gnus-configure-posting-styles ((byte-code "\306 \n#\210p\307\310!\f\nBL\210\307\311!\fL\210\312\313!\210 \314=\203:  \307\315!L\210\316\317\320\321\211$\210)\202A\320 \210 \306\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group major-mode gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook kill-buffer-hook mml-destroy-buffers t mbl1 mbl] 5)) mail-fetch-field "references" 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 mbl #4# #3# #2# #1# references n ids beg parent fetch] 9 (#$ . 40321) "P"]) (defalias 'gnus-inews-group-method #[(group) "\303\304 \"J8\204\n@\305\306!!@=\203\n\207\307\303\304 \"J88\203.\307\303\304 \"J88\207\306!\207" [group gnus-newsrc-hashtb gnus-message-archive-method 2 intern-soft gnus-server-to-method gnus-group-method 4] 5]) (defalias 'gnus-inews-do-gcc #[(&optional gcc) "\306 \205\240\212\214\307 \210\206\310\311\312\313#p\312\211\211\211\205\236\314\311!\210~\210\315\316\317\"! \211A@\211\205\236\320\321\n!\211!\210\322\n\313 #\204L\323\n \"\210\212\324\325!\210\326\f!\210\327 \210\214\307 \210 \330(B()\331 \210+eb\210\332\333\334*!\335Q\312\313#\203\200\336\337\313\211#\210\340\n \313\211$\204\226\341\342\343\n\344 !$\210\345\346!\210\347p!\210)\202-.\207" [gcc method group groups cur message-default-charset gnus-alive-p message-narrow-to-headers mail-fetch-field "gcc" nil t message-remove-header message-unquote-tokens message-tokenize-header " ," gnus-check-server gnus-inews-group-method gnus-request-group gnus-request-create-group nnheader-set-temp-buffer " *acc*" insert-buffer-substring message-encode-message-body ("Newsgroups" . default) 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 2 kill-buffer rfc2047-header-encoding-alist mail-parse-charset 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 (#$ . 43785)]) #@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 \306\232?\205\307 \310\"\311\204'\311\202\313 ;\2031 C\202\313 \2049\311\202\313 <\203H @;\203H \202\313 \2119\203W\312!\206i<\203e@\313=\206i\314!)\203s \n!\202\313 \203\312 @@;\203\215\315 @@\n\"\205\276 @A\202\276 @\2119\203\235\312!\206\257<\203\253@\313=\206\257\314!)\203\272 @\n!\202\276\316 @!\211\204\312 A\211\204w \311\204\331\f\205B;\203\344C\212\214\317 \210db\210\320c\210\f\203\f;\203\374\f\202\375\nc\210\f\321=\204\n\322c\202A\323y\210\324 \202A\211A@\211\203?\315\325\"\203,\2022\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 (#$ . 44220)]) #@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\211789.:;<=>? \203I\310?\311\312#\211@\203H\313>\314@BC\">)>\307=\211A\203A@\211=\211A=@