%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325FF& \210\307\326\327\330\313\331\317\332&\210\333\326\334\335#\210\307\336\327\337\313\331\317\340&\210\307\341\327\342\313\331\317\343&\210\307\344\345\346\313\331\317\347&\210\307\350\327\351\313\331\352\353\317\354& \210\307\355\327\356\313\331\315\357\317\360& \210\307\361\327\362\363\364\313\331\317\343& \210\333\365\361\366#\210\307\367\327\370\363\364\313\331\317\371& \210\307\372\373\374\363\375\313\331\317\376& \210\307\377\201@ \201A \313\201B \313\201C \317\201D & \210\201E \201F \236 \"\201G \301\201F \201H \201I E\"\207" [gnus-select-method gnus-group-parameters-more require gnus 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-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 :tag "None" nil) (const :tag "Any" all) 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\242\211\2030 \203 \311 @\"\203 \310 A\202 \n+\207" [name gnus-group-posting-charset-alist value elem alist gnus-group-find-parameter posting-charset-alist t nil string-match] 4 (#$ . 6769)])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\301\313\314#\210\300\315\316\317\304\305\306\307\310\320& \210\312\315\313\314#\210\300\321\322\323\304\305\306\324\310\325& \210\300\326\327\330\306\307\310\331&\210\300\332\333\334\304\314\306\307\310\331& \210\300\335\333\336\306\307\310\331&\210\300\337\340\341\304\342\306\307\310\343& \210\300\344\327\345\304\305\306\307\310\331& \210\300\346\333\347\304\305\306\307\310\331& \210\300\350\333\351\304\342\306\352\306\307\310\331& \210\300\353\327\354\306\307\304\355\310\356& \210\300\357\327\360\306\307\304\355\310\356& \210\361\362\363\327\333$\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 file) make-obsolete-variable "it is no longer used." "24.1" 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 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." 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 (#$ . 10864))
(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)
(defalias 'gnus-inews-make-draft #[(articles) "\302\303\304\305 DEE\207" [gnus-newsgroup-name articles lambda nil gnus-inews-make-draft-meta-information quote] 6])
(byte-code "\300\301\302\303\211\304%\210\300\305\302\303\211\304%\210\300\306\302\"\207" [autoload nnir-article-number "nnir" nil macro nnir-article-group gnus-nnir-group-p] 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\332DEE\333\326\334\335\336>\337BB\330\331\340DE\330\331\315\341\340DEEFE\342\343\344?!D\345BB\346\347\350\351\352BBDE\353\354\355\356\357 \nEDE\360BBE\361\362@B\363
\n> \f\257\364\365\366\354\nEE\365\367E\370BBBBBB\371\372\373>.\374BB\375BBBBBBBBBBBB\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))) ((if (and (gnus-nnir-group-p gnus-newsgroup-name) gnus-article-reply) (nnir-article-number (or (car-safe gnus-article-reply) gnus-article-reply)) gnus-article-reply)) (gnus-article-yanked-articles) ((if (and (gnus-nnir-group-p gnus-newsgroup-name) gnus-article-reply) (nnir-article-group (or (car-safe gnus-article-reply) gnus-article-reply)) 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)) 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) (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\203 C\302 \303\203 \304\305\306\304#P\202 \307\310\260\207" [articles group "(\"" "\"" " " mapconcat #[(elem) "\301:\203 @\202\f !\207" [elem number-to-string] 2] "" ")"] 8])
#@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 \f
&'&\207p(\312 ) * +\313\216\314(\315 ,\316p!\317(!\203W -\203W -\242\206A -\320V\205R .-\242\206P -S\234\321\234\202Y -/\317(!\203\205 -\203\205 -\242\206o -\320V\205\200 .-\242\206~ -S\234\320\234\202\207 (\322!0\322! 1 2 3 4 5 6 7\3120\323\324\325\"\210\323\326\327\"\210\323\326\330\"\210\331\3328\2368\"82\203\336 2\314\230\204\336 \3339!\3343\206\327 4!B8B8\335\216\311 \n \312
&'&\210)\336 \210\337 \210\340\307\341\"\210\342\343!\210\344\312!\210.\n\f\203p)\345+!\210\f)!\210+\341\207" [to subject other-headers continue switch-action yank-action gnus-alive-p message "Gnus not running; using plain Message mode" message-mail nil #[nil "rq\210 \211)\207" [buf group-name gnus-newsgroup-name] 2] "" current-window-configuration buffer-name gnus-nnir-group-p 0 1 copy-sequence add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303 !)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #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 send-actions return-action gnus-newsgroup-name mail-buf group-name buf gnus-current-window-configuration gnus-article-reply nnir-artlist gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header] 10 (#$ . 15716) nil])
#@18 Mail to ADDRESS.
(defalias 'gnus-button-mailto #[(address) "\306 q\210\307 \310p!\311 !\203- \n\203- \n\242\206 \n\312V\205( \n\242\206& \nS\234\313\234\202. \n\f\311 !\203R \n\203R \n\242\206? \n\312V\205M \n\242\206K \nS\234\312\234\202S \314
!\"\314! # $ % & ' ( )\315\"\316\305\317\"\210\316\320\321\"\210\316\320\322\"\210\323\324*\236*\"*$\203\250 $\325\230\204\250 \326+!\327%\206\241 &!B*B*\330\216\331,!\210)\332 \210\333 \210\334\335\336\"\210\337\340!\210\341\315!. \207" [gnus-current-window-configuration gnus-newsgroup-name gnus-article-reply nnir-artlist gnus-article-yanked-articles message-header-setup-hook gnus-copy-article-buffer current-window-configuration buffer-name gnus-nnir-group-p 0 1 copy-sequence nil add-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303 !)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #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 mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header address] 10 (#$ . 18437)])
#@23 Like `message-reply'.
(defalias 'gnus-button-reply #[(&optional to-address wide) "\306 \307p!\310 !\203) \n\203) \n\242\206 \n\311V\205$ \n\242\206\" \nS\234\312\234\202* \n\f\310 !\203N \n\203N \n\242\206; \n\311V\205I \n\242\206G \nS\234\311\234\202O \313
!!\313! \" # $ % & ' (\314!\315\305\316\"\210\315\317\320\"\210\315\317\321\"\210\322\323)\236)\")#\203\244 #\324\230\204\244 \325*!\326$\206\235 %!B)B)\327\216\330+,\"\210)\331 \210\332 \210\333\334\335\"\210\336\337!\210\340\314!. \207" [gnus-current-window-configuration gnus-newsgroup-name gnus-article-reply nnir-artlist gnus-article-yanked-articles message-header-setup-hook current-window-configuration buffer-name gnus-nnir-group-p 0 1 copy-sequence nil add-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303 !)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #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 mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header to-address wide] 10 (#$ . 20520) 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 \205T \3062T \211A\242\211\205S \n@;\203* \307\n@ \"\204D \310\n@!\2038 \n@ !\204D \n@9\203 \n@J\203 \311\306\nA@\nAA@B\"\210\202 0+\207" [gnus-group-posting-charset-alist group elem alist "" nil found string-match functionp throw] 4])
(defalias 'gnus-inews-add-send-actions #[(winconf buffer article &optional config yanked winconf-name) "\306\307\203\n \310\202 \311\312\313$\210\203 \306\314\315\312\313$\210\316\317\320\321 EE\322\323\324\325\326 DE\327\330\fD\331
DEE\332\333\334$\210$\203E \335\336$\"\202\\ %\203[ %<\203U %\202\\ %C\202\\ \312 &\322\327\330\fD\337\f&\205\200 '\340=\203z \341\326&DD\202\200 \342\326&DDEE\343\")\207" [gnus-agent gnus-newsgroup-name message-post-method winconf-name buffer winconf add-hook message-sent-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-live-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!\203S (\203S (\242\206= (\322V\205N )(\242\206L (S\234\311\234\202U (*\321!\203\200 (\203\200 (\242\206j (\322V\205{ )(\242\206y (S\234\322\234\202\201 \323!+\323! , - . / 0 1 2\306+\324\325\326\"\210\324\327\330\"\210\324\327\331\"\210\332\3333\2363\"3-\203\330 -\316\230\204\330 \3344!\335.\206\321 /!B3B3\336\216\337 \210)\340 \210\341 \210\342\343\344\"\210\345\346!\210\347\306!.
\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-current-window-configuration nil #[nil "rq\210 \211)\207" [buffer group gnus-newsgroup-name] 2] 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 gnus-nnir-group-p 0 copy-sequence add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303 !)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #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 nnir-artlist gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header] 10 (#$ . 24173) "P"])
#@330 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!\203S +\203S +\242\206= +\322V\205N ,+\242\206L +S\234\311\234\202U +-\321!\203\200 +\203\200 +\242\206j +\322V\205{ ,+\242\206y +S\234\322\234\202\201 \323!.\323! / 0 1 2 3 4 5\306.\324\325\326\"\210\324\327\330\"\210\324\327\331\"\210\332\3336\2366\"60\203\330 0\316\230\204\330 \3347!\3351\206\321 2!B6B6\336\216\337 8\340\3418\"\203\357 \3428\322\225\"\202\361 8)!\210)\343 \210\344 \210\345\346\347\"\210\350\351!\210\352\306!.
\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-current-window-configuration nil #[nil "rq\210 \211)\207" [buffer group gnus-newsgroup-name] 2] prefix-numeric-value 1 gnus-group-completing-read "Use group" gnus-read-active-file-p gnus-group-group-name "" current-window-configuration buffer-name gnus-nnir-group-p 0 copy-sequence add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303 !)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7] message-news string-match "^[^:]+:" substring message-hide-headers gnus-add-buffer gnus-configure-windows message t run-hooks post-command-hook set-buffer-modified-p gnus-article-reply nnir-artlist gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header gname] 10 (#$ . 26670) "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 (#$ . 29419) "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!\203R '\203R '\242\206< '\321V\205M ('\242\206K 'S\234\311\234\202T ')\320!\203 '\203 '\242\206i '\321V\205z ('\242\206x 'S\234\321\234\202\200 \322!*\322! + , - . / 0 1\306*\323\324\325\"\210\323\326\327\"\210\323\326\330\"\210\331\3322\2362\"2,\203\327 ,\315\230\204\327 \3333!\334-\206\320 .!B2B2\335\216\336 \210)\337 \210\340 \210\341\342\343\"\210\344\345!\210\346\306!.
\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-current-window-configuration nil #[nil "rq\210 \211)\207" [buffer group gnus-newsgroup-name] 2] prefix-numeric-value 1 gnus-group-completing-read "Use group" gnus-read-active-file-p "" current-window-configuration buffer-name gnus-nnir-group-p 0 copy-sequence add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303 !)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #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 nnir-artlist gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header] 10 (#$ . 29999) "P"])
#@375 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!\203R .\203R .\242\206< .\321V\205M /.\242\206K .S\234\311\234\202T .0\320!\203 .\203 .\242\206i .\321V\205z /.\242\206x .S\234\321\234\202\200 \322!1\322! 2 3 4 5 6 7 8\3061\323\324\325\"\210\323\326\327\"\210\323\326\330\"\210\331\3329\2369\"93\203\327 3\315\230\204\327 \333:!\3344\206\320 5!B9B9\335\216\336 ;\337\340;\"\203\356 \341;\321\225\"\202\360 ;)!\210\342\343!\210\344\345!@#\"#)\346 \210\347 \210\350\351\352\"\210\353\354!\210\355\306!.
\207" [gnus-newsgroup-name buffer gnus-article-copy group arg gnus-current-window-configuration nil #[nil "rq\210 \211)\207" [buffer group gnus-newsgroup-name] 2] prefix-numeric-value 1 gnus-group-completing-read "Use group" gnus-read-active-file-p "" current-window-configuration buffer-name gnus-nnir-group-p 0 copy-sequence add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303 !)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7] message-news string-match "^[^:]+:" substring 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 nnir-artlist gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header gname] 10 (#$ . 32489) "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 (#$ . 35381) "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 @@\202 @!\210\307 \310\216\311 \210*\312\313`\314\"\211\203+ \306!\210\210\313`\315\"\2065 \316 \n\"\317 8)\f \320\321\f
\321&\210\322 *\207" [yank #1=#:wconfig gnus-newsgroup-data cl-x gnus-newsgroup-name headers gnus-summary-goto-subject current-window-configuration #[nil "\301!\207" [#1# 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 gnus-article-buffer force-news] 8 (#$ . 35920) (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 (#$ . 36864) "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 (#$ . 37219) (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 (#$ . 37459) "P"])
(defalias 'gnus-inews-yank-articles #[(articles) "\306\211\211\307 \210 \211A\242\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 #[nil "\301!\207" [#1# set-window-configuration] 2] 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
!\315 $\211 %\205\235 %@$\316\317\315\211$$\203\216 \320 &\321\216\212\322\315!\210\323\324!\211 '\203E \325'!@)\326p!\210+\327 () *\330*\331\" +\332\216+\203o \333+!\210\334+!q\210\202t \335*!\210 \206y \n\336 -\203\213 \337$,\"\210\340\341!\210\342 \210\343$!\210%A\211%\204 \315,\207" [symp gnus-newsgroup-name user-mail-address custom-address message-post-method n lambda (arg) gnus-post-method eq quote ('a) gnus-summary-work-articles nil gnus-summary-select-article t current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] gnus-summary-followup message-fetch-field "from" mail-header-parse-address kill-buffer selected-window gnus-get-buffer-window visible #[nil "\301!\207" [#2=#:GnusStartBufferWindow 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 article --dolist-tail-- #1# from #2# gnus-original-article-buffer #3=#:buf #4=#:w gnus-canceled-mark] 7 (#$ . 38429) (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\f \310!\210\210\306`\311\"\206 \312 \313 \314p!\315\f!\203C
\203C
\242\206/
\316V\205> 1
\242\206<
S\234\317\234\202D
2\315\f!\203j
\203j
\242\206V
\316V\205e 1
\242\206c
S\234\316\234\202k \f\320!3\320! 4 5 6 7 8 9 :\3213\322\323\324\"\210\322\325\326\"\210\322\325\327\"\210\330\331;\236;\";5\203\302 5\332\230\204\302 \333<!\3346\206\273 7!B;B;\335\216\336\337!\210=q\210\340 \210\341\321\342\343>D\344>\345\n\346BB\347\n\350BBFEEC?B?\351 \210)\352 \210\353 \210\354\355\337\"\210\356\357!\210\360\321!. \207" [gnus-newsgroup-charset mail-parse-charset article gnus-current-window-configuration gnus-newsgroup-name gnus-article-reply get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject current-window-configuration buffer-name gnus-nnir-group-p 0 1 copy-sequence nil add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\301!\207" [#1# gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7] gnus-summary-select-article t message-supersede lambda when gnus-buffer-live-p with-current-buffer gnus-cache-possibly-remove-article (nil nil nil t) gnus-summary-mark-as-read (gnus-canceled-mark) gnus-inews-insert-gcc message-hide-headers gnus-add-buffer gnus-configure-windows reply-yank run-hooks post-command-hook set-buffer-modified-p nnir-artlist gnus-article-yanked-articles 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] 10 (#$ . 39839) nil])
(defalias 'gnus-copy-article-buffer #[(&optional article-buffer yank-string) "\306\307!rq\210\310 \210) \206 \n\311\211 \211\211 \205' \312\313
!\211!\205'
)\2041 \314\315!\202\317 r q\210#\206< $\316%\206D & & ' $\214~\210\317ed#\210q\210(\203f \320 \210`d|\210(c\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\227 \333y\210\202\212 \334 +`\320 \206\242 d)q\210\334 +eb\320 \206\262 d|\210)\335) \f#\210\336\337\340\"!\"\316 , \"\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 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 gnus-article-charset gnus-newsgroup-charset gnus-article-ignored-charsets gnus-newsgroup-ignored-charsets inhibit-read-only 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\210\307`\312\"\206! \313 \n \314 @\315p!\316A!\203R
\203R
\242\206>
\317V\205M B
\242\206K
S\234\320\234\202S
\f\316A!\203y
\203y
\242\206e
\317V\205t B
\242\206r
S\234\317\234\202{ A\321!C\321! D E F G H I J\322C\323\324\325\"\210\323\326\327\"\210\323\326 \203\256 \330\202\267 \203\266 \331\202\267 \332\333>\203\300 \334\202\301 \335\"\210\336\337K\236K\"KE\203\354 E\340\230\204\354 \341L!\342F\206\345 G!BKBK\343\216M\206\365 A M\344\322M\" NM O\322\211 P '\322\211 Q R\322 SM\203[\345M!P\346M\347\"'\350M!R\346M\351\"ST\205;\352TM\"Q\353M U\352\354U\"\203S\355U\317\225\"\202UU)N\"M'\203g\356'!\204\223S\204\223V\204\223\356O\206yAW\206\200X\"\203\326Q\204\326R\204\326P\204\326Y\203\255\357'\206\250\360O!?\205\250M!\210\202 Zq\210\361 \210\362S\204\277V\203\317\214\363 \210\364\365!)?\205\321\340\202\321'!\210\202 Y\203\377\366P\206\343R!\210R\204 P\204 \203 \367OD[B[\202 Zq\210\361 \210\370P!\210 \203\371 !\210. \372 \210\373 \210\374 \203$\330\202-\203,\331\202-\332\375\"\210\376\377!\210\201\\ \322!.\f\207" [article-buffer yank gnus-add-to-list add-to-list gnus-article-yanked-articles gnus-article-reply gnus-copy-article-buffer get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject current-window-configuration buffer-name gnus-nnir-group-p 0 1 copy-sequence nil add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] 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-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 #[nil "\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=\203c \312\322!\210 \323\324\325\326\327$\210\323\330\325\327\211$)\207\325 \210 \211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #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 "^[^:]+:" substring 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 gnus-current-window-configuration gnus-newsgroup-name nnir-artlist 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 set-buffer-modified-p] 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 (#$ . 47655)])
#@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\330 \206\330\f\202\330
\203?
\310=\204? \311=\203; \202\330\n\202\330
\204N <\203\242 @<\203\242\312 <\205` @<\203^ \202` C4\313\3145\"\313\3156\" C\nC& 7\316\211 8 9\316 :7\203n\3177\211A7\242\211;\203\340\211\211\203\235 \211<\203\235 \211\206\333\320;\"A\206\333\211\321\232\203\260 \206\304\3205\"A\206\304\320<\"A\206\3046\211\203\341 \322\323@@@@@A@#\232\204\341 \211A\266\202\202\304 \211@@\262\206\3044\211\203\322\323@@@A@#\232\204\211A\266\202\202\353 \211@\262\206\304=A\316\211\203\302\211A\262\242\3248\262\262;\204\316\325C\3262\263\211\242\2069 \240\210\204Q\327\330\331\332\333\334!\335\"\324\336%;\"\2105<D\211\203t\211@\327\330\331\337\333\334!\340\"\324\336%\"\210A\266\202\202V\210\211\242A@\341\235\203\207\322\342\242@\"\202\221\322\323\242@\242A@#\211\242B\211;\235\204\257\204\257\320@;\"\204\257\211;B;\266\2020\266\204\232\203\262\316\262\202\266\202\211\203\330\320;\"\204\330B;B;\211\262\266\203\202J\211 \232\203\354 \266\202\202J\211@;\203\377\203\377\343\"\266\202\202J\211\203\204\211A@\317\232\203\262\202J\211\344@!\345\320>\">\203G\346\347P!\236\204G\350@>\236>\203G\312\346\347P!A@DC\"\202H\266\204:\351:\352\"\204\\\351:\353\"\203} :9\235\204} :9B9\202} \313\3549\"8\320?\203\205@\203\205@\202\226\355\356\313\3158\"\325@\206\223\317\310B$\211@8\"A@,\202\330 \311=\203\304\n@A>\204\304\357\n\360\325#\203\304
\203\300\361\362!\210\n\202\330 <\203\327 @<\203\323\361\363!\210 \202\330 *\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 mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" gnus-server-extend-method symbol-name address intern "-address" physical-address gnus-method-option-p post post-mail #[(m) "A@\301\232\203 \302@!D\207A@\303\302@!\304RD\207" [m #1# symbol-name " (" ")"] 4] gnus-completing-read "Posting method" gnus-get-function request-post 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 gnus-server-method-cache gnus-predefined-server-alist gnus-newsrc-alist gnus-valid-select-methods silent gnus-last-posting-server gnus-discouraged-post-methods] 21 (#$ . 47967)])
#@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\312\313\314\315\n!\"#\316\n\317\260\320 \211\205- \f\205- \321\fQ+\207" [gnus-user-agent float-output-format gnus-version gnus-v emacs-v nil gnus "Gnus/" replace-regexp-in-string "0+\\'" "" format "%1.8f" gnus-continuum-version " (" ")" gnus-emacs-version " "] 8 (#$ . 50905) nil])
#@202 Start composing a mail reply to the current message.
If prefix argument YANK is non-nil, the original article is yanked
automatically.
If WIDE, make a wide reply.
If VERY-WIDE, make a very wide reply.
(defalias 'gnus-summary-reply #[(&optional yank wide very-wide) "\306!\204\n \2034 \n;\203 \307\n\"\202# \310\n!\203\" \n!\202# \n\2034 \2044 \f\2044 \311\312!\205\305
@<\203@
@@\202B
@\211 8\206^ \313`\314\"\211\203T \315!\210\210\313`\316\"\206^ \317 9
:\320 ;
\203o \3158!\210\321 <\322p!\323!\203\237 9\203\237 9\242\206\211 9\324V\205\232 =9\242\206\230 9S\234\325\234\202\241 9:\323!\203\314 9\203\314 9\242\206\266 9\324V\205\307 =9\242\206\305 9S\234\324\234\202\315 \326!>\326! ? @ A B C D E\327>\330\331\332\"\210\330\333\334\"\210\330\333
\203 \335\202\336\337>\203\n\340\202 \341\"\210\342\343F\236F\"F@\2036@\320\230\2046\344G!\345A\206/B!BFBF\346\216\f\204B\347 \210\202w\f\327 8\211 H\203vH@8\347\327\211\2118$\210r\350 q\210\351 \210\214\352 \210;\353 P;*HA\211H\204L*\350 q\210\351I!\210\214\352 \210\f\203\217\354 \210;c\210db\210)\355`d\"\210\356\327 \"\210
\203\245\357
!\210\360 \210)\361 \210\362 \210\363
\203\270\335\202\271\336\364\"\210\365\366!\210\367\327!.
\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 gnus-nnir-group-p 0 1 copy-sequence nil add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] 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-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 #[nil "\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=\203Z \311\321!\210 \322\323\324\325\326$\210\322\327\324\326\211$)\207\324 \210 \211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook 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 article gnus-article-reply gnus-article-yanked-articles headers gnus-current-window-configuration nnir-artlist 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 (#$ . 51361) (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 (#$ . 54902)])
#@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 (#$ . 55415) "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 (#$ . 55673) "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 (#$ . 56075) (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 (#$ . 56544) "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 (#$ . 56853) (list (and current-prefix-arg (gnus-summary-work-articles 1)))])
#@135 Start composing a wide reply mail to the current message.
The original article(s) 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 (#$ . 57180) "P"])
#@283 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.
(defalias 'gnus-summary-very-wide-reply #[(&optional yank) "\301\302\303!#\207" [yank gnus-summary-reply t gnus-summary-work-articles] 5 (#$ . 57454) (list (and current-prefix-arg (gnus-summary-work-articles 1)))])
#@230 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.
(defalias 'gnus-summary-very-wide-reply-with-original #[(n) "\301\302!\303\302!#\207" [n gnus-summary-reply gnus-summary-work-articles t] 5 (#$ . 57960) "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 \2039 \311\267\2026 \307\312\2029 \312\307\2029 \312\211\2029 \307\211\2029 ?\313`\314\"\211\203E \315!\210\210\313`\316\"\206O \317 \211 C \320 -\321p!\322.!\203 \f\203 \f\242\206k \f\323V\205z /\f\242\206x \fS\234\324\234\202\200 \f
\322.!\203\246 \f\203\246 \f\242\206\222 \f\323V\205\241 /\f\242\206\237 \fS\234\323\234\202\250 .\325!0\325! 1 2 3 4 5 6 7\3070\326\327\330\"\210\326\331\332\"\210\326\331\333\"\210\334\3358\2368\"82\203\377 2\336\230\204\377 \3379!\3403\206\370 4!B8B8\341\216\342 \210:\211 ;\205\343\344;!\211;!\205;)\203)r:q\210<)\206+=> ? @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 gnus-article-reply gnus-article-yanked-articles 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 gnus-nnir-group-p 0 1 copy-sequence add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303 !)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #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-current-window-configuration gnus-newsgroup-name nnir-artlist 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 (#$ . 58357) "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\210 db\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 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: " encode-coding-string string-match " " "\"" gnus-group-name-charset gnus-inews-group-method "\n" mapconcat identity ", " no-gcc-self delete] 8 (#$ . 61835)])
#@40 Resend the current article to ADDRESS.
(defalias 'gnus-summary-resend-message #[(address n) "\306!\306 !\307\n\310\311# \f\312 \312 \211 \203A @\211 A@;\2038 \313 A@\314\"C\241\210 A\211 \204 * \203S \315 \316 BC\"\202U \312 \211 \203\231 @\211 @;\203\220 \317 \211A \242\n\"\203\220 \320 \236A@\211\203\203
\321 \236A@\211\203\220
A\211 \204^ *\322\300\323\311#\210\322\301\324\312\325\326!\203\257 \327\202\260 \330EE\"\210\331\"!\312 #\211 \205\356 @#\332\312\211\211#$\210r$q\210\312\311 % &\333!\210+\334#!\210 A\211 \204\301 \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 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-- gnus-posting-styles gnus-agent n article gnus-original-article-buffer message-inhibit-body-encoding gnus-gcc-externalize-attachments] 8 (#$ . 62845) (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!\310 !\203+ \f\203+ \f\242\206 \f\311V\205&
\f\242\206$ \fS\234\312\234\202, \f0\310 !\203Q \f\203Q \f\242\206> \f\311V\205L
\f\242\206J \fS\234\311\234\202R \313!1\313! 2 3 4 5 6 7 8\3141\315\316\317\"\210\315\320\321\"\210\315\320\322\"\210\323\3249\2369\"93\203\251 3\325\230\204\251 \326:!\3274\206\242 5!B9B9\330\216\331\332!\210;q\210p\333\334! < =\335\336\337<\"!\210\340=!\210\341 \210\342 \210\343\344!\210\343>\332\"\210db\210?c\210\345 \210eb\210\346\347\314\350#\203\360 \312u\210~\210+\351 \210\352 \210\353\354\332\"\210\355\356!\210\357\314!.\n\207" [gnus-newsgroup-charset mail-parse-charset gnus-current-window-configuration gnus-newsgroup-name gnus-article-reply nnir-artlist current-window-configuration buffer-name gnus-nnir-group-p 0 1 copy-sequence nil add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\301!\207" [#1# gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #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" 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-article-yanked-articles 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 (#$ . 64389) 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 (#$ . 67163) "P"])
#@64 Send a complaint about crossposting to the current article(s).
(defalias 'gnus-summary-mail-crosspost-complaint #[(n) "\306!\307\211\205\250 \n@ q\210\310 !\210\f \311\312
\"\203% \313
\314\225\"\202&
)\307\211 $ % &\315 \210'q\210\316\317\320!\211%\321\"G\322X\203n \317\323!\211$\203Y &\316$\321\"\235\204n $\203f \324\322\325\"\210\202\237 \324\322\326\"\210\202\237 q\210\327\322!\210(q\210\330 \210\331)%&#c\210\332 \210\333\334!\210\335\336\337\211#\210\340 \210\341\342!\203\237 \343 \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 "^[^:]+:" substring 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 deactivate-mark gnus-y-or-n-p "Send this complaint? " message-send-and-exit followup-to newsgroups group gnus-original-article-buffer gnus-message-buffer gnus-crosspost-complaint] 5 (#$ . 67382) "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 (#$ . 68886) "P"])
#@45 Send a bug report to the Emacs maintainers.
(defalias 'gnus-bug #[(subject) "\302!\210\212eb\210\303\304 \"c)\207" [subject gnus-bug-package report-emacs-bug format "X-Debbugs-Package: %s\n"] 3 (#$ . 69270) "sBug Subject: "])
#@51 Yank the current article into a composed message.
(defalias 'gnus-summary-yank-message #[(buffer n) "\305! \205$ \306 @!\210\307\310 \210)r q\210\311\f!\210) \211A\210\202 )\207" [n #1=#:gnus-summary-iterate-articles gnus-inhibit-treatment buffer gnus-article-buffer gnus-summary-work-articles gnus-summary-goto-subject t gnus-summary-select-article message-yank-buffer] 2 (#$ . 69503) (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\240 p q\210\311 \210\312\313\310\307#\203\243 \310f\314>\203) \315y\210\202 \316\310x\210\317\225`{\310 \211 \205\233
G\317U?\205\233 \f\203\213
\317\320
\206M \321!\310 1 2\322\323
2#\203o \324
\317\224\317\225\2112#1B1\202T 1\237, 1\f1\233\203\204 1A1\202u 1@)\202\233 \320
! \322\325
\"\205\232 \326\315
\")*\202\243 q\210\327 3\330p!\3314!\203\324 5\203\324 5\242\206\276 5\317V\205\317 65\242\206\315 5S\234\315\234\202\326 57\3314!\2035\2035\242\206\354 5\317V\205\375 65\242\206\373 5S\234\317\234\2024\332 !8\332 ! 9 : ; < = > ?\3108\333\334\335\"\210\333\336\337\"\210\333\336\340\"\210\341\342@\236@\"@:\203[:\321\230\204[\343A!\344;\206T<!B@B@\345\216\346 \210\347 \210\203sr q\210\350!\210\351 \210))\352 \210\353 \210\354\355\307\"\210\356\357!\210\360\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 mail-header-remove-comments "" string-match "<[^<]+[^< ]" substring "\\(<[^<]+>\\)[ ]*\\'" match-string current-window-configuration buffer-name gnus-nnir-group-p copy-sequence add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303 !)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #1# gnus-message-highlight-citation major-mode mbl1 mbl] 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 ids beg gnus-current-window-configuration gnus-newsgroup-name gnus-article-reply nnir-artlist gnus-article-yanked-articles mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header] 11 (#$ . 69981) "P"])
(defalias 'gnus-inews-group-method #[(group) "\306 \"A@\262\204\234\n\211\203 \211<\203 \211\206M\307 \"A\206M\211\310\232\203, \f\2069\307
\"A\2069\307 \"A\2069 \211\203\\ \311\312@@@@@A@#\232\204\\ \211A\266\202\202? \211@@\262\2069 \211\203\201 \311\312@@@A@#\232\204\201 \211A\266\202\202f \211@\262\2069 A\313\211\2037\211A\262\242\3148\262\262;\204\215 \313\315C\3162(\211\242\206\264 \f\240\210\204\313 \317\320\321\322\323\324!\325\"\314\326% \"\210
D\211\203\355 \211@\317\320\321\327\323\324!\330\"\314\326%\"\210A\266\202\202\317 \210\211\242A@\331\235\203 \311\332\242@\"\202\n\311\312\242@\242A@#\211\242B\211 \235\204$\204$\307@ \"\204$\211 B\266\2020\266\204\232\203\215 \262\313\262\202\215 \266\202\211\203J\307 \"\204JB B\211\262\262@\333!\211\203`\211<\203`\211\206\223\307 \"A\206\223\211\310\232\203r\f\206\307
\"A\206\307 \"A\206 \211\203\242\311\312@@@@@A@#\232\204\242\211A\266\202\202\205\211@@\262\206 \211\203\307\311\312@@@A@#\232\204\307\211A\266\202\202\254\211@\262\206 A\313\211\203}\211A\262\242\3148\262\262;\204\323\313\315C\3162n\211\242\206\372\f\240\210\204\317\320\321\322\323\324!\325\"\314\326% \"\210
D\211\2033\211@\317\320\321\327\323\324!\330\"\314\326%\"\210A\266\202\202\210\211\242A@\331\235\203F\311\332\242@\"\202P\311\312\242@\242A@#\211\242B\211 \235\204j\204j\307@ \"\204j\211 B\266\2020\266\204\232\203\323\262\313\262\202\323\266\202\211\203\220\307 \"\204\220B B\211\262\262@=\203\234\n\207\306 \"A@\262 \314 8)\203\300\306 \"A@\262 \314 8)\207\333!\211\203\320\211<\203\320\211\206\307 \"A\206\211\310\232\203\342\f\206\357\307
\"A\206\357\307 \"A\206\357 \211\203\311\312@@@@@A@#\232\204\211A\266\202\202\365\211@@\262\206\357 \211\2037\311\312@@@A@#\232\2047\211A\266\202\202 \211@\262\206\357 A\313\211\203\355\211A\262\242\3148\262\262;\204C\313\315C\3162\336\211\242\206j\f\240\210\204\201\317\320\321\322\323\324!\325\"\314\326% \"\210
D\211\203\243\211@\317\320\321\327\323\324!\330\"\314\326%\"\210A\266\202\202\205\210\211\242A@\331\235\203\266\311\332\242@\"\202\300\311\312\242@\242A@#\211\242B\211 \235\204\332\204\332\307@ \"\204\332\211 B\266\2020\266\204\232\203C\262\313\262\202C\266\202\211\203 \307 \"\204 B B\211\262\207" [group gnus-newsrc-hashtb gnus-message-archive-method gnus-server-method-cache gnus-select-method gnus-server-alist gethash assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-group-method gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist cl-x] 19])
(defalias 'gnus-inews-do-gcc #[(&optional gcc) "\212\214\306 \210\206 \307\310\311\312#p \311\211\211\211\211\211 @ A B C\211\205t\313\310!\210~\210\314\315\316\"!AA\211AA\242\211@\205t\317@!\320@\321
@\"\"@\322
!\204g \323\324
;\203c
\202e
@\"\210\325@\312
#\204v \326@
\"\210D;\203\205 \327D@\"\202\207 D\212\330\331!\210rCq\210E)E\332C!\210\333\334!\210B\204\253 \335 \210\202\262 \336 \210Bc\210\313\310!\210\333\337!\210\214\306 \210\214\340 \210\341\342!) F\214\340 \210\341\343!) G\321
F\206\332 \344\" H\321
G\206\345 \344\" I\345H\205\363 \342HBCI\205\375 \343IBCJ# J\346 \210.eb\210\347\350\351K!\352Q\311\312#\203 \353\344\312\211#\210\354@\3551N\211;\2031\356!@\2022\211\357!\204<\360!\210\361\362\363\364#!!\2620\266\202\202R\210\311\266\202\203a\365@
\312\211$\211\204k\366\367\370@\371
!$\210
;\203\341
\211\203~\211<\203~\211\206\336\372L\"A\206\336\211\373\232\203\222M\206\307\372N\"A\206\307\372O\"A\206\307P\211\203\303\363\374@@@@@A@#\232\204\303\211A\266\202\202\246\211@@\262\206\307Q\211\203\350\363\374@@@A@#\232\204\350\211A\266\202\202\315\211@\262\206\307RA\311\211\203\305\211A\262\242\3758\262\262;\204\364\311\312C\3762\266\211\242\206 M\240\210\204B\377\201X \201Y \201Z \201[ \201\\ !\201] \"\375\201^ %L\"\210NOD\211\203s\211@\377\201X \201Y \201_ \201[ \201\\ !\201` \"\375\201^ %\"\210A\266\202\202G\210\211\242A@\201a \235\203\212\363\201b \242@\"\202\224\363\374\242@\242A@#\211\242B\211L\235\204\262\204\262\372@L\"\204\262\211LBL\266\2020\266\204\232\203\364\262\311\262\202\364\266\202\211\203\333\372L\"\204\333BLBL\211\262\262
<\203
\211M\232\206\fGGU\205\f\203\n@\235\203\nA\262\202\370?\266\203\203\201c @!@\f\203^\201d \203^S\204:\201e \201f !\203F\201f J\203F\201g @\fA\"\210\202^rTq\210@C\311\312 U V W\201h \311\312\"\210,ErCq\210 E)\201i p!\210)\2025 . \207" [gcc message-encoded-mail-cache mml-externalize-attachments options group-art method message-narrow-to-headers mail-fetch-field "gcc" nil t message-remove-header message-unquote-tokens message-tokenize-header " ," gnus-inews-group-method 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 erase-buffer 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 (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 group groups encoded-cache cur gnus-gcc-externalize-attachments message-options newsgroups-field followup-field group-field-charset followup-field-charset rfc2047-header-encoding-alist mail-header-separator 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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" 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 kill-buffer] 19 nil nil])
#@60 Insert the Gcc to say where the article is to be archived.
(defalias 'gnus-inews-insert-gcc #[(&optional group) "\206 \n\206 \205 \306!?\205 \307\310\311# \312 \313 \204, \313\202\240 \f;\2036 \fC\202\240 \f\204> \313\202\240 \f<\203M \f@;\203M \f\202\240 \314\f!\203Y \f!\202\240 \205\240 \f\203\236 \203{ \f@@;\203{ \315\f@@\"\205\221 \f@A\202\221 \203\215 \314\f@!\203\215 \f@!\202\221 \316\f@!\211 \204\236 \fA\211\204a \313 ! \204\256
\205;\317 \205; ;\203\276 C \212\214\320 \210db\210\321c\210
\203\366
<\203\332 \322\323
\324#\202\337
\"c\210
\325=\204\354 \326c\202:\327 \330y\210`|\202: \211A \242\211!\2038\315\331!\"\203!\202\332! \" \"\315\333\"\"\203(\334\"\334Q\202*\"c\210) \203\366 \333c\210\202\366 \326c*.\207" [group gnus-newsgroup-name gnus-outgoing-message-group gnus-message-archive-group var gcc-self-val gnus-virtual-group-p gnus-group-find-parameter gcc-self t #[(gcc-self-val group) ";\203 \303\304\"\203 \305\305Q\207\207\306 \307\"\206 \n\303\304\n\"\203* \305\n\305Q\202+ \n)\207" [gcc-self-val gnus-newsgroup-name group string-match " " "\"" gnus-group-find-parameter parent-group] 3] nil functionp string-match eval gnus-alive-p message-narrow-to-headers "Gcc: " mapconcat #[(val) " \n\"\207" [gcc-self-get val group] 3] ", " none "\n" point-at-bol 1 ":" gnus-group-prefixed-name " " "\"" gcc-self-get result gnus-message-archive-method groups name str] 5 (#$ . 80015)])
#@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 (#$ . 81495)])
#@62 Configure posting styles according to `gnus-posting-styles'.
(defalias 'gnus-configure-posting-styles #[(&optional group-name) "?\205\331 \206 \n\206 \306 \211 \205 \307\310\f!\211!\205 \f)\203, r q\210
)\202-
\311\211\211\211\211\211\211\211\211\211\211 @ , + A B C D ? E F G H I\n\203\233 \312I\313\314#\211 J\203\232 J\311 G\211 K\203\216 K@\211GA@;\203\205 G\315GA@\316\"C\241\210KA\211K\204m *\317H\320JBC\"H)H\311 G\211 K\203\300K@\211G\211AG\242Feb\210F;\203\314 \321FI\"\203\267IB\202\213F\322=\203L\211 \205\345 \307\310\f!\211!\205\345 \f)\203\267rLq\210\214\323 \210\324G\211AG\242!\211 \205\f\321G\211AG\242\"+\202\210F9\204 \325F!\2037\325F!\203*F \202\210\326F!\203\267FJ\202\210F<\203\267F@\322=\203\204L\211 \205W\307\310\f!\211!\205W\f)\203\267rLq\210\214\323 \210\324FA@!\211 \205\200\321\327F8\"\205\200\211B+\202\210\330F!\203\267G\311 E\211 K\203\266K@\211E\211AE\242@\311AE@\331=\203\270\314AEA@\202\312E@\332=\203\307EA@\202\312E@\211?;\203\375B\203\370\333?\311\314 M\321#)\266\203\203\370\334\224\203\370\335?\311\211B$\202.?\202.?9\204\n\325?!\203$\325?!\203? \202.\326?!\205.?J\202.?<\205.\330?!D@\336\267\202F\337@\314A\202F\340@\314A@\337=\203fA\203fN\203f\341D!\204f\342ND\"DA\203\227D\203\227\343\344! OrOq\210\345\216\346D!\210edb\210\347\311x\350U\203\221`\202\223`T{+D\351\352@C\"C\"C@DBCBCKA\211K\204\226*KA\211K\204\246 *\353C\236+\354C\236,\351+\351,C\"\"C\355C\356\"\211C\311 P\211 K\203\222K@P\357\360P@\330=\203\375\361\202\203P@\362=\203\363\311\364\365\366PADEE\202\203P@\337=\203E\367\370!\210\3118\367\371!\210\3119PA\2043\361\202\203\363\311\364\372\370PADC\373BBDE\202\203P@9\203V\374\375P@!!\202YP@ \363\311\364\376D\372\377PADC\201R \377\201S \366\201T BB\201U BBBBEEE)\311\201V $\210KA\211K\204\352*+\204\235,\205\327\357\360\363\311\201W \201X ,A\206\257QE\372\201Y +A\206\276\201Y D\201Q ,A\206\312QDD\201Z BBF\311\201V $.
\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 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 567 x-face-file 576)) signature x-face file-name-directory nnheader-concat generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents "\n" 0 delq assoc name address sort #[(x y) "@ @\231\207" [x y] 2] add-hook message-setup-hook ignore body lambda save-excursion (message-goto-body) insert make-local-variable message-signature message-signature-file let ((when message-signature (message-insert-signature))) capitalize symbol-name message-remove-header value element filep matched-string results v attribute match style styles group tmp-style --dolist-tail-- gnus-article-copy inhibit-changing-match-data message-signature-directory #1# result user-mail-address 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 (#$ . 81844)])
#@310 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.
(defalias 'gnus-summary-attach-article #[(n) "\305 \306\211\203+ \307\310!\203+ G\311U\203 \312 @!\202' \313\314 \315\306\211 @&\2020 \316 \210p\317 \210\320\n! \203X \321 @!\210\322 \210rq\210\212db\210\323\f!\210* \211A\210\2027 )\324\325\315\"*\207" [destination buffers n #1=#:gnus-summary-iterate-articles 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] 8 (#$ . 85434) "P"])
(provide 'gnus-msg)
Zerion Mini Shell 1.0