;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:58 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-msg.el
;;; in Emacs version 24.3.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 "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326FF&	\210\310\327\330\331\314\332\320\333&\210\334\327\335\336#\210\310\337\330\340\314\332\320\341&\210\310\342\330\343\314\332\320\344&\210\310\345\346\347\314\332\320\350&\210\310\351\330\352\314\332\353\354\320\355&	\210\310\356\357\360\314\332\320\344&\210\310\361\330\362\314\332\316\363\320\364&	\210\310\365\330\366\367\370\314\332\320\344&	\210\334\371\365\372#\210\310\373\330\374\367\370\314\332\320\375&	\210\310\376\377\201@\367\201A\314\332\320\201B&	\210\310\201C\201D\201E\314\201F\314\201G\320\201H&	\210\201I\201J	\236	\"\201K\301\201J\201L\201ME\"\207" [gnus-select-method gnus-group-parameters-more require gnus gnus-ems message gnus-art gnus-util custom-declare-variable gnus-post-method 'current "*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 nil "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 "*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 "*If non-nil, add a `to-list' parameter automatically." boolean 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" "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 "Hook run after setting up a message buffer." :options (message-remove-blank-cited-lines) hook gnus-bug-create-help-buffer t "*Should we create the *Gnus Help Bug* buffer?" gnus-posting-styles "*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 "If non-nil, automatically mark Gcc articles as read." :version "22.1" gnus-inews-mark-gcc-as-read "Emacs 22.1" gnus-gcc-externalize-attachments "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 nil :tag "None") (const all :tag "Any") (string :tag "Regexp")) gnus-gcc-self-resent-messages 'no-gcc-self "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 '(("^\\(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)) "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)
#@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\310A\202\n+\207" [name gnus-group-posting-charset-alist value elem alist gnus-group-find-parameter posting-charset-alist t nil string-match] 4 (#$ . 7083)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\305\306\307\310\315&	\210\300\316\317\320\304\305\306\321\310\322&	\210\300\323\324\325\306\307\310\326&\210\300\327\330\331\304\332\306\307\310\326&	\210\300\333\330\334\306\307\310\326&\210\300\335\336\337\304\340\306\307\310\341&	\210\300\342\324\343\304\305\306\307\310\326&	\210\300\344\330\345\304\305\306\307\310\326&	\210\300\346\330\347\304\340\306\350\306\307\310\326&\210\300\351\324\352\306\307\304\353\310\354&	\210\300\355\324\356\306\307\304\353\310\354&	\210\357\360\361\324\330$\207" [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") "Files whose variables will be reported in `gnus-bug'." :version "22.1" :group gnus-message :type (repeat (string :tag "File")) gnus-debug-exclude-variables '(mm-mime-mule-charset-alist nnmail-split-fancy message-minibuffer-local-map) "Variables that should not be reported in `gnus-bug'." (repeat (symbol :tag "Variable")) gnus-discouraged-post-methods '(nndraft nnml nnimap nnmaildir nnmh nnfolder nndir) "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 nil "Automatically sign replies to signed messages.\nSee also the `mml-default-sign-method' variable." boolean gnus-message-replyencrypt t "Automatically encrypt replies to encrypted messages.\nSee also the `mml-default-encrypt-method' variable." "24.1" gnus-message-replysignencrypted "Setting this causes automatically encrypted messages to also be signed." gnus-confirm-mail-reply-to-news (and gnus-novice-user (not gnus-expert-user)) "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 "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 "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 "Enable highlighting of different citation levels in message-mode." gnus-cite gnus-gcc-pre-body-encode-hook "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 "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"] 12)
#@36 Inhibit the use of posting styles.
(defvar gnus-inhibit-posting-styles nil (#$ . 11118))
(defvar gnus-article-yanked-articles nil)
(defvar gnus-message-buffer "*Mail Gnus*")
(defvar gnus-article-copy nil)
(defvar gnus-check-before-posting nil)
(defvar gnus-last-posting-server nil)
(defvar gnus-message-group-art nil)
(defvar gnus-msg-force-broken-reply-to nil)
(defconst gnus-bug-message "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")
(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 "\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])
(defvar gnus-article-reply nil)
(defalias 'gnus-setup-message '(macro . #[(config &rest forms) "\306\307!\306\310!\306\311!\306\312!\306\313!\306\314!\315
\316B\f\317B\320B\n\321B	\322B\323B\324BBBBBB\325\326\327\330\331\332\333=\334BB\335\336\337DE\335\336\315\340\337DEEFE\341\342\343>!D\344BB\345\346\347\350\351BBDE\352\353\354\355\356	\nEDE\357BBE\360\361?B\362
\n=	\f\257\363\364\365\353\nEE\364\366E\367BBBBBB\370\371\372=.\373BB\374BBBBBBBBBBBB\207" [group yanked article buffer winconf-name winconf make-symbol "gnus-setup-message-winconf" "gnus-setup-message-winconf-name" "gnus-setup-message-buffer" "gnus-setup-message-article" "gnus-setup-yanked-articles" "gnus-setup-message-group" let ((current-window-configuration)) (gnus-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-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-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)) 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)) config gnus-draft-meta-information-header forms] 17]))
(defalias 'gnus-inews-make-draft-meta-information #[(group articles) "\247\203C\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])
#@214 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.
(defalias 'gnus-msg-mail #[(&optional to subject other-headers continue switch-action yank-action send-actions return-action) "\306 \204\307\310!\210\311	\n\312\f
\"&\207p#\206\313\312$#%\314 &\315p!'(#\316!)\316!*+,-./0\312)\317\320\321\"\210\317\322\323\"\210\317\322\324\"\210\325\3261\2361\"1+\203\210+\313\230\204\210\3272!\330,\206\201-!B1B1\331\216\311	\n\312\f
\"&\210)\332 \210\333 \210\334\307\335\"\210\336\337!\210\340\312!\210.	3\203\300p$\341%!\2103$!\210+\335\207" [to subject other-headers continue yank-action send-actions gnus-alive-p message "Gnus not running; using plain Message mode" message-mail nil "" current-window-configuration buffer-name copy-sequence add-hook message-header-setup-hook gnus-inews-insert-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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) message-hide-headers gnus-add-buffer gnus-configure-windows t run-hooks post-command-hook set-buffer-modified-p switch-to-buffer return-action gnus-newsgroup-name mail-buf buf gnus-current-window-configuration gnus-article-reply gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header switch-action] 10 (#$ . 16371) nil])
#@18 Mail to ADDRESS.
(defalias 'gnus-button-mailto #[(address) "\306 q\210\307 \310p!	\n\311\f!
\311
!
 !\"#$%\312\313\304\314\"\210\313\315\316\"\210\313\315\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-current-window-configuration gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name message-header-setup-hook mml-buffer-list gnus-copy-article-buffer current-window-configuration buffer-name copy-sequence nil add-hook gnus-inews-insert-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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) 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# #6# #2# message-required-headers gnus-draft-meta-information-header address] 10 (#$ . 18840)])
#@23 Like `message-reply'.
(defalias 'gnus-button-reply #[(&optional to-address wide) "\306 \307p!	\n\310\f!
\310\f!\f !\"#$\311\312\304\313\"\210\312\314\315\"\210\312\314\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-current-window-configuration gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name message-header-setup-hook mml-buffer-list current-window-configuration buffer-name copy-sequence nil add-hook gnus-inews-insert-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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) 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# #6# #2# message-required-headers gnus-draft-meta-information-header to-address wide] 10 (#$ . 20752) 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\205D	@;\203\304	@\n\"\2042\305	@!\203&	@\n!\2042	@9\203	@J\203\306\307	\211A@)	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 winconf-name) "\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\326\327DE\330\331\fD\332
DEE\333\334\335$\210%\203M\336\337%\"\202d&\203c&<\203]&\202d&C\202d\313'\323\330\331\fD\340\f'\205\210(\341=\203\202\342\327'DD\202\210\343\327'DDEE\344\")\207" [gnus-agent gnus-newsgroup-name message-post-method winconf-name buffer winconf 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 progn setq gnus-current-window-configuration quote 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 gnus-summary-mark-article-as-replied send yanked 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\314 #\202#\315 \202#\316\317 
\320p!&'\321!(\321!)*+,-./\306(\322\323\324\"\210\322\325\326\"\210\322\325\327\"\210\330\3310\2360\"0*\203\206*\316\230\204\206\3321!\333+\206,!B0B0\334\216\335 \210)\336 \210\337 \210\340\341\342\"\210\343\344!\210\345\306!.
\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-current-window-configuration nil ((byte-code "rq\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 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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) message-mail message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p gnus-article-reply gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header] 10 (#$ . 24335) "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\314 #\202#\315 \202#\316\317 
\320p!)*\321!+\321!,-./012\306+\322\323\324\"\210\322\325\326\"\210\322\325\327\"\210\330\3313\2363\"3-\203\206-\316\230\204\206\3324!\333.\206/!B3B3\334\216\3355\336\3375\"\203\2355\340\225\306O\202\2375)!\210)\341 \210\342 \210\343\344\345\"\210\346\347!\210\350\306!.
\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-current-window-configuration nil ((byte-code "rq\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 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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) 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-reply gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header gname] 10 (#$ . 26671) "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\310 #\202\311 \206\312\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 (#$ . 29249) "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\314 #\202\"\315\202\"\316 
\317p!%&\320!'\320!()*+,-.\306'\321\322\323\"\210\321\324\325\"\210\321\324\326\"\210\327\330/\236/\"/)\203\205)\315\230\204\205\3310!\332*\206~+!B/B/\333\216\334 \210)\335 \210\336 \210\337\340\341\"\210\342\343!\210\344\306!.
\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-current-window-configuration nil ((byte-code "rq\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 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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) message-mail message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p gnus-article-reply gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header] 10 (#$ . 29829) "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\314 #\202\"\315\202\"\316 
\317p!,-\320!.\320!/012345\306.\321\322\323\"\210\321\324\325\"\210\321\324\326\"\210\327\3306\2366\"60\203\2050\315\230\204\205\3317!\3321\206~2!B6B6\333\216\3348\335\3368\"\203\2348\337\225\306O\202\2368)!\210\340\341!\210\342\343!@!\"!)\344 \210\345 \210\346\347\350\"\210\351\352!\210\353\306!.
\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-current-window-configuration nil ((byte-code "rq\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 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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) 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-reply gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header gname] 10 (#$ . 32164) "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\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] 4 (#$ . 34891) "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 \310\216\311 \210*\312\313`\314\"\211\203/\306!\210)\313`\315\"\2069\316 \f\2368
\317\320
\320&\210\321 *\207" [yank x #1=#:wconfig to gnus-newsgroup-data gnus-newsgroup-name gnus-summary-goto-subject current-window-configuration ((set-window-configuration #1#)) gnus-summary-select-article 3 get-text-property gnus-intangible gnus-number gnus-summary-last-subject gnus-post-news nil gnus-summary-handle-replysign headers gnus-article-buffer force-news] 9 (#$ . 35430) (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 (#$ . 36335) "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 (#$ . 36690) (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 (#$ . 36930) "P"])
(defalias 'gnus-inews-yank-articles #[(articles) "\306\211\211\307 \210\211A@\211\203c	<\203	A@	@\310 \311\216
q\210\312\306\211\211	$\210\313	!\210*\314\306\"\210rq\210\214\315 \210\316 *\317 \210\320 \210\n\206W\321\322!*\203	\323c\210\202	\324 \210\nb+\207" [yank-string article beg articles #1=#:wconfig gnus-summary-buffer nil message-goto-body current-window-configuration ((set-window-configuration #1#)) gnus-summary-select-article gnus-summary-remove-process-mark 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 gnus-article-copy message-reply-headers message-reply-buffer] 5])
#@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\312D\313BB	EE\n\314\f!\315\211$\205\222$@\316\317\315\211
$\203\204\320 %\321\216\212\322\315!\210\323\324!\211&\203B\325&!@)\326p!\210+\327 '()\330)\331\"*\332\216*\203l\333*!\210\334*!q\210\202q\335)!\210\336 ,\203\201\337
+\"\210\340\341!\210\342 \210\343
!\210$A\211$\204\315,\207" [symp gnus-newsgroup-name user-mail-address message-post-method n article lambda (arg) gnus-post-method eq quote ('a) gnus-summary-work-articles nil gnus-summary-select-article t current-window-configuration ((set-window-configuration #1=#:wconfig)) gnus-summary-followup message-fetch-field "from" mail-header-parse-address kill-buffer 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 --dolist-tail-- #1# from #2# gnus-original-article-buffer #3=#:buf #4=#:w gnus-canceled-mark] 7 (#$ . 37877) (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 \f\314p!
-.\315!/\315!0123456\316/\317\320\321\"\210\317\322\323\"\210\317\322\324\"\210\325\3267\2367\"71\203|1\327\230\204|\3308!\3312\206u3!B7B7\332\216\333\334!\2109q\210\335 \210\336\316\337\340:D\341:\342\343BB\344\345BBFEEC;B;\321 \210)\346 \210\347 \210\350\351\334\"\210\352\353!\210\354\316!.\207" [to gnus-newsgroup-charset mail-parse-charset article gnus-current-window-configuration gnus-article-reply 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 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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) 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-article-yanked-articles gnus-newsgroup-name mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header gnus-original-article-buffer gnus-summary-buffer message-send-actions] 11 (#$ . 39218) nil])
(defalias 'gnus-copy-article-buffer #[(&optional article-buffer yank-string) "\306\307!rq\210\310 \210)	\206\n\311\211\312	!\2032	\211\205.
;\203+\312\202,\313
!)\2048\314\315!\202\323r	q\210#\206C$%\206J&&$\214~\210\316ed#\210q\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\246d)q\210\333*eb\317 \206\266d|\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!BCDEFGH\317A\320\321\322\"\210\320\323\324\"\210\320\323\n\203g\325\202p\203o\326\202p\327\330>\203y\331\202z\332\"\210\333\334I\236I\"IC\203\245C\335\230\204\245\336J!\337D\206\236E!BIBI\340\216K\206\256@K\341\317K\"LKM\317\211N$\317\211OP\317QK\203
\342K!N\343K\344\"$\345K!P\343K\346\"QR\205\364\347RK\"O\350KS\347\351S\"\203\f
S\352\225\317O\202
S)L\"K$\203 
\353$!\204L
Q\204L
T\204L
\353M\2062
@U\2069
V\"\203\217
O\204\217
P\204\217
N\204\217
W\203f
\354$\206a
\355M!?\205a
K!\210\202\304
Xq\210\356 \210\357Q\204x
T\203\210
\214\360 \210\361\362!)?\205\212
\335\202\212
$!\210\202\304
W\203\270
\363N\206\234
P!\210P\204\304
N\204\304
\f\203\304
\364MDYBY\202\304
Xq\210\356 \210\365N!\210\n\203\314
\366\n!\210.	\367 \210\370 \210\371\n\203\335
\325\202\346
\203\345
\326\202\346
\327\372\"\210\373\374!\210\375\317!.\f\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 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\2039\315\316!\210\317\320!\210\321=\203n \312\322!\210\323\324!\210\323\325!\210\326\325\327\330\331$\210\326\324\327\331\211$\210)\202u\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 #6=#:gnus-setup-message-winconf-name gnus-message-buffer #1# gnus-message-highlight-citation major-mode mbl1 mbl] 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 "^[^:]+:" 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-current-window-configuration gnus-newsgroup-name mml-buffer-list mbl #1# #5# #4# #3# #6# #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] 11])
#@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 (#$ . 46671)])
#@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\247\206\247\f\202\247
\203?
\310=\204?	\311=\203;\202\247\n\202\247
\204N	<\203m	@<\203m\312	<\205`	@<\203^	\202`	C*\313\314+\"\313\315,\"C\nC&-\316\211./\3160-\2036\317-\211A-@00;\203\225
0\2111\203\2461<\203\2461\206\221
\32012\"A\206\221
1\321\232\203\273\206u
\3201+\"A\206u
\32013\"A\206u
,44\203\3671\322\3234@@@4@@A@#\232\204\3674\211A4@\210\202\3234\2115@@*\206u
*66\203,
1\322\3236\2115@@)6@A@#\232\204,
6\211A6@\210\202
6@)\206u
7A\316\2118099\203r
\3249\211A9@8\2110;\204>
10\316\325:;0\326\327\215+\232\203>
08\316\2119\204C
8+\211<\203\216
\32012\"\204\216
1<B2B2<))\2020\232\203\240
\2020@;\203\263
\203\263
\3300\"\2020\203\316
\204\316
0\2115A@)\317\232\203\316
0\20200\3310@!=\332\320=>\">\203\333=\334P!0\236\204\3350@>\236>\203\3120\333=\334P!0A@DC\"\2020**0\3360\337\"\204$\3360\340\"\203}0/\235\204}0/B/\202}\313\341/\".\320?\203M@\203M@\202^\342\343\313\315.\"\325@\206[\317\310B$\211@.\"\2115A@-\202\247	\311=\203\221\n@A>\204\221\344\n\345\325#\203\221
\203\215\346\347\350C\"\210\n\202\247	<\203\246	@<\203\242\346\347\351C\"\210	\202\247*\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 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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) "\303A	\"\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" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method symbol-name address intern "-address" physical-address gnus-method-option-p post post-mail #[(m) "\211A@)\302\232\203\303@!D\207\211A@)\304\303@!\305RD\207" [m x #1# symbol-name " (" ")"] 5] gnus-completing-read "Posting method" 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 no-enter-cache nocache result method-name gnus-valid-select-methods silent gnus-last-posting-server gnus-discouraged-post-methods] 8 (#$ . 46983)])
#@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 (#$ . 50066) 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!\205z

@<\203D
\2115@@)\202F
@\2116\206e\313`\314\"\2117\203[\3157!\210)\313`\316\"\206e\317 8
9\320:
\203v\3156!\210\321 ;\322p!89\323!<\323!=>?@ABC\324<\325\326\327\"\210\325\330\331\"\210\325\330
\203\265\332\202\266\333\334>\203\277\335\202\300\336\"\210\337\340D\236D\"D>\203\353>\320\230\204\353\341E!\342?\206\344@!BDBD\343\216\f\204\367\344 \210\202,
\f\3246\211F\203+
F@6\344\324\211\2116$\210r\345 q\210\346 \210\214\347 \210:\350 P:*FA\211F\204

*\345 q\210\346G!\210\214\347 \210\f\203D
\351 \210:c\210db\210)\352`d\"\210\353\324\"\210
\203Z
\354
!\210\355 \210)\356 \210\357 \210\360
\203m
\332\202n
\333\361\"\210\362\363!\210\364\324!.
\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 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\2030\314\315!\210\316\317!\210\320=\203e\311\321!\210\322\323!\210\322\324!\210\325\324\326\327\330$\210\325\323\326\330\211$\210)\202l\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 #6=#:gnus-setup-message-winconf-name 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 gnus-message-buffer #1# gnus-message-highlight-citation major-mode mbl1 mbl] 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 x article to gnus-article-reply gnus-article-yanked-articles headers gnus-current-window-configuration mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header --dolist-tail-- gnus-msg-force-broken-reply-to] 11 (#$ . 50476) (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\211r\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 (#$ . 53838)])
#@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 (#$ . 54351) "P"])
#@132 Start composing a reply mail to the current message.
The reply goes only to the mailing list.
The original article will be yanked.
(defalias 'gnus-summary-reply-to-list-with-original #[(n &optional wide) "\303\304\305	!\n\")\207" [message-reply-to-function n wide #[nil "\300\301 BC\207" [To gnus-mailing-list-followup-to] 2] gnus-summary-reply gnus-summary-work-articles] 3 (#$ . 54609) "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 (#$ . 55011) (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 (#$ . 55480) "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 (#$ . 55789) (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 (#$ . 56116) "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 (#$ . 56387) (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 (#$ . 56756) "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\307\"\207	\n\203K\311=\203!\307\312\202K\313=\203.\312\307\202K\314=\203;\312\211\202K\315=\203H\307\211\202K	?\316`\317\"\211\203X\320\f!\210)\316`\321\"\206b\322 \211C-\323 .\324p!
-/\325!0\325!1234567\3070\326\327\330\"\210\326\331\332\"\210\326\331\333\"\210\334\3358\2368\"82\203\3122\336\230\204\312\3379!\3403\206\3034!B8B8\341\216\342 \210:\211;\205\335\343\344;!!)\203\354r:q\210<)\206\356=>?@Aq\210\345!\210+\346 \210\347 \210\350\351\312\"\210\352\353!\210\354\307!.
\207" [post message-forward-as-mime message-forward-show-mml arg 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 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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 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-article-yanked-articles gnus-current-window-configuration gnus-newsgroup-name mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header gnus-article-buffer buffer gnus-article-charset gnus-newsgroup-charset gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset gnus-original-article-buffer] 11 (#$ . 57024) "P"])
#@65 Insert Gcc header according to `gnus-gcc-self-resent-messages'.
(defalias 'gnus-summary-resend-message-insert-gcc #[nil "\305 \210\306\307\310\311\312\313\314\315#\316\"!\"rq\210	)\317\313!\210\205\210db\210\n\320=\206\210\n\315=\2037\321\f\322\261\202\210\n;\203Z\323\324\325\326\n\"\203L\327\n\327Q\202M\n\330\331\n!\n\"\"\332\261\202\210\n\204j\323\333\334\335#\332\261\202\210\n\336=\205\210\337\f\337\327\f\327Q\"\"\211\205\210\323\333\334\335#\332\261*\207" [gnus-summary-buffer gnus-gcc-self-resent-messages self gcc gnus-newsgroup-name gnus-inews-insert-gcc mapcar #[(group) "\301\302\303!\"\"\207" [group mm-encode-coding-string gnus-group-name-charset gnus-inews-group-method] 5] message-unquote-tokens message-tokenize-header mail-fetch-field "gcc" nil t " ," message-remove-header none "Gcc: \"" "\"\n" "Gcc: " mm-encode-coding-string string-match " " "\"" gnus-group-name-charset gnus-inews-group-method "\n" mapconcat identity ", " no-gcc-self delete] 8 (#$ . 60248)])
#@40 Resend the current article to ADDRESS.
(defalias 'gnus-summary-resend-message #[(address n) "\306!\306	!\307\n\310\311#\f\312\312\211\203I@\211\211 A@);\203@\313\211 A@)\314\"C\241\210A\211\204 *\203[\315!\316BC\"\202]!\312\211\203\251@\211@;\203\240\317\211A@\n\"\203\240\320\236\211 A@)\211\203\217
\321\236\211 A@)\211\203\240
A\211\204f*\322\300\323\311#\210\322\301\324\312\325\326\"\203\277\327\202\300\330EE\"\210\331#!\312$\211\205\376@$\332\312\211\211$$\210r%q\210\312\311&'\333!\210+\334$!\210A\211\204\321\312.\207" [message-header-setup-hook message-sent-hook gnus-newsgroup-name user-full-name user-mail-address tem copy-sequence gnus-group-find-parameter posting-style t nil mm-decode-coding-string utf-8 append ".*" string-match name address add-hook gnus-summary-resend-message-insert-gcc lambda let ((rfc2047-encode-encoded-words nil)) (gnus-agent-possibly-do-gcc) (gnus-inews-do-gcc) gnus-summary-work-articles gnus-summary-select-article message-resend gnus-summary-mark-article-as-forwarded styles style --dolist-tail-- x gnus-posting-styles gnus-agent n article gnus-original-article-buffer message-inhibit-body-encoding gnus-gcc-externalize-attachments] 8 (#$ . 61264) (list (message-read-from-minibuffer "Resend message(s) to: " (if (and gnus-summary-resend-default-address (gnus-buffer-live-p gnus-original-article-buffer)) (progn (save-current-buffer (set-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 \n\307p!\f
\310!-\310
!
./01234\311-\312\313\314\"\210\312\315\316\"\210\312\315\317\"\210\320\3215\2365\"5/\203b/\322\230\204b\3236!\3240\206[1!B5B5\325\216\326\327!\2107q\210p\330\331!89\332\333\3348\"!\210\3359!\210\336 \210\337 \210\340\341!\210\340:\327\"\210db\210;c\210\314 \210eb\210\342\343\311\344#\203\251\345u\210~\210+\346 \210\347 \210\350\351\327\"\210\352\353!\210\354\311!.\n\207" [gnus-newsgroup-charset mail-parse-charset gnus-current-window-configuration gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name current-window-configuration buffer-name copy-sequence nil add-hook message-header-setup-hook gnus-inews-insert-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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 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" 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# #6# #2# message-required-headers gnus-draft-meta-information-header gnus-original-article-buffer to cur message-ignored-resent-headers mail-header-separator] 10 (#$ . 62838) 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 (#$ . 65422) "P"])
#@64 Send a complaint about crossposting to the current article(s).
(defalias 'gnus-summary-mail-crosspost-complaint #[(n) "\306!\307\211\2054
\n@q\210\310	!\210\f\311\312
\"\203%
\313\225\307O\202&
)\307\211./0\314 \2101q\210\315\316\317!\211/\320\"G\321X\203n\316\322!\211.\203Y0\315.\320\"\235\204n.\203f\323\321\324\"\210\202+
\323\321\325\"\210\202+
q\210\326\321!\2102q\210\327 \210\3303/0#c\210\331 \210\332\333!\210\334\335\336\211#\210\30745\204\2404\205 
6\337=\203\2575\242\337=\202\2616\203\354\340 \203\354\341 \203\3547\203\317\342\3437\"\210\3077\202\354\344 \345 U\204\354\346\343!\204\343\347\343!\204\354\342\343\344 \345 {\"\2104\204

5\350=\204
5\242\337=\203

5A\204

\307\2115\202 
5\242\337=\203
5A5\3078\351\352!)\210\353\354!\203+
\355 \210+\nA\211\204\n\307*\207" [n article --dolist-tail-- 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 only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook 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 force transient-mark-mode select-active-regions saved-region-selection mark-active] 5 (#$ . 65641) "P"])
(defalias 'gnus-inews-add-to-address #[(group) "\302\303!\211\205\304 \205\305\306\307\"!\205\310	\311B\")\207" [to-address group mail-fetch-field "to" gnus-alive-p gnus-y-or-n-p format "Do you want to add this as `to-list': %s? " gnus-group-add-parameter to-list] 5])
#@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 (#$ . 67681) "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\314\315\304\316\"\210\315\317\320\"\210\315\317\321 \203B\322\202C\323\324>\203L\325\202M\326\"\210\327\330B\236B\"B<\203x<\331\230\204x\332C!\333=\206q>!BBBB\334\216\321 \204\226D\203\222\335\336!\210\337 \210Ec\210eb\210\340\341!\210\342F\343\344GB\345\346\347\350H\"B\351\347\350\352 \"BF!\210)D\203\274\353IBIeb\210\354 \210\355c\210\356 \357\360 \357\261\210\361\362!\203\3362;\203\3362c\210eb\210\363\364\314\342#\210\322\331!\210)\365 \210\366 \210\367\321 \203\374\322\202\375\323\342\"\210\370\371!\210\372\314!.	\207" [gnus-current-window-configuration gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name message-header-setup-hook mml-buffer-list gnus-alive-p error "Gnus has been shut down" current-window-configuration buffer-name copy-sequence nil add-hook gnus-inews-insert-gcc message-mode-hook #[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 #7="" intern gnus-inews-make-draft ((byte-code "\306	\n\307 \203
\310\202\311\f&\210p\312\313!\210\nB\312\314!\210\f\2030\315\316!\210\317\320!\210\321=\203e\312\322!\210\323\324!\210\323\325!\210\326\325\327\330\331$\210\326\324\327\331\211$\210)\202l\327 \210\330\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) switch-to-buffer "*Gnus Help Bug*" erase-buffer message-pop-to-buffer "*Gnus Bug*" t message-setup To (Subject . #7#) X-Debbugs-Package format "%s" X-Debbugs-Version gnus-continuum-version (gnus-bug-kill-buffer) message-goto-body "\n\n\n\n\n" gnus-version "\n" emacs-version boundp nntp-server-type search-forward "Subject: " message-hide-headers gnus-add-buffer gnus-configure-windows run-hooks post-command-hook set-buffer-modified-p mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header gnus-bug-create-help-buffer gnus-bug-message message-this-is-mail gnus-maintainer gnus-bug-package message-send-actions] 10 (#$ . 68065) 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)rq\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 (#$ . 71065) (list (gnus-completing-read "Buffer" (message-buffers) t) current-prefix-arg)])
#@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\237pq\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\323\324
0#\203n
\317\224\317\225\2110O/B/\202T/\237,/\f/\233\203\203/A/\202t/@)\202\232\321
!\323\325
\"\205\231\326\315
\")*\202\242q\210\327 1\330p!234\331!5\331!6789:;<\3105\332\333\334\"\210\332\335\336\"\210\332\335\337\"\210\340\341=\236=\"=7\203
7\322\230\204
\342>!\3438\206\3779!B=B=\344\216\345 \210\334 \210\203
r	q\210\346!\210\347 \210))\350 \210\351 \210\352\353\307\"\210\354\355!\210\356\310!.\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 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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) 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-current-window-configuration gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header] 11 (#$ . 71544) "P"])
(defalias 'gnus-inews-group-method #[(group) "\306\307	\"J8\204\360
\n\211\203<\203\206\367\310\f\"A\206\367\311\232\203+
\206\340\310\"A\206\340\310\"A\206\340\203d\312\313@@@@@A@#\232\204d\211A@\210\202A\211@@*\206\340\203\230\312\313\211@@)@A@#\232\204\230\211A@\210\202s@)\206\340A\314\211\203\335\315\211A@8\211;\204\252\314\316 \317\320\215+\232\203\252\314\211\204\257+\211!\203\364\310\f\"\204\364!B\fB!))@\321!\211\203\n
<\203\n
\206\350
\310\f\"A\206\350
\311\232\203

\206\321
\310\"A\206\321
\310\"A\206\321
\203U
\312\313@@@@@A@#\232\204U
\211A@\210\2022
\211@@*\206\321
\203\211
\312\313\211@@)@A@#\232\204\211
\211A@\210\202d
@)\206\321
A\314\211\203\316
\315\211A@8\211;\204\233
\314\316 \317\322\215+\232\203\233
\314\211\204\240
+\211!\203\345
\310\f\"\204\345
!B\fB!))@=\203\360
\n\207\315\306\307	\"J88\203\315\306\307	\"J88\207\321!\211\203<\203\206\365\310\f\"A\206\365\311\232\203)
\206\336\310\"A\206\336\310\"A\206\336\203b\312\313@@@@@A@#\232\204b\211A@\210\202?\211@@*\206\336\203\226\312\313\211@@)@A@#\232\204\226\211A@\210\202q@)\206\336A\314\211\203\333\315\211A@8\211;\204\250\314\316 \317\323\215+\232\203\250\314\211\204\255+\211!\203\362\310\f\"\204\362!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 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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) "\303A	\"\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" assoc x name name-method no-enter-cache] 5) gnus-group-method (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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# "\303A	\"\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# assoc x name name-method no-enter-cache] 5) (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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# "\303A	\"\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# assoc x name name-method no-enter-cache] 5) gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache 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@A\211\205\262\313\310!\210~\210\314\315\316\"!@@\211A@@\211\205\262\317
!\320
\321\f
\"\"\322\f!\204^\323\324\f;\203Z\f\202\\\f@\"\210\325
\312\f#\204k\326
\f\"\210B;\203y\327B
\"\202{B\212\330\331!\210rAq\210C)C\332A!\210\333\334!\210\335 \210\333\336!\210\214\306 \210DE\214\337 \210\340\341!)F\214\337 \210\340\342!)G\321\fF\206\277\343\"H\321\fG\206\312\343\"I\344H\205\330\341HBCI\205\342\342IBCJ#J\345 \210.eb\210\346\347\350K!\351Q\311\312#\203
\352\343\312\211#\210\353
L\311\354\355\217*\203
\356
\f\312\211$\211\204$
\357\360\361
\362\f!$\210\f;\203$\f\211M\203;
M<\203;
M\206\"\363MN\"A\206\"M\364\232\203Q
O\206\363MP\"A\206\363MQ\"A\206RSS\203\215
M\365\366S@@@S@@A@#\232\204\215
S\211AS@\210\202i
S\211T@@*\206UVV\203\302
M\365\366V\211T@@)V@A@#\232\204\302
V\211AV@\210\202\234
V@)\206WA\311\211XYY\203\367Y\211AY@8\211;\204\323
M\f\311\312Z[\370\371\215+\232\203\323
\fX\311\211Y\204\330
X+\211\\\203\363MN\"\204M\\BNBN\\))\f<\203e\f\211O]\211^]\232\206]^G]GU\205]^\203Z^@]\235\203Z^A\211^\204H^?+\203e\372
!\203\234\373 \203\234_\204~\374\375!\203\207\375J\203\207\376
A\"\210\202\234r`q\210
C\311\312abc\377\311\312\"\210,CrAq\210\nC)\201dp!\210)\2021.\n\207" [gcc mml-externalize-attachments options group-art method group 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 run-hooks gnus-gcc-pre-body-encode-hook message-encode-message-body gnus-gcc-post-body-encode-hook 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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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) "\303A	\"\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" assoc x name name-method no-enter-cache] 5) gnus-group-short-name gnus-alive-p boundp gnus-inews-mark-gcc-as-read gnus-group-mark-article-read gnus-group-get-new-news-this-group groups cur gnus-gcc-externalize-attachments message-options 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 no-enter-cache nocache result s2 s1 gnus-gcc-mark-as-read gnus-group-buffer inhibit-read-only gnus-get-new-news-hook gnus-group-marked kill-buffer] 9 nil nil])
#@60 Insert the Gcc to say where the article is to be archived.
(defalias 'gnus-inews-insert-gcc #[(&optional group) "\206	\211\205
\306!\n\206\205\307\310\"\311\204)\311\202\251\f;\2033\fC\202\251\f\204;\311\202\251\f<\203J\f@;\203J\f\202\251\312\f!\203V\f!\202\251\205\251\f\203\247\203\204\f\211@@);\203\204\313\f\211@@)\"\205\232\f\211@A)\202\232\203\226\312\f@!\203\226\f@!\202\232\314\f@!\211\204\247\fA\211\204^\311\204\267
\205]
;\203\302C\212\214\315 \210db\210\316c\210
\203

