HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/gnus/gnus-salt.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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 [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 (#$ . 2341))
(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\206\306 \203s\306 \232\203\206\341(\342\343\n\203\200\344\202\201\345(#\210))\346 \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 " in current buffer" message "Gnus-Pick mode %sabled%s" "en" "dis" force-mode-line-update gnus-summary-line-format-spec local] 4 (#$ . 2529) (list (or current-prefix-arg 'toggle))])
(defvar gnus-pick-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\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.)" 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 (#$ . 4188)])
(defvar gnus-pick-line-number 1)
#@33 Return the current line number.
(defalias 'gnus-pick-line-number #[nil "T\211\207" [gnus-pick-line-number] 2 (#$ . 4583)])
#@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 (#$ . 4714) "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	!Sy\304U\203`)\204\305\306\307	#\202!b)\207" [pos arg nil prefix-numeric-value 0 gnus-error 2 "No such line: %s"] 4 (#$ . 5471)])
#@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 (#$ . 5785) "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 (#$ . 6041) "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 (#$ . 6477) "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!\311\n!\312e\"T\n\211@\262\313
!\211A@\314
!\2031\3158\2026\3158S\211:\203M\3168\250\203M\3168\262\202P\317\262S\211p\320!\210`W\203fb\210\321 \210`\322\211\211`\323\324!\210\210.
\322\207" [start-event echo-keystrokes start-posn start-point start-line start-window 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 #[nil "\306 A\211\211\242\307=\262\204\242\310=\205\262\242\310=\204\311!\312	!	\211@\262=\203~\313\n!\203~\fb\210\nb\210\314 \210\315e\n\"T\211^
]W\203keb\210Sy\210\314 \210T\211\202Q
+\316\246\317U\203`\202\320 AA\211\203\256W\203\234\321Z\"\210\202\256Y\203\256\321ZT\"\210)\202\207" [event end end-point start-window start-point this-line 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 start-line min-line max-line click-count end-of-range mouse-row top bottom] 5] bounds top bottom click-count mouse-selection-click-count mouse-selection-click-count-buffer end-of-range end-point end event] 5 (#$ . 7044) "e"])
#@76 Go to the next page.  If at the end of the buffer, start reading articles.
(defalias 'gnus-pick-next-page #[nil "\301\3021\f\303 0\202\210\304 )\207" [scroll-in-place nil (end-of-buffer) scroll-up gnus-pick-start-reading] 1 (#$ . 8493) nil])
#@42 Hook run in summary binary mode buffers.
(defvar gnus-binary-mode-hook nil (#$ . 8745))
(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 (#$ . 9287))
(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) "\306 	\307=\203\n?\202\310	!\311V\312\313!\204\314\2029\n\2039\315\303!\210\314\315\304!\210\316\317\320\321\"\2039\322 \210\323\324\n\203C\325\202D\326\"\210\327\330!\203i\306 \203X\306 \232\203i\331\332\333\n\203d\334\202e\335
#\210))\336 \210\n\207" [#1=#:last-message arg gnus-binary-mode gnus-auto-select-first gnus-summary-display-article-function local 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 " in current buffer" message "Gnus-Binary mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 9482) (list (or current-prefix-arg 'toggle))])
(defvar gnus-binary-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\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.)" 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 (#$ . 10856)])
#@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 (#$ . 11120) "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 'mode-line "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)) (#$ . 11891))
#@51 Characters used to connect parents with children.
(defvar gnus-tree-parent-child-edges '(45 92 124) (#$ . 12012))
(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 (byte-code "\301 \302!\210\303\300\304\"\210\305\306\307#\210)\207" [map 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] 4))
(put 'gnus-tree-mode 'mode-class 'special)
(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])
(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\317#\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] 5)
#@168 Major mode for displaying thread trees.

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 #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\315\316!\210\315\317\307\"\210\320\321\322\"\203+\323 \210\324 \210\325 \210\307\211 r\326 \210\327\330!\331\332!\")\333\"\210`S\"*\334\335!\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 kill-all-local-variables gnus-tree-mode "Tree" 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 "" make-vector 10 nil run-mode-hooks gnus-tree-mode-hook local-abbrev-table buffer-read-only truncate-lines init gnus-tree-node-length] 5 (#$ . 15195) 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 overlay-end 1 gnus-tree-minimize] 4 (#$ . 16158) "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 (#$ . 16588) 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 (#$ . 16957) (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 (#$ . 17241) "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 (#$ . 17545)])
#@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 overlay-end 1 window-height 4 0 7 2 set-window-start bottom] 4 (#$ . 17786)])
#@46 Return the tree buffer properly initialized.
(defalias 'gnus-get-tree-buffer #[nil "r\301!q\210\302\303!\204\303 \210p)\207" [gnus-tree-buffer gnus-get-buffer-create derived-mode-p gnus-tree-mode] 2 (#$ . 18263)])
(defalias 'gnus-tree-minimize #[nil "\205\201\306 ?\205\201\307\310\311\312!\210\313\314 \nS_\315#\315\316ed\"S\f]\247\2033
^\2024
\317p!\211\205D\320!S	^\205=?\205\321 \3221j\323!0\202o\210\310\202~\205~\324Z!\210\323!).\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 (error) select-window enlarge-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\245	\203\224AA@@\202\245\203\241\3248@\202\245@@
>\203\266A@A\202\324\203\303\3248A\202\324	\203\320AA@A\202\324@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 add-text-properties eval gnus-number gnus-tree-highlight-node beg sparse gnus-tmp-name gnus-tree-brackets adopted gnus-tmp-open-bracket gnus-tmp-close-bracket buffer-read-only end gnus-tree-line-format-spec] 6])
#@248 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.
(defalias 'gnus--let-eval '(macro . #[(bindings evalsym &rest body) "\3041\305\306\307\310\")=0\202\210\202)\203)\311\312\313\314\315	\"BD\n\316BDBB\207\317\320	\n\321BC\"BB\207" [x bindings evalsym body (error) 3 eval (- x 1) ((x . 4)) let* env list mapcar #[(binding) "\301\302@DA@E\207" [binding cons quote] 3] ((lambda (exp) (eval exp env))) let append (#'eval)] 6 (#$ . 20018)]))
(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)
#@63 Highlight current line according to `gnus-summary-highlight'.
(defalias 'gnus-tree-highlight-node #[(article beg end) "\306rq\210\f
>\f\307\f\236A\206\206\310B\311B\312B\313B\314\fB\315\f?B\316\f\236A@\206>B\257\317\n\203Z\n@@!\204Z\nA\211\204J,\n@A\211\320\301\"=?\205}\321\301\322	!\203{	J\202|	$*\207" [gnus-summary-highlight face list gnus-summary-buffer article gnus-newsgroup-undownloaded nil score 0 default default-high default-low uncached downloaded mark #[(exp) "\302	\"\207" [exp env eval] 3] gnus-get-text-property-excluding-characters-with-faces gnus-put-text-property-excluding-characters-with-faces boundp gnus-newsgroup-scored gnus-summary-default-score gnus-summary-default-high-score gnus-summary-default-low-score gnus-newsgroup-data gnus-unread-mark env evalfun beg end] 10 (#$ . 20827)])
(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 (#$ . 21801)])
#@29 Generate a horizontal tree.
(defalias 'gnus-generate-horizontal-tree #[(thread level &optional dummyp adopted) "@;\211\206@\205@\306H\n>\307\211\204\"A\202vn\204.@c\210\202g\306U\204g\310!\210A@c\210\311`\211\312 \313#\314y\210\fu\210\307f\315=\203d\316\313!\210AA@c\210\202I
b\210\307\317\211A\242#\210\204\204n?\205\246\320c\202\246\205\246\321\211A\242\203\230T\202\232\206\240		$\210\202\204,\207" [thread dummy gnus-tmp-limit do col beg 0 nil 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 dummyp gnus-tmp-sparse adopted] 6 (#$ . 22327)])
(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\302y\301U\204\303\210\304c\210\202\303\207" [n 0 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\202X\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\315y\306U\204U\307\210\316c\210\202U\307)\210\202
\306U\204
\314_SS\211\306Y\203\240\315y\306U\204\205\307\210\316c\210\202\205\307)\210
T_`\311 ZZ\211\306V\205\274\312\313\"c)\210\317\320!\210A@c\210`\320u\210o\204\350`Sf\313=\203\350\317\320!\210@c\210\320u\210\202\315\fb\210\315S\211\306Y\203	\315y\306U\204\356\307\210\316c\210\202\356\307)\210\307
T_`\311 ZZ\211\306V\205(\312\313\"c)\210\321\211A\242#\210\315S\211\306Y\203T\315y\306U\2049\307\210\316c\210\2029\307)\210\204keb\210\307\210T\211\202\215\205\215\322\211A\242\203T\202\201\206\207		$\210\202k+\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 "\n" delete-char -1 gnus-tree-node-insert gnus-generate-vertical-tree gnus-tmp-indent len gnus-tree-parent-child-edges n level dummyp gnus-tmp-sparse adopted] 6 (#$ . 23486)])
#@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\336
\203\336
@\316H>\204a
@\316H>\203\336
AG\317X\204p\314=\203\202\320
@\316H\"
A@\211\202\333
A\316\203\251@@\316H>\203\237T\211A\210\202\211\321W*\203\336
A\211\205\332@@\316H>\203\320@\322\211\202\266A\211\204\271\322)\204I
*\204\370 =?\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 threads num th gnus-tmp-sparse gnus-tmp-limit top force gnus-tree-displayed-thread] 5 (#$ . 24741)])
(defalias 'gnus-tree-open #[nil "\300 \207" [gnus-get-tree-buffer] 1])
(defalias 'gnus-tree-close #[nil "\211\211\205\n;\203\303\202\304\n!)\205\305	!\210\306 )\207" [gnus-tree-buffer buf buffer get-buffer buffer-name kill-buffer gnus-prune-buffers] 3])
(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) "\306!\205]p\307q\210\310!\211\203Q\f\204%\311\312eeT\"\211\313
#\210\314\f	@b	A#\210\315 \210\316 \210\317 \320q\321\"\203P\322\320q\321\"!\210\323 \210\322!\210)rq\210\324\325!\210)\nq*\207" [gnus-tree-buffer region buf article 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 selected] 4 (#$ . 26200)])
(defalias 'gnus-tree-highlight-article #[(article face) "\212r\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 put-text-property set-window-point gnus-get-buffer-window t] 5])
(provide 'gnus-salt)