;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\307\310\311\312\313DD\314\315\316\317\320\321\322\323\324\325\326\327FF&	\210\307\330\311\312\331DD\332\315\333\321\334&\210\335\330\336\337#\210\307\340\311\312\341DD\342\315\333\321\343&\210\307\344\311\312\345DD\346\315\333\321\347&\210\307\350\311\312\351DD\352\315\333\321\353&\210\307\354\311\312\355DD\356\315\333\357\360\321\361&	\210\307\362\311\312\363DD\364\315\333\317\365\321\366&	\210\307\367\311\312\370DD\371\372\373\315\333\321\347&	\210\307\374\311\312\375DD\376\372\373\315\333\321\377&	\210\307\201@\311\312\201ADD\201B\372\201C\315\333\321\201D&	\210\307\201E\311\312\201FDD\201G\315\201H\315\201I\321\201J&	\210\201K\201L	\236	\"\201M\301\201L\201N\201OE\"\207" [gnus-select-method gnus-group-parameters-more require gnus message gnus-art gnus-util custom-declare-variable gnus-post-method funcall function #[0 "\300\207" [current] 1 #1=""] "Preferred method for posting Usenet news.\n\nIf this variable is `current' (which is the default), Gnus will use\nthe \"current\" select method when posting.  If it is `native', Gnus\nwill use the native select method when posting.\n\nThis method will not be used in mail groups and the like, only in\n\"real\" newsgroups.\n\nIf not `native' nor `current', the value must be a valid method as discussed\nin the documentation of `gnus-select-method'.  It can also be a list of\nmethods.  If that is the case, the user will be queried for what select\nmethod to use when posting." :group gnus-group-foreign :link (custom-manual "(gnus)Posting Server") :type choice (const native) (const current) sexp :tag "Methods" gnus-outgoing-message-group #[0 "\300\207" [nil] 1 #1#] "All outgoing messages will be put in this group.\nIf you want to store all your outgoing mail and articles in the group\n\"nnml:archive\", you set this variable to that value.  This variable\ncan also be a list of group names.\n\nIf you want to have greater control over what group to put each\nmessage in, you can set this variable to a function that checks the\ncurrent newsgroup name and then returns a suitable group name (or list\nof names)." gnus-message (choice (const nil) (function) (string :tag "Group") (repeat :tag "List of groups" (string :tag "Group"))) make-obsolete-variable gnus-message-archive-group "24.1" gnus-mailing-list-groups #[0 "\300\207" [nil] 1 #1#] "If non-nil a regexp matching groups that are really mailing lists.\nThis is useful when you're reading a mailing list that has been\ngatewayed to a newsgroup, and you want to followup to an article in\nthe group." (choice (regexp) (const nil)) gnus-add-to-list #[0 "\300\207" [nil] 1 #1#] "If non-nil, add a `to-list' parameter automatically." boolean gnus-crosspost-complaint #[0 "\300\207" ["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"] 1 #1#] "Format string to be inserted when complaining about crossposts.\nThe first %s will be replaced by the Newsgroups header;\nthe second with the current group name." string gnus-message-setup-hook #[0 "\300\207" [nil] 1 #1#] "Hook run after setting up a message buffer." :options (message-remove-blank-cited-lines) hook gnus-posting-styles #[0 "\300\207" [nil] 1 #1#] "Alist of styles to use when posting.\nSee Info node `(gnus)Posting Styles'." (custom-manual "(gnus)Posting Styles") (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)))))) gnus-gcc-mark-as-read #[0 "\300\207" [nil] 1 #1#] "If non-nil, automatically mark Gcc articles as read." :version "22.1" gnus-gcc-externalize-attachments #[0 "\300\207" [nil] 1 #1#] "Should local-file attachments be included as external parts in Gcc copies?\nIf it is `all', attach files as external parts;\nif a regexp and matches the Gcc group name, attach files as external parts;\nif nil, attach files as normal parts." (choice (const :tag "None" nil) (const :tag "Any" all) regexp) gnus-gcc-self-resent-messages #[0 "\300\207" [no-gcc-self] 1 #1#] "Like `gcc-self' group parameter, only for unmodified resent messages.\nApplied to messages sent by `gnus-summary-resend-message'.  Non-nil\nvalue of this variable takes precedence over any existing Gcc header.\n\nIf this is `none', no Gcc copy will be made.  If this is t, messages\nresent will be Gcc'd to the current group.  If this is a string, it\nspecifies a group to which resent messages will be Gcc'd.  If this is\nnil, Gcc will be done according to existing Gcc header(s), if any.\nIf this is `no-gcc-self', resent messages will be Gcc'd to groups that\nexisting Gcc header specifies, except for the current group." "24.3" (choice (const none) (const t) string (const nil) (const no-gcc-self)) gnus-group-posting-charset-alist #[0 "\300\207" [(("^\\(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))] 1 #1#] "Alist of regexps and permitted unencoded charsets for posting.\nEach element of the alist has the form (TEST HEADER BODY-LIST), where\nTEST is either a regular expression matching the newsgroup header or a\nvariable to query,\nHEADER is the charset which may be left unencoded in the header (nil\nmeans encode all charsets),\nBODY-LIST is a list of charsets which may be encoded using 8bit\ncontent-transfer encoding in the body, or one of the special values\nnil (always encode using quoted-printable) or t (always use 8bit).\n\nNote that any value other than nil for HEADER infringes some RFCs, so\nuse this option with care." gnus-group-parameter gnus-charset (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"))))) 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."] 16)
#@74 Return the permitted unencoded charsets for posting of GROUP.

