;ELC   
;;; compiled by amu@mit.edu on Sat Sep 13 16:19:22 1997
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/gnus-msg.el
;;; emacs version 19.30.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-msg.el' was compiled for Emacs 19.29 or later"))


(byte-code "АБ!€АВ!€АГ!€АД!‡" [require gnus gnus-ems message gnus-art] 2)
#@507 *Preferred method for posting USENET news.
If this variable is nil, Gnus will use the current method to decide
which method to use when posting.  If it is non-nil, it will override
the current method.  This method will not be used in mail groups and
the like, only in "real" newsgroups.

The value must be a valid method as discussed in the documentation of
`gnus-select-method'.  It can also be a list of methods.  If that is
the case, the user will be queried for what select method to use when
posting.
(defvar gnus-post-method nil (#$ . -569))
#@439 *All outgoing messages will be put in this group.
If you want to store all your outgoing mail and articles in the group
"nnml:archive", you set this variable to that value.  This variable
can also be a list of group names.

If you want to have greater control over what group to put each
message in, you can set this variable to a function that checks the
current newsgroup name and then returns a suitable group name (or list
of names).
(defvar gnus-outgoing-message-group nil (#$ . -1124))
#@199 *Regexp matching groups that are really mailing lists.
This is useful when you're reading a mailing list that has been
gatewayed to a newsgroup, and you want to followup to an article in
the group.
(defvar gnus-mailing-list-groups nil (#$ . -1623))
#@55 *If non-nil, add a `to-list' parameter automatically.
(defvar gnus-add-to-list nil (#$ . -1878))
#@52 File where Gnus saves a cache of sent message ids.
(defvar gnus-sent-message-ids-file (nnheader-concat gnus-directory "Sent-Message-IDs") (#$ . 1981))
#@41 The number of sent Message-IDs to save.
(defvar gnus-sent-message-ids-length 1000 (#$ . 2138))
#@161 Format string to be inserted when complaining about crossposts.
The first %s will be replaced by the Newsgroups header;
the second with the current group name.
(defvar gnus-crosspost-complaint "Hi,\n\nYou posted the article below with the following Newsgroups header:\n\nNewsgroups: %s\n\nThe %s group, at least, was an inappropriate recipient\nof this message.  Please trim your Newsgroups header to exclude this\ngroup before posting in the future.\n\nThank you.\n\n" (#$ . 2240))
#@45 Hook run after setting up a message buffer.
(defvar gnus-message-setup-hook nil (#$ . 2729))
(byte-code "АБ!„ ВБBАД!„ ЕДBАЖ!„! ЕЖBЗИBЙКЛЕМ$€ЙНО\"€ЙПО\"€ЙРС\"€ЙТУ\"€ФХЦ\"€ФЧШ\"€АЩ!„Z ЕЩBЕ‡" [boundp gnus-message-buffer "*Mail Gnus*" current-load-list gnus-article-copy nil gnus-last-posting-server "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\nAt the bottom of the buffer you'll see lots of variable settings.\nPlease do not delete those.  They will tell the Bug People what your\nenvironment is, so that it will 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" gnus-bug-message autoload gnus-uu-post-news "gnus-uu" t news-setup "rnewspost" news-reply-mode rmail-dont-reply-to "mail-utils" rmail-output "rmailout" gnus-define-keys-1 (gnus-summary-send-map "S" gnus-summary-mode-map) ("p" gnus-summary-post-news "f" gnus-summary-followup "F" gnus-summary-followup-with-original "c" gnus-summary-cancel-article "s" gnus-summary-supersede-article "r" gnus-summary-reply "R" gnus-summary-reply-with-original "w" gnus-summary-wide-reply "W" gnus-summary-wide-reply-with-original "n" gnus-summary-followup-to-mail "N" gnus-summary-followup-to-mail-with-original "m" gnus-summary-mail-other-window "u" gnus-uu-post-news "г" gnus-summary-mail-crosspost-complaint "om" gnus-summary-mail-forward "op" gnus-summary-post-forward "Om" gnus-uu-digest-mail-forward "Op" gnus-uu-digest-post-forward) (gnus-send-bounce-map "D" gnus-summary-send-map) ("b" gnus-summary-resend-bounced-mail "r" gnus-summary-resend-message) gnus-article-reply] 5)
(defalias 'gnus-setup-message '(macro . #[(config &rest forms) "АБ!АВ!АГ!ЗИBЙB\fКBЛBBBМНОПС\fFТB\"BУ+ХBBЦBBBBBB‡" [make-symbol "winconf" "buffer" "article" article buffer winconf let ((current-window-configuration)) ((buffer-name (current-buffer))) ((and gnus-article-reply (gnus-summary-article-number))) ((message-header-setup-hook (copy-sequence message-header-setup-hook))) (add-hook (quote message-header-setup-hook) (quote gnus-inews-insert-gcc)) (add-hook (quote message-header-setup-hook) (quote gnus-inews-insert-archive-gcc)) unwind-protect append forms gnus-inews-add-send-actions ((setq gnus-message-buffer (current-buffer)) (make-local-variable (quote gnus-newsgroup-name)) (run-hooks (quote gnus-message-setup-hook))) gnus-configure-windows config (t) ((set-buffer-modified-p nil))] 11]))
(defalias 'gnus-inews-add-send-actions #[(winconf buffer article) "АБ!€ВБГДЕ$€ЖЗИЙ\nEEМ ‰ПРDТУФ$€ПХЦЧDDЩЪЧDD…> ЬDEEЭ\"‡" [make-local-hook message-sent-hook add-hook gnus-inews-do-gcc nil t lambda (arg) gnus-post-method arg gnus-newsgroup-name message-post-method gnus-extended-version message-mailer message-newsreader message-add-action set-window-configuration winconf exit postpone kill when buffer-name get-buffer buffer save-excursion set-buffer article gnus-summary-mark-article-as-replied send] 7])
(byte-code "АБВГ#€АБДЕ#‡" [put gnus-setup-message lisp-indent-function 1 edebug-form-spec (form body)] 4)
#@25 Start composing a mail.
(defalias 'gnus-group-mail #[nil "А Бp!\n…  Г`Д\"‰ѓ Ж!€)Г`З\"†  И Й\n!\n\fОКП\"€ОКР\"€СЋТ €)УФХ\"€ЦЧ!,‡" [current-window-configuration buffer-name gnus-article-reply get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence message-header-setup-hook article buffer winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc ((byte-code "А	\n#€pЕЖ!€ЗИ!‡" [gnus-inews-add-send-actions winconf buffer article gnus-message-buffer make-local-variable gnus-newsgroup-name run-hooks gnus-message-setup-hook] 4)) message-mail gnus-configure-windows message t set-buffer-modified-p nil] 6 (#$ . 6152) nil])
#@110 Start composing a news message.
If ARG, post to the group under point.
If ARG is 1, prompt for a group name.
(defalias 'gnus-group-post-news #[(&optional arg) "ѓ Б!ВUѓ ГДЖЗ $‚ И ‚ Й\nЛМ\n\")‡" [arg prefix-numeric-value 1 completing-read "Newsgroup: " gnus-active-hashtb nil gnus-read-active-file-p gnus-group-group-name "" gnus-newsgroup-name gnus-post-news post] 5 (#$ . 6860) "P"])
#@33 Start composing a news message.
(defalias 'gnus-summary-post-news #[nil "А €БВ\"‡" [gnus-set-global-variables gnus-post-news post gnus-newsgroup-name] 3 (#$ . 7259) nil])
#@113 Compose a followup to an article.
If prefix argument YANK is non-nil, original article is yanked automatically.
(defalias 'gnus-summary-followup #[(yank &optional force-news) "А €	ѓ\f В	@!€Г‹€ДЕ`Ж\"‰ѓ В!€)Е`И\"†) Й \nћ8\fНО\f	О&*‡" [gnus-set-global-variables yank gnus-summary-goto-subject ((gnus-summary-select-article)) 3 get-text-property gnus-intangible to gnus-number gnus-summary-last-subject gnus-newsgroup-data gnus-newsgroup-name headers gnus-post-news nil gnus-article-buffer force-news] 9 (#$ . 7438) (list (and current-prefix-arg (gnus-summary-work-articles 1)))])
#@68 Compose a followup to an article and include the original article.
(defalias 'gnus-summary-followup-with-original #[(n &optional force-news) "АБ\n!\"‡" [gnus-summary-followup gnus-summary-work-articles n force-news] 3 (#$ . 8040) "P"])
#@48 Followup to the current mail message via news.
(defalias 'gnus-summary-followup-to-mail #[(&optional arg) "А	В\"‡" [gnus-summary-followup arg t] 3 (#$ . 8283) (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) "АБ\n!Г\"‡" [gnus-summary-followup gnus-summary-work-articles arg t] 3 (#$ . 8513) "P"])
(defalias 'gnus-inews-yank-articles #[(articles) "А‰Г €\f‰A@‰ѓ5 Е‹€Ж €	\nЛ €\n†) МН!*\fѓ Оc€‚ П €\nb*‡" [nil article beg message-goto-body articles ((byte-code "q€БВ‰‰$€Д!‡" [gnus-summary-buffer gnus-summary-select-article nil article gnus-summary-remove-process-mark] 5)) gnus-copy-article-buffer gnus-article-copy gnus-current-headers message-reply-headers message-reply-buffer message-yank-original mark t "\n" push-mark] 2])
#@31 Cancel an article you posted.
(defalias 'gnus-summary-cancel-article #[(n) "А €Б\n!ГДЕЖEEЖ	\n\n‰A\n@‰…q ЛМЖ‰$ѓi Н СТ\"ФЋѓP Х!€Ц!q€‚U Ч!€Ш ,ѓf Щ\"€ЫЬ!€Э €Ю!€‚ +‡" [gnus-set-global-variables gnus-summary-work-articles n lambda (arg) gnus-post-method nil gnus-newsgroup-name article message-post-method articles gnus-summary-select-article t selected-window GnusStartBufferWindow gnus-original-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window window-buffer pop-to-buffer message-cancel-news gnus-summary-mark-as-read gnus-canceled-mark gnus-cache-remove-article 1 gnus-article-hide-headers-if-wanted gnus-summary-remove-process-mark] 6 (#$ . 9173) "P"])
#@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 "А €Б`В\"‰ѓ Д!€)Б`Е\"† Ж И Йp!\n…= Б`В\"‰ѓ3 Д!€)Б`Е\"†= Ж Л\f!\fРМС\"€РМТ\"€УЋФХ!€)ЦЧХ\"€ШЩ!-‡" [gnus-set-global-variables get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject article current-window-configuration buffer-name gnus-article-reply copy-sequence message-header-setup-hook article buffer winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc ((byte-code "q€Б €ВГДЕЖDDИЙЖDDКМBBНОBBFEECBР#€pХЦ!€ЧШ!‡" [gnus-original-article-buffer message-supersede lambda nil when buffer-name get-buffer gnus-summary-buffer save-excursion set-buffer gnus-cache-possibly-remove-article article (nil nil nil t) gnus-summary-mark-as-read (gnus-canceled-mark) message-send-actions gnus-inews-add-send-actions winconf buffer article gnus-message-buffer make-local-variable gnus-newsgroup-name run-hooks gnus-message-setup-hook] 10)) gnus-summary-select-article t gnus-configure-windows reply-yank set-buffer-modified-p nil] 6 (#$ . 9920) nil])
(defalias 'gnus-copy-article-buffer #[(&optional article-buffer) "АБ!Г\n!€\n\f>„ \n\fB† З‰‰	\nЛ!ѓ0 МЛ!!„6 НО!‚њ Љq€Њ~€П\ned#€\nq€РС!€ТУ!€ТФ!€ХЦЧ \"Ш €c€q€eb€Ъ!ѓp Ьy€‚c `	ЭЮЗЯ#†| `\n\nq€ebЭЮЗЯ#†Њ `|€а	\n#€б €*\n,‡" [get-buffer-create " *gnus article copy*" gnus-article-copy buffer-disable-undo gnus-buffer-list article-buffer gnus-article-buffer nil contents beg end get-buffer buffer-name error "Can't find any article buffer" copy-to-buffer gnus-article-delete-text-of-type annotation gnus-remove-text-with-property gnus-prev gnus-next format "%s" buffer-string erase-buffer gnus-original-article-buffer looking-at message-unix-mail-delimiter 1 search-forward "\n\n" t insert-buffer-substring gnus-article-decode-rfc1522] 5])
(defalias 'gnus-post-news #[(post &optional group header article-buffer yank subject force-news) "ѓ Б €\nЕ Жp!\f…- З`И\"‰	ѓ# К	!€)З`Л\"†- М Н!ТОУ\"€ТОФ\"€ХЋ†L ‰ЩЩЩЩЩѓЁ ЯЪ\"ЯЫ\"ЯЭ\"Яа\"!…Њ в!\"#вд#\"ѓЈ #е•ЩO‚Ґ #)ѓґ ж!„з „з '„з ж†Ж (ѓТ (еH‚Ф )\"ѓ„„„*ѓщ л†ф !€‚G,q€н†'?…!€‚G*ѓ9о†!€„G„GѓGпD0B0‚G,q€сЯт\"\"€3ѓQф3!€.х3ѓ]ц‚fѓeч‚fшщ\"€ъЩ!.‡" [article-buffer gnus-copy-article-buffer gnus-add-to-list add-to-list gnus-article-reply current-window-configuration buffer-name get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence message-header-setup-hook article buffer winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc ((byte-code "А	\n#€pЕЖ!€ЗИ!‡" [gnus-inews-add-send-actions winconf buffer article gnus-message-buffer make-local-variable gnus-newsgroup-name run-hooks gnus-message-setup-hook] 4)) group gnus-newsgroup-name pgroup nil to-address to-group mailing-list to-list newsgroup-p gnus-group-find-parameter newsgroup gnus-mailing-list-groups string-match gname "^[^:]+:" 0 gnus-news-group-p force-news header gnus-current-article post message-news gnus-article-copy message-followup message-mail gnus-inews-add-to-address message-send-actions message-wide-reply broken-reply-to yank gnus-inews-yank-articles gnus-configure-windows reply-yank reply message t set-buffer-modified-p] 6])
#@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) "А	!‰„ †\f†‚ѓ$ З=„$ \n‚„3 ѓы @<ѓы И…D @<ѓB ‚D C	\fC\nC$\nЛ\fЛЛ\nѓЙ П\n‰A\n@;ѓs Р!‚¬ \fљѓ~ \f‚¬ @;ѓ‘ 	ѓ‘ С	\"‚¬ ѓЁ 	„Ё A@ПљѓЁ ‚¬ Т!*УФ\"„ї УХ\"ѓV B‚V ЦЧ\"\fШѓа ѓа ‚п ЫЬ\fЛЭ†м ПЗB%‰\f\"A@,‚ѓ‚\f)‡" [gnus-find-method-for-group group group-method gnus-post-method gnus-select-method message-post-method arg 0 append gnus-secondary-select-methods methods nil method-alist post-methods method "" gnus-server-to-method gnus-server-extend-method gnus-server-add-address gnus-method-option-p post post-mail mapcar #[(m) "A@БВ@!ГRD‡" [m " (" symbol-name ")"] 4] assoc silent gnus-last-posting-server completing-read "Posting method: " t] 9 (#$ . 13441)])
(byte-code "АБ!„ ВБBВ‡" [boundp gnus-inews-sent-ids nil current-load-list] 2)
#@51 Check whether this message has already been sent.
(defalias 'gnus-inews-reject-message #[nil "…љ ЊБ €ВГ!)Д‰…™ „ ИЙКЏ€ќѓ1 ЛМН\"!?‚™ B›‰ѓF ДЎ€ЉРТУФ!!qДЧЋШЩЗЪDE!ѓ– Ы=ѓx q€‚– q€ЬЭ!!„Ќ ЮЭ!Ы\"€ЯedДа%€.Д*‡" [gnus-sent-message-ids-file message-narrow-to-headers mail-fetch-field "message-id" nil end message-id gnus-inews-sent-ids G77654 (byte-code "АБ‰‰#‡" [load t] 4) ((error)) gnus-yes-or-no-p format "Message %s already sent.  Send anyway? " gnus-sent-message-ids-length temp-file fundamental-mode default-major-mode get-buffer-create generate-new-buffer-name " *nnheader temp*" temp-buffer temp-results ((byte-code "А	!ѓ\n В	!€А‡" [buffer-name temp-buffer kill-buffer] 2)) gnus-prin1 setq quote t file-directory-p file-name-directory make-directory write-region nomesg] 7 (#$ . 14409)])
(byte-code "А	BВ	BА‡" [nnspool-rejected-article-hook current-load-list xemacs-codename] 2)
#@44 Stringified Gnus version and Emacs version
(defalias 'gnus-extended-version #[nil "БВГ\f\"ѓ Е\fЖ”Ж•OP‚G ВЗ\f\"ѓF \fЖ”Ж•OИЙ\n#М”ѓ6 \fМ”М•O‚7 НОП!…B РСQR‚G \fQ‡" [gnus-version "/" string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version "Emacs " 1 "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?" format " %d.%d" emacs-major-version emacs-minor-version 3 "" boundp xemacs-codename " - \"" "\""] 8 (#$ . 15345) nil])
(defalias 'gnus-inews-insert-mime-headers #[nil "eb€eb€АБ\nБQГД#ѓ ЕЖГД#„ \n‚ ЗИЙ!†^ Кc†^ Њ~€eb€ЛМГД#)ѓM ИН!„B Оc€ИП!†^ Рc‚^ ИН!„V Сc€ИП!†^ Тc)‡" [search-forward "\n" mail-header-separator nil t search-backward "\n\n" "" mail-position-on-field "Mime-Version" "1.0" re-search-forward "[Ђ-я]" "Content-Type" "text/plain; charset=ISO-8859-1" "Content-Transfer-Encoding" "8bit" "text/plain; charset=US-ASCII" "7bit"] 4])
#@136 Start composing a reply mail to the current message.
If prefix argument YANK is non-nil, the original article is yanked
automatically.
(defalias 'gnus-summary-reply #[(&optional yank wide) "А €	ѓ\f В	@!€ГЕ Жp!\f…0 З`И\"‰	ѓ& В	!€)З`К\"†0 Л М!СНТ\"€СНУ\"€ФЋХ €)Ц	ѓU Ч‚V ШГ\"€ЩЪ!-‡" [gnus-set-global-variables yank gnus-summary-goto-subject t gnus-article-reply current-window-configuration buffer-name get-text-property gnus-intangible to gnus-number gnus-summary-last-subject copy-sequence message-header-setup-hook article buffer winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc ((byte-code "А q€БВДЖ\"#€ѓ И!€Й\n\f#€pОЕ!€ПР!‡" [gnus-copy-article-buffer message-reply nil wide gnus-group-find-parameter gnus-newsgroup-name broken-reply-to yank gnus-inews-yank-articles gnus-inews-add-send-actions winconf buffer article gnus-message-buffer make-local-variable run-hooks gnus-message-setup-hook] 6)) gnus-summary-select-article gnus-configure-windows reply-yank reply set-buffer-modified-p nil] 6 (#$ . 16211) (list (and current-prefix-arg (gnus-summary-work-articles 1)))])
#@91 Start composing a reply mail to the current message.
The original article will be yanked.
(defalias 'gnus-summary-reply-with-original #[(n &optional wide) "АБ\n!\"‡" [gnus-summary-reply gnus-summary-work-articles n wide] 3 (#$ . 17336) "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) "А	В\"‡" [gnus-summary-reply yank t] 3 (#$ . 17586) (list (and current-prefix-arg (gnus-summary-work-articles 1)))])
#@96 Start composing a wide reply mail to the current message.
The original article will be yanked.
(defalias 'gnus-summary-wide-reply-with-original #[(n) "А	В\"‡" [gnus-summary-reply-with-original n t] 3 (#$ . 17903) "P"])
#@114 Forward the current message to another user.
If FULL-HEADERS (the prefix), include full headers when forwarding.
(defalias 'gnus-summary-mail-forward #[(&optional full-headers post) "А €Б Вp!…% Д`Е\"‰ѓ З!€)Д`И\"†% Й К!\fПЛР\"€ПЛС\"€ТЋУ €)ФХЦ\"€ЧШ!,‡" [gnus-set-global-variables current-window-configuration buffer-name gnus-article-reply get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence message-header-setup-hook article buffer winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc ((byte-code "q€	ѓ В‚\f Д!€)Ж	#€p\nЛМ!€НО!‡" [gnus-original-article-buffer full-headers "" message-included-forward-headers message-forward post gnus-inews-add-send-actions winconf buffer article gnus-message-buffer make-local-variable gnus-newsgroup-name run-hooks gnus-message-setup-hook] 4)) gnus-summary-select-article gnus-configure-windows forward t set-buffer-modified-p nil] 6 (#$ . 18129) "P"])
#@40 Resend the current article to ADDRESS.
(defalias 'gnus-summary-resend-message #[(address n) "А	!В\f‰A@‰…% ЕВ‰‰$€Љq€З!€)‚ *‡" [gnus-summary-work-articles n nil article articles gnus-summary-select-article gnus-original-article-buffer message-resend address] 5 (#$ . 19127) "sResend message(s) to: \nP"])
#@113 Forward the current article to a newsgroup.
If FULL-HEADERS (the prefix), include full headers when forwarding.
(defalias 'gnus-summary-post-forward #[(&optional full-headers) "А	В\"‡" [gnus-summary-mail-forward full-headers t] 3 (#$ . 19447) "P"])
#@89 Format string to insert in nastygrams.
The current group name will be inserted at "%s".
(defvar gnus-nastygram-message "The following article was inappropriately posted to %s.\n\n" (#$ . 19702))
#@56 Send a nastygram to the author of the current article.
(defalias 'gnus-summary-mail-nastygram #[(n) "„\n БВ!…\" Е!€q€И €Й\n\f\"c€Л )‡" [gnus-expert-user gnus-y-or-n-p "Really send a nastygram to the author of the current article? " gnus-newsgroup-name group gnus-summary-reply-with-original n gnus-message-buffer message-goto-body format gnus-nastygram-message message-send-and-exit] 3 (#$ . 19903) "P"])
#@64 Send a complaint about crossposting to the current article(s).
(defalias 'gnus-summary-mail-crosspost-complaint #[(n) "А	!В\f‰A@‰…є q€Ж!€ЙК\"ѓ, Л•ВO‚. )В‰\fП €q€СТУ!‰Ф\"GХXѓv ТЦ!‰\fѓa С\fФ\"ќ„v \fѓn ЧХШ\"€‚¶ ЧХЩ\"€‚¶ q€ЪХ!€q€Ь €Э#c€Я €аб!€вгд‰#€еж!ѓ­ 'ѓ­ В(йк!€лм!ѓ¶ н €+‚ *‡" [gnus-summary-work-articles n nil article articles gnus-summary-buffer gnus-summary-goto-subject gnus-newsgroup-name gname string-match "^[^:]+:" 0 followup-to newsgroups group gnus-summary-select-article gnus-original-article-buffer message-tokenize-header mail-fetch-field "newsgroups" ", " 1 "followup-to" gnus-message "Followup-to restricted" "Not a crossposted article" gnus-summary-reply-with-original gnus-message-buffer message-goto-body format gnus-crosspost-complaint message-goto-subject re-search-forward " *$" replace-match " (crosspost notification)" t fboundp deactivate-mark transient-mark-mode mark-active run-hooks deactivate-mark-hook gnus-y-or-n-p "Send this complaint? " message-send-and-exit] 4 (#$ . 20322) "P"])
#@31 Compose mail in other window.
(defalias 'gnus-summary-mail-other-window #[nil "А Бp!\n…  Г`Д\"‰ѓ Ж!€)Г`З\"†  И Й\n!\n\fОКП\"€ОКР\"€СЋТ €)УФХ\"€ЦЧ!,‡" [current-window-configuration buffer-name gnus-article-reply get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence message-header-setup-hook article buffer winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc ((byte-code "А	\n#€pЕЖ!€ЗИ!‡" [gnus-inews-add-send-actions winconf buffer article gnus-message-buffer make-local-variable gnus-newsgroup-name run-hooks gnus-message-setup-hook] 4)) message-mail gnus-configure-windows message t set-buffer-modified-p nil] 6 (#$ . 21383) nil])
(defalias 'gnus-mail-parse-comma-list #[nil "А‰ГАw€m„d `ДАw€ЉЊЕ	`}€	b€ЗИЙАК#ѓ/ T‚ ЕUѓ: Л‚< Л\"+ЕUѓO МАw€ДАw€‚ ГАx€	`{\nBДАw€НАw€‚ \n*‡" [nil beg accumulated " " "^," 0 i logand search-forward "\"" t 2 "," ", "] 5])
(defalias 'gnus-inews-add-to-address #[(group) "АБ!‰… Г … ДЕЖ\n\"!… ЗЙ\nB\")‡" [mail-fetch-field "to" to-address gnus-alive-p gnus-y-or-n-p format "Do you want to add this as `to-list': %s " gnus-group-add-parameter group to-list] 5])
#@59 Put the current message in some group and return to Gnus.
(defalias 'gnus-put-message #[nil "	\nѓ Ж!ѓ ЗИЙК #Л\f\"Jѓ% НО\"€ЉЊ~€П €ЙС ѓ< Т!€‚A Т!€)db€ХЦ±€~€*Ч €Ш!…‡ ў‰…n ;ѓj Ш‚k Ы!)ѓЂ @q€AѓЂ ЬA!€\f…‡ Э\f!+‡" [gnus-article-reply gnus-prev-winconf gnus-newsgroup-name group winconf reply gnus-group-read-only-p read-string "Put in group: " nil gnus-writable-groups intern-soft gnus-newsrc-hashtb error "No such group: %s" message-narrow-to-headers gnus-deletable-headers message-news-p message-generate-headers message-required-news-headers message-required-mail-headers "Gcc: " "\n" gnus-inews-do-gcc get-buffer gnus-group-buffer buffer buffer-name gnus-summary-mark-article-as-replied set-window-configuration] 5 (#$ . 22585) nil])
#@91 Send a reply to the address near point.
If YANK is non-nil, include the original article.
(defalias 'gnus-article-mail #[(yank) "ЉАБВГ#€`T)ЉДБВГ#€`S){‰…) Ж!€…) И	AC!)‡" [re-search-backward "[ 	\n]" nil t re-search-forward address message-reply yank gnus-inews-yank-articles gnus-article-current] 6 (#$ . 23353) "P"])
(byte-code "А	BА‡" [nntp-server-type current-load-list] 2)
#@44 Send a bug report to the Gnus maintainers.
(defalias 'gnus-bug #[nil "А „	 БВ!€Г Дp!…+ Ж`З\"‰ѓ! Й!€)Ж`К\"†+ Л М!СНТ\"€СНУ\"€ФЋХ €)ЦЧШ\"€ЩЪ!,‡" [gnus-alive-p error "Gnus has been shut down" current-window-configuration buffer-name gnus-article-reply get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence message-header-setup-hook article buffer winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc ((byte-code "АБ!€В €c€eb€ДЕ!€ЖЗBЙB!€КBeb€МНО!РQ!€Сy€Т У±€Ф У±€ХЦ!ѓL ;ѓL c€Чc€Ш €eb€ЩЪЫЬ#€ЭЮ!€Я !\"#€p#де!€жз!‡" [switch-to-buffer "*Gnus Help Bug*" erase-buffer gnus-bug-message message-pop-to-buffer "*Gnus Bug*" message-setup To gnus-maintainer ((Subject . "")) (gnus-bug-kill-buffer) message-send-actions re-search-forward "^" regexp-quote mail-header-separator "$" 1 gnus-version "\n" emacs-version boundp nntp-server-type "\n\n\n\n\n" gnus-debug search-forward "Subject: " nil t message "" gnus-inews-add-send-actions winconf buffer article gnus-message-buffer make-local-variable gnus-newsgroup-name run-hooks gnus-message-setup-hook] 4)) delete-other-windows gnus-configure-windows bug t set-buffer-modified-p nil] 6 (#$ . 23741) nil])
(defalias 'gnus-bug-kill-buffer #[nil "АБ!…	 ВБ!‡" [get-buffer "*Gnus Help Bug*" kill-buffer] 2])
#@140 Attempts to go through the Gnus source file and report what variables have been changed.
The source file has to be in the Emacs load path.
(defalias 'gnus-debug #[nil "АБ‰‰‰ЗИЙ\"€КЛ!€ЉМН!q€Оp!€ѓj П €Р‰A@!‰ѓ С!ѓ Т!€eb€УФБХ#„R ЗИЦ#€‚ e`}€eb€ЧШЩЏ‰ѓ ЪЫЬЏ€‚Y Эp!€)џ‰ѓy Юc€ѓњ Я@!ѓЊ БабЏ€‚• вг@!д±€A‰„} еc€eb€УжБХ#…і зиХ‰#€‚ў -‡" [("gnus.el" "gnus-sum.el" "gnus-group.el" "gnus-art.el" "gnus-start.el" "gnus-async.el" "gnus-msg.el" "gnus-score.el" "gnus-win.el" "gnus-topic.el" "nnmail.el" "message.el") nil sym olist expr file files gnus-message 4 "Please wait while we snoop your variables..." sit-for 0 get-buffer-create " *gnus bug info*" buffer-disable-undo erase-buffer locate-library file-exists-p insert-file-contents re-search-forward "^;;* *Internal variables" t "Malformed sources in file %s" G77655 (byte-code "Аp!‡" [read] 2) ((error)) G77656 (byte-code "@Б=„ @В=ѓ2 Г8;ѓ2 ДЕ8!ѓ* ЖЗ8!Е8Jљ„2 A@BБ‡" [expr defvar defcustom 3 boundp 1 eval 2 olist] 3) ((error)) kill-buffer "------------------ Environment follows ------------------\n\n" boundp (byte-code "АБ\n@\n@J‰:„ 9ѓ& Д=„& Е=„& Ж\n@JD‚) \n@JEp\"‡" [pp setq olist sym nil t quote] 5) ((error)) ";; (makeunbound '" symbol-name ")\n" "\n\n" "[ Ђ]" replace-match ""] 6 (#$ . 25096) nil])
#@259 Re-mail the current message.
This only makes sense if the current message is a bounce message than
contains some mail you have written which has been bounced back to
you.
If FETCH, try to fetch the article that this is a reply to, if indeed
this is a reply.
(defalias 'gnus-summary-resend-bounced-mail #[(&optional fetch) "АБ!€\nq€Г Дp!…) Ж`З\"‰ѓ Й!€)Ж`К\"†) Л М!СНТ\"€СНУ\"€ФЋХЦ!‰…N Ш!Ъ €ѓg ѓg Ь!ѓg Э €+ЮЯБ\"€аб!,‡" [gnus-summary-select-article t gnus-original-article-buffer current-window-configuration buffer-name gnus-article-reply get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence message-header-setup-hook article buffer winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc ((byte-code "А	\n#€pЕЖ!€ЗИ!‡" [gnus-inews-add-send-actions winconf buffer article gnus-message-buffer make-local-variable gnus-newsgroup-name run-hooks gnus-message-setup-hook] 4)) mail-fetch-field "references" references gnus-parent-id parent message-bounce fetch gnus-summary-refer-article gnus-summary-show-all-headers gnus-configure-windows compose-bounce set-buffer-modified-p nil] 6 (#$ . 26391) "P"])
(defalias 'gnus-inews-do-gcc #[(&optional gcc) "А …Ь ЉЊБ €\n† ГДЕЖ#pЕ‰‰	\n‰…Ъ ЛД!€~€М\nН\"		‰A	@‰…Ъ ОПР\"J8„] @УФ!!@=ѓ] ‚} ХПР\"J88ѓy ХПР\"J88‚} Ф!‰!€О!€ЦЖ#„ Ч\"€ЉШЩ!€Ъ\n!€eb€ЫЬЭ!ЯQЕЖ#ѓ№ абЖ‰#€вЖ#„Т гдеж!$€зП!€иp!€)‚0 .‡" [gnus-alive-p message-narrow-to-headers gcc mail-fetch-field "gcc" nil t method group groups cur message-remove-header message-tokenize-header " ," gnus-check-server 2 intern-soft gnus-newsrc-hashtb gnus-message-archive-method gnus-server-to-method gnus-group-method 4 gnus-request-group gnus-request-create-group nnheader-set-temp-buffer " *acc*" insert-buffer-substring re-search-forward "^" regexp-quote mail-header-separator "$" replace-match "" gnus-request-accept-article gnus-message 1 "Couldn't store article in group %s: %s" gnus-status-message sit-for kill-buffer] 7 nil nil])
#@60 Insert Gcc headers based on `gnus-outgoing-message-group'.
(defalias 'gnus-inews-insert-gcc #[nil "ЉЊА €	‰‰9ѓ Д!†# <ѓ  @Е=†# Ж!)ѓ, \n ‚7 \n;„6 \nC…7 \n‰…R И;ѓI ‚O ЙКЛ#М±,‡" [message-narrow-to-headers gnus-outgoing-message-group group form fboundp lambda compiled-function-p gcc "Gcc: " mapconcat identity " " "\n"] 6 (#$ . 28464)])
#@60 Insert the Gcc to say where the article is to be archived.
(defalias 'gnus-inews-insert-archive-gcc #[(&optional group) "\n† † ДЕЕ„ Е‚Б 	;ѓ% 	C‚Б 	„- Е‚Б 	<ѓ< 	@;ѓ< 	‚Б 	‰	9ѓK К	!†] 	<ѓY 	@Л=†] М	!)ѓg 	\n!‚Б 	ѓї 	@@;ѓЃ Н	@@\n\"…І 	@A‚І 	@‰	9ѓ‘ К	!†Ј 	<ѓџ 	@Л=†Ј М	!)ѓ® 	@\n!‚І О	@!‰„ї 	A‰„k Е…A;ѓЦ CЉЊС €db€Тc€ѓУФ\"‰ѓ;ѓъ ‚ы \nc€Х=„	Цc‚@Чy€Ш ‚@‰A@‰ѓ>НЩ\"ѓ+‚1Ъ\"c€ѓЫc€‚Цc*.‡" [gnus-message-archive-group var group gnus-newsgroup-name "" nil result gcc-self-val gnus-message-archive-method form fboundp lambda compiled-function-p string-match eval groups name message-narrow-to-headers "Gcc: " gnus-group-find-parameter gcc-self none "\n" 0 kill-line ":" gnus-group-prefixed-name " "] 4 (#$ . 28818)])
#@54 Enter a mail/post buffer to edit and send the draft.
(defalias 'gnus-summary-send-draft #[nil "А €БГД`Е\"‰ѓ З!€)Д`И\"† Й \n\"‰„- ЛМ!‚V Н\n!€П=ѓ= РСТ\"€eb€УФ!€Хu€c€pШЩЪ\"€`b))‡" [gnus-set-global-variables nil buf gnus-request-restore-buffer get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-name error "Couldn't restore the article" switch-to-buffer major-mode news-reply-mode local-set-key "" gnus-inews-news search-forward "\n\n" -1 mail-header-separator gnus-draft-buffer gnus-configure-windows draft t] 5 (#$ . 29605) nil])
(gnus-add-shutdown (quote gnus-inews-close) (quote gnus))
(defalias 'gnus-inews-close #[nil "А‰‡" [nil gnus-inews-sent-ids] 2])
(byte-code "А €БВ!‡" [gnus-ems-redefine provide gnus-msg] 2)