%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-salt.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
#@342 Minor mode for providing a pick-and-read interface in Gnus summary buffers.

If called interactively, enable Gnus-Pick mode if ARG is
positive, and disable it if ARG is zero or negative.  If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.

\{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	!\211!\205	)\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 (#$ . 4430)])
(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 (#$ . 4837)])
#@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 (#$ . 4968) "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 (#$ . 5725)])
#@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 (#$ . 6039) "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 (#$ . 6295) "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 (#$ . 6731) "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 (#$ . 7298) "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 (#$ . 8747) nil])
#@42 Hook run in summary binary mode buffers.
(defvar gnus-binary-mode-hook nil (#$ . 8999))
(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 (#$ . 9541))
(make-variable-buffer-local 'gnus-binary-mode)
#@320 Minor mode for providing a binary group interface in Gnus summary buffers.

If called interactively, enable Gnus-Binary mode if ARG is
positive, and disable it if ARG is zero or negative.  If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
(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 (#$ . 9737) (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 (#$ . 11355)])
#@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 (#$ . 11619) "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)) (#$ . 12390))
#@51 Characters used to connect parents with children.
(defvar gnus-tree-parent-child-edges '(45 92 124) (#$ . 12511))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\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))] 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))
(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\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 #[nil "\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\2036
\321 =\203<\322\f\323 \"\210)\324)\325\"\204V)*=\204V\326)\325*C#\210\327!\210\330\f!\210)*\331\332!\210\331\333\307\"\210\334\335\336\"\203u\337 \210\340 \210\341 \210\307\211+,r\342 \210\343\344-\345-\211\211\211\211\211\211\211\211\211&\n)\346\"\210`S.*\347\350!\207" [delay-mode-hooks major-mode mode-name gnus-tree-mode-map gnus-tree-mode-syntax-table parent 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 gnus-tree-mode-abbrev-table local-abbrev-table buffer-read-only truncate-lines init gnus-tree-node-length] 13 (#$ . 15561) 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 (#$ . 16959) "P"])
#@45 Reconfigure windows to show summary buffer.
(defalias 'gnus-tree-show-summary #[nil "\211\205\303\304	!\211!\205	)\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 (#$ . 17389) 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 (#$ . 17770) (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 (#$ . 18054) "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 (#$ . 18358)])
#@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 (#$ . 18599)])
#@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 (#$ . 19076)])
(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
\2027\307\310\n\211\211\211\211\211\211\211\211\211&\n)\211\211\311\211I\210)\211\312\311I\210)\211\313\311I\210)\211\314H\315H\311H\316\317\"\203\\\320\311\224T\311\225S#\202\226\316\321\"\203\210\311\224\316\322\"\203}\320\311\224T\311\225S#\206\204\320\311#)\202\226>\203\224\323\202\226>\203\250 A@@\202\306	\203\265 AA@@\202\306!\203\302\324 8@\202\306 @@\">\203\330 A@A\202\366!\203\345\324 8A\202\366	\203\362 AA@A\202\366 @A#\325\211$\325%\326`\211\327&!\210`\211%\330D#\210\331%#.\207" [header dummy init #1=#:v #2=#:v #3=#:v vectorp "*****" vector 0 7 6 2 1 string-match "(.+)" substring "<[^>]+> *$" "^\"[^\"]*\"" "***" 3 nil add-text-properties eval gnus-number gnus-tree-highlight-node gnus-tmp-from gnus-tmp-subject gnus-tmp-number 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] 12])
#@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 (#$ . 20950)]))
(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\317\f\"\211A@)\206CB\257\320\n\203_\n@@!\204_\nA\211\204O,\n@A\211\321\301\"=?\205\202\322\301\323	!\203\200	J\202\201	$*\207" [gnus-summary-highlight face list gnus-summary-buffer article gnus-newsgroup-undownloaded nil score 0 default default-high default-low uncached downloaded mark gnus-data-find-in #[(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 cl-x gnus-unread-mark env evalfun beg end] 11 (#$ . 21759)])
(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 (#$ . 22774)])
#@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 (#$ . 23300)])
(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 (#$ . 24459)])
#@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\"\310
8)!)\205\212rq\210\311\307\f\"\310
8)\211\312H)\313\"\314=\204S\315=\204S\247\204S\314=\204S\316=\203\343\211\203\343\211@\317H>\204k\211@\317H>\203\343\211AG\320X\204z\315=\203\215\321@\317H\"\211A@\211\262\202\340\211A\317\203\257@@\211\317H\262>\203\246\211T\262\211A\262\210\202\220\211\322W\262\262\203\343\211A\211\205\336\211@@\211\317H\262>\203\327\211@\262\323\262\202\273\211A\262\202\273\262\204S)\204\374=?\205\324!\210\211,\207" [gnus-summary-buffer gnus-use-trees gnus-show-threads article gnus-newsgroup-data cl-x vectorp gnus-data-find-in 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 gnus-tmp-sparse gnus-tmp-limit top force gnus-tree-displayed-thread] 7 (#$ . 25714)])
(defalias 'gnus-tree-open #[nil "\300 \207" [gnus-get-tree-buffer] 1])
(defalias 'gnus-tree-close #[nil "\211\211\205\303\304\n!\211!\205\n)\205\305	!\210\306 )\207" [gnus-tree-buffer buf buffer buffer-live-p get-buffer kill-buffer gnus-prune-buffers] 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) "\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 (#$ . 27250)])
(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)
Zerion Mini Shell 1.0