;ELC   
;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:50:46 2013
;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/gnus/gnus-msg.el
;;; in Emacs version 23.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require gnus gnus-ems message gnus-art gnus-util] 2)
#@564 *Preferred method for posting USENET news.

If this variable is `current' (which is the default), Gnus will use
the "current" select method when posting.  If it is `native', 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 `native' nor `current', 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 '(#$ . -677) :group 'gnus-group-foreign :link '(custom-manual "(gnus)Posting Server") :type (byte-code "\301\302\303\304\305\306FF\207" [gnus-select-method choice (const native) (const current) sexp :tag "Methods"] 7))
#@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).
(custom-declare-variable 'gnus-outgoing-message-group 'nil '(#$ . -1520) :group 'gnus-message :type '(choice (const nil) (function) (string :tag "Group") (repeat :tag "List of groups" (string :tag "Group"))))
#@212 *If non-nil a 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.
(custom-declare-variable 'gnus-mailing-list-groups 'nil '(#$ . -2174) :group 'gnus-message :type '(choice (regexp) (const nil)))
#@55 *If non-nil, add a `to-list' parameter automatically.
(custom-declare-variable 'gnus-add-to-list 'nil '(#$ . -2520) :group 'gnus-message :type 'boolean)
#@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.
(custom-declare-variable '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" '(#$ . 2680) :group 'gnus-message :type 'string)
#@45 Hook run after setting up a message buffer.
(custom-declare-variable 'gnus-message-setup-hook 'nil '(#$ . 3224) :group 'gnus-message :options '(message-remove-blank-cited-lines) :type 'hook)
#@47 *Should we create the *Gnus Help Bug* buffer?
(custom-declare-variable 'gnus-bug-create-help-buffer 't '(#$ . -3421) :group 'gnus-message :type 'boolean)
#@77 *Alist of styles to use when posting.
See Info node `(gnus)Posting Styles'.
(custom-declare-variable 'gnus-posting-styles 'nil '(#$ . -3581) :group 'gnus-message :link '(custom-manual "(gnus)Posting Styles") :type '(repeat (cons (choice (regexp) (variable) (list (const header) (string :tag "Header") (regexp :tag "Regexp")) (function) (sexp)) (repeat (list (choice (const signature) (const signature-file) (const organization) (const address) (const x-face-file) (const name) (const body) (symbol) (string :tag "Header")) (choice (string) (function) (variable) (sexp)))))))
#@54 If non-nil, automatically mark Gcc articles as read.
(custom-declare-variable 'gnus-gcc-mark-as-read 'nil '(#$ . 4162) :version "22.1" :group 'gnus-message :type 'boolean)
(make-obsolete-variable 'gnus-inews-mark-gcc-as-read 'gnus-gcc-mark-as-read "Emacs 22.1")
#@238 Should local-file attachments be included as external parts in Gcc copies?
If it is `all', attach files as external parts;
if a regexp and matches the Gcc group name, attach files as external parts;
if nil, attach files as normal parts.
(custom-declare-variable 'gnus-gcc-externalize-attachments 'nil '(#$ . 4431) :version "22.1" :group 'gnus-message :type '(choice (const nil :tag "None") (const all :tag "Any") (string :tag "Regexp")))
#@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)) '(#$ . 4876) :group 'gnus-group-parameter :group 'gnus-charset :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"))))))
(byte-code "\301\302\236\"\303\300\302\304\305E\"\207" [gnus-group-parameters-more delq posting-charset-alist add-to-list (choice :tag "Permitted unencoded charsets" :value nil (repeat (symbol))) "List of charsets that are permitted to be unencoded."] 5)
#@63 Return the permitted unencoded charsets for posting of GROUP.
(defalias 'gnus-parameter-posting-charset-alist #[(name) "\2052 \305\306\307#\2062 	\310\211\f\211A@\211\2030 \203 \311@\"\203 \310A\202 \n+\207" [name gnus-group-posting-charset-alist value elem alist gnus-group-find-parameter posting-charset-alist t nil string-match] 4 (#$ . 6541)])
#@55 Files whose variables will be reported in `gnus-bug'.
(custom-declare-variable 'gnus-debug-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" "gnus-agent.el" "gnus-cache.el" "gnus-srvr.el" "mm-util.el" "mm-decode.el" "nnmail.el" "message.el") '(#$ . 6911) :version "22.1" :group 'gnus-message :type '(repeat (string :tag "File")))
#@54 Variables that should not be reported in `gnus-bug'.
(custom-declare-variable 'gnus-debug-exclude-variables ''(mm-mime-mule-charset-alist nnmail-split-fancy message-minibuffer-local-map) '(#$ . 7352) :version "22.1" :group 'gnus-message :type '(repeat (symbol :tag "Variable")))
#@126 A list of back ends that are not used in "real" newsgroups.
This variable is used only when `gnus-post-method' is `current'.
(custom-declare-variable 'gnus-discouraged-post-methods ''(nndraft nnml nnimap nnmaildir nnmh nnfolder nndir) '(#$ . 7638) :version "22.1" :group 'gnus-group-foreign :type '(repeat (symbol :tag "Back end")))
#@97 Automatically sign replies to signed messages.
See also the `mml-default-sign-method' variable.
(custom-declare-variable 'gnus-message-replysign 'nil '(#$ . 7977) :group 'gnus-message :type 'boolean)
#@106 Automatically encrypt replies to encrypted messages.
See also the `mml-default-encrypt-method' variable.
(custom-declare-variable 'gnus-message-replyencrypt 'nil '(#$ . 8184) :group 'gnus-message :type 'boolean)
#@73 Setting this causes automatically encrypted messages to also be signed.
(custom-declare-variable 'gnus-message-replysignencrypted 't '(#$ . 8402) :group 'gnus-message :type 'boolean)
#@362 If non-nil, Gnus requests confirmation when replying to news.
This is done because new users often reply by mistake when reading
news.
This can also be a function receiving the group name as the only
parameter, which should return non-nil if a confirmation is needed; or
a regexp, in which case a confirmation is asked for if the group name
matches the regexp.
(custom-declare-variable 'gnus-confirm-mail-reply-to-news '(and gnus-novice-user (not gnus-expert-user)) '(#$ . 8592) :version "23.1" :group 'gnus-message :type '(choice (const :tag "No" nil) (const :tag "Yes" t) (regexp :tag "If group matches regexp") (function :tag "If function evaluates to non-nil")))
#@235 If non-nil, Gnus will treat mail like news with regard to confirmation
when replying by mail.  See the `gnus-confirm-mail-reply-to-news' variable
for fine-tuning this.
If nil, Gnus will never ask for confirmation if replying to mail.
(custom-declare-variable 'gnus-confirm-treat-mail-like-news 'nil '(#$ . 9266) :version "22.1" :group 'gnus-message :type 'boolean)
#@160 If non-nil, Gnus tries to suggest a default address to resend to.
If nil, the address field will always be empty after invoking
`gnus-summary-resend-message'.
(custom-declare-variable 'gnus-summary-resend-default-address 't '(#$ . 9638) :version "22.1" :group 'gnus-message :type 'boolean)
#@67 Enable highlighting of different citation levels in message-mode.
(custom-declare-variable 'gnus-message-highlight-citation 't '(#$ . 9934) :version "23.1" :group 'gnus-cite :group 'gnus-message :type 'boolean)
(autoload 'gnus-message-citation-mode "gnus-cite" nil t)
#@36 Inhibit the use of posting styles.
(defvar gnus-inhibit-posting-styles nil (#$ . 10208))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\307B\302\307!\204- \303\307\304\"\210\310B\302\310!\204< \303\310\304\"\210\311B\302\311!\204K \303\311\304\"\210\312B\302\312!\204Z \303\312\304\"\210\313B\302\313!\204i \303\313\304\"\210\314B\315\316!\210\317\320\321\304\322$\210\323\324\325\"\210\323\326\327\"\207" [current-load-list gnus-article-yanked-articles default-boundp set-default nil gnus-message-buffer "*Mail Gnus*" gnus-article-copy gnus-check-before-posting gnus-last-posting-server gnus-message-group-art gnus-msg-force-broken-reply-to gnus-bug-message (lambda (#1=#:defconst-tmp-var) (defconst gnus-bug-message #1#)) "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 gnus-define-keys-1 (gnus-summary-send-map "S" gnus-summary-mode-map) ("p" gnus-summary-post-news "i" gnus-summary-news-other-window "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 "v" gnus-summary-very-wide-reply "V" gnus-summary-very-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 "Br" gnus-summary-reply-broken-reply-to "BR" gnus-summary-reply-broken-reply-to-with-original "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 "e" gnus-summary-resend-message-edit)] 5)
(defalias 'gnus-inews-make-draft #[(articles) "\302\303\304\305!\306	DEE\207" [gnus-newsgroup-name articles lambda nil gnus-inews-make-draft-meta-information gnus-group-decoded-name quote] 6])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list gnus-article-reply default-boundp set-default nil] 3)
(defalias 'gnus-setup-message '(macro . #[(config &rest forms) "\306\307!\306\310!\306\311!\306\312!\306\313!\314\f\315B\316B\n\317B	\320B\321B\322BBBBB\323\324\325\326\327\330\331\332\333BB\334\335\336DE\334\335\314\337\336DEEFE\340\341\342<!D\343BB\344\345\346\347\350BBDE\351\352\353\354\355	\nEDE\356BBE\357\360=B\361\f\n	\257\362\363\364\352\nEE\363\365E\366BBBBBB\367\370\371-\372BB\373BBBBBBBBBBBBB\207" [group yanked article buffer winconf config make-symbol "gnus-setup-message-winconf" "gnus-setup-message-buffer" "gnus-setup-message-article" "gnus-setup-yanked-articles" "gnus-setup-message-group" let ((current-window-configuration)) ((buffer-name (current-buffer))) (gnus-article-reply) (gnus-article-yanked-articles) (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 (lambda nil (setq message-newsreader (setq message-mailer (gnus-extended-version))))) add-hook 'message-mode-hook if memq ('(reply-yank reply)) lambda nil gnus-configure-posting-styles (gnus-article-copy) gnus-pull quote intern (message-required-headers) when and not string= ("") push cons (intern gnus-draft-meta-information-header) gnus-inews-make-draft or (message-required-headers) unwind-protect progn gnus-inews-add-send-actions (setq gnus-message-buffer (current-buffer)) set (make-local-variable 'gnus-message-group-art) (make-local-variable 'gnus-newsgroup-name) ((when gnus-message-highlight-citation (gnus-message-citation-mode 1)) (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) (gnus-make-local-hook 'kill-buffer-hook) (gnus-make-local-hook 'change-major-mode-hook) (add-hook 'change-major-mode-hook 'mml-destroy-buffers nil t) (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)) (mml-destroy-buffers) (setq mml-buffer-list mbl))) (message-hide-headers) (gnus-add-buffer) gnus-configure-windows (t) ((run-hooks 'post-command-hook) (set-buffer-modified-p nil)) gnus-draft-meta-information-header forms] 18]))
(defalias 'gnus-inews-make-draft-meta-information #[(group articles) "\247\203 C\302	\303\203 \304\305\306\304#P\202 \307\310\260\207" [articles group "(\"" "\"" " " mapconcat #[(elem) "\301:\203 @\202\f !\207" [elem number-to-string] 2] "" ")"] 8])
#@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 #[(&optional to subject other-headers continue switch-action yank-action send-actions) "p\306\307 \310p!\n\f\311! \311!!\"#$%&\306 \312\305\313\"\210\312\305\314\"\210\312\315\316\"\210\312\315\317\"\210\320\321'\236'\"'\"\203d \"\322\230\204d \323(!\324#\206] $!B'B'\325\216\326)*+,\306-.&\210)\327 \210\330 \210\331\332\333\"\210\334\335!\210\336\306!\210./\203\235 p\337	!\210/!\210*\333\207" [mail-buf buf gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name message-header-setup-hook nil current-window-configuration buffer-name copy-sequence add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1=#:gnus-setup-message-group nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210\nB	\310\312!\210\n\203# \313\314!\210\315\316!\210\317=\203X \310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_ \325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) message-mail message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p switch-to-buffer mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header to subject other-headers continue yank-action send-actions switch-action] 9 (#$ . 15794) nil])
#@18 Mail to ADDRESS.
(defalias 'gnus-button-mailto #[(address) "\306 q\210\307 \310p!	\n\311!\f\311! !\"#$\312\313\303\314\"\210\313\303\315\"\210\313\305\316\"\210\313\305\317\"\210\320\321%\236%\"% \203`  \322\230\204` \323&!\324!\206Y \"!B%B%\325\216\326'!\210)\327 \210\330 \210\331\332\333\"\210\334\335!\210\336\312!.\207" [gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name message-header-setup-hook mml-buffer-list message-mode-hook gnus-copy-article-buffer current-window-configuration buffer-name copy-sequence nil add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1=#:gnus-setup-message-group nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210\nB	\310\312!\210\n\203# \313\314!\210\315\316!\210\317=\203X \310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_ \325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) message-reply message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header address] 9 (#$ . 17994)])
#@23 Like `message-reply'.
(defalias 'gnus-button-reply #[(&optional to-address wide) "\306 \307p!	\n\310!\f\310! !\"#\311\312\303\313\"\210\312\303\314\"\210\312\305\315\"\210\312\305\316\"\210\317\320$\236$\"$\203\\ \321\230\204\\ \322%!\323 \206U !!B$B$\324\216\325&'\"\210)\326 \210\327 \210\330\331\332\"\210\333\334!\210\335\311!.\207" [gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name message-header-setup-hook mml-buffer-list message-mode-hook current-window-configuration buffer-name copy-sequence nil add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1=#:gnus-setup-message-group nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210\nB	\310\312!\210\n\203# \313\314!\210\315\316!\210\317=\203X \310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_ \325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) message-reply message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header to-address wide] 9 (#$ . 19867) 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\205G 	@;\203 \304	@\n\"\2042 \305	@!\203& 	@\n!\2042 	@9\203  	@J\203  \306\307	\211A@)	\211AA)@B\"\210\202  \207" [alist elem group x string-match functionp throw found] 5)] 3])
(defalias 'gnus-inews-add-send-actions #[(winconf buffer article &optional config yanked) "\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\324\325D\326\fDE\327\330\331$\210\203C \332\333\"\202Z \"\203Y \"<\203S \"\202Z \"C\202Z \313#\323\324\325D\334#\205~ $\335=\203x \336\337#DD\202~ \340\337#DDEE\341\")\207" [gnus-agent gnus-newsgroup-name message-post-method buffer winconf yanked gnus-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 (&optional arg) gnus-post-method arg message-add-action when gnus-buffer-exists-p set-window-configuration exit postpone kill mapcar #[(x) "<\203 @\207\207" [x] 1] with-current-buffer forward gnus-summary-mark-article-as-forwarded quote gnus-summary-mark-article-as-replied send article to-be-marked config] 8])
(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) "\306p\307\216\f\203# \310\f!\311U\203 \312\313\306\211\314 $\202$ \315 \202$ \316\317 \320p!'\321!(\321!)*+,-.\306(\322\323\324\"\210\322\323\325\"\210\322\326\327\"\210\322\326\330\"\210\331\332/\236/\"/*\203\210 *\316\230\204\210 \3330!\334+\206\201 ,!B/B/\335\216\336 \210)\337 \210\340 \210\341\342\343\"\210\344\345!\210\346\306!.\f\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-article-reply nil ((byte-code "rq\210	)\303\207" [buffer group gnus-newsgroup-name nil] 1)) prefix-numeric-value 1 gnus-group-completing-read "Use posting style of group: " gnus-read-active-file-p gnus-group-group-name "" current-window-configuration buffer-name copy-sequence add-hook message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1=#:gnus-setup-message-group nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210\nB	\310\312!\210\n\203# \313\314!\210\315\316!\210\317=\203X \310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_ \325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) message-mail message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header] 9 (#$ . 23315) "P"])
#@329 Start composing a news.
If ARG, post to group under point.
If ARG is 1, prompt for group name to post to.

This function prepares a news even when using mail groups.  This is useful
for posting messages to mail groups without actually sending them over the
network.  The corresponding back end must have a 'request-post method.
(defalias 'gnus-group-news #[(&optional arg) "\306p\307\216\f\203# \310\f!\311U\203 \312\313\306\211\314 $\202$ \315 \202$ \316\317 \320p!*\321!+\321!,-./01\306+\322\323\324\"\210\322\323\325\"\210\322\326\327\"\210\322\326\330\"\210\331\3322\2362\"2-\203\210 -\316\230\204\210 \3333!\334.\206\201 /!B2B2\335\216\3364\337\3404\"\203\237 4\341\225\306O\202\241 4)!\210)\342 \210\343 \210\344\345\346\"\210\347\350!\210\351\306!.\f\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-article-reply nil ((byte-code "rq\210	)\303\207" [buffer group gnus-newsgroup-name nil] 1)) prefix-numeric-value 1 gnus-group-completing-read "Use group: " gnus-read-active-file-p gnus-group-group-name "" current-window-configuration buffer-name copy-sequence add-hook message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1=#:gnus-setup-message-group nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210\nB	\310\312!\210\n\203# \313\314!\210\315\316!\210\317=\203X \310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_ \325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) message-news string-match "^[^:]+:" 0 message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header gname] 9 (#$ . 25622) "P"])
#@199 Start composing a message (a news by default).
If ARG, post to group under point.  If ARG is 1, prompt for group name.
Depending on the selected group, the message might be either a mail or
a news.
(defalias 'gnus-group-post-news #[(&optional arg) "\203 \303!\304U\203 \305\306\307\211\310 $\202 \311 \202 \312\307\313\314\n\307\211\211\211\n\312\230&*\207" [arg gnus-article-copy gnus-newsgroup-name prefix-numeric-value 1 gnus-group-completing-read "Newsgroup: " nil gnus-read-active-file-p gnus-group-group-name "" gnus-post-news post] 9 (#$ . 28171) "P"])
#@178 Start composing a mail in another window.
Use the posting of the current group by default.
If ARG, don't do that.  If ARG is 1, prompt for group name to find the
posting style.
(defalias 'gnus-summary-mail-other-window #[(&optional arg) "\306p\307\216\f\203\" \310\f!\311U\203 \312\313\306\211\314 $\202# \315\202# \316 \317p!&\320!'\320!()*+,-\306'\321\322\323\"\210\321\322\324\"\210\321\325\326\"\210\321\325\327\"\210\330\331.\236.\".)\203\207 )\315\230\204\207 \332/!\333*\206\200 +!B.B.\334\216\335 \210)\336 \210\337 \210\340\341\342\"\210\343\344!\210\345\306!.\f\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-article-reply nil ((byte-code "rq\210	)\303\207" [buffer group gnus-newsgroup-name nil] 1)) prefix-numeric-value 1 gnus-group-completing-read "Use group: " gnus-read-active-file-p "" current-window-configuration buffer-name copy-sequence add-hook message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1=#:gnus-setup-message-group nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210\nB	\310\312!\210\n\203# \313\314!\210\315\316!\210\317=\203X \310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_ \325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) message-mail message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header] 9 (#$ . 28747) "P"])
#@374 Start composing a news in another window.
Post to the current group by default.
If ARG, don't do that.  If ARG is 1, prompt for group name to post to.

This function prepares a news even when using mail groups.  This is useful
for posting messages to mail groups without actually sending them over the
network.  The corresponding back end must have a 'request-post method.
(defalias 'gnus-summary-news-other-window #[(&optional arg) "\306p\307\216\f\203\" \310\f!\311U\203 \312\313\306\211\314 $\202# \315\202# \316 \317p!-\320!.\320!/01234\306.\321\322\323\"\210\321\322\324\"\210\321\325\326\"\210\321\325\327\"\210\330\3315\2365\"50\203\207 0\315\230\204\207 \3326!\3331\206\200 2!B5B5\334\216\3357\336\3377\"\203\236 7\340\225\306O\202\240 7)!\210\341\342!\210\343\344!@\"\"\")\345 \210\346 \210\347\350\351\"\210\352\353!\210\354\306!.\f\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-article-reply nil ((byte-code "rq\210	)\303\207" [buffer group gnus-newsgroup-name nil] 1)) prefix-numeric-value 1 gnus-group-completing-read "Use group: " gnus-read-active-file-p "" current-window-configuration buffer-name copy-sequence add-hook message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1=#:gnus-setup-message-group nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210\nB	\310\312!\210\n\203# \313\314!\210\315\316!\210\317=\203X \310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_ \325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) message-news string-match "^[^:]+:" 0 make-local-variable gnus-discouraged-post-methods remove gnus-find-method-for-group message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header gname] 9 (#$ . 31053) "P"])
#@219 Start composing a message.  Post to the current group by default.
If ARG, don't do that.  If ARG is 1, prompt for a group name to post to.
Depending on the selected group, the message might be either a mail or
a news.
(defalias 'gnus-summary-post-news #[(&optional arg) "\203 \303!\304U\203 \305\306\307\211\310 $\202 \311\202 	\307\312\313	\"*\207" [arg gnus-newsgroup-name gnus-article-copy prefix-numeric-value 1 gnus-group-completing-read "Newsgroup: " nil gnus-read-active-file-p "" gnus-post-news post] 5 (#$ . 33753) "P"])
#@238 Compose a followup to an article.
If prefix argument YANK is non-nil, the original article is yanked
automatically.
YANK is a list of elements, where the car of each element is the
article number, and the cdr is the string to be yanked.
(defalias 'gnus-summary-followup #[(yank &optional force-news) "\203 \306@<\203 \211@@)\202 @!\210\307\213\210\310\311`\312\"\211\203) \306\n!\210)\311`\313\"\2063 \314 \2368\f\315\316\f\316&\210\317 *\207" [yank x to gnus-newsgroup-data gnus-newsgroup-name headers gnus-summary-goto-subject ((gnus-summary-select-article)) 3 get-text-property gnus-intangible gnus-number gnus-summary-last-subject gnus-post-news nil gnus-summary-handle-replysign gnus-article-buffer force-news] 9 (#$ . 34298) (list (and current-prefix-arg (gnus-summary-work-articles 1)))])
#@171 Compose a followup to an article and include the original article.
The text in the region will be yanked.  If the region isn't
active, the entire article will be yanked.
(defalias 'gnus-summary-followup-with-original #[(n &optional force-news) "\302\303!	\"\207" [n force-news gnus-summary-followup gnus-summary-work-articles] 3 (#$ . 35120) "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 (#$ . 35475) (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 (#$ . 35715) "P"])
(defalias 'gnus-inews-yank-articles #[(articles) "\306\211\211\307 \210\211A@\211\203O 	<\203 	A@	@\310\213\210\311\306\"\210\fr\fq\210\214\312 \210\313 *\314 \210\315 \210\n\206C \316\317!*\203	 \320c\210\202	 \321 \210\nb+\207" [yank-string article beg articles gnus-article-copy 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 nnheader-narrow-to-headers nnheader-parse-naked-head message-yank-original message-exchange-point-and-mark mark t "\n" push-mark message-reply-buffer] 3])
#@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D\313BB	EE\314!\315\211\203k @\316\317\315\211\f$\203` \320 \321\322\" \323\216 \203H \324 !\210\325 !q\210\202M \326!\210\327 ,\203] \330\f!\"\210\331\332!\210\333 \210\334\f!\210A\211\204 +\315\207" [symp gnus-newsgroup-name message-post-method n article #1=#:--cl-dolist-temp-- lambda (arg) gnus-post-method eq quote ('a) gnus-summary-work-articles nil gnus-summary-select-article t selected-window gnus-get-buffer-window visible ((select-window #2=#:GnusStartBufferWindow)) 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 #2# gnus-original-article-buffer #3=#:buf #4=#:w gnus-canceled-mark] 6 (#$ . 36616) (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!\f.\315!/\315!012345\316/\317\320\321\"\210\317\320\322\"\210\317\323\324\"\210\317\323\325\"\210\326\3276\2366\"61\203} 1\330\230\204} \3317!\3322\206v 3!B6B6\333\216\334\335!\2108q\210\336 \210\337\316\340\3419D\3429\343\344BB\345\346BBFEEC:B:\322 \210\321 \210)\347 \210\350 \210\351\352\335\"\210\353\354!\210\355\316!.\n\207" [to gnus-newsgroup-charset mail-parse-charset article gnus-article-reply gnus-article-yanked-articles 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 message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210\nB	\310\312!\210\n\203# \313\314!\210\315\316!\210\317=\203X \310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_ \325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions reply-yank make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) gnus-summary-select-article t message-supersede lambda when gnus-buffer-exists-p with-current-buffer gnus-cache-possibly-remove-article (nil nil nil t) gnus-summary-mark-as-read (gnus-canceled-mark) message-hide-headers gnus-add-buffer gnus-configure-windows reply-yank run-hooks post-command-hook set-buffer-modified-p gnus-newsgroup-name mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header gnus-original-article-buffer gnus-summary-buffer message-send-actions] 11 (#$ . 37692) nil])
(defalias 'gnus-copy-article-buffer #[(&optional article-buffer yank-string) "\306\307!rq\210\310 \210)	\206 \n\311\211\312	!\2032 	\211\205. ;\203+ \312\202, \313!)\2048 \314\315!\202\323 r	q\210#\206C $%\206J &&$\214~\210\316ed#\210q\210'\203j \317 \210`d|\210'c\210\320\321!\210\320\322!\210\323\324!\210\323\325!\210\323\326!\210\327ed\"\330 \210c\210(q\210eb\210\331)!\203\233 \332y\210\202\216 \333*`\317 \206\246 d)q\210\333*eb\317 \206\266 d|\210)\334(\f#\210\335\336\337\"!\"\340+\"\341\342!\210.+\207" [gnus-article-copy article-buffer gnus-article-buffer beg end buffer gnus-get-buffer-create " *gnus article copy*" mm-enable-multibyte nil get-buffer buffer-name error "Can't find any article buffer" copy-to-buffer message-goto-body gnus-article-delete-text-of-type annotation multipart gnus-remove-text-with-property gnus-prev gnus-next gnus-decoration buffer-substring-no-properties erase-buffer looking-at 1 "" insert-buffer-substring delq article-decode-charset copy-sequence t run-hooks gnus-article-decode-hook gnus-article-charset gnus-newsgroup-charset gnus-article-ignored-charsets gnus-newsgroup-ignored-charsets yank-string gnus-original-article-buffer message-unix-mail-delimiter mail-header-separator rfc2047-quote-decoded-words-containing-tspecials] 5])
(defalias 'gnus-post-news #[(post &optional group header article-buffer yank subject force-news) "\203 \306 \210\205\" \307`\310\"\211\203 \311	!\210)\307`\312\"\206\" \313 \n?\314 \315p!?@\316!A\316!BCDEFG\317A\320\321\322\"\210\320\321\323\"\210\320\324\325\"\210\320\324\n\203h \326\202q \203p \327\202q \330\331>\203z \332\202{ \333\"\210\334\335H\236H\"HC\203\246 C\336\230\204\246 \337I!\340D\206\237 E!BHBH\341\216J\206\257 @J\342\317J\"KJL\317\211M%\317\211NO\317PJ\203\343J!M\344J\345\"%\346J!O\344J\347\"PQ\205\365 \350QJ\"N\351JR\350\352R\"\203R\353\225\317O\202R)K\"J%\203!\354%!\204MP\204MS\204M\354L\2063@T\206:U\"\203\220N\204\220O\204\220M\204\220V\203g\355%\206b\356L!?\205bJ!\210\202\305Wq\210\357 \210\360P\204yS\203\211\214\361 \210\362\363!)?\205\213\336\202\213%!\210\202\305V\203\271\364M\206\235O!\210O\204\305M\204\305\f\203\305\365LDXBX\202\305Wq\210\357 \210\366M!\210\n\203\315\367\n!\210.	\370 \210\371 \210\372\n\203\336\326\202\347\203\346\327\202\347\330\373\"\210\374\375!\210\376\317!.\207" [article-buffer to yank gnus-add-to-list add-to-list gnus-article-yanked-articles gnus-copy-article-buffer 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 message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] reply-yank reply message (reply-yank reply) #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-configure-posting-styles] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft ((byte-code "\306	\n\203\f \307\202 \f\203 \310\202 \311%\210p\312\313!\210\nB\312\314!\210\f\2036 \315\316!\210\317\320!\210\321=\203k \312\322!\210\323\324!\210\323\325!\210\326\325\327\330\331$\210\326\324\327\331\211$\210)\202r \327 \210\330\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article yank article-buffer #5=#:gnus-setup-yanked-articles gnus-inews-add-send-actions reply-yank reply message make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-buffer #1# gnus-message-highlight-citation major-mode mbl1 mbl] 6)) gnus-group-name-charset gnus-parameter-to-address gnus-group-find-parameter to-group gnus-parameter-to-list newsgroup string-match gnus-group-name-decode "^[^:]+:" 0 gnus-news-group-p message-news gnus-virtual-group-p gnus-msg-treat-broken-reply-to message-followup article-narrow-to-head message-fetch-field "newsgroups" message-mail gnus-inews-add-to-address message-wide-reply gnus-inews-yank-articles message-hide-headers gnus-add-buffer gnus-configure-windows t run-hooks post-command-hook set-buffer-modified-p gnus-article-reply gnus-newsgroup-name mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header group charset pgroup to-address mailing-list to-list newsgroup-p gnus-mailing-list-groups gname force-news header gnus-current-article post gnus-article-copy message-send-actions] 10])
#@48 Remove the Reply-to header if broken-reply-to.
(defalias 'gnus-msg-treat-broken-reply-to #[(&optional force) "\204 \302	\303\"\205 \214\304 \210\305\306!)\207" [force gnus-newsgroup-name gnus-group-find-parameter broken-reply-to message-narrow-to-head message-remove-header "reply-to"] 3 (#$ . 45082)])
#@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!\206 	\307!\n\204' 	<\203 	@<\204 	\206\245\206\245\f\202\245\203? \310=\204? 	\311=\203; \202\245\n\202\245\204N 	<\203k	@<\203k\312	<\205` 	@<\203^ 	\202` 	C*\313\314+\"\313\315,\"C\nC&-\316\211./\3160-\2036\317-\211A-@00;\203\2250\2111\203\246 1<\203\246 1\206\221\32012\"A\206\2211\321\232\203\273 \206~\3201+\"A\206~\32013\"A\206~,44\203\377 1\322\3234\2115@@)@4\2115@@)A@#\232\204\377 4\211A4@\210\202\323 4\2115@@*\206~*66\20381\322\3236\2115@@)6\2115@A)@#\232\20486\211A6@\210\2026@)\206~7A\316\2118099\203{\3249\211A9@8\2110;\204J10\316:0\325\326\215*\232\203J08\316\2119\204O8+\211;\203\2161;B2B2;))\2020\232\203\240\2020@;\203\263\203\263\3270\"\2020\203\316\204\3160\2115A@)\317\232\203\3160\20200\3300@!<\331\320<=\">\203\332<\333P!0\236\204\3340@=\236>\203\3120\332<\333P!0A@DC\"\2020**0\3350\336\"\204$\3350\337\"\203} 0/\235\204} 0/B/\202} \313\340/\".\320>\203M?\203M?\202\\\341\342.\316\343?\206Y\317\310B%\211?.\"\2115A@-\202\245	\311=\203\217\n@@>\204\217\344\n\345\343#\203\217\203\213\346\347\350C\"\210\n\202\245	<\203\244	@<\203\240\346\347\351C\"\210	\202\245*\207" [group gnus-post-method group-method gnus-select-method message-post-method arg gnus-parameter-post-method gnus-find-method-for-group 0 current append mapcar cdr car nil #1="" assoc "native" format "%s:%s" 4 server-name (byte-code "\206 	\n\204 \306\307\"\210\306\310\fD\"\210\211A@)\311\235\203* \312\313@\"\2026 \312\314@\211A@)#\211B\211\235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1#) format "%s" "%s:%s" x name name-method] 5) gnus-server-extend-method symbol-name address intern "-address" physical-address gnus-method-option-p post post-mail #[(m) "\211A@)\302\232\203 \303@!D\207\211A@)\304\303@!\305RD\207" [m x #1# symbol-name " (" ")"] 5] completing-read "Posting method: " t gnus-get-function request-post signal cl-assertion-failed (not arg) (not (listp (car gnus-post-method))) gnus-secondary-select-methods gnus-server-alist gnus-opened-servers methods method-alist post-methods method server gnus-server-method-cache gnus-predefined-server-alist opened x servers gnus-newsrc-alist match alist nocache result method-name gnus-valid-select-methods silent gnus-last-posting-server gnus-discouraged-post-methods] 9 (#$ . 45394)])
#@81 Stringified Gnus version and Emacs version.
See the variable `gnus-user-agent'.
(defalias 'gnus-extended-version #[nil ";\203 \207\305\306>\205 \307\310\311\n!\312\"\313\n\314\260\315 \211\205) \f\205) \316\fQ+\207" [gnus-user-agent float-output-format gnus-version gnus-v emacs-v nil gnus "Gnus/" prin1-to-string gnus-continuum-version t " (" ")" gnus-emacs-version " "] 5 (#$ . 48405) nil])
#@202 Start composing a mail reply to the current message.
If prefix argument YANK is non-nil, the original article is yanked
automatically.
If WIDE, make a wide reply.
If VERY-WIDE, make a very wide reply.
(defalias 'gnus-summary-reply #[(&optional yank wide very-wide) "\306!\204\n 	\2034 \n;\203 \307\n\"\202# \310\n!\203\" \n!\202# \n\2034 \2044 \f\2044 \311\312!\205{@<\203D \2116@@)\202F @\2117\206e \313`\314\"\2118\203[ \3158!\210)\313`\316\"\206e \317 9:\320;\203v \3157!\210\321 \322p!9:\323!<\323!=>?@AB\324<\325\326\327\"\210\325\326\330\"\210\325\331\332\"\210\325\331\203\266 \333\202\267 \334\335>\203\300 \336\202\301 \337\"\210\340\341C\236C\"C>\203\354 >\320\230\204\354 \342D!\343?\206\345 @!BCBC\344\216\f\204\370 \345 \210\202-\f\3247\211E\203,E@7\345\324\211\2117$\210r\346 q\210\347 \210\214\350 \210;\351 P;*EA\211E\204*\346 q\210\347F!\210\214\350 \210\f\203E\352 \210;c\210db\210)\353`d\"\210\354\324\"\210\203[\355!\210\356 \210)\357 \210\360 \210\361\203n\333\202o\334\362\"\210\363\364!\210\365\324!.\f\207" [gnus-newsgroup-name gnus-confirm-treat-mail-like-news gnus-confirm-mail-reply-to-news wide very-wide yank gnus-news-group-p string-match functionp y-or-n-p "Really reply by mail to article author? " 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 message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] reply-yank reply (reply-yank reply) #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-configure-posting-styles] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft ((byte-code "\306	\n\203\f \307\202 \310\f%\210p\311\312!\210\nB\n\311\313!\210\203- \314\315!\210\316\317!\210\320=\203b \311\321!\210\322\323!\210\322\324!\210\325\324\326\327\330$\210\325\323\326\330\211$\210)\202i \326 \210\327\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article yank #5=#:gnus-setup-yanked-articles gnus-message-buffer gnus-inews-add-send-actions reply-yank reply make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t #1# gnus-message-highlight-citation major-mode mbl1 mbl] 6)) gnus-summary-select-article gnus-copy-article-buffer gnus-msg-treat-broken-reply-to message-narrow-to-head buffer-string erase-buffer mml-quote-region message-reply gnus-inews-yank-articles gnus-summary-handle-replysign message-hide-headers gnus-add-buffer gnus-configure-windows t run-hooks post-command-hook set-buffer-modified-p x article to gnus-article-reply gnus-article-yanked-articles headers mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header #6=#:--cl-dolist-temp-- gnus-msg-force-broken-reply-to] 10 (#$ . 48815) (list (and current-prefix-arg (gnus-summary-work-articles 1)))])
#@68 Check the various replysign variables and take action accordingly.
(defalias 'gnus-summary-handle-replysign #[nil "\204 	\205@ \306\211r\fq\210\303>\302>)	\2032 \n\2032 \307\f\203- \310\202. \311\"\202? \205? \205? \307\312\"*\207" [gnus-message-replysign gnus-message-replyencrypt encrypted signed gnus-article-buffer gnus-article-wash-types nil mml-secure-message signencrypt encrypt sign mml-default-encrypt-method gnus-message-replysignencrypted mml-default-sign-method] 3 (#$ . 52152)])
#@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 (#$ . 52665) "P"])
#@207 Like `gnus-summary-reply' except removing reply-to field.
If prefix argument YANK is non-nil, the original article is yanked
automatically.
If WIDE, make a wide reply.
If VERY-WIDE, make a very wide reply.
(defalias 'gnus-summary-reply-broken-reply-to #[(&optional yank wide very-wide) "\304\305	\n#)\207" [gnus-msg-force-broken-reply-to yank wide very-wide t gnus-summary-reply] 4 (#$ . 52923) (list (and current-prefix-arg (gnus-summary-work-articles 1)))])
#@110 Like `gnus-summary-reply-with-original' except removing reply-to field.
The original article will be yanked.
(defalias 'gnus-summary-reply-broken-reply-to-with-original #[(n &optional wide) "\302\303!	\"\207" [n wide gnus-summary-reply-broken-reply-to gnus-summary-work-articles] 3 (#$ . 53392) "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 (#$ . 53701) (list (and current-prefix-arg (gnus-summary-work-articles 1)))])
#@132 Start composing a wide reply mail to the current message.
The original article will be yanked.
Uses the process/prefix convention.
(defalias 'gnus-summary-wide-reply-with-original #[(n) "\301\302\"\207" [n gnus-summary-reply-with-original t] 3 (#$ . 54028) "P"])
#@146 Start composing a very wide reply mail to the current message.
If prefix argument YANK is non-nil, the original article is yanked
automatically.
(defalias 'gnus-summary-very-wide-reply #[(&optional yank) "\301\302\303!#\207" [yank gnus-summary-reply t gnus-summary-work-articles] 5 (#$ . 54299) (list (and current-prefix-arg (gnus-summary-work-articles 1)))])
#@101 Start composing a very wide reply mail to the current message.
The original article will be yanked.
(defalias 'gnus-summary-very-wide-reply-with-original #[(n) "\301\302!\303\302!#\207" [n gnus-summary-reply gnus-summary-work-articles t] 5 (#$ . 54668) "P"])
#@578 Forward the current message(s) to another user.
If process marks exist, forward all marked messages;
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.
For the `inline' alternatives, also see the variable
`message-forward-ignored-headers'.
(defalias 'gnus-summary-mail-forward #[(&optional arg post) "\306\307!A\203\f \310	\"\207\n\203K \311=\203! \307\312\202K \313=\203. \312\307\202K \314=\203; \312\211\202K \315=\203H \307\211\202K \n?\316`\317\"\211\203X \320\f!\210)\316`\321\"\206b \322 \211C-\323 \324p!-.\325!/\325!012345\307/\326\327\330\"\210\326\327\331\"\210\326\332\333\"\210\326\332\334\"\210\335\3366\2366\"61\203\313 1\337\230\204\313 \3407!\3412\206\304 3!B6B6\342\216\343 \210\3448!\203\342 r8q\2109)\206\344 :;<=>q\210\345	!\210+\346 \210\347 \210\350\351\312\"\210\352\353!\210\354\307!.\f\207" [arg post message-forward-as-mime message-forward-show-mml to gnus-article-reply gnus-summary-work-articles nil gnus-uu-digest-mail-forward 1 t 2 3 4 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject current-window-configuration buffer-name copy-sequence add-hook message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1=#:gnus-setup-message-group nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210\nB	\310\312!\210\n\203# \313\314!\210\315\316!\210\317=\203X \310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_ \325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions forward make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) gnus-summary-select-article gnus-buffer-live-p message-forward message-hide-headers gnus-add-buffer gnus-configure-windows forward run-hooks post-command-hook set-buffer-modified-p gnus-article-yanked-articles gnus-newsgroup-name mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header gnus-article-buffer gnus-article-charset gnus-newsgroup-charset gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset gnus-original-article-buffer] 10 (#$ . 54936) "P"])
#@40 Resend the current article to ADDRESS.
(defalias 'gnus-summary-resend-message #[(address n) "\305!\306\211\203( \n@\307\306\211\211	$\210rq\210\310\f!\210)\311	!\210\nA\211\204\n *\306\207" [n article #1=#:--cl-dolist-temp-- gnus-original-article-buffer address gnus-summary-work-articles nil gnus-summary-select-article message-resend gnus-summary-mark-article-as-forwarded] 6 (#$ . 58086) (list (message-read-from-minibuffer "Resend message(s) to: " (when (and gnus-summary-resend-default-address (gnus-buffer-live-p gnus-original-article-buffer)) (with-current-buffer gnus-original-article-buffer (nnmail-fetch-field "to")))) current-prefix-arg)])
#@204 Resend an article that has already been sent.
A new buffer will be created to allow the user to modify body and
contents of the message, and then, everything will happen as when
composing a new message.
(defalias 'gnus-summary-resend-message-edit #[nil "\306 \307p!\n\f\310!-\310!./0123\311-\312\305\313\"\210\312\305\314\"\210\312\315\316\"\210\312\315\317\"\210\320\3214\2364\"4/\203b /\322\230\204b \3235!\3240\206[ 1!B4B4\325\216\326\327!\2106q\210p\330\331!78\332\333\3347\"!\210\3358!\210\336 \210\337 \210\340\341!\210\3409\327\"\210db\210:c\210\314 \210\313 \210eb\210\342\343\311\344#\203\254 \345u\210~\210+\346 \210\347 \210\350\351\327\"\210\352\353!\210\354\311!.	\207" [gnus-newsgroup-charset mail-parse-charset gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name message-header-setup-hook current-window-configuration buffer-name copy-sequence nil add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210\nB	\310\312!\210\n\203# \313\314!\210\315\316!\210\317=\203X \310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_ \325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions reply-yank make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) gnus-summary-select-article t message-fetch-field "to" message-pop-to-buffer message-buffer-name "Resend" insert-buffer-substring mime-to-mml message-narrow-to-head-1 message-remove-header "Message-ID" re-search-forward "^To:\\|^Newsgroups:" move 1 message-hide-headers gnus-add-buffer gnus-configure-windows reply-yank run-hooks post-command-hook set-buffer-modified-p mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header gnus-original-article-buffer to cur message-ignored-resent-headers mail-header-separator] 9 (#$ . 58750) nil])
#@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 (#$ . 61303) "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" (#$ . 61522))
#@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 (#$ . 61723) "P"])
#@64 Send a complaint about crossposting to the current article(s).
(defalias 'gnus-summary-mail-crosspost-complaint #[(n) "\306!\307\211\203\247 \n@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\203n \316\322!\211#\203Y %\315#\320\"\235\204n #\203f \323\321\324\"\210\202\237 \323\321\325\"\210\202\237 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\237 \342 \210+\nA\211\204\n *\307\207" [n article #1=#:--cl-dolist-temp-- 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] 5 (#$ . 62177) "P"])
(defalias 'gnus-mail-parse-comma-list #[nil "\303\211\304\303w\210m\204_ `\305\303w\210\306\212\214\307`}\210b\210\310\311\312\303\313#\203- \nT\202 \306\n!\2037 \314\2028 \n\314\"+!\203J \315\303w\210\305\303w\210\202 \304\303x\210`{	B\305\303w\210\316\303w\210\202 	*\207" [beg accumulated i nil " " "^," zerop 0 logand search-forward "\"" t 2 "," ", "] 6])
(defalias 'gnus-inews-add-to-address #[(group) "\302\303!\211\205 \304 \205 \305\306\307\"!\205 \310	\311B\")\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\320 \203: \202< !\210)db\210\321\322\"\203R \323\324\261\210\202X \325\326\261\210~\210*\327 \210\330 !\203\215 \242\211!\205{ !;\203w \330\202x \331!!)\203\215 A\203\215 @q\210\332A!\210\f\205\224 \333\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-generate-headers message-news-p string-match " " "Gcc: \"" "\"\n" "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 (#$ . 64055) 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 gnus-msg-mail gnus-inews-yank-articles] 6 (#$ . 65050) "P"])
#@44 Send a bug report to the Gnus maintainers.
(defalias 'gnus-bug #[nil "\306 \204	 \307\310!\210\311 \312p!	\n\313!\f\313!@ABCDE\314\315\303\316\"\210\315\303\317\"\210\315\305\320\"\210\315\305\321 \203B \322\202C \323\324>\203L \325\202M \326\"\210\327\330F\236F\"FA\203x A\331\230\204x \332G!\333B\206q C!BFBF\334\216\321 \204\231 \335 \210H\203\225 \336\337!\210\340 \210Ic\210eb\210\341\342!\210\343J\344\345KB\346B!\210)H\203\261 \347LBLeb\210\350\351\352M!\353Q!\210\354y\210\355 \356\357 \356\261\210\360\361!\203\332 1;\203\332 1c\210\362c\210\314Nr\363\364!q\210\340 \210\365 \210\366 N)\367N\370\261\210)eb\210\371\372\314\343#\210\322\331!\210)\373 \210\374 \210\375\321 \203\322\202\323\343\"\210\376\377!\210\201O \314!.\207" [gnus-article-reply gnus-article-yanked-articles 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 copy-sequence nil add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] message-mail-user-agent message bug (reply-yank reply) #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-configure-posting-styles] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From #2="" intern gnus-inews-make-draft ((byte-code "\306	\n\307 \203 \310\202 \311%\210p\312\313!\210\nB\312\314!\210\f\203, \315\316!\210\317\320!\210\321=\203a \312\322!\210\323\324!\210\323\325!\210\326\325\327\330\331$\210\326\324\327\331\211$\210)\202h \327 \210\330\207" [#3=#:gnus-setup-message-winconf #4=#:gnus-setup-message-buffer #5=#:gnus-setup-message-article #6=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions message-mail-user-agent message bug make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) delete-other-windows switch-to-buffer "*Gnus Help Bug*" erase-buffer message-pop-to-buffer "*Gnus Bug*" t message-setup To ((Subject . #2#)) (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/emacs-lisp disposition=inline description=\"User settings\">\n" "\n<#/part>" search-forward "Subject: " message-hide-headers gnus-add-buffer gnus-configure-windows run-hooks post-command-hook mbl #1# #6# #5# #4# #3# message-required-headers gnus-draft-meta-information-header gnus-bug-create-help-buffer gnus-bug-message message-this-is-mail gnus-maintainer message-send-actions mail-header-separator text set-buffer-modified-p] 9 (#$ . 65434) 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) "\305!	\205% \306	@!\210\307\310 \210)rq\210\311\f!\210)	\211A@\210\202 )\207" [n #1=#:gnus-summary-iterate-articles gnus-inhibit-treatment buffer gnus-article-buffer gnus-summary-work-articles gnus-summary-goto-subject t gnus-summary-select-article message-yank-buffer] 2 (#$ . 68618) (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\211\211\211*\307\310\311\"\210\312\313!\210r\314\315!q\210*\203h \316 \210\317*\211A*@!\211\203 \320\f!\203 \321\f!\210eb\210\322\323\306\324#\204P \307\310\325\f#\210\202 e`}\210eb\210\306\326\327\217\211\203 \306\330\331\217\210\202W \332p!\210)\n\237\211\203w \333c\210\n\203\232 \334\n@!\203\212 \306\335\336\217\210\202\223 \337\340\n@!\341\261\210\nA\211\204{ \342c\210b\210\322\343\344!\306\324#\205\272 \345\346\347\350\351\313!!\"\324\211#\210\202\240 .\207" [gnus-debug-files sym olist expr file point 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" (byte-code "\300p!\207" [read] 2) ((error)) (byte-code "@\303=\204 @\304=\2038 \3058;\2038 A@	>\2048 \306A@!\2032 \307\3108!A@J\232\2048 A@\nB\303\207" [expr gnus-debug-exclude-variables olist defvar defcustom 3 boundp 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) @JE!\207" [olist sym gnus-pp setq nil t quote] 5) ((error)) ";; (makeunbound '" symbol-name ")\n" "\n\n" mm-string-to-multibyte "[ --\200-\237]" replace-match format "\\%03o" string-to-char match-string files] 7 (#$ . 69113) nil])
#@259 Re-mail the current message.
This only makes sense if the current message is a bounce message that
contains some mail you have written which has been bounced back to
you.
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!\210\310\211\n\203\237 pq\210\311 \210\312\313\310\307#\203\242 \310f\314>\203) \315y\210\202 \316\310x\210\317\225`{\310\211\205\232 \320G!?\205\232 \f\203\212 \317\321\206M \322!\31001\323\3241#\203n \317\224\317\225\2111O0B0\202T 0\237,0\f0\233\203\203 0A0\202t 0@)\202\232 \321!\323\325\"\205\231 \326\315\")*\202\242 q\210\327 \330p!234\331!5\331!6789:;\3105\332\333\334\"\210\332\333\335\"\210\332\336\337\"\210\332\336\340\"\210\341\342<\236<\"<7\2037\322\230\204\343=!\3448\206 9!B<B<\345\216\346 \210\335 \210\334 \210\203\"r	q\210\347!\210\350 \210))\351 \210\352 \210\353\354\307\"\210\355\356!\210\357\310!.\n\207" [parent summary-buffer fetch gnus-original-article-buffer n references gnus-summary-select-article t nil article-goto-body re-search-forward "^References:\n?" (9 32) 1 "	\n " 0 zerop mail-header-remove-comments "" string-match "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" match-string current-window-configuration buffer-name copy-sequence add-hook message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1=#:gnus-setup-message-group nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210\nB	\310\312!\210\n\203# \313\314!\210\315\316!\210\317=\203X \310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_ \325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions compose-bounce make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) message-bounce gnus-summary-refer-article gnus-summary-show-all-headers message-hide-headers gnus-add-buffer gnus-configure-windows compose-bounce run-hooks post-command-hook set-buffer-modified-p ids beg gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header] 10 (#$ . 70737) "P"])
(defalias 'gnus-inews-group-method #[(group) "\306\307	\"J8\204\364\n\211\203 <\203 \206\371 \310\f\"A\206\371 \311\232\203+ \206\351 \310\"A\206\351 \310\"A\206\351 \203l \312\313\211@@)@\211@@)A@#\232\204l \211A@\210\202A \211@@*\206\351 \203\244 \312\313\211@@)\211@A)@#\232\204\244 \211A@\210\202{ @)\206\351 A\314\211\203\346 \315\211A@8\211;\204\266 \314\316\317\215*\232\203\266 \314\211\204\273 +\211\203\366 B\fB))@\320!\211\203\f<\203\f\206\354\310\f\"A\206\354\311\232\203\206\334\310\"A\206\334\310\"A\206\334\203_\312\313\211@@)@\211@@)A@#\232\204_\211A@\210\2024\211@@*\206\334\203\227\312\313\211@@)\211@A)@#\232\204\227\211A@\210\202n@)\206\334A\314\211\203\331\315\211A@8\211;\204\251\314\316\321\215*\232\203\251\314\211\204\256+\211\203\351B\fB))@=\203\364\n\207\315\306\307	\"J88\203\n\315\306\307	\"J88\207\320!\211\203<\203\206\373\310\f\"A\206\373\311\232\203-\206\353\310\"A\206\353\310\"A\206\353\203n\312\313\211@@)@\211@@)A@#\232\204n\211A@\210\202C\211@@*\206\353\203\246\312\313\211@@)\211@A)@#\232\204\246\211A@\210\202}@)\206\353A\314\211\203\350\315\211A@8\211;\204\270\314\316\322\215*\232\203\270\314\211\204\275+\211\203\370B\fB))\207" [group gnus-newsrc-hashtb gnus-message-archive-method server gnus-server-method-cache gnus-select-method 2 intern-soft assoc "native" format "%s:%s" nil 4 server-name (byte-code "\206 	\n\204 \306\307\"\210\306\310\fD\"\210\211A@)\311\235\203* \312\313@\"\2026 \312\314@\211A@)#\211B\211\235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1=(name-method) "A	\232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#2=(server-alist) "\301\302\"\207" [server-alist mapc #[#3=(name-method) "\303A	\"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4=(nil "") format #5="%s" #6="%s:%s" x name name-method] 5) gnus-group-method (byte-code "\206 	\n\204 \306\307\"\210\306\310\fD\"\210\211A@)\311\235\203* \312\313@\"\2026 \312\314@\211A@)#\211B\211\235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# x name name-method] 5) (byte-code "\206 	\n\204 \306\307\"\210\306\310\fD\"\210\211A@)\311\235\203* \312\313@\"\2026 \312\314@\211A@)#\211B\211\235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#1# "A	\232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#2# "\301\302\"\207" [server-alist mapc #[#3# "\303A	\"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #4# format #5# #6# x name name-method] 5) gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result] 7])
(defalias 'gnus-inews-do-gcc #[(&optional gcc) "\212\214\306 \210\206 \307\310\311\312#p\311\211\211\211\211=\211\205t\313\310!\210~\210\314\315\316\"!\211A@\211\205t\317\f!\320\f\321\f\"\"\322!\204X \323\324;\203T \202V @\"\210\325\f\311#\204e \326\f\"\210>;\203s \327>\f\"\202u >\212\330\331!\210\332=!\210\333 \210\214\306 \210?@\214\334 \210\335\336!)A\214\334 \210\335\337!)B\321A\206\247 \340\"C\321B\206\262 \340\"D\341C\205\300 \336CBCD\205\312 \337DBCE#E\342 \210.eb\210\343\344\345F!\346Q\311\312#\203\353 \347\340\312\211#\210\350\fG\311\351\352\217*\203\353\f\312\211$\211\204\f\354\355\356\f\357!$\210;\203\f\211H\203#H<\203#H\206\n\360HI\"A\206\nH\361\232\2039J\206\367\360HK\"A\206\367\360HL\"A\206\367MNN\203}H\362\363N\211O@@)@N\211O@@)A@#\232\204}N\211AN@\210\202QN\211O@@*\206\367PQQ\203\266H\362\363Q\211O@@)Q\211O@A)@#\232\204\266Q\211AQ@\210\202\214Q@)\206\367RA\311\211STT\203\364\364T\211AT@8\211;\204\307H\311U\365\366\215*\232\203\307S\311\211T\204\314S+\211V\203HVBIBIV))<\203M\211JW\211XW\232\206EXGWGU\205EX\203BX@W\235\203BXA\211X\2040X?+\203M\367\f!\n\203l\370 \203lY\204f\371\372!\203l\372J\203l\373\f\nA\"\210\374p!\210)\202- .	\207" [gcc mml-externalize-attachments group-art method group groups message-narrow-to-headers mail-fetch-field "gcc" nil t message-remove-header message-unquote-tokens message-tokenize-header " ," gnus-inews-group-method mm-encode-coding-string gnus-group-name-charset gnus-check-server error "Can't open server %s" gnus-request-group gnus-request-create-group string-match nnheader-set-temp-buffer " *acc*" insert-buffer-substring message-encode-message-body message-narrow-to-headers-or-head message-fetch-field "Newsgroups" "Followup-To" #1="" append mail-encode-encoded-word-buffer re-search-forward "^" regexp-quote "$" replace-match request-accept-article (byte-code ";\203\f \303!@\202 \304	!\204 \305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-request-accept-article gnus-message 1 "Couldn't store article in group %s: %s" gnus-status-message assoc "native" format "%s:%s" 4 server-name (byte-code "\206 	\n\204 \306\307\"\210\306\310\fD\"\210\211A@)\311\235\203* \312\313@\"\2026 \312\314@\211A@)#\211B\211\235\204H B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1#) format "%s" "%s:%s" x name name-method] 5) gnus-group-short-name gnus-alive-p boundp gnus-inews-mark-gcc-as-read gnus-group-mark-article-read kill-buffer cur gnus-gcc-externalize-attachments message-default-charset mail-parse-charset newsgroups-field followup-field group-field-charset followup-field-charset rfc2047-header-encoding-alist mail-header-separator func server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist nocache result s2 s1 gnus-gcc-mark-as-read] 8 nil nil])
#@60 Insert Gcc headers based on `gnus-outgoing-message-group'.
(defalias 'gnus-inews-insert-gcc #[nil "\212\214\303 \210\304	!\203 	 \202 	;\204 	<\205 	\211\205B \305\n;\203: \306\307\n\"\2036 \310\n\310Q\202? \n\202? \311\312\n\307#\313\261,\207" [gnus-outgoing-message-group group gcc message-narrow-to-headers functionp "Gcc: " string-match " " "\"" mapconcat #[(group) "\301\302\"\203\f \303\303Q\207\207" [group string-match " " "\""] 3] "\n"] 6 (#$ . 80852)])
#@60 Insert the Gcc to say where the article is to be archived.
(defalias 'gnus-inews-insert-archive-gcc #[(&optional group) "\203\n \306!\202 	\203 \306	!\202 \307\n	\205' 	\307\232?\205' \310	\311\"\312\2043 \312\202\245 ;\203= C\202\245 \204E \312\202\245 <\203T @;\203T \202\245 \313!\203` !\202\245 \203\244 \211@@);\203\206 \314\211@@)\"\205\230 \211@A)\202\230 \313@!\203\224 @!\202\230 \315@!\211\204\244 A\211\204d \312\204\263 \f\205Y;\203\276 C\212\214\316 \210db\210\317c\210\f\203\f;\203\344 \314\320\f\"\203\340 \321\f\321Q\202\375 \f\202\375 \310	\322\"\206\354 \314\320\"\203\373 \321\321Q\202\374 )c\210\f\323=\204\n\324c\202X\325 \326y\210`|\202X\211A@\211\203V\314\327\"\203.\2024\330\"\314\320\"\203F\321\321Q\202Hc\210)\203\320c\210\202\324c*-\207" [group gnus-newsgroup-name gnus-message-archive-group var gcc-self-val result gnus-group-decoded-name "" gnus-group-find-parameter gcc-self nil functionp string-match eval message-narrow-to-headers "Gcc: " " " "\"" parent-group none "\n" point-at-bol 1 ":" gnus-group-prefixed-name gnus-message-archive-method x groups name str] 4 (#$ . 81332)])
#@82 Look at the headers in the current buffer and return a Mail-Followup-To address.
(defalias 'gnus-mailing-list-followup-to #[nil "\302\303!\302\304!\203 \305\306\"\203 \307\310\"\206 	*\207" [list-post x-been-there gnus-fetch-original-field "x-beenthere" "list-post" string-match "mailto:\\([^>]+\\)" match-string 1] 3 (#$ . 82544)])
#@62 Configure posting styles according to `gnus-posting-styles'.
(defalias 'gnus-configure-posting-styles #[(&optional group-name) "?\205/	\206 \n\206 \306\307\211\211\211\211\211\211\211\211\211&@AB:CDEFG\n\203K \310G\311\312#\211H\203J \313F\314HBC\"F)F\307E\211I\203#I@\211E\211AE@Deb\210D;\203u \315DG\"\202D\316=\203\252 \317J!\203rJq\210\214\320 \210\321E\211AE@!\211\205\246 \315E\211AE@\"+\202D9\204\267 \322D!\203\321 \322D!\203\304 D \202\323D!\203DJ\202D<\203D@\316=\203\317J!\203rJq\210\214\320 \210\321DA@!\211\205\315\324D8\"+\202\325D!\203E\307C\211K\203K@\211C\211AC@\307@C@\326=\203>\312@C\211LA@)\202TC@\327=\203QC\211LA@)\202TC@\211:;\203`:\202\221:9\204m\322:!\203\207\322:!\203z: \202\221\323:!\205\221:J\202\221:<\205\221\325:!B\f\330=\203\241\331\312@\202\254\f\332=\203\254\333\312@\f\331=\203\313@\203\313M\203\313\334B!\204\313\335MB\"B@\203\374B\203\374\336\337!NrNq\210\340\216\341B!\210edb\210\342\343\307x!\203\366`\202\370`T{+B\344\345\fA\"A\"A\fBBABAKA\211K\204*IA\211I\204V *\346A\236&\305A\236\344&\344A\"\"A\347\350!\210\351A\352\"\211A\307O\211P\203\355P@O\353\350O@\325=\203b\354\202\340O@\355=\203x\356\307\357\360\361OADEE\202\340O@\331=\203\252\362\363!\210\3073\362\364!\210\3074OA\204\230\354\202\340\356\307\357\365\363OADC\366BBDE\202\340O@9\203\273\367\370O@!!\202\276O@\356\307\357\371D\365\372OADC\373\372\374\361\375BB\376BBBBEEE)\307\377$\210PA\211P\204O*&\204\367\205-\353\350\356\307\201R \201S A\206QE\365\201T &A\206\201T  D\201Q A\206\"QDD\201U BBF\307\377$.\f\207" [gnus-inhibit-posting-styles group-name gnus-newsgroup-name gnus-posting-styles element address "" nil gnus-group-find-parameter posting-style t append ".*" string-match header gnus-buffer-live-p nnheader-narrow-to-headers message-fetch-field functionp boundp 2 eval :file :value signature-file signature x-face-file x-face file-name-directory nnheader-concat generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents zerop "\n" delq assoc name gnus-make-local-hook message-setup-hook sort #[(x y) "@	@\231\207" [x y] 2] add-hook ignore body lambda save-excursion (message-goto-body) insert make-local-variable message-signature message-signature-file let ((when message-signature (message-insert-signature))) capitalize symbol-name message-remove-header value when (message-goto-eoh) (": " value) ((unless (bolp) (insert "\n"))) local filep results v attribute match style styles group tmp-style #2=#:--cl-dolist-temp-- gnus-article-copy #3=#:--cl-dolist-temp-- x message-signature-directory #1# result #4=#:--cl-dolist-temp-- user-mail-address set (make-local-variable 'user-mail-address) user-full-name ((save-excursion (message-remove-header "From") (message-goto-eoh) (insert "From: " (message-make-from) "\n")))] 16 (#$ . 82893)])
(byte-code "\300 \210\301\302!\207" [gnus-ems-redefine provide gnus-msg] 2)