ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-salt.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 2349))
(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 (#$ . 2537) (list (or current-prefix-arg 'toggle))])
#@179 Hook run after entering or leaving `gnus-pick-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar gnus-pick-mode-hook nil (#$ . 3792))
(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 (#$ . 4127)])
(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 (#$ . 4522)])
#@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 (#$ . 4675) "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 (#$ . 5432)])
#@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 (#$ . 5746) "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 (#$ . 6002) "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 (#$ . 6438) "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
!\211 A@ \314
!\2031 \3158\2026 \3158S \211:\203M \3168\250\203M \3168\262\202P \317\262S\211 p\320!\210` W\203f b\210\321 \210`\322\211\211` \323\324!\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 gnus-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\203k eb\210Sy\210\314 \210T\211\202Q
+\316\246\317U\203 `\202 \320 AA\211 \203\256 W\203\234 \321 Z\"\210\202\256 Y\203\256 \321 ZT\"\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 (#$ . 7005) "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 (#$ . 8453) nil])
#@42 Hook run in summary binary mode buffers.
(defvar gnus-binary-mode-hook nil (#$ . 8705))
(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 (#$ . 9247))
(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 (#$ . 9442) (list (or current-prefix-arg 'toggle))])
#@181 Hook run after entering or leaving `gnus-binary-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar gnus-binary-mode-hook nil (#$ . 10400))
(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 (#$ . 10746)])
#@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 (#$ . 11010) "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)) (#$ . 11782))
#@51 Characters used to connect parents with children.
(defvar gnus-tree-parent-child-edges '(45 92 124) (#$ . 11903))
(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 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))
(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])
#@161 Hook run after entering Tree mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar gnus-tree-mode-hook nil (#$ . 13924))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp gnus-tree-mode-map put definition-name gnus-tree-mode] 4)
(defvar gnus-tree-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [gnus-tree-mode-map variable-documentation put purecopy "Keymap for `gnus-tree-mode'." boundp gnus-tree-mode-syntax-table definition-name gnus-tree-mode] 5)
(defvar gnus-tree-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [gnus-tree-mode-syntax-table variable-documentation put purecopy "Syntax table for `gnus-tree-mode'." gnus-tree-mode-abbrev-table definition-name gnus-tree-mode] 5)
(defvar gnus-tree-mode-abbrev-table (progn (define-abbrev-table 'gnus-tree-mode-abbrev-table nil) gnus-tree-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [gnus-tree-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `gnus-tree-mode'." gnus-tree-mode derived-mode-parent nil] 5)
#@153 Major mode for displaying thread trees.
This mode runs the hook `gnus-tree-mode-hook', as the final 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 (#$ . 15214) nil])
#@52 Read a summary buffer key sequence and execute it.
(defalias 'gnus-tree-read-summary-keys #[(&optional arg) "?\2050 p\306\307 q\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 (#$ . 16162) "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 (#$ . 16592) nil])
#@41 Select the article under point, if any.
(defalias 'gnus-tree-select-article #[(article) "p \205 r\nq\210\303 !\210)\304\305!!)\207" [buf article gnus-summary-buffer gnus-summary-goto-article select-window get-buffer-window] 3 (#$ . 16961) (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 (#$ . 17245) "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 (#$ . 17549)])
#@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 (#$ . 17790)])
#@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 (#$ . 18267)])
(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\207 A@@\202\245 \203\224 AA@@\202\245 \203\241 \324 8@\202\245 @@
>\203\266 A@A\202\324 \203\303 \324 8A\202\324 \203\320 AA@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 gnus-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\316BD BB\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 (#$ . 20027)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put gnus--let-eval lisp-indent-function 2 put edebug-form-spec ((&rest (sym form)) sym body)] 4)
#@63 Highlight current line according to `gnus-summary-highlight'.
(defalias 'gnus-tree-highlight-node #[(article beg end) "\306r q\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 (#$ . 20840)])
(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 (#$ . 21814)])
#@29 Generate a horizontal tree.
(defalias 'gnus-generate-horizontal-tree #[(thread level &optional dummyp adopted) "@;\211\206 @\205 @\306H\n>\307\211 \204\" A\202v n\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\204 n?\205\246 \320c\202\246 \205\246 \321\211A\242 \203\230 T\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 (#$ . 22340)])
(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\315 S\211\306Y\203p \315y\306U\204U \307\210\316c\210\202U \307)\210\202
\306U\204
\314_S S\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\315 S\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\315 S\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 (#$ . 23499)])
#@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\237 T\211A\210\202\211 \321W*\203\336
A\211 \205\332 @@\316H>\203\320 @\322\211\202\266 A\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 (#$ . 24754)])
(defalias 'gnus-tree-open #[nil "\300 \207" [gnus-get-tree-buffer] 1])
(defalias 'gnus-tree-close #[nil "\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 !\205 r 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!\205c p\307q\210\310 !\211\203W \f\203 \311\f!\203+ \312\313eeT\"\211\314
#\210\315\f @b A#\210\316 \210\317 \210\320 \321q\322\"\203V \323\321q\322\"!\210\324 \210\323!\210)rq\210\325\326!\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 gnus-extent-detached-p 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 (#$ . 26220)])
(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 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)
Kontol Shell Bypass