;\203\350\313\317
\"\203\344\320
\320Q\202


\202

\307	\321\"\206\360\313\317\"\203\377\320\320Q\202
)c\210
\322=\204
\323c\202\\
\324 \325y\210`|\202\\
\211A@\211\203Z
\313\326\"\2032
\2028
\327\"\313\317\"\203J
\320\320Q\202L
c\210)\203
\317c\210\202
\323c*.\207" [group gnus-newsgroup-name gnus-outgoing-message-group gnus-message-archive-group var gcc-self-val 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 result gnus-message-archive-method x groups name str] 4 (#$ . 82244)])
#@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 (#$ . 83481)])
#@62 Configure posting styles according to `gnus-posting-styles'.
(defalias 'gnus-configure-posting-styles #[(&optional group-name) "?\205\336	\206\n\206\306\211\205\307\310\f!!)\203&rq\210
)\202'
\311\211\211\211\211\211\211\211\211\211@-,ABCDEFGHI\n\203\232\312I\313\314#\211J\203\231J\311G\211K\203\215K@\211G\211LA@);\203\204G\315G\211LA@)\316\"C\241\210KA\211K\204d*\317H\320JBC\"H)H\311G\211K\203\273K@\211G\211AG@Feb\210F;\203\304\321FI\"\202l
F\322=\203
M\211\205\327\307\310\f!!)\203\262rMq\210\214\323 \210\324G\211AG@!\211\205\376\321G\211AG@\"+\202l
F9\204
\325F!\203)
\325F!\203
F \202l
\326F!\203\262FJ\202l
F<\203\262F@\322=\203h
M\211\205C
\307\310\f!!)\203\262rMq\210\214\323 \210\324FA@!\211\205d
\321\327F8\"+\202l
\330F!\203\262G\311E\211K\203\261K@\211E\211AE@@\311AE@\331=\203\240
\314AE\211LA@)\202\266
E@\332=\203\263
E\211LA@)\202\266
E@\211D;\203\361
F;\203\354
\333D\311NOP\314Q\321PON#,\203\354
\334\224\203\354
\335D\311\211I$\202\"D\202\"D9\204\376
\325D!\203\325D!\203D \202\"\326D!\205\"DJ\202\"D<\205\"\330D!C@\336=\2034\337@\314A\202A@\340=\203A\341@\314A@\337=\203aA\203aR\203a\342C!\204a\343RC\"CA\203\222C\203\222\344\345!SrSq\210\346\216\347C!\210edb\210\350\351\311x!\203\214`\202\216`T{+C\352\353@B\"B\"B@CBBBBKA\211K\204z
*KA\211K\204\245*\354B\236,\355B\236-\352,\352-B\"\"B\356\357!\210\360B\361\"\211B\311T\211K\203\227K@T\362\357T@\330=\203\374\363\202\210T@\364=\203\365\311\366\367\370TADEE\202\210T@\337=\203D\371\372!\210\311:\371\373!\210\311;TA\2042\363\202\210\365\311\366\374\372TADC\375BBDE\202\210T@9\203U\376\377T@!!\202XT@\365\311\366\201VD\374\201DTADC\201W\201D\201X\370\201YBB\201ZBBBBEEE)\311\201[$\210KA\211K\204\351*,\204\242-\205\334\362\357\365\311\201\\\201]-A\206\264UE\374\201^,A\206\303\201^ D\201U-A\206\317UDD\201_BBF\311\201[$.\f\207" [gnus-inhibit-posting-styles group-name gnus-newsgroup-name gnus-summary-buffer buffer gnus-posting-styles "" buffer-live-p get-buffer nil gnus-group-find-parameter posting-style t mm-decode-coding-string utf-8 append ".*" string-match header nnheader-narrow-to-headers message-fetch-field functionp boundp 2 eval :file :value "\\\\[&[:digit:]]" 1 gnus-match-substitute-replacement 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 address 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 element filep results v value attribute match style styles group tmp-style --dolist-tail-- x gnus-article-copy start string regexp inhibit-changing-match-data message-signature-directory #1# result user-mail-address message-remove-header when (message-goto-eoh) (": " value) ((unless (bolp) (insert "\n"))) local 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")))] 15 (#$ . 83830)])
(byte-code "\300 \210\301\302!\207" [gnus-ems-redefine provide gnus-msg] 2)