;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:17:24 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/gnus-salt.el ;;; in Emacs version 20.4.1 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-salt.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require gnus gnus-sum] 2) #@77 Minor mode for providing a pick-and-read interface in Gnus summary buffers. (defvar gnus-pick-mode nil (#$ . 712)) #@33 *Display summary while reading. (custom-declare-variable 'gnus-pick-display-summary 'nil '(#$ . -833) :type 'boolean :group 'gnus-summary-pick) #@40 Hook run in summary pick mode buffers. (custom-declare-variable 'gnus-pick-mode-hook 'nil '(#$ . 983) :type 'hook :group 'gnus-summary-pick) #@50 *If non-nil, mark all unpicked articles as read. (custom-declare-variable 'gnus-mark-unpicked-articles-as-read 'nil '(#$ . -1130) :type 'boolean :group 'gnus-summary-pick) #@105 If non-nil, gnus-pick-start-reading will run gnus-summary-next-group when no articles have been picked. (custom-declare-variable 'gnus-pick-elegant-flow 't '(#$ . 1309) :type 'boolean :group 'gnus-summary-pick) #@128 *The format specification of the lines in pick buffers. It accepts the same format specs that `gnus-summary-line-format' does. (custom-declare-variable 'gnus-summary-pick-line-format '"%-5P %U%R%z%I%(%[%4L: %-20,20n%]%) %s\n" '(#$ . -1527) :type 'string :group 'gnus-summary-pick) (byte-code "\302\300!\204\303\300 B\204\304 \305\300\306\"\210\303\207" [gnus-pick-mode-map current-load-list boundp nil 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 "\303\300!?\205\303\300!\204\304\300 B\305\300\306\307#\210\310\300\n\307\311$\207" [gnus-pick-menu current-load-list gnus-pick-mode-map boundp nil put variable-documentation "" easy-menu-do-define ("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]) #@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=\205Q\307\302! \204\n?\202\310 !\311VL\204 \312\313\314\"\207\307\315!\316L\210 \316\317\316\320\"\210\321 \210\322\313\314\"\210\307\323!\324L\210\325\326\327\"\203G\330 \210\331\302\332#\210\333\334!\207" [major-mode arg gnus-pick-mode gnus-summary-pick-line-format gnus-summary-line-format gnus-summary-line-format-spec gnus-summary-mode make-local-variable prefix-numeric-value 0 remove-hook gnus-message-setup-hook gnus-pick-setup-message gnus-auto-select-first nil 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 gnus-add-minor-mode " Pick" gnus-run-hooks gnus-pick-mode-hook gnus-pick-mode-map] 4 (#$ . 2923) "P"]) #@42 Make Message do the right thing on exit. (defalias 'gnus-pick-setup-message #[nil "\211\205\303 !\205\304\303 !!)\205%\212q\210\n)\205%\305\306\307\310\311\312%\207" [gnus-summary-buffer buffer gnus-pick-mode get-buffer buffer-name message-add-action (gnus-configure-windows \,gnus-current-window-configuration t) send exit postpone kill] 7 (#$ . 3834)]) (byte-code "\302\300!\204\303\300 B\302\207" [gnus-pick-line-number current-load-list boundp 1] 2) #@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 (#$ . 4307)]) #@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 (#$ . 4460) "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 (#$ . 5217)]) #@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 (#$ . 5531) "P"]) #@179 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 (#$ . 5787) "P"]) #@173 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 (#$ . 6221) "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\211A@)\211\211A@:\203\fA@@\202 \fA@)\310\311 \"T \211@)\312!\211A@\313!\203I\3148\202N\3148S\315\n8\250\203_\315\n8\202`\311)S\211p\316!\210` W\203w b\210\317 \210`\320\211\211`\321 \210\n:\205\227\322\323\n@!!\210\320. \207" [start-event echo-keystrokes event start-posn position start-point mouse-minibuffer-check 0 count-lines 1 gnus-window-edges window-minibuffer-p 3 2 mouse-set-point gnus-pick-article nil (lambda nil (track-mouse (byte-code "\306 A\211\211:\205 @\307=)\204\242\310=\205\327\242\310=\204\3118:\203.\311\202/\3128)\211\211A@:\203C A@@\202F A@)\n\211@) =\203\243\313\f!\203\243b\210\fb\210\314 \210\315\312\f\"T\211^]W\203\217\316!\210\314 \210T\211\202x+\317\246\320U\203`\202\321 AA\211\203\323W\203\301\322 Z\"\210\202\323Y\203\323\322 ZT\"\210)\202\207" [event object end position end-point start-window gnus-read-event-char mouse-movement switch-frame 2 1 integer-or-marker-p gnus-pick-article count-lines goto-line 3 0 mouse-position mouse-scroll-subr start-point this-line start-line min-line max-line click-count end-of-range mouse-row top bottom] 5))) key-binding vector start-line start-window bounds top bottom click-count mouse-selection-click-count mouse-selection-click-count-buffer end-of-range end-point end] 5 (#$ . 6786) "e"]) #@76 Go to the next page. If at the end of the buffer, start reading articles. (defalias 'gnus-pick-next-page #[nil "\301\301\302\303\217)\207" [scroll-in-place nil (scroll-up) ((end-of-buffer (gnus-pick-start-reading)))] 3 (#$ . 8362) nil]) #@76 Minor mode for providing a binary group interface in Gnus summary buffers. (defvar gnus-binary-mode nil (#$ . 8607)) #@42 Hook run in summary binary mode buffers. (defvar gnus-binary-mode-hook nil (#$ . 8730)) (byte-code "\302\300!\204\303\300 B\204\304 \305\300\306\"\210\303\207" [gnus-binary-mode-map current-load-list boundp nil make-sparse-keymap gnus-define-keys-1 ("g" gnus-binary-show-article)] 3) (defalias 'gnus-binary-make-menu-bar #[nil "\303\300!?\205\303\300!\204\304\300 B\305\300\306\307#\210\310\300\n\307\311$\207" [gnus-binary-menu current-load-list gnus-binary-mode-map boundp nil put variable-documentation "" easy-menu-do-define ("Pick" ["Switch binary mode off" gnus-binary-mode t])] 5]) #@76 Minor mode for providing a binary group interface in Gnus summary buffers. (defalias 'gnus-binary-mode #[(&optional arg) "\306=\205<\307\302!\210 \204\n?\202\310 !\311V\211\205<\307\303!\210\312\307\304!\210\313\314\315\316\"\2033\317 \210\320\302\321 #\210\322\323!\207" [major-mode arg gnus-binary-mode gnus-auto-select-first gnus-summary-display-article-function gnus-binary-mode-map gnus-summary-mode make-local-variable prefix-numeric-value 0 nil gnus-binary-display-article gnus-visual-p binary-menu menu gnus-binary-make-menu-bar gnus-add-minor-mode " Binary" gnus-run-hooks gnus-binary-mode-hook] 5 (#$ . 9339) "P"]) #@50 Run ARTICLE through the binary decode functions. (defalias 'gnus-binary-display-article #[(article &optional all-header) "\302!\205 \303\304 )\207" [article gnus-view-pseudos gnus-summary-goto-subject automatic gnus-uu-decode-uu] 2 (#$ . 9981)]) #@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 (#$ . 10236) "P"]) #@26 Format of tree elements. (custom-declare-variable 'gnus-tree-line-format '"%(%[%3,3n%]%)" '(#$ . 10460) :type 'string :group 'gnus-summary-tree) #@124 If non-nil, minimize the tree buffer window. If a number, never let the tree buffer grow taller than that number of lines. (custom-declare-variable 'gnus-tree-minimize-window 't '(#$ . 10612) :type '(choice boolean integer) :group 'gnus-summary-tree) #@67 *Face used for highlighting selected articles in the thread tree. (custom-declare-variable 'gnus-selected-tree-face ''modeline '(#$ . -10869) :type 'face :group 'gnus-summary-tree) #@30 Brackets used in tree nodes. (defvar gnus-tree-brackets '((91 . 93) (40 . 41) (123 . 125) (60 . 62)) (#$ . 11056)) #@51 Characters used to connect parents with children. (defvar gnus-tree-parent-child-edges '(45 92 124) (#$ . 11177)) #@51 *The format specification for the tree mode line. (custom-declare-variable 'gnus-tree-mode-line-format '"Gnus: %%b %S %Z" '(#$ . -11297) :type 'string :group 'gnus-summary-tree) #@148 *Function for generating a thread tree. Two predefined functions are available: `gnus-generate-horizontal-tree' and `gnus-generate-vertical-tree'. (custom-declare-variable 'gnus-generate-tree-function ''gnus-generate-vertical-tree '(#$ . -11482) :type '(radio (function-item gnus-generate-vertical-tree) (function-item gnus-generate-horizontal-tree) (function :tag "Other" nil)) :group 'gnus-summary-tree) #@33 *Hook run in tree mode buffers. (custom-declare-variable 'gnus-tree-mode-hook 'nil '(#$ . -11894) :type 'hook :group 'gnus-summary-tree) (byte-code "\306\300!\204\307\300 B\306\303!\204\n\303 B\306\304!\204 \310\304 B\306\305!\204,\310\305 B\306\311!\2049\310 \311 B\306\312!\204F\310\n\312 B\306\313!\204S\310 \313 B\306\314!\204`\310\f\314 B\306\315!\204m\310 \315 B\316\317\320\321#\210 \204\221\322  \323 !\210\324\315\325\"\210\326\327\330 #\210\310\207" [gnus-tree-line-format-alist current-load-list gnus-summary-mode-line-format-alist gnus-tree-mode-line-format-alist gnus-tree-mode-line-format-spec gnus-tree-line-format-spec boundp ((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)) nil gnus-tree-node-length gnus-selected-tree-overlay gnus-tree-displayed-thread gnus-tree-inhibit gnus-tree-mode-map put gnus-tree-mode mode-class special make-keymap suppress-keymap gnus-define-keys-1 (" " gnus-tree-select-article gnus-mouse-2 gnus-tree-pick-article "" gnus-tree-read-summary-keys "h" gnus-tree-show-summary " " gnus-info-find-node) substitute-key-definition undefined gnus-tree-read-summary-keys] 4) (defalias 'gnus-tree-make-menu-bar #[nil "\303\300!?\205\303\300!\204\304\300 B\305\300\306\307#\210\310\300\n\307\311$\207" [gnus-tree-menu current-load-list gnus-tree-mode-map boundp nil put variable-documentation "" easy-menu-do-define ("Tree" ["Select article" gnus-tree-select-article t])] 5]) #@41 Major mode for displaying thread trees. (defalias 'gnus-tree-mode #[nil "\306\307!\210\306\310\311\"\210\312\313\314\"\203\315 \210\316 \210\317 \210\320\321\322\n!\210\323 \210\311\311\212\324 \210\325\326\327\330 \")\331\"\210`S)\332\333!\207" [mode-name major-mode gnus-tree-mode-map buffer-read-only truncate-lines init gnus-set-format tree-mode tree t gnus-visual-p tree-menu menu gnus-tree-make-menu-bar kill-all-local-variables gnus-simplify-mode-line "Tree" gnus-tree-mode use-local-map buffer-disable-undo gnus-set-work-buffer gnus-tree-node-insert "" make-vector 10 nil gnus-run-hooks gnus-tree-mode-hook gnus-tree-node-length] 4 (#$ . 13465) nil]) #@52 Read a summary buffer key sequence and execute it. (defalias 'gnus-tree-read-summary-keys #[(&optional arg) "?\2050p\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 gnus-overlay-end 1 gnus-tree-minimize] 4 (#$ . 14139) "P"]) #@45 Reconfigure windows to show summary buffer. (defalias 'gnus-tree-show-summary #[nil "\211\205\303 !\205\304\303 !!)\204\305\306!\207\307\310!\210\311\n!\207" [gnus-summary-buffer buffer gnus-current-article get-buffer buffer-name error "There is no summary buffer for this tree buffer" gnus-configure-windows article gnus-summary-goto-subject] 4 (#$ . 14574) nil]) #@41 Select the article under point, if any. (defalias 'gnus-tree-select-article #[(article) "p \205\212\nq\210\303 !\210)\304\305!!)\207" [buf article gnus-summary-buffer gnus-summary-goto-article select-window get-buffer-window] 3 (#$ . 14953) (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 (#$ . 15240) "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 (#$ . 15544)]) (defalias 'gnus-tree-goto-article #[(article) "\302ed\303$\211\205 b)\207" [article pos text-property-any gnus-number] 6]) #@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 get-buffer-window t select-window gnus-overlay-end 1 window-height 4 0 7 2 set-window-start bottom] 4 (#$ . 15912)]) #@46 Return the tree buffer properly initialized. (defalias 'gnus-get-tree-buffer #[nil "\212\302!q\210 \303=\204\303 \210p)\207" [gnus-tree-buffer major-mode gnus-get-buffer-create gnus-tree-mode] 2 (#$ . 16389)]) (defalias 'gnus-tree-minimize #[nil "\205t\306 ?\205t\307\310\311\312!\210\313 \nS_Z\314Z\314\315ed\" S\f]\247\2033 ^\2024 \316p!\211\205D\317!S ^\205r=?\205r\320 \321\322\323\217\205q\324Z!\210\325!).\207" [gnus-tree-minimize-window tot-win-height windows window-min-height height min one-window-p 0 nil walk-windows #[(window) "T\211\207" [windows] 2] frame-height 2 count-lines get-buffer-window window-height selected-window #1=#:G82000 (select-window win) ((error)) enlarge-window select-window tot win wh selected] 4]) (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!\325\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]) #@63 Highlight current line according to `gnus-summary-highlight'. (defalias 'gnus-tree-highlight-node #[(article beg end) "\306\212 q\210\f \236A\206\f\206\307 \f\f\236A@\206&\n\203;\310\n@@!\204;\nA\211\204,,\n@A\211\311\301\"=?\205^\312\301\313 !\203\\ J\202] $*\207" [gnus-summary-highlight face list gnus-summary-buffer article gnus-newsgroup-scored nil 0 eval get-text-property gnus-put-text-property-excluding-characters-with-faces boundp gnus-summary-default-score score default gnus-newsgroup-data gnus-unread-mark mark beg end] 7 (#$ . 18147)]) (defalias 'gnus-tree-indent #[(level) "\302T _S\303\"c\207" [gnus-tree-node-length level make-string 32] 3]) (byte-code "\301B\302B\303B\301\207" [current-load-list gnus-tmp-limit gnus-tmp-sparse gnus-tmp-indent] 2) #@36 Generate a thread tree for THREAD. (defalias 'gnus-generate-tree #[(thread) "\212\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 get-buffer-window t select-window gnus-horizontal-recenter] 4 (#$ . 18959)]) #@29 Generate a horizontal tree. (defalias 'gnus-generate-horizontal-tree #[(thread level &optional dummyp adopted) "@;\211\206@\205@\306H\n>\307\307 \204\"A\202vn\204.@c\210\202g\306U\204g\310!\210A@c\210`\211\311 Z\312Z\313y\210\fu\210\307f\314=\203d\315\312!\210AA@c\210\202I b\210\307\316\211A@#\210\204\204n?\205\246\317c\202\246\205\246\320\211A@ \203\230T\202\232\206\240 $\210\202\204,\207" [thread dummy gnus-tmp-limit do col beg 0 nil gnus-tree-indent gnus-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 (#$ . 19483)]) (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 gnus-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\202\\\212\306y\210o)\204w T_`\310 ZZ\211\306V\205A\311\312\"c)\210\311 \313\245\312\"c\210AA@c\210\314S\211\306Y\203p\314y\306U\204U\307\210\315c\210\202U\307\210)\202\306U\204\211\\\306\\SS\211\306Y\203\242\314y\306U\204\207\307\210\315c\210\202\207\307\210) T_`\310 ZZ\211\306V\205\276\311\312\"c)\210\316\317!\210A@c\210`\317u\210`\314V\203\354`Sf\312=\203\354\316\317!\210@c\210\317u\210\202\317\fb\210\314S\211\306Y\203 \314y\306U\204\362\307\210\315c\210\202\362\307\210)\307 T_`\310 ZZ\211\306V\205,\311\312\"c)\210\320\211A@#\210\314S\211\306Y\203X\314y\306U\204=\307\210\315c\210\202=\307\210)\204oeb\210\307\210T\211\202\221\205\221\321\211A@ \203\203T\202\205\206\213 $\210\202o+\207" [thread dummy gnus-tmp-limit do beg gnus-tree-node-length 0 nil gnus-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 (#$ . 20641)]) #@69 Generate the thread tree for ARTICLE if it isn't displayed already. (defalias 'gnus-possibly-generate-tree #[(article &optional force) "\212q\210 \205\n\205\306\307 \f\2368!)\205\212\212q\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 (#$ . 21893)]) (defalias 'gnus-tree-open #[(group) "\300 \207" [gnus-get-tree-buffer] 1]) (defalias 'gnus-tree-close #[(group) "\211\211\205\n;\203\303\202\304\n!)\205\305 !)\207" [gnus-tree-buffer buf buffer get-buffer buffer-name kill-buffer] 3]) #@45 Highlight the selected article in the tree. (defalias 'gnus-highlight-selected-tree #[(article) "p\306\nq\210\307 !\211\203P\f\203\310\f!\203$\311\312\313\314\"\211\315 #\210\316\f@bA#\210\317 \210\320 \210\321 \322\nq\323\"\203O\324\322\nq\323\"!\210\325 \210\324!\210)\212\nq\210\326\327!\210) q*\207" [region buf gnus-tree-buffer article gnus-selected-tree-overlay gnus-selected-tree-face nil gnus-tree-article-region gnus-extent-detached-p gnus-overlay-put gnus-make-overlay 1 2 face gnus-move-overlay gnus-tree-minimize gnus-tree-recenter selected-window get-buffer-window t select-window gnus-horizontal-recenter gnus-set-mode-line tree selected] 4 (#$ . 23176)]) (defalias 'gnus-tree-highlight-article #[(article face) "\212\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 get-buffer-window t] 5]) (byte-code "\306\300!\204\307\300 B\306\302!\204\310\302 B\306\303!\204 \311\303 B\306\304!\204,\312\304 B\306\305!\2048\313\305 B\306\314!\204E\315\f\314 B\306\316!\204R\317\316 B\306\320!\204_\321\320 B\306\322!\204l\323\322 B\323\207" [gnus-carpal-group-buffer-buttons current-load-list gnus-carpal-summary-buffer-buttons gnus-carpal-server-buffer-buttons gnus-carpal-browse-buffer-buttons gnus-carpal-group-buffer boundp (("next" . gnus-group-next-unread-group) ("prev" . gnus-group-prev-unread-group) ("read" . gnus-group-read-group) ("select" . gnus-group-select-group) ("catch-up" . gnus-group-catchup-current) ("new-news" . gnus-group-get-new-news-this-group) ("toggle-sub" . gnus-group-unsubscribe-current-group) ("subscribe" . gnus-group-unsubscribe-group) ("kill" . gnus-group-kill-group) ("yank" . gnus-group-yank-group) ("describe" . gnus-group-describe-group) "list" ("subscribed" . gnus-group-list-groups) ("all" . gnus-group-list-all-groups) ("killed" . gnus-group-list-killed) ("zombies" . gnus-group-list-zombies) ("matching" . gnus-group-list-matching) ("post" . gnus-group-post-news) ("mail" . gnus-group-mail) ("rescan" . gnus-group-get-new-news) ("browse-foreign" . gnus-group-browse-foreign) ("exit" . gnus-group-exit)) ("mark" ("read" . gnus-summary-mark-as-read-forward) ("tick" . gnus-summary-tick-article-forward) ("clear" . gnus-summary-clear-mark-forward) ("expirable" . gnus-summary-mark-as-expirable) "move" ("scroll" . gnus-summary-next-page) ("next-unread" . gnus-summary-next-unread-article) ("prev-unread" . gnus-summary-prev-unread-article) ("first" . gnus-summary-first-unread-article) ("best" . gnus-summary-best-unread-article) "article" ("headers" . gnus-summary-toggle-header) ("uudecode" . gnus-uu-decode-uu) ("enter-digest" . gnus-summary-enter-digest-group) ("fetch-parent" . gnus-summary-refer-parent-article) "mail" ("move" . gnus-summary-move-article) ("copy" . gnus-summary-copy-article) ("respool" . gnus-summary-respool-article) "threads" ("lower" . gnus-summary-lower-thread) ("kill" . gnus-summary-kill-thread) "post" ("post" . gnus-summary-post-news) ("mail" . gnus-summary-mail) ("followup" . gnus-summary-followup-with-original) ("reply" . gnus-summary-reply-with-original) ("cancel" . gnus-summary-cancel-article) "misc" ("exit" . gnus-summary-exit) ("fed-up" . gnus-summary-catchup-and-goto-next-group)) (("add" . gnus-server-add-server) ("browse" . gnus-server-browse-server) ("list" . gnus-server-list-servers) ("kill" . gnus-server-kill-server) ("yank" . gnus-server-yank-server) ("copy" . gnus-server-copy-server) ("exit" . gnus-server-exit)) (("subscribe" . gnus-browse-unsubscribe-current-group) ("exit" . gnus-browse-exit)) "*Carpal Group*" gnus-carpal-summary-buffer "*Carpal Summary*" gnus-carpal-server-buffer "*Carpal Server*" gnus-carpal-browse-buffer "*Carpal Browse*" gnus-carpal-attached-buffer nil] 2) #@35 *Hook run in carpal mode buffers. (defvar gnus-carpal-mode-hook nil (#$ . -27048)) #@31 *Face used on carpal buttons. (defvar gnus-carpal-button-face 'bold (#$ . -27137)) #@38 *Face used on carpal buffer headers. (defvar gnus-carpal-header-face 'bold-italic (#$ . -27226)) (byte-code "\303\300!\204\304\300 B\305\306\307\310#\210\204/\311 \312!\210\313\314\315#\210\313\316\315#\210\313\n\317#\210\304\207" [gnus-carpal-mode-map current-load-list gnus-mouse-2 boundp nil put gnus-carpal-mode mode-class special make-keymap suppress-keymap define-key " " gnus-carpal-select " " gnus-carpal-mouse-select] 4) #@168 Major mode for clicking buttons. All normal editing commands are switched off. \ The following commands are available: \{gnus-carpal-mode-map} (defalias 'gnus-carpal-mode #[nil "\306 \210A\307\310\311\312 !\210\313 \210\314\315\316!\210\317\320!\207" [gnus-mode-line-modified mode-line-modified major-mode mode-name mode-line-process gnus-carpal-mode-map kill-all-local-variables gnus-carpal-mode "Gnus Carpal" nil use-local-map buffer-disable-undo t make-local-variable gnus-carpal-attached-buffer gnus-run-hooks gnus-carpal-mode-hook buffer-read-only] 2 (#$ . 27674) nil]) (defalias 'gnus-carpal-setup-buffer #[(type) "\306\307\310\"!J\311 !?\205y\212\312 !q\210\313 \210\306\307\314\"!\306\307\315\"!J\316\211 \203f @ A ;\203L\317` c\210`\320c\210\321D#\210\202+\317` @c\210`\320c\210\322 A\321\323\257#\210\202+\324 \325Z\326ed\"\210)\327\330p!e\",)\207" [type buffer gnus-carpal-attached-buffer button buffer-read-only buttons intern format "gnus-carpal-%s-buffer" get-buffer gnus-get-buffer-create gnus-carpal-mode "gnus-%s-buffer" "gnus-carpal-%s-buffer-buttons" nil gnus-set-text-properties " " face gnus-callback highlight window-width 2 fill-region set-window-point get-buffer-window gnus-carpal-header-face gnus-carpal-button-face gnus-mouse-face-prop fill-column] 9]) #@32 Select the button under point. (defalias 'gnus-carpal-select #[nil "\302`\303\"\211\205\304 J!\210\305!)\207" [func gnus-carpal-attached-buffer get-text-property gnus-callback pop-to-buffer call-interactively] 4 (#$ . 29015) nil]) #@44 Select the button under the mouse pointer. (defalias 'gnus-carpal-mouse-select #[(event) "\301!\210\302 \207" [event mouse-set-point gnus-carpal-select] 2 (#$ . 29256) "e"]) (byte-code "\300 \210\301\302!\207" [gnus-ems-redefine provide gnus-salt] 2)