;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\321\314\315&\210\304\322\306\307\323DD\324\312\313\314\315&\210\304\325\306\307\326DD\327\312\313\314\315&\210\304\330\306\307\331DD\332\312\333\314\315&\207" [require gnus gnus-sum gnus-win custom-declare-variable gnus-pick-display-summary funcall function #[0 "\300\207" [nil] 1 #1=""] "Display summary while reading." :type boolean :group gnus-summary-pick gnus-pick-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook run in summary pick mode buffers." hook gnus-mark-unpicked-articles-as-read #[0 "\300\207" [nil] 1 #1#] "If non-nil, mark all unpicked articles as read." gnus-pick-elegant-flow #[0 "\300\207" [t] 1 #1#] "If non-nil, `gnus-pick-start-reading' runs\n`gnus-summary-next-group' when no articles have been picked." gnus-summary-pick-line-format #[0 "\300\207" ["%-5P %U%R%z%I%(%[%4L: %-23,23n%]%) %s\n"] 1 #1#] "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 "\300 \301
\302\"\210\207" [make-sparse-keymap gnus-define-keys-1 (" " gnus-pick-next-page "u" gnus-pick-unmark-article-or-thread "." gnus-pick-article-or-thread [down-mouse-2] gnus-pick-mouse-pick-region "
" gnus-pick-start-reading)] 4))
(defalias 'gnus-pick-make-menu-bar #[0 "\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 (#$ . 2201))
(make-variable-buffer-local 'gnus-pick-mode)
#@653 Minor mode for providing a pick-and-read interface in Gnus summary buffers.

This is a minor mode.  If called interactively, toggle the `Gnus-Pick
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `gnus-pick-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

\{gnus-pick-mode-map}

(fn &optional ARG)
(defalias 'gnus-pick-mode #[256 "\306 
\307=\203
?\202
\247\203
\310W\203\311\202\312\313\301!\2031\314\300	\"\2031\300	B\315\316!\204<\311\202p\204H\317\320\321\"\210\202p\322\302!\210\311\311\323\311\324\"\210\325 \210\326\320\321\"\210\322\327!\210\330\331\332\333\"\203p\334 \210\335\336\203z\337\202{\340\"\210\341\342!\203\235\306 \203\217\211\306 \232\203\235\343\344\203\231\345\202\232\346\347#\210\210\350 \210\207" [gnus-pick-mode local-minor-modes gnus-auto-select-first gnus-summary-pick-line-format gnus-summary-line-format gnus-summary-line-format-spec current-message toggle 1 nil t boundp delq derived-mode-p gnus-summary-mode 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%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 2389) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar gnus-pick-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\207" [gnus-pick-mode-map gnus-pick-mode-hook variable-documentation put "Hook run after entering or leaving `gnus-pick-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode gnus-pick-mode " Pick"] 6)
#@42 Make Message do the right thing on exit.
(defalias 'gnus-pick-setup-message #[0 "\211\205\303\304!\211\262!\205\211\262
\205*rq\210	)\205*\305\306\n\307BB\310\311\312\313%\207" [gnus-summary-buffer gnus-pick-mode gnus-current-window-configuration buffer-live-p get-buffer message-add-action gnus-configure-windows (t) send exit postpone kill] 6 (#$ . 4766)])
(defvar gnus-pick-line-number 1)
#@33 Return the current line number.
(defalias 'gnus-pick-line-number #[0 "T\211\207" [gnus-pick-line-number] 2 (#$ . 5174)])
#@116 Start reading the picked articles.
If given a prefix, mark all unpicked articles as read.

(fn &optional CATCH-UP)
(defalias 'gnus-pick-start-reading #[256 "\203#\305\306!\210\211\204	\203\307 \210\310 \210\311\n\203\312\202 \313\314\"\207\203@\211\204/	\2034\315\306\314\"\210\316\f!\203=\317 \207\320 \207\321\322!\207" [gnus-newsgroup-processable 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"] 4 (#$ . 5304) "P"])
#@118 Go to the article number indicated by ARG.
If ARG is an invalid article number, then stay on current line.

(fn ARG)
(defalias 'gnus-pick-goto-article #[257 "\300\212eb\210\301!Sy\302U\203`\262
)\211\204\303\304\305#\207\211b\207" [nil prefix-numeric-value 0 gnus-error 2 "No such line: %s"] 6 (#$ . 6065)])
#@106 Pick the article on the current line.
If ARG, pick the article on that line instead.

(fn &optional ARG)
(defalias 'gnus-pick-article #[256 "\211\203\300
!\210\301\302!\207" [gnus-pick-goto-article gnus-summary-mark-as-processable 1] 3 (#$ . 6386) "P"])
#@201 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.

(fn &optional ARG)
(defalias 'gnus-pick-article-or-thread #[256 "\211\203\301
!\210\203\212\302 \210)\303y\207\304\303!\207" [gnus-thread-hide-subtree gnus-pick-goto-article gnus-uu-mark-thread 1 gnus-summary-mark-as-processable] 3 (#$ . 6649) "P"])
#@195 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.

(fn &optional ARG)
(defalias 'gnus-pick-unmark-article-or-thread #[256 "\211\203\301
!\210\203\212\302 )\207\303\304!\207" [gnus-thread-hide-subtree gnus-pick-goto-article gnus-uu-unmark-thread gnus-summary-unmark-as-processable 1] 3 (#$ . 7092) "P"])
#@10 

(fn E)
(defalias 'gnus-pick-mouse-pick #[257 "\300
!\210\212\301\302!)\207" [mouse-set-point gnus-summary-mark-as-processable 1] 3 (#$ . 7530) "e"])
#@114 Pick articles that the mouse is dragged over.
This must be bound to a button-down mouse event.

(fn START-EVENT)
(defalias 'gnus-pick-mouse-pick-region #[257 "\303
!\210\304\305
!\306
!C\307e\242\"TC\211@\262
\310
!\211A@\311!\203+\3128\202/\3128S\211:\203E\313
8\250\203E\313
8\262
\202H\314\262
S\211p\315	!\210`\242W\203_\242b\210\316 \210`\240\210\317C\317C\317C`C\320\321\322


\f\f\f\f\f\f\f&!\266)\317\207" [echo-keystrokes mouse-selection-click-count mouse-selection-click-count-buffer mouse-minibuffer-check 0 event-start posn-point count-lines window-edges window-minibuffer-p 3 2 1 mouse-set-point gnus-pick-article nil internal--track-mouse make-closure #[0 "\306\312 A\240\210\306\242\211\242\313=\262
\204\306\242\242\314=\205\260\306\242\242\314=\204\307\315\306\242!\240\210\310\316\307\242!\240\210\307\242\211@\262
\302=\203\205\317\310\242!\203\205\300\242b\210\310\242b\210\320 \210\321e\310\242\"T\211\301\242^
\301\242]

W\203qeb\210
Sy\210\320 \210
T\262\202Z\301\240\266\305\322\246\323U\203\311`\240\210\202\324 AA\211\203\254\211\303W\203\236\325\302\303Z\"\266\202\211\304Y\203\254\325\302\304ZT\"\210\210\202\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 V9 gnus-read-event-char mouse-movement switch-frame event-end posn-point integer-or-marker-p gnus-pick-article count-lines 3 0 mouse-position mouse-scroll-subr] 5]] 26 (#$ . 7688) "e"])
#@76 Go to the next page.  If at the end of the buffer, start reading articles.
(defalias 'gnus-pick-next-page #[0 "\301\3021\f\303 0\202\210\304 )\207" [scroll-in-place nil (end-of-buffer) scroll-up gnus-pick-start-reading] 1 (#$ . 9111) nil])
#@42 Hook run in summary binary mode buffers.
(defvar gnus-binary-mode-hook nil (#$ . 9361))
(defvar gnus-binary-mode-map (byte-code "\300 \301
\302\"\210\207" [make-sparse-keymap gnus-define-keys-1 ("g" gnus-binary-show-article)] 4))
(defalias 'gnus-binary-make-menu-bar #[0 "\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 (#$ . 9891))
(make-variable-buffer-local 'gnus-binary-mode)
#@633 Minor mode for providing a binary group interface in Gnus summary buffers.

This is a minor mode.  If called interactively, toggle the
`Gnus-Binary mode' mode.  If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `gnus-binary-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'gnus-binary-mode #[256 "\304 
\305=\203
?\202
\247\203
\306W\203\307\202\310\311\301!\2031\312\300	\"\2031\300	B\313\314!\204<\307\202V\203V\315\302!\210\307\315\303!\210\316\317\320\321\"\203V\322 \210\323\324\203`\325\202a\326\"\210\327\330!\203\203\304 \203u\211\304 \232\203\203\331\332\203\333\202\200\334\335#\210\210\336 \210\207" [gnus-binary-mode local-minor-modes gnus-auto-select-first gnus-summary-display-article-function current-message toggle 1 nil t boundp delq derived-mode-p gnus-summary-mode 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%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 10087) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar gnus-binary-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\207" [gnus-binary-mode-map gnus-binary-mode-hook variable-documentation put "Hook run after entering or leaving `gnus-binary-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode gnus-binary-mode " Binary"] 6)
#@85 Run ARTICLE through the binary decode functions.

(fn ARTICLE &optional ALL-HEADER)
(defalias 'gnus-binary-display-article #[513 "\301!\205\206\302\303 )\207" [gnus-view-pseudos gnus-summary-goto-subject automatic gnus-uu-decode-uu] 4 (#$ . 12194)])
#@71 Bypass the binary functions and show the article.

(fn &optional ARG)
(defalias 'gnus-binary-show-article #[256 "\301\302
!)\207" [gnus-summary-display-article-function nil gnus-summary-show-article] 3 (#$ . 12457) "P"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\321\310\311&\207" [custom-declare-variable gnus-tree-line-format funcall function #[0 "\300\207" ["%(%[%3,3n%]%)"] 1 #1=""] "Format of tree elements." :type string :group gnus-summary-tree gnus-tree-minimize-window #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [mode-line] 1 #1#] "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)) (#$ . 13352))
#@51 Characters used to connect parents with children.
(defvar gnus-tree-parent-child-edges '(45 92 124) (#$ . 13473))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable gnus-tree-mode-line-format funcall function #[0 "\300\207" ["Gnus: %%b %S %Z"] 1 #1=""] "The format specification for the tree mode line." :type string :group gnus-summary-tree gnus-generate-tree-function #[0 "\300\207" [gnus-generate-vertical-tree] 1 #1#] "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))] 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 (byte-code "\300 \301
!\210\302
\303\"\210\304\305\306#\210\207" [make-keymap suppress-keymap gnus-define-keys-1 ("
" gnus-tree-select-article [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] 5))
(defalias 'gnus-tree-make-menu-bar #[0 "\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])
(defvar gnus-tree-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [gnus-tree-mode-hook variable-documentation put "Hook run after entering Tree mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp gnus-tree-mode-map definition-name gnus-tree-mode] 4)
(defvar gnus-tree-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [gnus-tree-mode-abbrev-table gnus-tree-mode-map variable-documentation put purecopy "Keymap for `gnus-tree-mode'." boundp gnus-tree-mode-syntax-table definition-name gnus-tree-mode (lambda (#1=#:def-tmp-var) (defvar gnus-tree-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-tree-mode'." (lambda (#1#) (defvar gnus-tree-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-tree-mode'." derived-mode-parent gnus-mode] 5)
#@237 Major mode for displaying thread trees.

In addition to any hooks its parent mode `gnus-mode' might have run,
this mode runs the hook `gnus-tree-mode-hook', as the final or
penultimate step during initialization.

\{gnus-tree-mode-map}
(defalias 'gnus-tree-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
)=\204R\326
\325)C#\210\327!\210\330\f!\210
)\331\332!\210\331\333\307\"\210\334\335\336\"\203p\337 \210\340 \210\341 \210\307\211*+r\342 \210\343\344\345
\211\211\211\211\211\211\211\211\211&\n\262
\346\"\210`S,*\347\350!\207" [delay-mode-hooks major-mode mode-name gnus-tree-mode-map gnus-tree-mode-syntax-table gnus-tree-mode-abbrev-table make-local-variable t gnus-mode gnus-tree-mode "Tree" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table gnus-set-format tree-mode tree gnus-visual-p tree-menu menu gnus-tree-make-menu-bar gnus-simplify-mode-line buffer-disable-undo gnus-set-work-buffer gnus-tree-node-insert "" vector nil run-mode-hooks gnus-tree-mode-hook local-abbrev-table buffer-read-only truncate-lines gnus-tree-node-length] 14 (#$ . 16597) nil])
#@72 Read a summary buffer key sequence and execute it.

(fn &optional ARG)
(defalias 'gnus-tree-read-summary-keys #[256 "?\2052p\303\304
	q\210\305\304\303#\210\306!\211\262\205/\307
!\210\n\203-\310\n!\206+\311b\210\312 )\266\203\207" [gnus-tree-inhibit gnus-article-buffer gnus-selected-tree-overlay t nil gnus-article-read-summary-keys get-buffer-window select-window overlay-end 1 gnus-tree-minimize] 8 (#$ . 17983) ["P" (gnus-tree-mode)]])
#@45 Reconfigure windows to show summary buffer.
(defalias 'gnus-tree-show-summary #[0 "\211\205\302\303!\211\262!\205\211\262
\204\304\305!\207\306\307!\210\310	!\207" [gnus-summary-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 (#$ . 18439) [nil (gnus-tree-mode)]])
#@55 Select the article under point, if any.

(fn ARTICLE)
(defalias 'gnus-tree-select-article #[257 "p
\205rq\210\301!\210)\302\303!!\207" [gnus-summary-buffer gnus-summary-goto-article select-window get-buffer-window] 5 (#$ . 18839) [(byte-code "\300 C\207" [gnus-tree-article-number] 1) (gnus-tree-mode)]])
#@53 Select the article under the mouse pointer.

(fn E)
(defalias 'gnus-tree-pick-article #[257 "\300
!\210\301\302 !\207" [mouse-set-point gnus-tree-select-article gnus-tree-article-number] 3 (#$ . 19155) ["e" (gnus-tree-mode)]])
(defalias 'gnus-tree-article-number #[0 "\300`\301\"\207" [get-text-property gnus-number] 3])
#@69 Return a cons with BEG and END of the article region.

(fn ARTICLE)
(defalias 'gnus-tree-article-region #[257 "\300ed\301$\211\205\211\302\301\"B\207" [text-property-any gnus-number next-single-property-change] 6 (#$ . 19482)])
#@34 Center point in the tree window.
(defalias 'gnus-tree-recenter #[0 "\302 \303\304\"\211\205P\305
!\210	\203\306	!\206\307b\210\310 \311W\203&\312\2022\310 \313W\2031\307\2022\314\310 S\212db\210\211[y\210`)\315\212[y\210`)^\"\266\305!\207" [gnus-tree-buffer gnus-selected-tree-overlay selected-window gnus-get-buffer-window t select-window overlay-end 1 window-height 4 0 7 2 set-window-start] 9 (#$ . 19720)])
#@46 Return the tree buffer properly initialized.
(defalias 'gnus-get-tree-buffer #[0 "r\301!q\210\302\303!\204\303 \210p)\207" [gnus-tree-buffer gnus-get-buffer-create derived-mode-p gnus-tree-mode] 2 (#$ . 20152)])
(defalias 'gnus-tree-minimize #[0 "\205u\302 ?\205u\303C\304\305\306\307\"!\210\310 	\242S_Z\311Z\262
\311\312ed\"	S
]\247\2035
^\2026\211\313p!\211\205A\314
!S^\262
\205r
=?\205r\315 \3161_\317!0\202d\210\304\202p\205p\320Z!\210\317
!\262
)\266\207\207" [gnus-tree-minimize-window window-min-height one-window-p 0 nil walk-windows make-closure #[257 "\300\211\242T\240\207" [V0] 3 "\n\n(fn WINDOW)"] frame-height 2 count-lines get-buffer-window window-height selected-window (error) select-window enlarge-window] 11])
#@40 

(fn HEADER SPARSE &optional ADOPTED)
(defalias 'gnus-tree-node-insert #[770 ";\306!\203\f\202.\307\310
\211\211\211\211\211\211\211\211\211&\n\262
\262\311\211I\210\312\311I\210\313\311I\210\211\314H\211\315H\211\311H\316\317\"\203L\311\224T\311\225SO\202{\316\320\"\203p\311\224\316\321\"\203g\311\224T\311\225SO\206k\311O\262
\202{\n>\203z\322\202{\n>\203\211\fA@@\202\243
\203\225\fAA@@\202\243\203\240\323\f8@\202\243\f@@\n>\203\261\fA@A\202\313\203\274\323\f8A\202\313
\203\310\fAA@A\202\313\f@A\324\211\324\325`\211\262\326\327\"\210`\211\262\330\nD#\210\331\n#.\207" [gnus-tmp-from gnus-tmp-subject gnus-tmp-number gnus-tmp-name gnus-tree-brackets gnus-tmp-open-bracket vectorp "*****" vector 0 7 6 2 1 string-match "(.+)" "<[^>]+> *$" "^\"[^\"]*\"" "***" 3 nil add-text-properties eval t gnus-number gnus-tree-highlight-node gnus-tmp-close-bracket buffer-read-only gnus-tree-line-format-spec] 17 (#$ . 20917)])
#@282 Build an environment in which to evaluate expressions.
BINDINGS is a `let'-style list of bindings to use for the environment.
EVALSYM is then bound in BODY to a function that takes a sexp and evaluates
it in the environment specified by BINDINGS.

(fn BINDINGS EVALSYM &rest BODY)
(defalias 'gnus--let-eval '(macro . #[642 "\3001\301\302\303\"\304=0\202\210\202'\203'\305\306\307\310\311\"BD\312BDBB\207\313\314\315BC\"BB\207" [(error) eval (- x 1) ((x . 4)) 3 let* env list mapcar #[257 "\300\301@DA@E\207" [cons quote] 4 "\n\n(fn BINDING)"] ((lambda (exp) (eval exp env))) let append (#'eval)] 9 (#$ . 21904)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus--let-eval lisp-indent-function 2 put edebug-form-spec ((&rest (sym form)) sym body)] 5)
#@85 Highlight current line according to `gnus-summary-highlight'.

(fn ARTICLE BEG END)
(defalias 'gnus-tree-highlight-node #[771 "\306r	q\210\n>\307\236A\206\f\206\310B\311\fB\312
B\313B\314B\315?B\316\f\317
\206H\320`\321\"\211\205=\322
!\266\320`\323\"\206H\324 \"\211A@\266\202\206UB\257\325\203n\211@@\"\204nA\262\202Y\266)
@A\211\262\326\327\"=?\205\221\330\327\331!\203\217J\202\220$\207" [gnus-summary-highlight gnus-summary-buffer gnus-newsgroup-undownloaded gnus-newsgroup-scored gnus-summary-default-score gnus-summary-default-high-score nil score 0 default default-high default-low uncached downloaded mark gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject #[514 "\300
\"\207" [eval] 5 "\n\n(fn ENV EXP)"] gnus-get-text-property-excluding-characters-with-faces face gnus-put-text-property-excluding-characters-with-faces boundp gnus-summary-default-low-score gnus-newsgroup-data gnus-unread-mark] 18 (#$ . 22698)])
#@14 

(fn LEVEL)
(defalias 'gnus-tree-indent #[257 "\301T_S\302\"c\207" [gnus-tree-node-length make-string 32] 4 (#$ . 23739)])
#@49 Generate a thread tree for THREAD.

(fn THREAD)
(defalias 'gnus-generate-tree #[257 "r\304 q\210\305\306\307 \210\n
\306\"\210\310\311!\210eb\210\312 \210\313 \210\314 \315q\316\"\2056\317\315q\316\"!\210\320 \210\317
!\262
+\207" [gnus-tmp-indent buffer-read-only gnus-generate-tree-function 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] 6 (#$ . 23871)])
#@73 Generate a horizontal tree.

(fn THREAD LEVEL &optional DUMMYP ADOPTED)
(defalias 'gnus-generate-horizontal-tree #[1026 "@;\211\206@\205@\303H>\304\211\204 A\262\202sn\204+	@c\210\202c\303U\204c\305!\210	A@c\210`\211\262\306 ZS\262\307y\210
u\210\304f\310=\203`\311\312!\210	AA@c\210\202F\211b\210\304\262\313\211A\262\n\242\n#\210\204\200n?\205\247\314c\207\205\247\315\211A\262\n\242\203\227T\202\231\206\240$\210\202\200\207" [gnus-tmp-limit gnus-tree-parent-child-edges gnus-tmp-sparse 0 nil gnus-tree-indent point-at-bol -1 32 delete-char 1 gnus-tree-node-insert "\n" gnus-generate-horizontal-tree] 13 (#$ . 24392)])
(defalias 'gnus-tree-indent-vertical #[0 "T	_`\302 ZZ\211\303V\205\304
\305\"c\207" [gnus-tree-node-length gnus-tmp-indent point-at-bol 0 make-string 32] 4])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-tree-indent-vertical speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn N)
(defalias 'gnus-tree-forward-line #[257 "\211S\211\262\300Y\203\301y\300U\204\302\210\303c\210\202\302\207" [0 1 nil "\n"] 3 (#$ . 25386)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-tree-forward-line speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@71 Generate a vertical tree.

(fn THREAD LEVEL &optional DUMMYP ADOPTED)
(defalias 'gnus-generate-vertical-tree #[1026 "@;\211\206@\205@\305H>\306
\204A\262\202=
\212\307 \210o)\204n	T\n_`\310 ZZ\211\305V\205<\311
\312\"c\266\311	\313\245\312\"c\210AA@c\210\314\211S\211\262\305Y\203g\314y\305U\204M\306\210\315c\210\202M\306\266\202\370\n\305U\204\370\313_S\211S\211\262\305Y\203\223\314y\305U\204y\306\210\315c\210\202y\306\266	T\n_`\310 ZZ\211\305V\205\253\311
\312\"c\266\316\317!\210A@c\210`\262
\317u\210o\204\326`Sf\312=\203\326\316\317!\210@c\210\317u\210\202\274\211b\210\314\211S\211\262\305Y\203\364\314y\305U\204\332\306\210\315c\210\202\332\306\266\306\262	T\n_`\310 ZZ\211\305V\205
\311
\312\"c\266\320\211A\262	\242\f#\210\314\211S\211\262\305Y\2039
\314y\305U\204
\306\210\315c\210\202
\306\266\204M
eb\210\306\210\nT\211\207\205s
\321\211A\262	\242\203d
T\202f
\206l
$\210\202M
\207" [gnus-tmp-limit gnus-tree-node-length gnus-tmp-indent gnus-tree-parent-child-edges gnus-tmp-sparse 0 nil beginning-of-line point-at-bol make-string 32 2 1 "\n" delete-char -1 gnus-tree-node-insert gnus-generate-vertical-tree] 12 (#$ . 25698)])
#@99 Generate the thread tree for ARTICLE if it isn't displayed already.

(fn ARTICLE &optional FORCE)
(defalias 'gnus-possibly-generate-tree #[513 "rq\210	\205\n\205\306\307\"\310
8\262
!)\205\372\212rq\210\311\307\"\310
8\262
\211\312H\262
\313\"\f\314=\204N\f\315=\204N\f\247\204N
\314=\204N
\316=\203\331\211\203\331\211@\317H>\204f\211@\317H>\203\331\211AG\320X\204t\f\315=\203\207\321
@\317H\"\211A@\211\262\202\326\211A\317
\203\247
@@\211\317H\262
>\203\240\211T\262

A\262\202\212\211\322W\266\202\203\331\211A\211\205\324\211@@\211\317H\262
>\203\315\211@\262\323\262
\202\261\211A\262
\202\261\262
\204N)
\204\356\211=?\205\366\324
!\210\211\211*\262
)\207" [gnus-summary-buffer gnus-use-trees gnus-show-threads gnus-newsgroup-data gnus-fetch-old-headers gnus-build-sparse-threads vectorp gnus-data-find-in 3 gnus-remove-thread 4 t some invisible more 0 1 delq 2 nil gnus-generate-tree gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-newsgroup-limit gnus-tmp-sparse gnus-tmp-limit gnus-tree-displayed-thread] 8 (#$ . 26926)])
(defalias 'gnus-tree-open #[0 "\300 \207" [gnus-get-tree-buffer] 1])
(defalias 'gnus-tree-close #[0 "\211\211\205\301\302!\211\262!\205\211\262
\205\303
!\210\304 \207" [gnus-tree-buffer buffer-live-p get-buffer kill-buffer gnus-prune-buffers] 5])
(defalias 'gnus-tree-perhaps-minimize #[0 "\205\302	!\205r	q\210\303 )\207" [gnus-tree-minimize-window gnus-tree-buffer get-buffer gnus-tree-minimize] 2])
#@59 Highlight the selected article in the tree.

(fn ARTICLE)
(defalias 'gnus-highlight-selected-tree #[257 "\303!\205Zp\304q\210\305!\211\262\203M	\204$\306\307eeT\"\211\310\n#\210\311	@bA#\210\312 \210\313 \210\314 \315q\316\"\203L\317\315q\316\"!\210\320 \210\317
!\210\210rq\210\321\322!\210)
q\266\202\207" [gnus-tree-buffer gnus-selected-tree-overlay gnus-selected-tree-face buffer-live-p nil gnus-tree-article-region overlay-put make-overlay face 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] 8 (#$ . 28443)])
#@21 

(fn ARTICLE FACE)
(defalias 'gnus-tree-highlight-article #[514 "\212r\300 q\210\301\302!\211\262\205!\303
@A\304$\210\305\306p\307\"A\"\262
*\207" [gnus-get-tree-buffer nil gnus-tree-article-region put-text-property face set-window-point gnus-get-buffer-window t] 8 (#$ . 29086)])
(provide 'gnus-salt)