;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:02 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-salt.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\304\314\306\315\310\316\312\313&\210\304\317\306\320\310\311\312\313&\210\304\321\322\323\310\311\312\313&\210\304\324\325\326\310\327\312\313&\207" [require gnus gnus-sum gnus-win 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' runs\n `gnus-summary-next-group' when no articles have been picked." gnus-summary-pick-line-format "%-5P %U%R%z%I%(%[%4L: %-23,23n%]%) %s\n" "*The format specification of the lines in pick buffers.\nIt accepts the same format specs that `gnus-summary-line-format' does." string] 8)
(defvar gnus-pick-mode-map (byte-code "\301 \302\300\303\"\210)\207" [map make-sparse-keymap gnus-define-keys-1 (" " gnus-pick-next-page "u" gnus-pick-unmark-article-or-thread "." gnus-pick-article-or-thread gnus-down-mouse-2 gnus-pick-mouse-pick-region "
" gnus-pick-start-reading)] 3))
(defalias 'gnus-pick-make-menu-bar #[nil "\301\302!?\205\303\304!\210\305\302\306\307$\207" [gnus-pick-mode-map boundp gnus-pick-menu (lambda (#1=#:def-tmp-var) (defvar gnus-pick-menu #1# #2="")) nil easy-menu-do-define #2# ("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-by-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-by-regexp t] ["Buffer" gnus-summary-unmark-all-processable t]) ["Start reading" gnus-pick-start-reading t] ["Switch pick mode off" gnus-pick-mode gnus-pick-mode])] 5])
#@97 Non-nil if Gnus-Pick mode is enabled.
Use the command `gnus-pick-mode' to change this variable.
(defvar gnus-pick-mode nil (#$ . 2496))
(make-variable-buffer-local 'gnus-pick-mode)
#@100 Minor mode for providing a pick-and-read interface in Gnus summary buffers.

\{gnus-pick-mode-map}
(defalias 'gnus-pick-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\312\313!\204\314\202T\n\204+\315\316\317\"\210\202T\320\303!\210\314\f\314&\321\314\322\"\210\323 \210\324\316\317\"\210\320\325!\210\326\327\330\331\"\203T\332 \210\333\334\n\203^\335\202_\336\"\210\337\340!\203\200\306 \203s\306 \232\203\200\341\342\n\203}\343\202~\344\"\210)\345 \210\n\207" [#1=#:last-message arg gnus-pick-mode gnus-auto-select-first gnus-summary-pick-line-format gnus-summary-line-format current-message toggle prefix-numeric-value 0 derived-mode-p gnus-summary-mode nil remove-hook gnus-message-setup-hook gnus-pick-setup-message make-local-variable 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 run-hooks gnus-pick-mode-hook gnus-pick-mode-on-hook gnus-pick-mode-off-hook called-interactively-p any message "Gnus-Pick mode %sabled" "en" "dis" force-mode-line-update gnus-summary-line-format-spec] 3 (#$ . 2684) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\207" [gnus-pick-mode-map add-minor-mode gnus-pick-mode " Pick" nil] 6)
#@42 Make Message do the right thing on exit.
(defalias 'gnus-pick-setup-message #[nil "\211\205\304\305	!!)\205#rq\210\n)\205#\306\307\310BB\311\312\313\314%\207" [gnus-summary-buffer buffer gnus-pick-mode gnus-current-window-configuration buffer-live-p get-buffer message-add-action gnus-configure-windows (t) send exit postpone kill] 7 (#$ . 4001)])
(defvar gnus-pick-line-number 1)
#@33 Return the current line number.
(defalias 'gnus-pick-line-number #[nil "o\203\301\211\207T\211\207" [gnus-pick-line-number 1] 2 (#$ . 4396)])
#@91 Start reading the picked articles.
If given a prefix, mark all unpicked articles as read.
(defalias 'gnus-pick-start-reading #[(&optional catch-up) "\203#\306\307!\210	\204\n\203\310 \210\311 \210\312\203\313\202 \314\315\"\207\f\203@	\204/\n\2034\316\307\315\"\210\317
!\203=\320 \207\321 \207\322\323!\207" [gnus-newsgroup-processable catch-up gnus-mark-unpicked-articles-as-read gnus-pick-display-summary gnus-pick-elegant-flow gnus-newsgroup-name gnus-summary-limit-to-articles nil gnus-summary-limit-mark-excluded-as-read gnus-summary-first-article gnus-configure-windows article pick t gnus-summary-catchup gnus-group-quit-config gnus-summary-exit gnus-summary-next-group error "No articles have been picked"] 3 (#$ . 4549) "P"])
#@108 Go to the article number indicated by ARG.
If ARG is an invalid article number, then stay on current line.
(defalias 'gnus-pick-goto-article #[(arg) "\302\212eb\210\303\304	!Sy!\203`)\204\305\306\307	#\202!b)\207" [pos arg nil zerop prefix-numeric-value gnus-error 2 "No such line: %s"] 4 (#$ . 5306)])
#@86 Pick the article on the current line.
If ARG, pick the article on that line instead.
(defalias 'gnus-pick-article #[(&optional arg) "\203\301!\210\302\303!\207" [arg gnus-pick-goto-article gnus-summary-mark-as-processable 1] 2 (#$ . 5624) "P"])
#@181 If `gnus-thread-hide-subtree' is t, then pick the thread on the current line.
Otherwise pick the article on the current line.
If ARG, pick the article/thread on that line instead.
(defalias 'gnus-pick-article-or-thread #[(&optional arg) "\203\302!\210	\203\212\303 \210)\304y\207\305\304!\207" [arg gnus-thread-hide-subtree gnus-pick-goto-article gnus-uu-mark-thread 1 gnus-summary-mark-as-processable] 2 (#$ . 5880) "P"])
#@175 If `gnus-thread-hide-subtree' is t, then unmark the thread on current line.
Otherwise unmark the article on current line.
If ARG, unmark thread/article on that line instead.
(defalias 'gnus-pick-unmark-article-or-thread #[(&optional arg) "\203\302!\210	\203\212\303 )\207\304\305!\207" [arg gnus-thread-hide-subtree gnus-pick-goto-article gnus-uu-unmark-thread gnus-summary-unmark-as-processable 1] 2 (#$ . 6316) "P"])
(defalias 'gnus-pick-mouse-pick #[(e) "\301!\210\212\302\303!)\207" [e mouse-set-point 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) "\306!\210\307\310!\211\3118\206#A@:\203 A@@\202#A@)\312e\f\"T\n\211@)\313!\211A@\314!\203K\3158\202P\3158S\211:\203i\3168\250\203i\3168\202j\317)S\211p\320!\210`\fW\203\201\fb\210\321 \210`\322\211\211` !\323\324!\210:\205\245\325\326@!!\210\322.
\207" [start-event echo-keystrokes start-posn position start-point start-line mouse-minibuffer-check 0 event-start 5 count-lines gnus-window-edges window-minibuffer-p 3 2 1 mouse-set-point gnus-pick-article nil eval (track-mouse (byte-code "\306 A\211\211\242)\307=\204\242\310=\205\315\242\310=\204\311!\211\3128\2069A@:\2036A@@\2029A@)\n\211@)
=\203\231\313\f!\203\231b\210\fb\210\314 \210\315e\f\"T\211^]W\203\205eb\210Sy\210\314 \210T\211\202k+\316\317\246!\203`\202\320 AA\211\203\311W\203\267\321
Z\"\210\202\311Y\203\311\321
ZT\"\210)\202\207" [event object end position end-point start-window gnus-read-event-char mouse-movement switch-frame event-end 5 integer-or-marker-p gnus-pick-article count-lines zerop 3 mouse-position mouse-scroll-subr start-point this-line start-line min-line max-line click-count end-of-range mouse-row top bottom] 5)) key-binding vector start-window bounds top bottom event click-count mouse-selection-click-count mouse-selection-click-count-buffer end-of-range end-point end] 5 (#$ . 6883) "e"])
#@76 Go to the next page.  If at the end of the buffer, start reading articles.
(defalias 'gnus-pick-next-page #[nil "\301\211\302\303\217)\207" [scroll-in-place nil (scroll-up) ((end-of-buffer (gnus-pick-start-reading)))] 4 (#$ . 8469) nil])
#@42 Hook run in summary binary mode buffers.
(defvar gnus-binary-mode-hook nil (#$ . 8714))
(defvar gnus-binary-mode-map (byte-code "\301 \302\300\303\"\210)\207" [map make-sparse-keymap gnus-define-keys-1 ("g" gnus-binary-show-article)] 3))
(defalias 'gnus-binary-make-menu-bar #[nil "\301\302!?\205\303\304!\210\305\302\306\307$\207" [gnus-binary-mode-map boundp gnus-binary-menu (lambda (#1=#:def-tmp-var) (defvar gnus-binary-menu #1# #2="")) nil easy-menu-do-define #2# ("Pick" ["Switch binary mode off" gnus-binary-mode t])] 5])
#@101 Non-nil if Gnus-Binary mode is enabled.
Use the command `gnus-binary-mode' to change this variable.
(defvar gnus-binary-mode nil (#$ . 9256))
(make-variable-buffer-local 'gnus-binary-mode)
#@76 Minor mode for providing a binary group interface in Gnus summary buffers.
(defalias 'gnus-binary-mode #[(&optional arg) "\305 	\306=\203\n?\202\307	!\310V\311\312!\204\313\2029\n\2039\314\303!\210\313\314\304!\210\315\316\317\320\"\2039\321 \210\322\323\n\203C\324\202D\325\"\210\326\327!\203e\305 \203X\305 \232\203e\330\331\n\203b\332\202c\333\"\210)\334 \210\n\207" [#1=#:last-message arg gnus-binary-mode gnus-auto-select-first gnus-summary-display-article-function current-message toggle prefix-numeric-value 0 derived-mode-p gnus-summary-mode nil make-local-variable gnus-binary-display-article gnus-visual-p binary-menu menu gnus-binary-make-menu-bar run-hooks gnus-binary-mode-hook gnus-binary-mode-on-hook gnus-binary-mode-off-hook called-interactively-p any message "Gnus-Binary mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 9451) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\207" [gnus-binary-mode-map add-minor-mode gnus-binary-mode " Binary" nil] 6)
#@50 Run ARTICLE through the binary decode functions.
(defalias 'gnus-binary-display-article #[(article &optional all-header) "\302!\205	\206\303\304 )\207" [article gnus-view-pseudos gnus-summary-goto-subject automatic gnus-uu-decode-uu] 2 (#$ . 10485)])
#@51 Bypass the binary functions and show the article.
(defalias 'gnus-binary-show-article #[(&optional arg) "\302\303	!)\207" [gnus-summary-display-article-function arg nil gnus-summary-show-article] 2 (#$ . 10748) "P"])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\207" [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." (choice boolean integer) gnus-selected-tree-face 'modeline "*Face used for highlighting selected articles in the thread tree." face] 8)
#@30 Brackets used in tree nodes.
(defvar gnus-tree-brackets '((91 . 93) (40 . 41) (123 . 125) (60 . 62)) (#$ . 11519))
#@51 Characters used to connect parents with children.
(defvar gnus-tree-parent-child-edges '(45 92 124) (#$ . 11640))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\207" [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 '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] 8)
(defvar 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)))
(defvar gnus-tree-mode-line-format-alist gnus-summary-mode-line-format-alist)
(defvar gnus-tree-mode-line-format-spec nil)
(defvar gnus-tree-line-format-spec nil)
(defvar gnus-tree-node-length nil)
(defvar gnus-selected-tree-overlay nil)
(defvar gnus-tree-displayed-thread nil)
(defvar gnus-tree-inhibit nil)
(defvar gnus-tree-mode-map nil)
(byte-code "\301\302\303\304#\210\204\305 \306!\210\307\300\310\"\210\311\312\313#\210\301\207" [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] 4)
(defalias 'gnus-tree-make-menu-bar #[nil "\301\302!?\205\303\304!\210\305\302\306\307$\207" [gnus-tree-mode-map boundp gnus-tree-menu (lambda (#1=#:def-tmp-var) (defvar gnus-tree-menu #1# #2="")) nil easy-menu-do-define #2# ("Tree" ["Select article" gnus-tree-select-article t])] 5])
#@41 Major mode for displaying thread trees.
(defalias 'gnus-tree-mode #[nil "\306\307!\210\306\310\311\"\210\312\313\314\"\203\315 \210\316 \210\317 \210\320\321\322\n!\210\323 \210\311\211\212\324 \210\325\326\327\330
\")\331\"\210`S)\332\333!\207" [mode-name major-mode gnus-tree-mode-map buffer-read-only truncate-lines init gnus-set-format tree-mode tree t gnus-visual-p tree-menu menu gnus-tree-make-menu-bar kill-all-local-variables gnus-simplify-mode-line "Tree" gnus-tree-mode use-local-map buffer-disable-undo gnus-set-work-buffer gnus-tree-node-insert "" make-vector 10 nil gnus-run-mode-hooks gnus-tree-mode-hook gnus-tree-node-length] 5 (#$ . 13704) nil])
#@52 Read a summary buffer key sequence and execute it.
(defalias 'gnus-tree-read-summary-keys #[(&optional arg) "?\2050p\306\307q\210\310\f\307\306#\210\311\n!\211\205/\312	!\210
\203-\313
!\206+\314b\210\315 +\207" [gnus-tree-inhibit win buf gnus-article-buffer arg gnus-selected-tree-overlay t nil gnus-article-read-summary-keys get-buffer-window select-window gnus-overlay-end 1 gnus-tree-minimize] 4 (#$ . 14383) "P"])
#@45 Reconfigure windows to show summary buffer.
(defalias 'gnus-tree-show-summary #[nil "\211\205\303\304	!!)\204\305\306!\207\307\310!\210\311\n!\207" [gnus-summary-buffer buffer gnus-current-article buffer-live-p get-buffer error "There is no summary buffer for this tree buffer" gnus-configure-windows article gnus-summary-goto-subject] 4 (#$ . 14818) nil])
#@41 Select the article under point, if any.
(defalias 'gnus-tree-select-article #[(article) "p	\205r\nq\210\303	!\210)\304\305!!)\207" [buf article gnus-summary-buffer gnus-summary-goto-article select-window get-buffer-window] 3 (#$ . 15187) (list (gnus-tree-article-number))])
#@45 Select the article under the mouse pointer.
(defalias 'gnus-tree-pick-article #[(e) "\301!\210\302\303 !\207" [e mouse-set-point gnus-tree-select-article gnus-tree-article-number] 2 (#$ . 15471) "e"])
(defalias 'gnus-tree-article-number #[nil "\300`\301\"\207" [get-text-property gnus-number] 3])
#@55 Return a cons with BEG and END of the article region.
(defalias 'gnus-tree-article-region #[(article) "\302ed\303$\211\205	\304	\303\"B)\207" [article pos text-property-any gnus-number next-single-property-change] 6 (#$ . 15775)])
#@34 Center point in the tree window.
(defalias 'gnus-tree-recenter #[nil "\306 \307\310\"	\205W\311	!\210\203\312!\206\313b\210\314 \315W\203(\316\2024\314 \317W\2033\313\2024\320\314 S\212db\210
[y\210`)\321	\212\f[y\210`)^\"\210+\311\n!*\207" [gnus-tree-buffer tree-window selected gnus-selected-tree-overlay top height selected-window gnus-get-buffer-window t select-window gnus-overlay-end 1 window-height 4 0 7 2 set-window-start bottom] 4 (#$ . 16016)])
#@46 Return the tree buffer properly initialized.
(defalias 'gnus-get-tree-buffer #[nil "r\302!q\210	\303=\204\303 \210p)\207" [gnus-tree-buffer major-mode gnus-get-buffer-create gnus-tree-mode] 2 (#$ . 16498)])
(defalias 'gnus-tree-minimize #[nil "\205t\306 ?\205t\307\310\311\312!\210\313\314 \nS_\315#\315\316ed\"S\f]\247\2033
^\2024
\317p!\211\205D\320!S	^\205r=?\205r\321 \310\322\323\217\205q\324Z!\210\325!).\207" [gnus-tree-minimize-window tot-win-height windows window-min-height height min one-window-p 0 nil walk-windows #[(window) "T\211\207" [windows] 2] - frame-height 2 count-lines get-buffer-window window-height selected-window (select-window win) ((error)) enlarge-window select-window tot win wh selected] 5])
(defalias 'gnus-tree-node-insert #[(header sparse &optional adopted) ";\306!\203
\202%\307\310\311\n\")\211\312\211I\210\313\312I\210\314\312I\210\211\315H\316H\312H\317\320\"\203D\312\224T\312\225SO\202v\317\321\"\203j\312\224\317\322\"\203a\312\224T\312\225SO\206f\312O)\202v
>\203u\323\202v
>\203\207A@@\202\251	\203\224AA@@\202\251\203\241\3248@\202\251\211@@) 
>\203\272A@A\202\334\203\307\3248A\202\334	\203\324AA@A\202\334\211@A)!\325\211\"\325#\326`\211\327$!\210`\211#\330
D#\210\331
##.\207" [header dummy init gnus-tmp-from gnus-tmp-subject gnus-tmp-number vectorp "*****" make-vector 10 0 7 6 2 1 string-match "(.+)" "<[^>]+> *$" "^\"[^\"]*\"" "***" 3 nil gnus-add-text-properties eval gnus-number gnus-tree-highlight-node beg sparse gnus-tmp-name gnus-tree-brackets adopted x gnus-tmp-open-bracket gnus-tmp-close-bracket buffer-read-only end gnus-tree-line-format-spec] 6])
#@63 Highlight current line according to `gnus-summary-highlight'.
(defalias 'gnus-tree-highlight-node #[(article beg end) "\306rq\210\f
\236A\206\f\206\307
\f\f>\211?\f\236A@\2068\n\203Q\310\n\211@@)!\204Q\nA\211\204>.\n\211@A)\211\311\301\"=?\205y\312\301\313	!\203w	J\202x	$*\207" [gnus-summary-highlight face list gnus-summary-buffer article gnus-newsgroup-scored nil 0 eval get-text-property gnus-put-text-property-excluding-characters-with-faces boundp gnus-summary-default-score score default gnus-summary-default-high-score default-high gnus-summary-default-low-score default-low gnus-newsgroup-undownloaded uncached downloaded gnus-newsgroup-data gnus-unread-mark mark x beg end] 7 (#$ . 18260)])
(defalias 'gnus-tree-indent #[(level) "\302T	_S\303\"c\207" [gnus-tree-node-length level make-string 32] 3])
#@36 Generate a thread tree for THREAD.
(defalias 'gnus-generate-tree #[(thread) "r\306 q\210\307\310\311 \210\n\310\"\210\312\313!\210eb\210\314 \210\315 \210\316 \317
q\320\"\2057\321\317
q\320\"!\210\322 \210\321\f!,\207" [gnus-tmp-indent buffer-read-only gnus-generate-tree-function thread selected gnus-tree-buffer gnus-get-tree-buffer nil 0 erase-buffer gnus-set-mode-line tree gnus-tree-minimize gnus-tree-recenter selected-window gnus-get-buffer-window t select-window gnus-horizontal-recenter] 4 (#$ . 19130)])
#@29 Generate a horizontal tree.
(defalias 'gnus-generate-horizontal-tree #[(thread level &optional dummyp adopted) "@;\211\206@\205@\306H\n>\307\211\204\"A\202zn\204.@c\210\202k\310!\204k\311!\210\211A@)c\210\312`\211\313 \314#\315y\210\fu\210\307f\316=\203h\317\314!\210AA@c\210\202M
b\210\307\320\211A@#\210\204\210n?\205\252\321c\202\252\205\252\322\211A@\203\234T\202\236\206\244		$\210\202\210,\207" [thread dummy gnus-tmp-limit do col beg 0 nil zerop gnus-tree-indent - point-at-bol 1 -1 32 delete-char gnus-tree-node-insert "\n" gnus-generate-horizontal-tree gnus-tree-parent-child-edges level x dummyp gnus-tmp-sparse adopted] 6 (#$ . 19656)])
(defalias 'gnus-tree-indent-vertical #[nil "T	_`\303 ZZ\211\304V\205\305\n\306\"c)\207" [gnus-tree-node-length gnus-tmp-indent len point-at-bol 0 make-string 32] 4])
(put 'gnus-tree-indent-vertical 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gnus-tree-forward-line #[(n) "S\211\301Y\203\302\303y!\204\304\210\305c\210\202\304\207" [n 0 zerop 1 nil "\n"] 2])
(put 'gnus-tree-forward-line 'byte-optimizer 'byte-compile-inline-expand)
#@27 Generate a vertical tree.
(defalias 'gnus-generate-vertical-tree #[(thread level &optional dummyp adopted) "@;\211\206@\205@\306H\n>\307\204 A\202\\
\212\310 \210o)\204w
T_`\311 ZZ\211\306V\205A\312\313\"c)\210\312
\314\245\313\"c\210AA@c\210\315S\211\306Y\203p\316\315y!\204U\307\210\317c\210\202U\307)\210\202
\316!\204
\314_SS\211\306Y\203\240\316\315y!\204\205\307\210\317c\210\202\205\307)\210
T_`\311 ZZ\211\306V\205\274\312\313\"c)\210\320\321!\210\211A@)c\210`\321u\210o\204\354`Sf\313=\203\354\320\321!\210@c\210\321u\210\202\321\fb\210\315S\211\306Y\203

\316\315y!\204\362\307\210\317c\210\202\362\307)\210\307
T_`\311 ZZ\211\306V\205,
\312\313\"c)\210\322\211A@#\210\315S\211\306Y\203X
\316\315y!\204=
\307\210\317c\210\202=
\307)\210\204o
eb\210\307\210T\211\202\221
\205\221
\323\211A@\203\203
T\202\205
\206\213
		$\210\202o
+\207" [thread dummy gnus-tmp-limit do beg gnus-tree-node-length 0 nil beginning-of-line point-at-bol make-string 32 2 1 zerop "\n" delete-char -1 gnus-tree-node-insert gnus-generate-vertical-tree gnus-tmp-indent len gnus-tree-parent-child-edges n level x dummyp gnus-tmp-sparse adopted] 6 (#$ . 20830)])
#@69 Generate the thread tree for ARTICLE if it isn't displayed already.
(defalias 'gnus-possibly-generate-tree #[(article &optional force) "rq\210	\205\n\205\306\307\f\2368!)\205
\212rq\210\310\307\f\2368\311H\312\"\313=\204I\314=\204I\247\204I\313=\204I\315=\203\353
\203\353
@\316H>\204a
@\316H>\203\353
AG\317X\204p\314=\203\206\320
@\316H\"
\211A@)\211\202\350
A\316\203\262\211@@)\316H>\203\247T\211A@\210\202\215\321W*\203\353
A\211\205\347\211@@)\316H>\203\335@\322\211\202\277A\211\204\302\322)\204I
* \204
!=?\205
\323!\210\211!,\207" [gnus-summary-buffer gnus-use-trees gnus-show-threads article gnus-newsgroup-data thread vectorp 3 gnus-remove-thread 4 t some invisible more 0 1 delq 2 nil gnus-generate-tree gnus-fetch-old-headers gnus-build-sparse-threads gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-newsgroup-limit x threads num th gnus-tmp-sparse gnus-tmp-limit top force gnus-tree-displayed-thread] 5 (#$ . 22098)])
(defalias 'gnus-tree-open #[(group) "\300 \207" [gnus-get-tree-buffer] 1])
(defalias 'gnus-tree-close #[(group) "\211\211\205\n;\203\304\202\305\n!)\205\"\306\304	!\"\307	!)\207" [gnus-tree-buffer buf buffer gnus-buffers get-buffer buffer-name delete kill-buffer] 4])
(defalias 'gnus-tree-perhaps-minimize #[nil "\205\302	!\205r	q\210\303 )\207" [gnus-tree-minimize-window gnus-tree-buffer get-buffer gnus-tree-minimize] 2])
#@45 Highlight the selected article in the tree.
(defalias 'gnus-highlight-selected-tree #[(article) "p\306\nq\210\307!\211\203Q\f\203\310\f!\203%\311\312eeT\"\211\313
#\210\314\f@bA#\210\315 \210\316 \210\317 \320\nq\321\"\203P\322\320\nq\321\"!\210\323 \210\322!\210)r\nq\210\324\325!\210)	q*\207" [region buf gnus-tree-buffer article gnus-selected-tree-overlay gnus-selected-tree-face nil gnus-tree-article-region gnus-extent-detached-p gnus-overlay-put gnus-make-overlay face gnus-move-overlay gnus-tree-minimize gnus-tree-recenter selected-window gnus-get-buffer-window t select-window gnus-horizontal-recenter gnus-set-mode-line tree selected] 4 (#$ . 23593)])
(defalias 'gnus-tree-highlight-article #[(article face) "r\303 q\210\304\305	!\211\205 \306@A\302\n$\210\307\310p\311\"A\"*\207" [region article face gnus-get-tree-buffer nil gnus-tree-article-region gnus-put-text-property set-window-point gnus-get-buffer-window t] 5])
(byte-code "\300 \210\301\302!\207" [gnus-ems-redefine provide gnus-salt] 2)