;ELC ;;; compiled by gsstark@lola-granola.MIT.EDU on Tue Jul 23 13:34:28 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.2.37/lisp/gnus-salt.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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")) (require (quote gnus)) #@77 Minor mode for providing a pick-and-read interface in Gnus summary buffers. (defvar gnus-pick-mode nil (#$ . 536)) #@33 *Display summary while reading. (defvar gnus-pick-display-summary nil (#$ . -657)) #@40 Hook run in summary pick mode buffers. (defvar gnus-pick-mode-hook nil (#$ . 746)) (byte-code "! B  \"‡" [boundp gnus-pick-mode-map nil current-load-list make-sparse-keymap gnus-define-keys-1 ("t" gnus-uu-mark-thread "T" gnus-uu-unmark-thread " " gnus-summary-mark-as-processable "u" gnus-summary-unmark-as-processable "U" gnus-summary-unmark-all-processable "v" gnus-uu-mark-over "r" gnus-uu-mark-region "R" gnus-uu-unmark-region "e" gnus-uu-mark-by-regexp "E" gnus-uu-mark-by-regexp "b" gnus-uu-mark-buffer "B" gnus-uu-unmark-buffer " " gnus-pick-start-reading)] 3) (defalias 'gnus-pick-make-menu-bar #[nil "!? ! B#$" [boundp gnus-pick-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-pick-mode-map ("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-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-regexp t] ["Buffer" gnus-uu-unmark-buffer 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) "=S!\f ?\f!VS! 3\"3 @BPBB!" [major-mode gnus-summary-mode make-local-variable gnus-pick-mode arg prefix-numeric-value 0 gnus-auto-select-first nil menu-bar-mode gnus-visual-p pick-menu menu gnus-pick-make-menu-bar minor-mode-alist (gnus-pick-mode " Pick") minor-mode-map-alist gnus-pick-mode-map run-hooks gnus-pick-mode-hook] 4 (#$ . 2032) "P"]) #@91 Start reading the picked articles. If given a prefix, mark all unpicked articles as read. (defalias 'gnus-pick-start-reading #[(&optional catch-up) "!!   ʂ!\"" [gnus-newsgroup-processable error "No articles have been picked" gnus-summary-limit-to-articles nil catch-up gnus-summary-limit-mark-excluded-as-read gnus-summary-first-unread-article gnus-configure-windows gnus-pick-display-summary article pick t] 3 (#$ . 2590) "P"]) #@74 Minor mode for provind a binary group interface in Gnus summary buffers. (defvar gnus-binary-mode nil (#$ . 3053)) #@42 Hook run in summary binary mode buffers. (defvar gnus-binary-mode-hook nil (#$ . 3174)) (byte-code "! B  \"‡" [boundp gnus-binary-mode-map nil current-load-list make-sparse-keymap gnus-define-keys-1 ("g" gnus-binary-show-article)] 3) (defalias 'gnus-binary-make-menu-bar #[nil "!? ! B#$" [boundp gnus-binary-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-binary-mode-map ("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) "=Z!\f ?\f!VZ!!  :\": GBWBB!" [major-mode gnus-summary-mode make-local-variable gnus-binary-mode arg prefix-numeric-value 0 gnus-auto-select-first nil gnus-summary-display-article-function gnus-binary-display-article menu-bar-mode gnus-visual-p binary-menu menu gnus-binary-make-menu-bar minor-mode-alist (gnus-binary-mode " Binary") minor-mode-map-alist gnus-binary-mode-map run-hooks gnus-binary-mode-hook] 4 (#$ . 3690) "P"]) #@50 Run ARTICLE through the binary decode functions. (defalias 'gnus-binary-display-article #[(article &optional all-header) " !  )" [gnus-summary-goto-subject article automatic gnus-view-pseudos gnus-uu-decode-uu] 2 (#$ . 4313)]) #@51 Bypass the binary functions and show the article. (defalias 'gnus-binary-show-article #[(&optional arg) " !)" [nil gnus-summary-display-article-function gnus-summary-show-article arg] 2 (#$ . 4553) "P"]) #@26 Format of tree elements. (defvar gnus-tree-line-format "%(%[%3,3n%]%)" (#$ . 4767)) #@124 If non-nil, minimize the tree buffer window. If a number, never let the tree buffer grow taller than that number of lines. (defvar gnus-tree-minimize-window t (#$ . 4858)) #@67 *Face used for highlighting selected articles in the thread tree. (defvar gnus-selected-tree-face (quote modeline) (#$ . -5036)) #@30 Brackets used in tree nodes. (defvar gnus-tree-brackets (quote ((91 . 93) (40 . 41) (123 . 125) (60 . 62))) (#$ . 5171)) #@50 Charaters used to connect parents with children. (defvar gnus-tree-parent-child-edges (quote (45 92 124)) (#$ . 5298)) #@51 *The format specification for the tree mode line. (defvar gnus-tree-mode-line-format "Gnus: %%b %S %Z" (#$ . -5423)) #@148 *Function for generating a thread tree. Two predefined functions are available: `gnus-generate-horizontal-tree' and `gnus-generate-vertical-tree'. (defvar gnus-generate-tree-function (quote gnus-generate-vertical-tree) (#$ . -5547)) #@33 *Hook run in tree mode buffers. (defvar gnus-tree-mode-hook nil (#$ . -5786)) (byte-code "! B!  B!! B!. B!; B!H\n B!U B!b\f B#\f \f\f!\"\f#LJ" [boundp 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)) current-load-list gnus-tree-mode-line-format-alist gnus-summary-mode-line-format-alist gnus-tree-mode-line-format-spec nil gnus-tree-line-format-spec gnus-tree-node-length gnus-selected-tree-overlay gnus-tree-displayed-thread 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 " " gnus-info-find-node) substitute-key-definition undefined gnus-tree-read-summary-keys] 4) (defalias 'gnus-tree-make-menu-bar #[nil "!? ! B#$" [boundp gnus-tree-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-tree-mode-map ("Tree" ["Select article" gnus-tree-select-article t])] 5]) #@41 Major mode for displaying thread trees. (defalias 'gnus-tree-mode #[nil " \n\"\f #\" !p! !\"`S)!" [gnus-parse-format gnus-tree-mode-line-format gnus-summary-mode-line-format-alist gnus-tree-mode-line-format-spec gnus-tree-line-format gnus-tree-line-format-alist t gnus-tree-line-format-spec menu-bar-mode gnus-visual-p tree-menu menu gnus-tree-make-menu-bar kill-all-local-variables gnus-simplify-mode-line "Tree" mode-name gnus-tree-mode major-mode use-local-map gnus-tree-mode-map buffer-disable-undo buffer-read-only truncate-lines gnus-set-work-buffer gnus-tree-node-insert make-mail-header "" nil gnus-tree-node-length run-hooks gnus-tree-mode-hook] 4 (#$ . 6999) nil]) #@52 Read a summary buffer key sequence and execute it. (defalias 'gnus-tree-read-summary-keys #[(&optional arg) "p\f#\n!' !%!#b *" [nil win buf gnus-article-read-summary-keys arg t get-buffer-window select-window gnus-selected-tree-overlay gnus-overlay-end 1 gnus-tree-minimize] 4 (#$ . 7736) "P"]) #@41 Select the article under point, if any. (defalias 'gnus-tree-select-article #[(article) "p \nq !)!!)" [buf article gnus-summary-buffer gnus-summary-goto-article select-window get-buffer-window] 3 (#$ . 8064) (list (gnus-tree-article-number))]) #@45 Select the article under the mouse pointer. (defalias 'gnus-tree-pick-article #[(e) " ! !" [mouse-set-point e gnus-tree-select-article gnus-tree-article-number] 2 (#$ . 8326) "e"]) (defalias 'gnus-tree-article-number #[nil "`\"" [get-text-property gnus-number] 3]) #@55 Return a cons with BEG and END of the article region. (defalias 'gnus-tree-article-region #[(article) "ed\n$ \"B)" [text-property-any gnus-number article pos next-single-property-change] 6 (#$ . 8605)]) (defalias 'gnus-tree-goto-article #[(article) "ed\n$ b)" [text-property-any gnus-number article pos] 6]) #@34 Center point in the tree window. (defalias 'gnus-tree-recenter #[nil " \n\"\f]\f!!b W*̂6 W5ɂ6 Sdb[y`)\f[y`)^\"+ !*" [selected-window get-buffer-window gnus-tree-buffer t tree-window selected select-window gnus-selected-tree-overlay gnus-overlay-end 1 window-height 4 0 7 2 top height bottom set-window-start] 4 (#$ . 8938)]) #@46 Return the tree buffer properly initialized. (defalias 'gnus-get-tree-buffer #[nil " !q\n= p)" [get-buffer-create gnus-tree-buffer major-mode gnus-tree-mode gnus-add-current-to-buffer-list] 2 (#$ . 9326)]) (defalias 'gnus-tree-minimize #[nil "z ?z!  S_ZZ ed\"\f S\f] : ^< p!L!S\f^x=?x !Z!!)." [gnus-tree-minimize-window one-window-p 0 nil tot-win-height windows walk-windows #[(window) "T" [windows] 2] frame-height window-min-height 2 count-lines height min tot get-buffer-window win window-height wh selected-window selected select-window enlarge-window] 4]) (defalias 'gnus-tree-node-insert #[(header sparse &optional adopted) ";! !!ʼnIIIH H H\f \"E ŔTŕSO} \"oŔ \"e ŔTŕSOk O)}\f>{ӂ} \f>A@@ AA@@8@@@\f>A@A8A AA@A@A`!`\fD#\f#. " [header dummy vectorp make-mail-header "*****" 0 7 6 2 gnus-tmp-from 1 gnus-tmp-subject gnus-tmp-number string-match "(.+)" "<[^>]+> *$" beg "^\"[^\"]*\"" sparse "***" gnus-tmp-name gnus-tree-brackets adopted 3 gnus-tmp-open-bracket gnus-tmp-close-bracket nil buffer-read-only end gnus-add-text-properties eval gnus-tree-line-format-spec gnus-number gnus-tree-highlight-node] 6]) #@63 Highlight current line according to `gnus-summary-highlight'. (defalias 'gnus-tree-highlight-node #[(article beg end) "\fq A \n  A@'\f < @@!< A-, @A\"=?_\n!]\nJ^\n$*" [gnus-summary-highlight nil face list gnus-summary-buffer article gnus-newsgroup-scored gnus-summary-default-score 0 score default gnus-newsgroup-data gnus-unread-mark mark eval get-text-property beg gnus-put-text-property end boundp] 7 (#$ . 10713)]) (defalias 'gnus-tree-indent #[(level) " T\n_S\"c" [make-string gnus-tree-node-length level 32] 3]) (byte-code " B B B" [gnus-tmp-limit current-load-list gnus-tmp-sparse gnus-tmp-indent] 2) #@36 Generate a thread tree for THREAD. (defalias 'gnus-generate-tree #[(thread) " q \"!eb  q\"=q\"!  !," [gnus-get-tree-buffer nil 0 gnus-tmp-indent buffer-read-only erase-buffer gnus-generate-tree-function thread gnus-set-mode-line tree gnus-tree-minimize gnus-tree-recenter selected-window selected get-buffer-window gnus-tree-buffer t select-window gnus-horizontal-recenter] 4 (#$ . 11396)]) #@29 Generate a horizontal tree. (defalias 'gnus-generate-horizontal-tree #[(thread level &optional dummyp adopted) "@;@H >\fAn+@cq Uq !A@c`` y` b)ZZyugUm!AA@cRbA@#n?cA@\f T  $," [thread dummy 0 gnus-tmp-limit do nil col beg gnus-tree-parent-child-edges level gnus-tree-indent p 1 -1 32 delete-char dummyp gnus-tree-node-insert gnus-tmp-sparse adopted "\n" gnus-generate-horizontal-tree] 6 (#$ . 11837)]) (defalias 'gnus-tree-indent-vertical #[nil "T _``y`\nb)ZZV\f\"c)" [gnus-tree-node-length gnus-tmp-indent p 0 len make-string 32] 5]) (put (quote gnus-tree-indent-vertical) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'gnus-tree-forward-line #[(n) "SYyUc" [n 0 1 nil "\n"] 2]) (put (quote gnus-tree-forward-line) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@27 Generate a vertical tree. (defalias 'gnus-generate-vertical-tree #[(thread level &optional dummyp adopted) "@;@H >\fAoyo)T_`` y` b)ZZ\nVH\n\"c)ͥ\"cAA@cSYxyU]c])U\\SSYyUc)T_`` y` b)ZZ\nV\n\"c)!A@c`ugU!@cbSYyUc)T_`` y` b)ZZ\nV?\n\"c)A@#SYkyUPcP)ebTA@\fT $+" [thread dummy 0 gnus-tmp-limit do nil beg gnus-tree-node-length gnus-tmp-indent p len make-string 32 2 gnus-tree-parent-child-edges 1 n "\n" level delete-char -1 -2 dummyp gnus-tree-node-insert gnus-tmp-sparse adopted gnus-generate-vertical-tree] 6 (#$ . 12795)]) #@69 Generate the thread tree for ARTICLE if it isn't displayed already. (defalias 'gnus-possibly-generate-tree #[(article &optional force) "q \f 8!)q\f 8H\" \n=9\f=9\f=o o @H>T @H>o AGXe A!o A@ > *=?!," [gnus-summary-buffer gnus-use-trees vectorp 3 article gnus-newsgroup-data gnus-remove-thread 4 t thread gnus-fetch-old-headers some gnus-build-sparse-threads more 0 gnus-newsgroup-sparse gnus-newsgroup-ancient 1 gnus-invisible-cut-children gnus-newsgroup-limit gnus-tmp-sparse gnus-tmp-limit top force gnus-tree-displayed-thread gnus-generate-tree] 5 (#$ . 13610)]) (defalias 'gnus-tree-open #[(group) " " [gnus-get-tree-buffer] 1]) (defalias 'gnus-tree-close #[(group) "" [nil] 1]) #@45 Highlight the selected article in the tree. (defalias 'gnus-highlight-selected-tree #[(article) "p q !U!(\" # @b A#  q\"T q\"! !) q!)\nq*" [nil region buf gnus-tree-buffer gnus-tree-article-region article gnus-selected-tree-overlay gnus-extent-detached-p gnus-overlay-put gnus-make-overlay 1 2 face gnus-selected-tree-face gnus-move-overlay gnus-tree-minimize gnus-tree-recenter selected-window selected get-buffer-window t select-window gnus-horizontal-recenter gnus-set-mode-line tree] 4 (#$ . 14397)]) (defalias 'gnus-tree-highlight-article #[(article face) " q\f!!\n@\nA$p\"\nA\"*" [gnus-get-tree-buffer nil region gnus-tree-article-region article gnus-put-text-property face set-window-point get-buffer-window t] 5]) (byte-code " !" [gnus-ems-redefine provide gnus-salt] 2)