;ELC   
;;; compiled by amu@mit.edu on Sat Sep 13 16:19:26 1997
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/gnus-salt.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-salt.el' was compiled for Emacs 19.29 or later"))


(byte-code "АБ!€АВ!‡" [require gnus gnus-sum] 2)
#@77 Minor mode for providing a pick-and-read interface in Gnus summary buffers.
(defvar gnus-pick-mode nil (#$ . 545))
(byte-code "АБВГ\fЕЗ&€АИВЙ\fКЗ&€АЛВМ\fЕЗ&€АНОП\fЕЗ&€АРСТ\fУЗ&€ФХ!„E ВХB„Y Ч ШХЩ\"€В‡" [custom-declare-variable gnus-pick-display-summary nil "*Display summary while reading." :type boolean :group gnus-summary-pick gnus-pick-mode-hook "Hook run in summary pick mode buffers." hook gnus-mark-unpicked-articles-as-read "*If non-nil, mark all unpicked articles as read." gnus-pick-elegant-flow t "If non-nil, gnus-pick-start-reading will run gnus-summary-next-group when no articles have been picked." gnus-summary-pick-line-format "%-5P %U%R%z%I%(%[%4L: %-20,20n%]%) %s\n" "*The format specification of the lines in pick buffers.\nIt accepts the same format specs that `gnus-summary-line-format' does." string boundp gnus-pick-mode-map current-load-list make-sparse-keymap gnus-define-keys-1 ("t" gnus-uu-mark-thread "T" gnus-uu-unmark-thread " " gnus-pick-next-page "u" gnus-summary-unmark-as-processable "U" gnus-summary-unmark-all-processable "v" gnus-uu-mark-over "r" gnus-uu-mark-region "R" gnus-uu-unmark-region "e" gnus-uu-mark-by-regexp "E" gnus-uu-mark-by-regexp "b" gnus-uu-mark-buffer "B" gnus-uu-unmark-buffer "." gnus-pick-article gnus-down-mouse-2 gnus-pick-mouse-pick-region "X" gnus-pick-start-reading "" gnus-pick-start-reading)] 8)
(defalias 'gnus-pick-make-menu-bar #[nil "АБ!?…  АБ!„ ВБBДБЕЖ#€ЗБЖЙ$‡" [boundp gnus-pick-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-pick-mode-map ("Pick" ("Pick" ["Article" gnus-summary-mark-as-processable t] ["Thread" gnus-uu-mark-thread t] ["Region" gnus-uu-mark-region t] ["Regexp" gnus-uu-mark-regexp t] ["Buffer" gnus-uu-mark-buffer t]) ("Unpick" ["Article" gnus-summary-unmark-as-processable t] ["Thread" gnus-uu-unmark-thread t] ["Region" gnus-uu-unmark-region t] ["Regexp" gnus-uu-unmark-regexp t] ["Buffer" gnus-uu-unmark-buffer t]) ["Start reading" gnus-pick-start-reading t] ["Switch pick mode off" gnus-pick-mode gnus-pick-mode])] 5])
#@100 Minor mode for providing a pick-and-read interface in Gnus summary buffers.

\{gnus-pick-mode-map}
(defalias 'gnus-pick-mode #[(&optional arg) "Б=…T ВГ!\f„ ?‚ Е\f!ЖVL„  ЗИЙ\"‡ВК!ЛL€\fЛПЛР\"€С €ТИЙ\"€ВУ!ФL€ХЦЧ\"ѓJ Ш €ЩГЪ#€ЬЭ!‡" [major-mode gnus-summary-mode make-local-variable gnus-pick-mode arg prefix-numeric-value 0 remove-hook gnus-message-setup-hook gnus-pick-setup-message gnus-auto-select-first nil gnus-summary-pick-line-format gnus-summary-line-format gnus-summary-line-format-spec gnus-update-format-specifications summary gnus-update-summary-mark-positions add-hook gnus-summary-goto-unread never gnus-visual-p pick-menu menu gnus-pick-make-menu-bar gnus-add-minor-mode " Pick" gnus-pick-mode-map run-hooks gnus-pick-mode-hook] 4 (#$ . 2632) "P"])
#@42 Make Message do the right thing on exit.
(defalias 'gnus-pick-setup-message #[nil "‰… В	!… ГВ	!!)…% Љq€\f)…% ЕЖЗИЙК%‡" [gnus-summary-buffer buffer get-buffer buffer-name gnus-pick-mode message-add-action (gnus-configure-windows (quote pick) t) send exit postpone kill] 7 (#$ . 3408)])
(byte-code "АБ!„ ВБBА‡" [boundp gnus-pick-line-number 1 current-load-list] 2)
#@33 Return the current line number.
(defalias 'gnus-pick-line-number #[nil "oѓ А‰‡	T‰‡" [1 gnus-pick-line-number] 2 (#$ . 3786)])
#@91 Start reading the picked articles.
If given a prefix, mark all unpicked articles as read.
(defalias 'gnus-pick-start-reading #[(&optional catch-up) "ѓ$ БВ!€„ \fѓ Е €Ж €Зѓ  Й‚! КЛ\"‡\fѓC „1 \fѓ6 НВЛ\"€О!ѓ@ Р ‡С ‡ТУ!‡" [gnus-newsgroup-processable gnus-summary-limit-to-articles nil catch-up gnus-mark-unpicked-articles-as-read gnus-summary-limit-mark-excluded-as-read gnus-summary-first-article gnus-configure-windows gnus-pick-display-summary article pick t gnus-pick-elegant-flow gnus-summary-catchup gnus-group-quit-config gnus-newsgroup-name gnus-summary-exit gnus-summary-next-group error "No articles have been picked"] 3 (#$ . 3921) "P"])
#@86 Pick the article on the current line.
If ARG, pick the article on that line instead.
(defalias 'gnus-pick-article #[(&optional arg) "ѓ( БЉeb€Г!SyДUѓ `)\n„$ ЕЖЗ#€‚' \nb€)ИЙ!‡" [arg nil pos prefix-numeric-value 0 gnus-error 2 "No such line: %s" gnus-summary-mark-as-processable 1] 4 (#$ . 4581) "P"])
(defalias 'gnus-pick-mouse-pick #[(e) "А	!€ЉВГ!)‡" [mouse-set-point e gnus-summary-mark-as-processable 1] 2 nil "e"])
#@96 Pick articles that the mouse is dragged over.
This must be bound to a button-down mouse event.
(defalias 'gnus-pick-mouse-pick-region #[(start-event) "А	!€В	‰A@)‰‰A@:ѓ A@@‚# A@)ИЙ\"T\n‰@)М!О!‰A@С!ѓU Т8‚Z Т8S	Ф\f8Ёѓk Ф\f8‚l Й)S‰pШ	!€`Wѓ… b€Щ €`Ъ‰‰‰`Я €\f:…© аб\f@!!€Ъ.‡" [mouse-minibuffer-check start-event 0 echo-keystrokes event start-posn position start-point count-lines 1 start-line start-window window-frame start-frame window-edges bounds top window-minibuffer-p 3 bottom 2 click-count mouse-selection-click-count mouse-selection-click-count-buffer mouse-set-point gnus-pick-article nil end-of-range last-end-point end-point end (lambda nil (track-mouse (byte-code "А ‰‰:… \n@Г=)„ 	ўД=…л 	ўД=„  	Е	8:ѓ- Е‚. Ж	8)‰‰A@:ѓE A@@‚I A@)‰	ѓT 	\n‰@)=ѓµ М	!ѓµ b€	b€О €ПЖ	\"T‰^]WѓЎ Ф!€О €T‰‚Љ +Ц¦ЧUѓ  `‚  Щ AA‰ѓз WѓФ ЬZ\"€‚з Yѓз ЬZT\"€)‚  ‡" [read-event event object mouse-movement switch-frame 2 1 end position end-point last-end-point start-window integer-or-marker-p start-point gnus-pick-article count-lines this-line start-line min-line max-line goto-line click-count 3 0 end-of-range mouse-position mouse-row top mouse-scroll-subr bottom] 5))) key-binding vector] 6 (#$ . 5010) "e"])
#@76 Go to the next page.  If at the end of the buffer, start reading articles.
(defalias 'gnus-pick-next-page #[nil "ААВГЏ)‡" [nil scroll-in-place (scroll-up) ((end-of-buffer (gnus-pick-start-reading)))] 3 (#$ . 6340) nil])
#@76 Minor mode for providing a binary group interface in Gnus summary buffers.
(defvar gnus-binary-mode nil (#$ . 6567))
#@42 Hook run in summary binary mode buffers.
(defvar gnus-binary-mode-hook nil (#$ . 6690))
(byte-code "АБ!„ ВБB	„ Д ЕБЖ\"€В‡" [boundp gnus-binary-mode-map nil current-load-list make-sparse-keymap gnus-define-keys-1 ("g" gnus-binary-show-article)] 3)
(defalias 'gnus-binary-make-menu-bar #[nil "АБ!?…  АБ!„ ВБBДБЕЖ#€ЗБЖЙ$‡" [boundp gnus-binary-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-binary-mode-map ("Pick" ["Switch binary mode off" gnus-binary-mode t])] 5])
#@76 Minor mode for providing a binary group interface in Gnus summary buffers.
(defalias 'gnus-binary-mode #[(&optional arg) "Б=…? ВГ!€\f„ ?‚ Е\f!ЖV‰…? ВЗ!€ИВЙ!€К	ЛМН\"ѓ5 О €ПГР#€ТУ!‡" [major-mode gnus-summary-mode make-local-variable gnus-binary-mode arg prefix-numeric-value 0 gnus-auto-select-first nil gnus-summary-display-article-function gnus-binary-display-article gnus-visual-p binary-menu menu gnus-binary-make-menu-bar gnus-add-minor-mode " Binary" gnus-binary-mode-map run-hooks gnus-binary-mode-hook] 5 (#$ . 7206) "P"])
#@50 Run ARTICLE through the binary decode functions.
(defalias 'gnus-binary-display-article #[(article &optional all-header) "А	!… ВД )‡" [gnus-summary-goto-subject article automatic gnus-view-pseudos gnus-uu-decode-uu] 2 (#$ . 7751)])
#@51 Bypass the binary functions and show the article.
(defalias 'gnus-binary-show-article #[(&optional arg) "АВ!)‡" [nil gnus-summary-display-article-function gnus-summary-show-article arg] 2 (#$ . 7991) "P"])
(byte-code "АБВГ\fЕЗ&€АИЙК\fЛЗ&€АМНО\fПЗ&‡" [custom-declare-variable gnus-tree-line-format "%(%[%3,3n%]%)" "Format of tree elements." :type string :group gnus-summary-tree gnus-tree-minimize-window t "If non-nil, minimize the tree buffer window.\nIf a number, never let the tree buffer grow taller than that number of\nlines." boolean gnus-selected-tree-face (quote modeline) "*Face used for highlighting selected articles in the thread tree." face] 8)
#@30 Brackets used in tree nodes.
(defvar gnus-tree-brackets (quote ((91 . 93) (40 . 41) (123 . 125) (60 . 62))) (#$ . 8667))
#@51 Characters used to connect parents with children.
(defvar gnus-tree-parent-child-edges (quote (45 92 124)) (#$ . 8794))
(byte-code "АБВГ\fЕЗ&€АИЙК\fЛЗ&€АМНО\fПЗ&€РС!„- ТСBРФ!„= ФBРЦ!„L НЦBРЧ!„[ НЧBРШ!„j НШBРЩ!„y НЩBРЪ!„€ НЪBРЫ!„— НЫBЬЭЮЯ#€„Ѕ а б!€вЫг\"€деж#€Н‡" [custom-declare-variable gnus-tree-mode-line-format "Gnus: %%b %S %Z" "*The format specification for the tree mode line." :type string :group gnus-summary-tree gnus-generate-tree-function (quote gnus-generate-vertical-tree) "*Function for generating a thread tree.\nTwo predefined functions are available:\n`gnus-generate-horizontal-tree' and `gnus-generate-vertical-tree'." (radio (function-item gnus-generate-vertical-tree) (function-item gnus-generate-horizontal-tree) (function :tag "Other" nil)) gnus-tree-mode-hook nil "*Hook run in tree mode buffers." hook boundp gnus-tree-line-format-alist ((110 gnus-tmp-name 115) (102 gnus-tmp-from 115) (78 gnus-tmp-number 100) (91 gnus-tmp-open-bracket 99) (93 gnus-tmp-close-bracket 99) (115 gnus-tmp-subject 115)) current-load-list gnus-tree-mode-line-format-alist gnus-summary-mode-line-format-alist gnus-tree-mode-line-format-spec gnus-tree-line-format-spec gnus-tree-node-length gnus-selected-tree-overlay gnus-tree-displayed-thread gnus-tree-mode-map put gnus-tree-mode mode-class special make-keymap suppress-keymap gnus-define-keys-1 ("" gnus-tree-select-article gnus-mouse-2 gnus-tree-pick-article "" gnus-tree-read-summary-keys "h" gnus-tree-show-summary "	" gnus-info-find-node) substitute-key-definition undefined gnus-tree-read-summary-keys] 8)
(defalias 'gnus-tree-make-menu-bar #[nil "АБ!?…  АБ!„ ВБBДБЕЖ#€ЗБЖЙ$‡" [boundp gnus-tree-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-tree-mode-map ("Tree" ["Select article" gnus-tree-select-article t])] 5])
#@41 Major mode for displaying thread trees.
(defalias 'gnus-tree-mode #[nil "А	\n\"А\fЖ#ИЙК\"ѓ Л €М €Н €ОРТ!€Фp!€ЖЖЉЧ €ШЩЪ!Ы\"€`S)ЭЮ!‡" [gnus-parse-format gnus-tree-mode-line-format gnus-summary-mode-line-format-alist gnus-tree-mode-line-format-spec gnus-tree-line-format gnus-tree-line-format-alist t gnus-tree-line-format-spec gnus-visual-p tree-menu menu gnus-tree-make-menu-bar kill-all-local-variables gnus-simplify-mode-line "Tree" mode-name gnus-tree-mode major-mode use-local-map gnus-tree-mode-map buffer-disable-undo buffer-read-only truncate-lines gnus-set-work-buffer gnus-tree-node-insert make-mail-header "" nil gnus-tree-node-length run-hooks gnus-tree-mode-hook] 4 (#$ . 10687) nil])
#@52 Read a summary buffer key sequence and execute it.
(defalias 'gnus-tree-read-summary-keys #[(&optional arg) "pАГ\fАЕ#€Ж\n!‰…' З	!€ѓ% Й!†# Кb€Л *‡" [nil win buf gnus-article-read-summary-keys arg t get-buffer-window select-window gnus-selected-tree-overlay gnus-overlay-end 1 gnus-tree-minimize] 4 (#$ . 11406) "P"])
#@45 Reconfigure windows to show summary buffer.
(defalias 'gnus-tree-show-summary #[nil "‰… В	!… ГВ	!!)„ ДЕ!‡ЖЗ!€И	!‡" [gnus-summary-buffer buffer get-buffer buffer-name error "There is no summary buffer for this tree buffer" gnus-configure-windows article gnus-summary-goto-subject gnus-current-article] 4 (#$ . 11735) nil])
#@41 Select the article under point, if any.
(defalias 'gnus-tree-select-article #[(article) "p	… Љ\nq€Г	!€)ДЕ!!)‡" [buf article gnus-summary-buffer gnus-summary-goto-article select-window get-buffer-window] 3 (#$ . 12069) (list (gnus-tree-article-number))])
#@45 Select the article under the mouse pointer.
(defalias 'gnus-tree-pick-article #[(e) "А	!€ВГ !‡" [mouse-set-point e gnus-tree-select-article gnus-tree-article-number] 2 (#$ . 12332) "e"])
(defalias 'gnus-tree-article-number #[nil "А`Б\"‡" [get-text-property gnus-number] 3])
#@55 Return a cons with BEG and END of the article region.
(defalias 'gnus-tree-article-region #[(article) "АedБ\n$‰… ДБ\"B)‡" [text-property-any gnus-number article pos next-single-property-change] 6 (#$ . 12612)])
(defalias 'gnus-tree-goto-article #[(article) "АedБ\n$‰… b)‡" [text-property-any gnus-number article pos] 6])
#@34 Center point in the tree window.
(defalias 'gnus-tree-recenter #[nil "А Б\nГ\"\f…] Ж\f!€ѓ И!† Йb€К ЛWѓ* М‚6 К НWѓ5 Й‚6 ОК SЉdb€[y€`)Т\fЉ[y€`)^\"€+Ж!*‡" [selected-window get-buffer-window gnus-tree-buffer t tree-window selected select-window gnus-selected-tree-overlay gnus-overlay-end 1 window-height 4 0 7 2 top height bottom set-window-start] 4 (#$ . 12946)])
#@46 Return the tree buffer properly initialized.
(defalias 'gnus-get-tree-buffer #[nil "ЉА	!q€\nГ=„ Д €Г €p)‡" [get-buffer-create gnus-tree-buffer major-mode gnus-tree-mode gnus-add-current-to-buffer-list] 2 (#$ . 13335)])
(defalias 'gnus-tree-minimize #[nil "…| Б ?…| ВГЖЗ!€И 	S_ZКZК	Лed\"\f	S\f]§ѓ: ^‚< Пp!‰…L С!S\f^…z =?…z У ХЦЧЏ…y ШZ!€Щ!).‡" [gnus-tree-minimize-window one-window-p 0 nil tot-win-height windows walk-windows #[(window) "T‰‡" [windows] 2] frame-height window-min-height 2 count-lines height min tot get-buffer-window win window-height wh selected-window selected G77663 (select-window win) ((error)) enlarge-window select-window] 4])
(defalias 'gnus-tree-node-insert #[(header sparse &optional adopted) ";В!ѓ ‚! ГД!‰Е‰I€ЖЕI€ЗЕI€‰ИH	КHЕH\fНО	\"ѓE 	Е”TЕ•SO‚} НП	\"ѓo Е”НС	\"ѓe 	Е”TЕ•SO†k 	ЕO)‚} \f>ѓ{ У‚} 	\f>ѓЏ A@@‚­ 	ѓњ AA@@‚­ ѓ© Ч8@‚­ @@\f>ѓї A@A‚Э ѓМ Ч8A‚Э 	ѓЩ AA@A‚Э @AЪЪЪЭ`‰Ю!€`‰а\fD#€б\f#.‡" [header dummy vectorp make-mail-header "*****" 0 7 6 2 gnus-tmp-from 1 gnus-tmp-subject gnus-tmp-number string-match "(.+)" "<[^>]+> *$" beg "^\"[^\"]*\"" sparse "***" gnus-tmp-name gnus-tree-brackets adopted 3 gnus-tmp-open-bracket gnus-tmp-close-bracket nil buffer-read-only end gnus-add-text-properties eval gnus-tree-line-format-spec gnus-number gnus-tree-highlight-node] 6])
#@63 Highlight current line according to `gnus-summary-highlight'.
(defalias 'gnus-tree-highlight-node #[(article beg end) "БЉ\fq€ћA† † И	\nћA@†' \fѓ< О@@!„< A‰„- ,@A‰ПВ\"=?…_ СВУ\n!ѓ] \nJ‚^ \n$*‡" [gnus-summary-highlight nil face list gnus-summary-buffer article gnus-newsgroup-scored gnus-summary-default-score 0 score default gnus-newsgroup-data gnus-unread-mark mark eval get-text-property beg gnus-put-text-property end boundp] 7 (#$ . 14762)])
(defalias 'gnus-tree-indent #[(level) "А	T\n_SГ\"c‡" [make-string gnus-tree-node-length level 32] 3])
(byte-code "А	BВ	BГ	BА‡" [gnus-tmp-limit current-load-list gnus-tmp-sparse gnus-tmp-indent] 2)
#@36 Generate a thread tree for THREAD.
(defalias 'gnus-generate-tree #[(thread) "ЉА q€БВЕ €В\"€ИЙ!€eb€К €Л €М ОqР\"…= СОqР\"!€Т €С!,‡" [gnus-get-tree-buffer nil 0 gnus-tmp-indent buffer-read-only erase-buffer gnus-generate-tree-function thread gnus-set-mode-line tree gnus-tree-minimize gnus-tree-recenter selected-window selected get-buffer-window gnus-tree-buffer t select-window gnus-horizontal-recenter] 4 (#$ . 15445)])
#@29 Generate a horizontal tree.
(defalias 'gnus-generate-horizontal-tree #[(thread level &optional dummyp adopted) "@;‰† @… @ВH>ЕЕ\f„$ A‚{ n„0 @c€‚l 	ВU„l К	!€A@c€`‰Л ZМZНy€u€gОUѓh ПМ!€AA@c€‚M b€ЕС‰A@#€„‰ n?…« Фc‚« …« Х‰A@\fѓќ 	T‚џ 	†Ґ 		$€‚‰ ,‡" [thread dummy 0 gnus-tmp-limit do nil col beg gnus-tree-parent-child-edges level gnus-tree-indent gnus-point-at-bol 1 -1 32 delete-char dummyp gnus-tree-node-insert gnus-tmp-sparse adopted "\n" gnus-generate-horizontal-tree] 6 (#$ . 15886)])
(defalias 'gnus-tree-indent-vertical #[nil "T	_`В ZZ‰ДV… ЕЖ\"c)‡" [gnus-tree-node-length gnus-tmp-indent gnus-point-at-bol len 0 make-string 32] 4])
(put (quote gnus-tree-indent-vertical) (quote byte-optimizer) (quote byte-compile-inline-expand))
(defalias 'gnus-tree-forward-line #[(n) "S‰БYѓ ВyБU„  Г€Дc€‚  Г‡" [n 0 1 nil "\n"] 2])
(put (quote gnus-tree-forward-line) (quote byte-optimizer) (quote byte-compile-inline-expand))
#@27 Generate a vertical tree.
(defalias 'gnus-generate-vertical-tree #[(thread level &optional dummyp adopted) "@;‰† @… @ВH>Е\f„! A‚[ЉВy€o)„z T_`Й ZZ‰\nВV…C Л\nМ\"c)€ЛНҐМ\"c€AA@c€ПS‰ВYѓs ПyВU„X Е€Сc€‚X Е€)‚ВU„‰\\SS‰ВYѓЈ ПyВU„€ Е€Сc€‚€ Е€)T_`Й ZZ‰\nВV…А Л\nМ\"c)€УФ!€A@c€`Фu€`SfМUѓй УФ!€@c€Фu€‚Т b€ПS‰ВYѓПyВU„р Е€Сc€‚р Е€)ЕT_`Й ZZ‰\nВV…+Л\nМ\"c)€Ц‰A@#€ПS‰ВYѓWПyВU„<Е€Сc€‚<Е€)„neb€Е€T‰‚ђ…ђЩ‰A@\fѓ‚T‚„†Љ		$€‚n+‡" [thread dummy 0 gnus-tmp-limit do nil beg gnus-tree-node-length gnus-tmp-indent gnus-point-at-bol len make-string 32 2 gnus-tree-parent-child-edges 1 n "\n" level delete-char -1 dummyp gnus-tree-node-insert gnus-tmp-sparse adopted gnus-generate-vertical-tree] 6 (#$ . 16861)])
#@69 Generate the thread tree for ARTICLE if it isn't displayed already.
(defalias 'gnus-possibly-generate-tree #[(article &optional force) "Љq€	… \n… ГДћ8!)…Х ЉЉq€ЗДћ8ИHЙ\"\nМ=„? М=„? О=ѓЇ \nѓЇ \n@ПH>„Z \n@ПH>ѓЇ \nAGТXѓx У\n@ПH\"\nA@‰\n‚¬ Х\nA!ѓЇ \nA‰…« @@ПH>ѓЎ @\nЧ‰‚† A‰„‰ Ч)„? \n*„К =?…Ф Э!€‰,‡" [gnus-summary-buffer gnus-use-trees gnus-show-threads vectorp 3 article gnus-newsgroup-data gnus-remove-thread 4 t thread gnus-fetch-old-headers some gnus-build-sparse-threads more 0 gnus-newsgroup-sparse gnus-newsgroup-ancient 1 delq gnus-newsgroup-limit gnus-invisible-cut-children th nil gnus-tmp-sparse gnus-tmp-limit top force gnus-tree-displayed-thread gnus-generate-tree] 5 (#$ . 17669)])
(defalias 'gnus-tree-open #[(group) "А ‡" [gnus-get-tree-buffer] 1])
(defalias 'gnus-tree-close #[(group) "А‡" [nil] 1])
#@45 Highlight the selected article in the tree.
(defalias 'gnus-highlight-selected-tree #[(article) "pАq€Д!‰ѓU ѓ З!ѓ( ИЙКЛ\"‰М#€О	@b	A#€П €Р €С УqФ\"ѓT ХУqФ\"!€Ц €Х!€)Љq€ЧШ!€)\nq*‡" [nil region buf gnus-tree-buffer gnus-tree-article-region article gnus-selected-tree-overlay gnus-extent-detached-p gnus-overlay-put gnus-make-overlay 1 2 face gnus-selected-tree-face gnus-move-overlay gnus-tree-minimize gnus-tree-recenter selected-window selected get-buffer-window t select-window gnus-horizontal-recenter gnus-set-mode-line tree] 4 (#$ . 18559)])
(defalias 'gnus-tree-highlight-article #[(article face) "ЉА q€БГ\f!‰…! Е\n@\nAЖ$€ЗИpЙ\"\nA\"*‡" [gnus-get-tree-buffer nil region gnus-tree-article-region article gnus-put-text-property face set-window-point get-buffer-window t] 5])
(byte-code "АБ!„ ВБBАД!„ ЕДBАЖ!„! ЗЖBАИ!„. ЙИBАК!„; Л\nКBАМ!„H Н\fМBАО!„U ПОBАР!„b СРBАТ!„o УТBУ‡" [boundp gnus-carpal-group-buffer-buttons (("next" . gnus-group-next-unread-group) ("prev" . gnus-group-prev-unread-group) ("read" . gnus-group-read-group) ("select" . gnus-group-select-group) ("catch-up" . gnus-group-catchup-current) ("new-news" . gnus-group-get-new-news-this-group) ("toggle-sub" . gnus-group-unsubscribe-current-group) ("subscribe" . gnus-group-unsubscribe-group) ("kill" . gnus-group-kill-group) ("yank" . gnus-group-yank-group) ("describe" . gnus-group-describe-group) "list" ("subscribed" . gnus-group-list-groups) ("all" . gnus-group-list-all-groups) ("killed" . gnus-group-list-killed) ("zombies" . gnus-group-list-zombies) ("matching" . gnus-group-list-matching) ("post" . gnus-group-post-news) ("mail" . gnus-group-mail) ("rescan" . gnus-group-get-new-news) ("browse-foreign" . gnus-group-browse-foreign) ("exit" . gnus-group-exit)) current-load-list gnus-carpal-summary-buffer-buttons ("mark" ("read" . gnus-summary-mark-as-read-forward) ("tick" . gnus-summary-tick-article-forward) ("clear" . gnus-summary-clear-mark-forward) ("expirable" . gnus-summary-mark-as-expirable) "move" ("scroll" . gnus-summary-next-page) ("next-unread" . gnus-summary-next-unread-article) ("prev-unread" . gnus-summary-prev-unread-article) ("first" . gnus-summary-first-unread-article) ("best" . gnus-summary-best-unread-article) "article" ("headers" . gnus-summary-toggle-header) ("uudecode" . gnus-uu-decode-uu) ("enter-digest" . gnus-summary-enter-digest-group) ("fetch-parent" . gnus-summary-refer-parent-article) "mail" ("move" . gnus-summary-move-article) ("copy" . gnus-summary-copy-article) ("respool" . gnus-summary-respool-article) "threads" ("lower" . gnus-summary-lower-thread) ("kill" . gnus-summary-kill-thread) "post" ("post" . gnus-summary-post-news) ("mail" . gnus-summary-mail) ("followup" . gnus-summary-followup-with-original) ("reply" . gnus-summary-reply-with-original) ("cancel" . gnus-summary-cancel-article) "misc" ("exit" . gnus-summary-exit) ("fed-up" . gnus-summary-catchup-and-goto-next-group)) gnus-carpal-server-buffer-buttons (("add" . gnus-server-add-server) ("browse" . gnus-server-browse-server) ("list" . gnus-server-list-servers) ("kill" . gnus-server-kill-server) ("yank" . gnus-server-yank-server) ("copy" . gnus-server-copy-server) ("exit" . gnus-server-exit)) gnus-carpal-browse-buffer-buttons (("subscribe" . gnus-browse-unsubscribe-current-group) ("exit" . gnus-browse-exit)) gnus-carpal-group-buffer "*Carpal Group*" gnus-carpal-summary-buffer "*Carpal Summary*" gnus-carpal-server-buffer "*Carpal Server*" gnus-carpal-browse-buffer "*Carpal Browse*" gnus-carpal-attached-buffer nil] 2)
#@35 *Hook run in carpal mode buffers.
(defvar gnus-carpal-mode-hook nil (#$ . -22138))
#@31 *Face used on carpal buttons.
(defvar gnus-carpal-button-face (quote bold) (#$ . -22227))
#@38 *Face used on carpal buffer headers.
(defvar gnus-carpal-header-face (quote bold-italic) (#$ . -22323))
(byte-code "АБ!„ ВБBДЕЖЗ#€	„0 И Й	!€К	ЛМ#€К	НМ#€К	П#€В‡" [boundp gnus-carpal-mode-map nil current-load-list put gnus-carpal-mode mode-class special make-keymap suppress-keymap define-key " " gnus-carpal-select "" gnus-mouse-2 gnus-carpal-mouse-select] 4)
#@168 Major mode for clicking buttons.

All normal editing commands are switched off.
\<gnus-carpal-mode-map>
The following commands are available:

\{gnus-carpal-mode-map}
(defalias 'gnus-carpal-mode #[nil "А €	AГЕЗЙ\n!€Лp!€МОП!€РС!‡" [kill-all-local-variables gnus-mode-line-modified mode-line-modified gnus-carpal-mode major-mode "Gnus Carpal" mode-name nil mode-line-process use-local-map gnus-carpal-mode-map buffer-disable-undo t buffer-read-only make-local-variable gnus-carpal-attached-buffer run-hooks gnus-carpal-mode-hook] 2 (#$ . 22697) nil])
(defalias 'gnus-carpal-setup-buffer #[(type) "АБВ\"!JЕ\f!?…‰ ЉЖ\f!q€З €АБИ\"!	К €АБЛ\"!JМ‰ѓv @A;ѓZ Р`c€`Сc€ТD#€‚2 Р`@c€`Сc€ФAТЧЇ#€‚2 Ш ЩZЫed\"€)ЬЭp!e\",)‡" [intern format "gnus-carpal-%s-buffer" type buffer get-buffer get-buffer-create gnus-carpal-mode "gnus-%s-buffer" gnus-carpal-attached-buffer gnus-add-current-to-buffer-list "gnus-carpal-%s-buffer-buttons" nil button buffer-read-only buttons gnus-set-text-properties " " face gnus-carpal-header-face gnus-callback gnus-carpal-button-face gnus-mouse-face-prop highlight window-width 2 fill-column fill-region set-window-point get-buffer-window] 9])
#@32 Select the button under point.
(defalias 'gnus-carpal-select #[nil "А`Б\"‰… Г\fJ!€Е\n!)‡" [get-text-property gnus-callback func pop-to-buffer gnus-carpal-attached-buffer call-interactively] 4 (#$ . 23903) nil])
#@44 Select the button under the mouse pointer.
(defalias 'gnus-carpal-mouse-select #[(event) "А	!€В ‡" [mouse-set-point event gnus-carpal-select] 2 (#$ . 24122) "e"])
(byte-code "А €БВ!‡" [gnus-ems-redefine provide gnus-salt] 2)