(fn NAME)
(defalias 'gnus-parameter-posting-charset-alist #[257 "\211\2053\301
\302\303#\2063\304\211\211A\262\242\211\262\2031\203\305@\"\203\304\262
A\262
\202\266\202\207" [gnus-group-posting-charset-alist gnus-group-find-parameter posting-charset-alist t nil string-match] 7 (#$ . 6809)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\314\301\315\316#\210\300\317\302\303\320DD\321\306\307\310\311\312\322&	\210\314\317\315\316#\210\300\323\302\303\324DD\325\306\307\310\326\312\327&	\210\300\330\302\303\331DD\332\310\311\312\333&\210\300\334\302\303\335DD\336\306\316\310\311\312\333&	\210\300\337\302\303\340DD\341\310\311\312\333&\210\300\342\302\303\343DD\344\306\345\310\311\312\346&	\210\300\347\302\303\350DD\351\306\307\310\311\312\333&	\210\300\352\302\303\353DD\354\306\307\310\311\312\333&	\210\300\355\302\303\356DD\357\306\345\310\360\310\311\312\333&\210\300\361\302\303\362DD\363\310\311\306\364\312\365&	\210\300\366\302\303\367DD\370\310\311\306\364\312\365&	\210\371\372\373\374\375$\207" [custom-declare-variable gnus-debug-files funcall function #[0 "\300\207" [("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")] 1 #1=""] "Files whose variables will be reported in `gnus-bug'." :version "22.1" :group gnus-message :type (repeat file) make-obsolete-variable "it is no longer used." "24.1" gnus-debug-exclude-variables #[0 "\300\207" [(mm-mime-mule-charset-alist nnmail-split-fancy message-minibuffer-local-map)] 1 #1#] "Variables that should not be reported in `gnus-bug'." (repeat variable) gnus-discouraged-post-methods #[0 "\300\207" [(nndraft nnml nnimap nnmaildir nnmh nnfolder nndir)] 1 #1#] "A list of back ends that are not used in \"real\" newsgroups.\nThis variable is used only when `gnus-post-method' is `current'." gnus-group-foreign (repeat (symbol :tag "Back end")) gnus-message-replysign #[0 "\300\207" [nil] 1 #1#] "Automatically sign replies to signed messages.\nSee also the `mml-default-sign-method' variable." boolean gnus-message-replyencrypt #[0 "\300\207" [t] 1 #1#] "Automatically encrypt replies to encrypted messages.\nSee also the `mml-default-encrypt-method' variable." gnus-message-replysignencrypted #[0 "\300\207" [t] 1 #1#] "Setting this causes automatically encrypted messages to also be signed." gnus-confirm-mail-reply-to-news #[0 "\205	?\207" [gnus-novice-user gnus-expert-user] 1 #1#] "If non-nil, Gnus requests confirmation when replying to news.\nThis is done because new users often reply by mistake when reading\nnews.\nThis can also be a function receiving the group name as the only\nparameter, which should return non-nil if a confirmation is needed; or\na regexp, in which case a confirmation is asked for if the group name\nmatches the regexp." "23.1" (choice (const :tag "No" nil) (const :tag "Yes" t) (regexp :tag "If group matches regexp") (function :tag "If function evaluates to non-nil")) gnus-confirm-treat-mail-like-news #[0 "\300\207" [nil] 1 #1#] "If non-nil, Gnus will treat mail like news with regard to confirmation\nwhen replying by mail.  See the `gnus-confirm-mail-reply-to-news' variable\nfor fine-tuning this.\nIf nil, Gnus will never ask for confirmation if replying to mail." gnus-summary-resend-default-address #[0 "\300\207" [t] 1 #1#] "If non-nil, Gnus tries to suggest a default address to resend to.\nIf nil, the address field will always be empty after invoking\n`gnus-summary-resend-message'." gnus-message-highlight-citation #[0 "\300\207" [t] 1 #1#] "Enable highlighting of different citation levels in `message-mode'." gnus-cite gnus-gcc-pre-body-encode-hook #[0 "\300\207" [nil] 1 #1#] "A hook called before encoding the body of the Gcc copy of a message.\nThe current buffer (when the hook is run) contains the message\nincluding the message header.  Changes made to the message will\nonly affect the Gcc copy, but not the original message." "24.3" hook gnus-gcc-post-body-encode-hook #[0 "\300\207" [nil] 1 #1#] "A hook called after encoding the body of the Gcc copy of a message.\nThe current buffer (when the hook is run) contains the message\nincluding the message header.  Changes made to the message will\nonly affect the Gcc copy, but not the original message." autoload gnus-message-citation-mode "gnus-cite" nil t] 12)
#@36 Inhibit the use of posting styles.
(defvar gnus-inhibit-posting-styles nil (#$ . 11353))
(defvar gnus-article-yanked-articles nil)
(defvar gnus-message-buffer "*Mail Gnus*")
(defvar gnus-article-copy nil)
(defvar gnus-last-posting-server nil)
(defvar gnus-message-group-art nil)
(defvar gnus-msg-force-broken-reply-to nil)
(byte-code "\300\301\302\303\304$\210\305\306\307\"\210\305\310\311\"\207" [autoload gnus-uu-post-news "gnus-uu" nil 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 "L" gnus-summary-reply-to-list-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 "A" gnus-summary-attach-article "\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)
#@17 

(fn ARTICLES)
(defalias 'gnus-inews-make-draft #[257 "\301\302#\207" [gnus-newsgroup-name make-closure #[0 "\302\301\300\"\207" [V0 V1 gnus-inews-make-draft-meta-information] 3]] 6 (#$ . 12951)])
(byte-code "\300\301\302\303\211\304%\210\300\305\302\303\211\304%\210\300\306\302\"\207" [autoload nnselect-article-number "nnselect" nil macro nnselect-article-group gnus-nnselect-group-p] 6)
(defvar gnus-article-reply nil)
#@27 

(fn CONFIG &rest FORMS)
(defalias 'gnus-setup-message '(macro . #[385 "\301\302!\301\303!\301\304!\301\305!\301\306!\301\307!\301\310!\311\312B\313B\314B\315B\316B\317B\320B\321BBBBBBB\322\323\324\325\326\327DEE\330\323\331\332\333\334BB\325\326\335\fDE\325\326\311\336\335DEEFE\337\340\341!D\342BB\343\344	\345\346\f\347BBDE\350\351\352\353\354EDE\355BBE\356\357B\360\257\361\362\363\351EE\364BBBBB\365\366\367\370BB\371BBBBBBBBBBBB\207" [gnus-draft-meta-information-header make-symbol "gnus-setup-message-winconf" "gnus-setup-message-winconf-name" "gnus-setup-message-buffer" "gnus-setup-message-article" "gnus-setup-message-oarticle" "gnus-setup-yanked-articles" "gnus-setup-message-group" let ((current-window-configuration)) (gnus-current-window-configuration) ((buffer-name (current-buffer))) ((when gnus-article-reply (or (nnselect-article-number (or (car-safe gnus-article-reply) gnus-article-reply)) gnus-article-reply))) (gnus-article-reply) (gnus-article-yanked-articles) ((if gnus-article-reply (or (nnselect-article-group (or (car-safe gnus-article-reply) gnus-article-reply)) gnus-newsgroup-name) 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 lambda nil gnus-inews-insert-gcc (add-hook 'message-mode-hook (lambda nil (setq message-newsreader (setq message-mailer (gnus-extended-version))))) 'message-mode-hook if memq ('(reply-yank reply)) gnus-configure-posting-styles (gnus-article-copy) gnus-alist-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)) setq-local gnus-message-group-art ((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) (setq-local mml-buffer-list mbl1) (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))] 26 (#$ . 13384)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-setup-message lisp-indent-function 1 put edebug-form-spec t] 5)
#@23 

(fn GROUP ARTICLES)
(defalias 'gnus-inews-make-draft-meta-information #[514 "\211\247\203	\211C\262
\300\301\203\302\303\304\302#P\202\305\306\260\207" ["(\"" "\"" " " mapconcat #[257 "\300
:\203
@\202\f
!\207" [number-to-string] 3 "\n\n(fn ELEM)"] "" ")"] 10 (#$ . 16039)])
#@317 Start editing a mail message to be sent.
Like `message-mail', but with Gnus paraphernalia, particularly the
Gcc: header for archiving purposes.
If Gnus isn't running, a plain `message-mail' setup is used
instead.

(fn &optional TO SUBJECT OTHER-HEADERS CONTINUE SWITCH-ACTION YANK-ACTION SEND-ACTIONS RETURN-ACTION)
(defalias 'gnus-msg-mail #[2048 "\306 \204\307\310!\210\311&\207p\312\313\314 	\315p!\n\205E\n\242\2061\n\316V\205?\n\242\206=\nS\234\317\234\206E\n\n\f\n\203h\n\242\206Q\n\316V\205_\n\242\206]\nS\234\316\234\206i\202i\320
!$\320!
\312$\321\305\322\323\"\"\210\321\324\325\"\210\321\324\322\326\"\"\210\327\330%\236%\"%\203\266\313\230\204\266\331&!\332\206\257!B%B%\322\333\n\n\n\n\n\n\n	&	\216\311\312&\210)\334 \210\335 \210\336\307\337\"\210\340\341!\210\342\312!\210*\266	)\203
p\262
\343!\210
!\210\266\337\207" [gnus-newsgroup-name gnus-current-window-configuration gnus-article-reply gnus-newsgroup-selection gnus-article-yanked-articles message-header-setup-hook gnus-alive-p message "Gnus not running; using plain Message mode" message-mail nil "" current-window-configuration buffer-name 0 1 copy-sequence add-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] message-hide-headers gnus-add-buffer gnus-configure-windows t run-hooks post-command-hook set-buffer-modified-p switch-to-buffer mml-buffer-list message-required-headers gnus-draft-meta-information-header] 29 (#$ . 16336) nil])
#@32 Mail to ADDRESS.

(fn ADDRESS)
(defalias 'gnus-button-mailto #[257 "\306 q\210\307 \310p!	\205(	\242\206	\311V\205\"\n	\242\206 	S\234\312\234\206(			\203K	\242\2064	\311V\205B\n	\242\206@	S\234\311\234\206L\f\202L\f\313
!\"\313!
\314\"\315\305\316\317\"\"\210\315\320\321\"\210\315\320\316\322\"\"\210\323\324#\236#\"#\203\231\325\230\204\231\326$!\327\206\222!B#B#\316\330\n\n\n\n\n\n\n	&	\216\331\n!\210)\332 \210\333 \210\334\335\336\"\210\337\340!\210\341\314!*\207" [gnus-current-window-configuration gnus-article-reply gnus-newsgroup-selection gnus-article-yanked-articles gnus-newsgroup-name message-header-setup-hook gnus-copy-article-buffer current-window-configuration buffer-name 0 1 copy-sequence nil add-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] message-reply message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p mml-buffer-list message-required-headers gnus-draft-meta-information-header] 20 (#$ . 18659)])
#@55 Like `message-reply'.

(fn &optional TO-ADDRESS WIDE)
(defalias 'gnus-button-reply #[512 "\306 \307p!	\205$	\242\206	\310V\205\n	\242\206	S\234\311\234\206$			\203G	\242\2060	\310V\205>\n	\242\206<	S\234\310\234\206H\f\202H\f\312
!!\312!
\313!\314\305\315\316\"\"\210\314\317\320\"\210\314\317\315\321\"\"\210\322\323\"\236\"\"\"\203\225\324\230\204\225\325#!\326\206\216!B\"B\"\315\327\n\n\n\n\n\n\n	&	\216\330\"\210)\331 \210\332 \210\333\334\335\"\210\336\337!\210\340\313!*\207" [gnus-current-window-configuration gnus-article-reply gnus-newsgroup-selection gnus-article-yanked-articles gnus-newsgroup-name message-header-setup-hook current-window-configuration buffer-name 0 1 copy-sequence nil add-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] message-reply message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p mml-buffer-list message-required-headers gnus-draft-meta-information-header] 21 (#$ . 20527) nil])
(define-mail-user-agent 'gnus-user-agent 'gnus-msg-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook)
#@14 

(fn GROUP)
(defalias 'gnus-setup-posting-charset #[257 "
\206\301\302
\205S\3032S\211A\262\242\211\262\205R\211@;\203)\304
@\"\204C\305
@!\2037\211@!\204C\211@9\203\211@J\203\306\303A@AA@B\"\210\2020\207" [gnus-group-posting-charset-alist "" nil found string-match functionp throw] 8 (#$ . 22510)])
#@68 

(fn WINCONF BUFFER ARTICLE &optional CONFIG YANKED WINCONF-NAME)
(defalias 'gnus-inews-add-send-actions #[1539 "\303\304\203\n\305\202\306\307\310$\210\203\303\311\312\307\310$\210	\313\314\"\262
\315\316\317\320\321DE\322\323	D\324DEE\325\326\327$\210
\203E\330\331\"\202X\203W<\203R\202XC\202X\307\315\322\323D\332	\205{\333=\203u\334\321DD\202{\335\321DDEE\336\"\207" [gnus-agent gnus-newsgroup-name message-post-method add-hook message-sent-hook gnus-agent-possibly-do-gcc gnus-inews-do-gcc nil t message-header-hook gnus-agent-possibly-save-gcc make-closure #[256 "\301
\300\"\207" [V0 gnus-post-method] 4 "\n\n(fn &optional ARG)"] message-add-action progn setq gnus-current-window-configuration quote when gnus-buffer-live-p set-window-configuration exit postpone kill mapcar #[257 "\211<\203\211@\207\207" [] 2 "\n\n(fn X)"] with-current-buffer forward gnus-summary-mark-article-as-forwarded gnus-summary-mark-article-as-replied send] 15 (#$ . 22840)])
#@172 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.

(fn &optional ARG)
(defalias 'gnus-group-mail #[256 "\306\211\203\307
!\310U\203\311\312\306\313 #\202\314 \202\315\316 \n\317p!\205B\242\206.\320V\205<\f\242\206:S\234\310\234\206B
\203e\242\206N\320V\205\\\f\242\206ZS\234\320\234\206f	\202f	\321!'\321!
\306'\322\323\324\325\"\"\210\322\326\327\"\210\322\326\324\330\"\"\210\331\332(\236(\"(\203\265\315\230\204\265\333)!\334\206\256!B(B(\324\335\n\n\n\n\n\n\n	&	\216\336 \210)\337 \210\340 \210\341\342\343\"\210\344\345!\210\346\306!*\266\211*\207" [gnus-article-copy gnus-newsgroup-name gnus-current-window-configuration gnus-article-reply gnus-newsgroup-selection gnus-article-yanked-articles nil 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 0 copy-sequence add-hook message-header-setup-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] message-mail message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p mml-buffer-list message-required-headers gnus-draft-meta-information-header] 20 (#$ . 23848) "P"])
#@350 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.

(fn &optional ARG)
(defalias 'gnus-group-news #[256 "\306\211\203\307
!\310U\203\311\312\306\313 #\202\314 \202\315\316 \n\317p!\205B\242\206.\320V\205<\f\242\206:S\234\310\234\206B
\203e\242\206N\320V\205\\\f\242\206ZS\234\320\234\206f	\202f	\321!)\321!
\306)\322\323\324\325\"\"\210\322\326\327\"\210\322\326\324\330\"\"\210\331\332*\236*\"*\203\265\315\230\204\265\333+!\334\206\256!B*B*\324\335\n\n\n\n\n\n\n	&	\216\336	\337\340\"\203\333\211\320\225\306O\202\334\211\262
!\210)\341 \210\342 \210\343\344\345\"\210\346\347!\210\350\306!*\266\211*\207" [gnus-article-copy gnus-newsgroup-name gnus-current-window-configuration gnus-article-reply gnus-newsgroup-selection gnus-article-yanked-articles nil prefix-numeric-value 1 gnus-group-completing-read "Use group" gnus-read-active-file-p gnus-group-group-name "" current-window-configuration buffer-name 0 copy-sequence add-hook message-header-setup-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] message-news string-match "^[^:]+:" message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p mml-buffer-list message-required-headers gnus-draft-meta-information-header] 20 (#$ . 26040) "P"])
#@219 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.

(fn &optional ARG)
(defalias 'gnus-group-post-news #[256 "\211\203\302
!\303U\203\304\305\306\307 #\202\310 \206\311\202\311\306\312\313	\306\211\211\211	\311\230&*\207" [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] 10 (#$ . 28472) ["P" (gnus-group-mode)]])
#@198 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.

(fn &optional ARG)
(defalias 'gnus-summary-mail-other-window #[256 "\306\211\203\307
!\310U\203\311\312\306\313 #\202\314\202	\315 \n\316p!\205A\242\206-\317V\205;\f\242\2069S\234\310\234\206A
\203d\242\206M\317V\205[\f\242\206YS\234\317\234\206e	\202e	\320!&\320!
\306&\321\322\323\324\"\"\210\321\325\326\"\210\321\325\323\327\"\"\210\330\331'\236'\"'\203\264\314\230\204\264\332(!\333\206\255!B'B'\323\334\n\n\n\n\n\n\n	&	\216\335 \210)\336 \210\337 \210\340\341\342\"\210\343\344!\210\345\306!*\266\211*\207" [gnus-article-copy gnus-newsgroup-name gnus-current-window-configuration gnus-article-reply gnus-newsgroup-selection gnus-article-yanked-articles nil prefix-numeric-value 1 gnus-group-completing-read "Use group" gnus-read-active-file-p "" current-window-configuration buffer-name 0 copy-sequence add-hook message-header-setup-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] message-mail message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p mml-buffer-list message-required-headers gnus-draft-meta-information-header] 20 (#$ . 29078) ["P" (gnus-summary-mode)]])
#@395 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.

(fn &optional ARG)
(defalias 'gnus-summary-news-other-window #[256 "\306\211\203\307
!\310U\203\311\312\306\313 #\202\314\202	\315 \n\316p!\205A\242\206-\317V\205;\f\242\2069S\234\310\234\206A
\203d\242\206M\317V\205[\f\242\206YS\234\317\234\206e	\202e	\320!,\320!
\306,\321\322\323\324\"\"\210\321\325\326\"\210\321\325\323\327\"\"\210\330\331-\236-\"-\203\264\314\230\204\264\332.!\333\206\255!B-B-\323\334\n\n\n\n\n\n\n	&	\216\335	\336\337\"\203\332\211\317\225\306O\202\333\211\262
!\210\340\341!\210\342\343	!@!\"!)\344 \210\345 \210\346\347\350\"\210\351\352!\210\353\306!*\266\211*\207" [gnus-article-copy gnus-newsgroup-name gnus-current-window-configuration gnus-article-reply gnus-newsgroup-selection gnus-article-yanked-articles nil prefix-numeric-value 1 gnus-group-completing-read "Use group" gnus-read-active-file-p "" current-window-configuration buffer-name 0 copy-sequence add-hook message-header-setup-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions message make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] message-news string-match "^[^:]+:" 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 mml-buffer-list message-required-headers gnus-draft-meta-information-header] 20 (#$ . 31289) ["P" (gnus-summary-mode)]])
#@239 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.

(fn &optional ARG)
(defalias 'gnus-summary-post-news #[256 "\211\203\302
!\303U\203\304\305\306\307 #\202\310\202\306\311\312\"*\207" [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 (#$ . 33890) ["P" (gnus-summary-mode)]])
#@270 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.

(fn YANK &optional FORCE-NEWS)
(defalias 'gnus-summary-followup #[513 "
\203\303@<\203@@\202@!\210\304 \305\306\"\216\307 \210)\210\310\311`\312\"\211\205-\303
!\266\311`\313\"\2068\314 \"\315
8\262
	\316\317	\n\317&\210\320 )\207" [gnus-newsgroup-data gnus-newsgroup-name gnus-article-buffer gnus-summary-goto-subject current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnus-summary-select-article gnus-data-find-in get-text-property gnus-intangible gnus-number gnus-summary-last-subject 3 gnus-post-news nil gnus-summary-handle-replysign] 11 (#$ . 34458) [(byte-code "\205\301\302!C\207" [current-prefix-arg gnus-summary-work-articles 1] 2) (gnus-summary-mode)]])
#@200 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.

(fn N &optional FORCE-NEWS)
(defalias 'gnus-summary-followup-with-original #[513 "\300\301!\"\207" [gnus-summary-followup gnus-summary-work-articles] 5 (#$ . 35436) ["P" (gnus-summary-mode)]])
#@68 Followup to the current mail message via news.

(fn &optional ARG)
(defalias 'gnus-summary-followup-to-mail #[256 "\300
\301\"\207" [gnus-summary-followup t] 4 (#$ . 35808) [(byte-code "\205\301\302!C\207" [current-prefix-arg gnus-summary-work-articles 1] 2) (gnus-summary-mode)]])
#@68 Followup to the current mail message via news.

(fn &optional ARG)
(defalias 'gnus-summary-followup-to-mail-with-original #[256 "\300\301!\302\"\207" [gnus-summary-followup gnus-summary-work-articles t] 4 (#$ . 36099) ["P" (gnus-summary-mode)]])
#@17 

(fn ARTICLES)
(defalias 'gnus-inews-yank-articles #[257 "\304\211\211\305 \210\211A\262\242\211\262\203f
<\203 
A@\262

@\262\306 \307\310\"\216q\210\311\304\211\211$\210\312!\210)\210\313\304\"\210	r	q\210\214\314 \210\315\316!*\317 \210\320 \210\206Y\321\316!\262*\203\322c\210\202\323 \210b\207" [gnus-summary-buffer gnus-article-copy message-reply-headers message-reply-buffer nil message-goto-body current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnus-summary-select-article gnus-summary-remove-process-mark gnus-copy-article-buffer nnheader-narrow-to-headers nnheader-parse-head t message-yank-original message-exchange-point-and-mark mark "\n" push-mark] 10 (#$ . 36352)])
#@212 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.

(fn &optional N SYMP)
(defalias 'gnus-summary-cancel-article #[512 "\305\306#\262
	
\307!\211\205\202\211@\310\311\312\211$\203w\313 \305\314\"\216\212\315\312!\210\316\317!\211\2036\320
!@\262\210\321p!\210*\210\322 \323
\324\"\305\325\"\216\211\203Y\326
!\210\327
!q\210\202]\330!\210\206b	\331 *\266\203\203t\332
\f\"\210\333\334!\210\335 \210\336
!\210
A\266\202\202\262
)\207" [gnus-newsgroup-name user-mail-address message-post-method gnus-original-article-buffer gnus-canceled-mark make-closure #[257 "\302\300\303=\301\"\207" [V0 V1 gnus-post-method a] 4 "\n\n(fn ARG)"] gnus-summary-work-articles gnus-summary-select-article t nil current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnus-summary-followup message-fetch-field "from" mail-header-parse-address kill-buffer selected-window gnus-get-buffer-window visible #[0 "\301\300!\207" [V0 select-window] 2] 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] 12 (#$ . 37110) [(gnus-interactive "P\ny") (gnus-summary-mode)]])
#@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 #[0 "\306`\307\"\211\205\310
!\266\306`\311\"\206\312 \313 \n\314p!\205<\242\206(\315V\2056\f\242\2064S\234\316\234\206<
\203`\242\206H\315V\205V\f\242\206TS\234\315\234\206b*\202b*\317!+\317!
\320+\321\322\323\324\"\"\210\321\325\326\"\210\321\325\323\327\"\"\210\330\331,\236,\",\203\261\332\230\204\261\333-!\334\206\252!B,B,\323\335\n\n\n\n\n\n\n	&	\216\336\337!\210.q\210\340 \210/\323\341\f#\262
0B0\342 \210)\343 \210\344 \210\345\346\337\"\210\347\350!\210\351\320!*\266\211)\207" [gnus-newsgroup-charset mail-parse-charset gnus-current-window-configuration gnus-article-reply gnus-newsgroup-selection gnus-article-yanked-articles get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject current-window-configuration buffer-name 0 1 copy-sequence nil add-hook message-header-setup-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\301\300!\207" [V0 gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions reply-yank make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] gnus-summary-select-article t message-supersede #[0 "\301\211\205\303\304!\211\262!\205\211\262
\205'r\301q\210\305\300\306\211\211\307%\210\310\300\n\")\207" [V0 V1 gnus-canceled-mark buffer-live-p get-buffer gnus-cache-possibly-remove-article nil t gnus-summary-mark-as-read] 6] gnus-inews-insert-gcc 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 message-required-headers gnus-draft-meta-information-header gnus-original-article-buffer gnus-summary-buffer message-send-actions] 20 (#$ . 38478) [nil (gnus-summary-mode)]])
#@45 

(fn &optional ARTICLE-BUFFER YANK-STRING)
(defalias 'gnus-copy-article-buffer #[512 "\306\307!rq\210\310 \210)
\206	\311\211\211\205$\312\313!\211\262!\205$\211\262
\204-\314\315!\207rq\210\n\2066\316\f\206<
#\214~\210\317ed#\210q\210\203Z\320 \210`d|\210c\210\321\322!\210\321\323!\210\324\325!\210\324\326!\210\324\327!\210\330ed\"\331 \210c\210$q\210eb\210\332%!\203\213\333y\210\202~\334&`\262
\320 \206\227d\262)q\210\334&eb\320 \206\250d|\210)\335$#\210\336\337\340\"!\"\316'\"\341\342!\210.\207" [gnus-article-copy gnus-article-buffer gnus-article-charset gnus-newsgroup-charset gnus-article-ignored-charsets gnus-newsgroup-ignored-charsets gnus-get-buffer-create " *gnus article copy*" mm-enable-multibyte nil buffer-live-p get-buffer error "Can't find any article buffer" t 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 run-hooks gnus-article-decode-hook inhibit-read-only gnus-original-article-buffer message-unix-mail-delimiter mail-header-separator rfc2047-quote-decoded-words-containing-tspecials] 9 (#$ . 41080)])
#@75 

(fn POST &optional GROUP HEADER ARTICLE-BUFFER YANK SUBJECT FORCE-NEWS)
(defalias 'gnus-post-news #[1793 "\203\306 \210\205!\307`\310\"\211\205\311
!\266\307`\312\"\206!\313 
\314 \315p!\n\205K\n\242\2067\n\316V\205E\f\n\242\206C\nS\234\317\234\206K\n\n	\n\203n\n\242\206W\n\316V\205e\f\n\242\206c\nS\234\316\234\206o
\202o
\320!@\320!
\321@\322\323\324\325\"\"\210\322\326\327\"\210\322\326\203\232\330\202\244\203\243\331\202\244\332\333>\203\261\324\334\"\202\266\324\335\"\"\210\336\337A\236A\"A\203\336\340\230\204\336\341B!\342\206\327!BABA\324\343\f\f\f\f\f\f\f&\216\206\375
\344\321\"
\321\211\211\211\211\203L
\345!\262\346\347\"\262\350!\262\346\351\"\262
C\2051
\352C	\"\262\353\352\354\n\"\203E
\316\225\321O\202G
\"\262\203V
\355!\204}
\211\204}
\204}
\355\206f

\206m
D\"\203\275
\204\275

\204\275
\204\275
\203\226
\356\206\221
\357!?\205\221
!\210\202\356
Eq\210\360 \210\361
\204\247
\203\267
\214\362 \210\363\364!)?\205\270
\340\202\270
!\210\202\356
\203\343
\365\206\310
!\210
\204\356
\204\356
\203\356
\366DFBF\202\356
Eq\210\360 \210\367!\210\203\370
\370!\210\266)\371 \210\372 \210\373\203\330\202\203\331\202\332\374\"\210\375\376!\210\377\321!*\266\211*\207" [gnus-add-to-list gnus-article-yanked-articles gnus-article-reply gnus-current-window-configuration gnus-newsgroup-selection gnus-newsgroup-name gnus-copy-article-buffer get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject current-window-configuration buffer-name 0 1 copy-sequence nil add-hook message-header-setup-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] reply-yank reply message (reply-yank reply) #[0 "\301\300!\207" [V0 gnus-configure-posting-styles] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[0 "\312\302\304\306\301\203\f\313\202\300\203\314\202\315\307\303&\210p\316\317!\210\310\305B\203/\320\321!\210\322\323!\210\324=\203T\311\316\325!\210\211\326\327\330\331\332$\210\326\333\330\332\211$\207\330 \210\311\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 V9 gnus-inews-add-send-actions reply-yank reply message make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] 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 "^[^:]+:" 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 mml-buffer-list message-required-headers gnus-draft-meta-information-header gnus-mailing-list-groups gnus-current-article gnus-article-copy message-send-actions] 31 (#$ . 42390)])
#@70 Remove the Reply-To header if broken-reply-to.

(fn &optional FORCE)
(defalias 'gnus-msg-treat-broken-reply-to #[256 "\211\204\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"] 4 (#$ . 45836)])
#@118 Return the posting method based on GROUP and ARG.
If SILENT, don't prompt the user.

(fn ARG GROUP &optional SILENT)
(defalias 'gnus-post-method #[770 "\306!\206\307!
\211\204'<\203@<\204\206\257	\206\257\n\202\257\203?\310=\204?\311=\203;	\202\257\211\202\257\204N<\203y@<\203y\312<\205`@<\203^\202`C\313\314\f\"\313\315
\"	CC&\316\211\211\203F\317\211A\262\242\211;\203\274
\211\211\203\221\211<\203\221\211\206\267
\320
.\"A\206\267
\211\321\232\203\244	\206\240
\320
\f\"A\206\240
\320
/\"A\206\240

\211\203\322
\322\323@@@@@A@#\232\204\322\211A\262
\202\266\211@@\262
\206\240
\211\203\365
\322\323@@@A@#\232\204\365\211A\262
\202\333\211@\262
\206\240
0A\316\211\203\236
\211A\262\242\324
8\262
\262
;\204

\316\325C\3262\217
\211
\242\206(
	\240\210\2047
\327\330\331\".\"\210\f/D\211\203P
\211@\327\330\332\"\"\210
A\266\202\202;
\210\211\242A@\333\235\203c
\322\334\242@\"\202m
\322\323\242@\242A@#\211\242B\204\213
\211.\235\204\213
\320
@.\"\204\213
\211.B.
\266\2020\266\204\232\203


\262
\316\262\202

\266\202\211\203\264
\320.\"\204\264


B.B.\211\262
\266\203\202(\211	\232\203\310
	\266\202\202(
\203\333
\211@;\203\333
\335\"\266\202\202(\211\203\360

\204\360
\211A@\317\232\203\360
\262
\202(\211\336
@!\337\3201\">\203%\340
\341P!\236\204%\342@1\236>\203%\312\340\341P!A@DC\"\266\204\202(
\266\204\262
\343
\344\"\2048\343
\345\"\203s\211\235\204s\211B\262\202s\313\346\"\262\320\203\\2\203\\2\202m\347\350\313\315\"\3252\206j\317\310B$\2112\"A@\266\204\202\257\311=\203\233\211@3>\204\233\351
\352\325#\203\233\203\227\353\354!\210\211\202\257<\203\256@<\203\252\353\355!\210\202\257	)\207" [gnus-post-method gnus-select-method message-post-method gnus-secondary-select-methods gnus-server-alist gnus-opened-servers gnus-parameter-post-method gnus-find-method-for-group 0 current append mapcar cdr car nil #1="" assoc "native" format "%s:%s" 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil #1#) "%s" gnus-server-extend-method symbol-name address intern "-address" physical-address gnus-method-option-p post post-mail #[257 "\211A@\300\232\203\301
@!
D\207\211A@\302\301@!\303R
D\207" [#1# symbol-name " (" ")"] 5 "\n\n(fn M)"] gnus-completing-read "Posting method" gnus-get-function request-post cl--assertion-failed (not arg) (not (listp (car gnus-post-method))) gnus-server-method-cache gnus-predefined-server-alist gnus-newsrc-alist gnus-valid-select-methods gnus-last-posting-server gnus-discouraged-post-methods] 26 (#$ . 46154)])
#@81 Stringified Gnus version and Emacs version.
See the variable `gnus-user-agent'.
(defalias 'gnus-extended-version #[0 ";\203\207\303\304>\205\305\306\307\310\311\312\313\n!\"#\314\n\315\260\316 
\211\205+
\205+\317Q)\207" [gnus-user-agent float-output-format gnus-version nil gnus "Gnus/" replace-regexp-in-string "0+\\'" "" format "%1.8f" gnus-continuum-version " (" ")" gnus-emacs-version " "] 8 (#$ . 49020)])
#@238 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.

(fn &optional YANK WIDE VERY-WIDE)
(defalias 'gnus-summary-reply #[768 "\306!\204\n	\2034\n;\203\307\n\"\202#\310\n!\203\"\n!\202#\n\2034
\2044\211\2044\311\312!\205\274
@<\203@@@\202B@\211\206\\\313`\314\"\211\205Q\315
!\266\313`\316\"\206\\\317 \320\203h\315!\210\321 
\322p!\205\215\242\206x\323V\205\2078\242\206\205S\234\324\234\206\215\f\203\261\242\206\231\323V\205\2508\242\206\246S\234\323\234\206\262\202\262\325!9\325!
\3269\327\330\331\332\"\"\210\327\333\334\"\210\327\333\203\335\335\202\336\336\337>\203\353\331\340\"\202\360\331\341\"\"\210\342\343:\236:\":\203
\320\230\204
\344;!\345\206
!B:B:\331\346\n&\n\216\204:
\347 \210\202e
\211\203d
\211@\347\326\211\211$\210r\350 q\210\351 \210\214\352 \210\353 P\262\f*
A\266\202\202<
\210\350 q\210\351<!\210\214\352 \210\203~
\354 \210	c\210db\210)\355`d\"\210\356\326\"\210
\203\227
\357!\210\360 \210)\361 \210\362 \210\363\203\253
\335\202\254
\336\364\"\210\365\366!\210\367\326!*\266\211*\266\202\207" [gnus-newsgroup-name gnus-confirm-treat-mail-like-news gnus-confirm-mail-reply-to-news gnus-article-reply gnus-article-yanked-articles gnus-current-window-configuration 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 0 1 copy-sequence nil add-hook message-header-setup-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] reply-yank reply (reply-yank reply) #[0 "\301\300!\207" [V0 gnus-configure-posting-styles] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[0 "\311\301\303\305\300\203\f\312\202
\313\306\302&\210p\314\315!\210\307\304B
\203'\316\317!\210\320\321!\210\322=\203L\310\314\323!\210\211\324\325\326\327\330$\210\324\331\326\330\211$\207\326 \210\310\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 gnus-inews-add-send-actions reply-yank reply make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] 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 gnus-newsgroup-selection mml-buffer-list message-required-headers gnus-draft-meta-information-header gnus-msg-force-broken-reply-to] 25 (#$ . 49451) [(byte-code "\205\301\302!C\207" [current-prefix-arg gnus-summary-work-articles 1] 2) (gnus-summary-mode)]])
#@68 Check the various replysign variables and take action accordingly.
(defalias 'gnus-summary-handle-replysign #[0 "\204	\205=\306\211r\nq\210\307>\262\310>\262
)	\203.\211\203.\311\f
\203+\312\202,\313\"\207\205;
\205;\311
\314\"\266\202\207" [gnus-message-replysign gnus-message-replyencrypt gnus-article-buffer gnus-article-wash-types mml-default-encrypt-method gnus-message-replysignencrypted nil signed encrypted mml-secure-message signencrypt encrypt sign mml-default-sign-method] 5 (#$ . 52796)])
#@114 Start composing a reply mail to the current message.
The original article will be yanked.

(fn N &optional WIDE)
(defalias 'gnus-summary-reply-with-original #[513 "\300\301!\"\207" [gnus-summary-reply gnus-summary-work-articles] 5 (#$ . 53319) ["P" (gnus-summary-mode)]])
#@155 Start composing a reply mail to the current message.
The reply goes only to the mailing list.
The original article will be yanked.

(fn N &optional WIDE)
(defalias 'gnus-summary-reply-to-list-with-original #[513 "\301\302\303!\")\207" [message-reply-to-function #[0 "\300\301 BC\207" [To gnus-mailing-list-followup-to] 2] gnus-summary-reply gnus-summary-work-articles] 5 (#$ . 53600) ["P" (gnus-summary-mode)]])
#@243 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.

(fn &optional YANK WIDE VERY-WIDE)
(defalias 'gnus-summary-reply-broken-reply-to #[768 "\301\302#)\207" [gnus-msg-force-broken-reply-to t gnus-summary-reply] 7 (#$ . 54022) [(byte-code "\205\301\302!C\207" [current-prefix-arg gnus-summary-work-articles 1] 2) (gnus-summary-mode)]])
#@133 Like `gnus-summary-reply-with-original' except removing reply-to field.
The original article will be yanked.

(fn N &optional WIDE)
(defalias 'gnus-summary-reply-broken-reply-to-with-original #[513 "\300\301!\"\207" [gnus-summary-reply-broken-reply-to gnus-summary-work-articles] 5 (#$ . 54525) ["P" (gnus-summary-mode)]])
#@162 Start composing a wide reply mail to the current message.
If prefix argument YANK is non-nil, the original article is yanked
automatically.

(fn &optional YANK)
(defalias 'gnus-summary-wide-reply #[256 "\300
\301\"\207" [gnus-summary-reply t] 4 (#$ . 54857) [(byte-code "\205\301\302!C\207" [current-prefix-arg gnus-summary-work-articles 1] 2) (gnus-summary-mode)]])
#@143 Start composing a wide reply mail to the current message.
The original article(s) will be yanked.
Uses the process/prefix convention.

(fn N)
(defalias 'gnus-summary-wide-reply-with-original #[257 "\300
\301\"\207" [gnus-summary-reply-with-original t] 4 (#$ . 55234) ["P" (gnus-summary-mode)]])
#@304 Start composing a very wide reply mail to a set of messages.

Uses the process/prefix convention.

The reply will include all From/Cc headers from the original
messages as the To/Cc headers.

If prefix argument YANK is non-nil, the original article(s) will
be yanked automatically.

(fn &optional YANK)
(defalias 'gnus-summary-very-wide-reply #[256 "\300
\301\302!#\207" [gnus-summary-reply t gnus-summary-work-articles] 6 (#$ . 55536) [(byte-code "\205\301\302!C\207" [current-prefix-arg gnus-summary-work-articles 1] 2) (gnus-summary-mode)]])
#@238 Start composing a very wide reply mail a set of messages.

Uses the process/prefix convention.

The reply will include all From/Cc headers from the original
messages as the To/Cc headers.

The original article(s) will be yanked.

(fn N)
(defalias 'gnus-summary-very-wide-reply-with-original #[257 "\300\301!\302\301!#\207" [gnus-summary-reply gnus-summary-work-articles t] 6 (#$ . 56092) ["P" (gnus-summary-mode)]])
#@603 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'.

(fn &optional ARG POST)
(defalias 'gnus-summary-mail-forward #[512 "\306\307!A\203\f\310\307\"\207	
\2039
\311\267\2026\307\312\2029\312\307\2029\312\211\2029\307\211\2029?\313`\314\"\211\205D\315
!\266\313`\316\"\206O\317 \211C\320 \f\321p!\n\205w\n\242\206c\n\322V\205q
\n\242\206o\nS\234\323\234\206w\n\n\n\203\233\n\242\206\203\n\322V\205\221
\n\242\206\217\nS\234\322\234\206\235-\202\235-\324!.\324!
\307.\325\326\327\330\"\"\210\325\331\332\"\210\325\331\327\333\"\"\210\334\335/\236/\"/\203\354\336\230\204\354\3370!\340\206\345!B/B/\327\341\n\n\n\n\n\n\n	&	\216\342 \2101\211\205
\343\344!\211\262!\205
\211\262
\203&
r1q\2102)\206(
34567q\210\345\n!\210+\346 \210\347 \210\350\351\312\"\210\352\353!\210\354\307!*\266\211,\207" [message-forward-as-mime message-forward-show-mml gnus-article-reply gnus-article-yanked-articles gnus-current-window-configuration gnus-newsgroup-selection gnus-summary-work-articles nil gnus-uu-digest-mail-forward #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 26 2 33 3 40 4 47)) t get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject current-window-configuration buffer-name 0 1 copy-sequence add-hook message-header-setup-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions forward make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] gnus-summary-select-article buffer-live-p get-buffer message-forward message-hide-headers gnus-add-buffer gnus-configure-windows forward run-hooks post-command-hook set-buffer-modified-p gnus-newsgroup-name mml-buffer-list 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] 22 (#$ . 56517) ["P" (gnus-summary-mode)]])
#@65 Insert Gcc header according to `gnus-gcc-self-resent-messages'.
(defalias 'gnus-summary-resend-message-insert-gcc #[0 "\303 \210\304\305\306\307\310\311#\312\"!rq\210	)\313\307!\210
\205\213db\210\211\314=\206\213\211\311=\2030\315\n\316\261\207\211;\203I\317\320\321\"\203D\322\322Q\202E
\323\261\207\211\324\267\202s\317\325\326\327#\323\261\207\330\n\330\322\n\322Q\"\"\211\262\205\213\317\325\326\327#\323\261\207\211;\205\213\317\320\321\"\203\207\322\322Q\202\210
\323\261\207" [gnus-summary-buffer gnus-gcc-self-resent-messages gnus-newsgroup-name gnus-inews-insert-gcc message-unquote-tokens message-tokenize-header mail-fetch-field "gcc" nil t " ," message-remove-header none "Gcc: \"" "\"\n" "Gcc: " string-search " " "\"" "\n" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 79 no-gcc-self 89)) mapconcat identity ", " delete] 8 (#$ . 59808)])
#@171 Resend the current article to ADDRESS.
Uses the process/prefix convention.  If NO-SELECT, don't display
the message before resending.

(fn ADDRESS N &optional NO-SELECT)
(defalias 'gnus-summary-resend-message #[770 "\306!\306	!\307\n\310\311#\f\n\312\211\2037\211@\211A@;\2030\211\313A@\314\"C\241\210
A\266\202\202\210\203G\315
\316BC\"\202H
\211\203\201\211@\211@;\203z\317
\211A\262\242\n\"\203z\320
\236A@\211\262\203m\321
\236A@\211\262\203z
A\266\202\202H\210\322\300\323\311#\210\322\301\324\325\"\262
\"\210\326	!\211\205\341\211@	\203\276r\327q\210\330 \210\331
\"\210\312\311\332\f!\210+\202\326\333\312\211\211$\210r q\210\312\311\332\f!\210+\334
!\210
A\266\202\202\230\262
,\207" [message-header-setup-hook message-sent-hook gnus-newsgroup-name user-full-name user-mail-address gnus-posting-styles copy-sequence gnus-group-find-parameter posting-style t nil decode-coding-string utf-8 append ".*" string-match name address add-hook gnus-summary-resend-message-insert-gcc make-closure #[0 "\302\300\203\303 \202
\304 )\207" [V0 rfc2047-encode-encoded-words nil gnus-agent-possibly-do-gcc gnus-inews-do-gcc] 1] gnus-summary-work-articles " *nntpd*" erase-buffer gnus-request-article message-resend gnus-summary-select-article gnus-summary-mark-article-as-forwarded gnus-agent message-inhibit-body-encoding gnus-gcc-externalize-attachments gnus-original-article-buffer] 17 (#$ . 60737) [(byte-code "\303\304\205$	\211\205\305\306!\211\262!\205\211\262
\205$r	q\210\307\310!)\"\nD\207" [gnus-summary-resend-default-address gnus-original-article-buffer current-prefix-arg message-read-from-minibuffer "Resend message(s) to: " buffer-live-p get-buffer nnmail-fetch-field "to"] 6) (gnus-summary-mode)]])
#@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 #[0 "\306 \n\307p!\205&\242\206\310V\205 \f\242\206S\234\311\234\206&
\203J\242\2062\310V\205@\f\242\206>S\234\310\234\206L0\202L0\312
!1\312!

\3131\314\315\316\317\"\"\210\314\320\321\"\210\314\320\316\322\"\"\210\323\3242\2362\"2\203\233\325\230\204\233\3263!\327\206\224!B2B2\316\330\n\n\n\n\n\n\n	&	\216\331\332!\2104q\210p\333\334!\335\336\337\"!\210\340!\210\341 \210\342 \210\343\344!\210\3435\332\"\210db\2106c\210\345 \210eb\210\346\347\313\350#\203\357\311u\210~\266)\351 \210\352 \210\353\354\332\"\210\355\356!\210\357\313!*\266\211)\207" [gnus-newsgroup-charset mail-parse-charset gnus-current-window-configuration gnus-article-reply gnus-newsgroup-selection gnus-article-yanked-articles current-window-configuration buffer-name 0 1 copy-sequence nil add-hook message-header-setup-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\301\300!\207" [V0 gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions reply-yank make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] 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" gnus-inews-insert-gcc re-search-forward "^To:\\|^Newsgroups:" move 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 message-required-headers gnus-draft-meta-information-header gnus-original-article-buffer message-ignored-resent-headers mail-header-separator] 19 (#$ . 62524) [nil (gnus-summary-mode)]])
#@106 Forward the current article to a newsgroup.
See `gnus-summary-mail-forward' for ARG.

(fn &optional ARG)
(defalias 'gnus-summary-post-forward #[256 "\300
\301\"\207" [gnus-summary-mail-forward t] 4 (#$ . 65098) ["P" (gnus-summary-mode)]])
#@72 Send a complaint about crossposting to the current article(s).

(fn N)
(defalias 'gnus-summary-mail-crosspost-complaint #[257 "\305
!\211\205\230\211@q\210\306
!\210	\307\310\"\203 \211\311\225\312O\202!\211\262
\312\211\313 \210\nq\210\314\315\316!\211\262\317\"G\320X\203b\315\321!\211\262\203L\314\317\"\235\204b\211\203Y\322\320\323\"\266\202\221\322\320\324\"\266\202\221q\210\325\320!\210q\210\326 \210\327\f#c\210\330 \210\331\332!\210\333\334\335\211#\210\336 \210\337\340!\203\217\341 \210\266
A\266\202\202\207" [gnus-summary-buffer gnus-newsgroup-name gnus-original-article-buffer gnus-message-buffer gnus-crosspost-complaint gnus-summary-work-articles gnus-summary-goto-subject string-match "^[^:]+:" 0 nil 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 deactivate-mark gnus-y-or-n-p "Send this complaint? " message-send-and-exit] 10 (#$ . 65343) ["P" (gnus-summary-mode)]])
#@14 

(fn GROUP)
(defalias 'gnus-inews-add-to-address #[257 "\300\301!\211\205\302 \205\303\304\305\"!\205\306\307B\"\207" [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] 6 (#$ . 66530)])
#@102 Send a reply to the address near point.
If YANK is non-nil, include the original article.

(fn YANK)
(defalias 'gnus-article-mail #[257 "\212\301\302\303\304#\210`T)\212\305\302\303\304#\210`S){\211\205&\306
!\210
\205&\307AC!\207" [gnus-article-current re-search-backward "[ 	\n]" nil t re-search-forward gnus-msg-mail gnus-inews-yank-articles] 6 (#$ . 66818) "P"])
#@217 Send a bug report to the Emacs maintainers.

Already submitted bugs can be found in the Emacs bug tracker:

  https://debbugs.gnu.org/cgi/pkgreport.cgi?package=emacs;max-bugs=100;base-order=1;bug-rev=1

(fn SUBJECT)
(defalias 'gnus-bug #[257 "\301
!\210\212eb\210\302\303\"c)\207" [gnus-bug-package report-emacs-bug format "X-Debbugs-Package: %s\n"] 4 (#$ . 67195) "sBug Subject: "])
#@66 Yank the current article into a composed message.

(fn BUFFER N)
(defalias 'gnus-summary-yank-message #[514 "\302
!\211\205\"\303
@!\210\304\305 \210)rq\210\306	!\210)\211A\262
\202\207" [gnus-inhibit-treatment gnus-article-buffer gnus-summary-work-articles gnus-summary-goto-subject t gnus-summary-select-article message-yank-buffer] 5 (#$ . 67586) [(byte-code "\301\302\303 \304#D\207" [current-prefix-arg gnus-completing-read "Buffer" message-buffers t] 4) (gnus-summary-mode)]])
#@281 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.

(fn &optional FETCH)
(defalias 'gnus-summary-resend-bounced-mail #[256 "\306\307!\210\310\211\203\222p\262q\210\311 \210\312\313\310\307#\203\225\310f\314>\203(\315y\210\202\316\310x\210\317\225`{\310
\205\213
G\317U?\205\213\211\203{
\317\320\206I\321!\310\322\323#\203c
\317\224\317\225\211\262O
B\262
\202K\211\237\266\204

\233\203t\211A\262
\202g\211@\266\203\202\215\320!\322\324\"\205\211\325\315\"\262
\266\202\262
\202\225q\210\326 	\327p!\n\205\271\n\242\206\245\n\317V\205\263\n\242\206\261\nS\234\315\234\206\271\n\n\f\n\203\334\n\242\206\305\n\317V\205\323\n\242\206\321\nS\234\317\234\206\335
\202\335
\330!0\330!
\3100\331\332\333\334\"\"\210\331\335\336\"\210\331\335\333\337\"\"\210\340\3411\2361\"1\203,
\321\230\204,
\3422!\343\206%
!B1B1\333\344\n\n\n\n\n\n\n	&	\216\345 \210\346 \210	\203Z
r\nq\210\347\n!\210\350 \210))\351 \210\352 \210\353\354\307\"\210\355\356!\210\357\310!*\207" [gnus-original-article-buffer gnus-current-window-configuration gnus-article-reply gnus-newsgroup-selection gnus-article-yanked-articles gnus-newsgroup-name gnus-summary-select-article t nil article-goto-body re-search-forward "^References:\n?" (9 32) 1 "	\n " 0 mail-header-remove-comments "" string-match "<[^<]+[^< 	]" "\\(<[^<]+>\\)[ 	]*\\'" match-string current-window-configuration buffer-name copy-sequence add-hook message-header-setup-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions compose-bounce make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] message-bounce gnus-inews-insert-gcc 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 mml-buffer-list message-required-headers gnus-draft-meta-information-header] 22 (#$ . 68082) ["P" (gnus-summary-mode)]])
#@14 

(fn GROUP)
(defalias 'gnus-inews-group-method #[257 "\211\306
\"A@\262
\204p	\211\203\211<\203\211\2067
\307
\n\"A\2067
\211\310\232\203,\206#
\307
\f\"A\206#
\307

\"A\206#
\211\203Z
\311\312@@@@@A@#\232\204Z\211A\262
\202>\211@@\262
\206#
\211\203~
\311\312@@@A@#\232\204~\211A\262
\202d\211@\262
\206#
A\313\211\203!
\211A\262\242\314
8\262
\262
;\204\212\313\315C\3162
\211
\242\206\261\240\210\204\277\317\320\321\"\n\"\210\f
D\211\203\327\211@\317\320\322\"\"\210
A\266\202\202\302\210\211\242A@\323\235\203\352\311\324\242@\"\202\364\311\312\242@\242A@#\211\242B\204
\211\n\235\204
\307
@\n\"\204
\211\nB
\266\2020\266\204\232\203\212
\262
\313\262\202\212\266\202\211\2034
\307\n\"\2044


B\nB\211\262
\262
@\325!\211\203J
\211<\203J
\211\206g\307
\n\"A\206g\211\310\232\203\\
\206S\307
\f\"A\206S\307

\"A\206S\211\203\212

\311\312@@@@@A@#\232\204\212
\211A\262
\202n
\211@@\262
\206S\211\203\256

\311\312@@@A@#\232\204\256
\211A\262
\202\224
\211@\262
\206SA\313\211\203Q\211A\262\242\314
8\262
\262
;\204\272
\313\315C\3162B\211
\242\206\341
\240\210\204\357
\317\320\321\"\n\"\210\f
D\211\203\211@\317\320\322\"\"\210
A\266\202\202\362
\210\211\242A@\323\235\203\311\324\242@\"\202$\311\312\242@\242A@#\211\242B\204>\211\n\235\204>\307
@\n\"\204>\211\nB
\266\2020\266\204\232\203\272

\262
\313\262\202\272
\266\202\211\203d\307\n\"\204d

B\nB\211\262
\262
@=\203p	\207\211\306
\"A@\262
\314
8\262
\203\216\211\306
\"A@\262
\314
8\207\325
!\211\203\236\211<\203\236\211\206\273\307
\n\"A\206\273\211\310\232\203\260\206\247\307
\f\"A\206\247\307

\"A\206\247\211\203\336
\311\312@@@@@A@#\232\204\336\211A\262
\202\302\211@@\262
\206\247\211\203
\311\312@@@A@#\232\204\211A\262
\202\350\211@\262
\206\247A\313\211\203\245\211A\262\242\314
8\262
\262
;\204\313\315C\3162\226\211
\242\2065\240\210\204C\317\320\321\"\n\"\210\f
D\211\203[\211@\317\320\322\"\"\210
A\266\202\202F\210\211\242A@\323\235\203n\311\324\242@\"\202x\311\312\242@\242A@#\211\242B\204\222\211\n\235\204\222\307
@\n\"\204\222\211\nB
\266\2020\266\204\232\203
\262
\313\262\202\266\202\211\203\270\307\n\"\204\270

B\nB\211\262
\207" [gnus-newsrc-hashtb gnus-message-archive-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gethash assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" gnus-group-method gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist] 17 (#$ . 70984)])
#@22 

(fn &optional GCC)
(defalias 'gnus-inews-do-gcc #[256 "\212\214\306 \210\211\206\307\310\311\312#p\311\211\211\211\211\211\205\f\313\310!\210~\210\314\315	\316\"!\262\211A\262\242\211\262\205\f\317!\262\320!\204Q\321\322;\203M\202O@\"\210\323\312#\204^\324\"\210\n;\203j\325\n\"\202k\n\211\203s\311\262\212\326\327!\210rq\210)\330!\210\331\332!\210\204\223\333 \210\202\231\334 \210c\210\313\310!\210\331\335!\210\214\306 \210\214\336 \210\337\340!)\214\336 \210\337\341!)\342\206\274\343\"\342\206\305\343\"\344\205\317\340BC\205\327\341BC\f#\345 \210)\266)eb\210\346\347\350
!\351Q\311\312#\203\367\352\343\312\211#\210\353\3541&
\211;\203	
\355
!@\202\n
\211\356
!\204
\357
!\210\360\361\362\363#!!\262
0\266\202\202)
\266\311\2038
\364\312\211$\211\262\204C
\365\366\367\370!$\210;\203\216\211\203V
\211<\203V
\211\206\212\371
@\"A\206\212\211\372\232\203j
A\206s\371
B\"A\206s\371
C\"A\206sD\211\203\232

\362\373@@@@@A@#\232\204\232
\211A\262
\202~
\211@@\262
\206sE\211\203\276

\362\373@@@A@#\232\204\276
\211A\262
\202\244
\211@\262
\206sFA\311\211\203q\211A\262\242\374
8\262
\262
;\204\312
\311\312C\3752b\211
\242\206\362
A\240\210\204\376\377\201L\"@\"\210BCD\211\203\211@\376\377\201M\"\"\210
A\266\202\202\210\211\242A@\201N\235\2036\362\201O\242@\"\202@\362\373\242@\242A@#\211\242B\204^\211@\235\204^\371
@@\"\204^\211@B@
\266\2020\266\204\232\203\312

\262
\311\262\202\312
\266\202\211\203\207\371@\"\204\207

B@B@\211\262
\262
\262<\203\305\211A
\232\206\271G
GU\205\271
\203\267
@
\235\203\267
A\262\202\245
?\266\203\203\305\201P!\262
\203\367\201Q \203\367G\203\340\201RA\"\210\202\367rHq\210C\311\312IJK\201S\311\312\"\210,\262
rq\210\211)\201Tp!\210)\202+)\266\210*\207" [message-encoded-mail-cache mml-externalize-attachments gnus-gcc-externalize-attachments message-options rfc2047-header-encoding-alist mail-header-separator message-narrow-to-headers mail-fetch-field "gcc" nil t message-remove-header message-unquote-tokens message-tokenize-header " ,\n	" gnus-inews-group-method 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 run-hooks gnus-gcc-pre-body-encode-hook message-encode-message-body erase-buffer gnus-gcc-post-body-encode-hook message-narrow-to-headers-or-head message-fetch-field "Newsgroups" "Followup-To" gnus-group-name-charset #1="" append mail-encode-encoded-word-buffer re-search-forward "^" regexp-quote "$" replace-match request-accept-article (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" gnus-request-accept-article gnus-message 1 "Couldn't store article in group %s: %s" gnus-status-message assoc "native" "%s:%s" 4 server-name mapc make-closure gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-gcc-mark-as-read gnus-group-buffer inhibit-read-only gnus-get-new-news-hook gnus-group-marked #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil #1#) "%s" gnus-group-short-name gnus-alive-p gnus-group-mark-article-read gnus-group-get-new-news-this-group kill-buffer] 25 (#$ . 73886)])
#@82 Insert the Gcc to say where the article is to be archived.

(fn &optional GROUP)
(defalias 'gnus-inews-insert-gcc #[256 "\211\206	\206\n\n
\205\304!?\205\305\306\307#\310\311\204$\311\202\231;\203.C\202\231\2046\311\202\231<\203E@;\203E\202\231\312!\203Q!\202\231\205\231\203\230\203t@@;\203t\313@@\"\205\213@A\202\213\203\206\312@!\203\206@!\202\213\314@\307\"\211\262\204\230A\262\202U\211\311
\204\242\205)
\315 \205)

;\203\260
C\262\212\214\316 \210db\210\317c\210\203\357<\203\323\320\321\322	#\323#\202\330\"c\210\324=\204\345\325c\202(
\326 \327y\210`|\202(

\211A\262\242\211\262\203&
\330\331\"\203
\211\202\n
\332
\"\330\333\"\203
\334
\334Q\202
\211c\266
\203\357\333c\210\202\357\325c*\207" [gnus-newsgroup-name gnus-outgoing-message-group gnus-message-archive-group gnus-message-archive-method gnus-virtual-group-p gnus-group-find-parameter gcc-self t #[514 "
;\203\301\302\"\203\303\303Q\207
\207\304\305\"\206\211\301\302\"\203'\303
\303Q\207\207" [gnus-newsgroup-name string-search " " "\"" gnus-group-find-parameter parent-group] 6 "\n\n(fn GCC-SELF-VAL GROUP)"] nil functionp string-match eval gnus-alive-p message-narrow-to-headers "Gcc: " mapconcat make-closure #[257 "\301
\300\"\207" [V0 V1] 4 "\n\n(fn VAL)"] ", " none "\n" point-at-bol 1 string-search ":" gnus-group-prefixed-name " " "\""] 13 (#$ . 77488)])
#@82 Look at the headers in the current buffer and return a Mail-Followup-To address.
(defalias 'gnus-mailing-list-followup-to #[0 "\300\301!\300\302!\211\203\303\304\"\203\305\306\"\262
\211\206
\207" [gnus-fetch-original-field "x-beenthere" "list-post" string-match "mailto:\\([^>]+\\)" match-string 1] 5 (#$ . 78928)])
#@89 Configure posting styles according to `gnus-posting-styles'.

(fn &optional GROUP-NAME)
(defalias 'gnus-configure-posting-styles #[256 "?\205,\211\206	\206\306\n\211\205\307\310!\211\262!\205\211\262
\203-r\nq\210)\202.\311\211\211\211\211\211\211\211\211	\203p\312\313\314#\211\203o\211\211\203d\211@\211A@;\203]\211\315A@\316\"C\241\210
A\266\202\202F\210\317\320BC\"\262\210	\211\203v\211@\211
A\262\242\262eb\210\n;\203\231\321\"\203o\f\262\202R
\n\322=\203\331\f\211\205\261\307\310!\211\262!\205\261\211\262
\203or\fq\210\214\323 \210\324
\211A\262\242!\211\205\323\321\211A\262\242\"\262
*\202O
\n9\204\346\325!\203
\325!\203\363\n \202O
\326!\203o\nJ\202O
\n<\203o\n@\322=\203J
\f\211\205
\307\310!\211\262!\205
\211\262
\203or\fq\210\214\323 \210\324A@!\211\205D
\321\327
8\"\205D
\211\211\262	\262
*\202O
\330\314\"\203o\211\211\203n\211@\211
A\262\242\262\311\262\211@\331=\203t
\314\262\211A@\202\203
\211@\332=\203\201
\211A@\202\203
\211@\262\f;\203\266
\203\261
\333\f\311\314\321#)\266\203\203\261
\334\224\203\261
\335\f\311\211\f$\202\350
\202\350
9\204\303
\325\f!\203\335
\325\f!\203\320
 \202\350
\326\f!\205\350
J\202\350
<\205\350
\330\f\314\"\262\336\267\202\377
\337\262\314\262\202\377
\340\262\314\262\337=\203\203?\203\341!\204\342?\f\"\262\203R\n\203R\343\344\314\"r\211q\210\345\346\"\216\347\f!\210edb\210\350\311x\351U\203J`\202L`T{*\262
\262\352\353\f\"\"\262\nB\nB\262\n
A\266\202\202S
\210
A\266\202\202r\210\354\236\262\355\236\262\352\352	\"\"\262\356\357\"\262\211\203\211@\360\361@\330=\203\250\362\202\374@\363=\203\272A\345\364\"\262
\202\374@\337=\203\342\365\366!\210\3116\365\367!\210\3117A\211\204\331\362\202\335\345\370\"\262
\202\374@9\203\361\371\372@!!\202\363@A\345\373#\266\202\311\374$\210
A\266\202\202\225\210\204
\205*\360\361A\206\375 A\206 @\345\376#\266\202\311\374$\266\213\207" [gnus-inhibit-posting-styles gnus-newsgroup-name gnus-summary-buffer gnus-posting-styles gnus-article-copy inhibit-changing-match-data "" buffer-live-p get-buffer nil gnus-group-find-parameter posting-style t decode-coding-string utf-8 append ".*" string-match header nnheader-narrow-to-headers message-fetch-field functionp boundp 2 eval :file :value "\\\\[&[:digit:]]" 1 match-substitute-replacement #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (signature-file 496 x-face-file 505)) signature x-face file-name-directory nnheader-concat generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents "\n" 0 delq assoc name address sort #[514 "
@
@\231\207" [] 4 "\n\n(fn X Y)"] add-hook message-setup-hook ignore body #[0 "\212\301 \210\300c)\207" [V0 message-goto-body] 1] make-local-variable message-signature message-signature-file #[0 "\212\300\211\205	\302 *\207" [V0 message-signature message-insert-signature] 2] capitalize symbol-name #[0 "\212\302\300!\210\301\205\303 \210\300\304\301\261\210n?\205\305c)\207" [V0 V1 message-remove-header message-goto-eoh ": " "\n"] 3] local user-full-name #[0 "\304\302!\210\301\300\301\212\305\306!\210\307 \210\310\311 \312\261+\207" [V0 V1 user-mail-address user-full-name make-local-variable message-remove-header "From" message-goto-eoh "From: " message-make-from "\n"] 3] message-signature-directory user-mail-address] 23 (#$ . 79259)])
#@318 Attach the current article(s) to an outgoing Message buffer.
If any current in-progress Message buffers exist, the articles
can be attached to them.  If not, a new Message buffer is
created.

This command uses the process/prefix convention, so if you
process-mark several articles, they will all be attached.

(fn N)
(defalias 'gnus-summary-attach-article #[257 "\301 \302
\203+\303\304!\203+
G\305U\203\306@!\202&\307\310\311\302\211@&\262
\2021\312 \210p\262
\313 \210\314!\211\203W\315
@!\210\316 \210r
q\210\212db\210\317!\210*\211A\262
\2027\210\320\321\311\"\207" [gnus-original-article-buffer message-buffers nil y-or-n-p "Attach files to existing mail composition buffer? " 1 get-buffer gnus-completing-read "Attach to buffer" t gnus-summary-mail-other-window gnus-summary-expand-window gnus-summary-work-articles gnus-summary-goto-subject gnus-summary-select-article message-forward-make-body-mime gnus-configure-windows message] 10 (#$ . 82821) ["P" (gnus-summary-mode)]])
(provide 'gnus-msg)