;ELC ;;; compiled by amu@mit.edu on Sat Sep 13 16:19:56 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/gnus-topic.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-topic.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!%" [require gnus gnus-group gnus-start custom-declare-group gnus-topic nil "Group topics." :group] 6) #@36 Minor mode for Gnus group buffers. (defvar gnus-topic-mode nil (#$ . 632)) (byte-code "\f&\f&\f&\f&!9B!HB‡" [custom-declare-variable gnus-topic-mode-hook nil "Hook run in topic mode buffers." :type hook :group gnus-topic gnus-topic-line-format "%i[ %(%{%n%}%) -- %A ]%v\n" "Format of topic lines.\nIt works along the same lines as a normal formatting string,\nwith some simple extensions.\n\n%i Indentation based on topic level.\n%n Topic name.\n%v Nothing if the topic is visible, \"...\" otherwise.\n%g Number of groups in the topic.\n%a Number of unread articles in the groups in the topic.\n%A Number of unread articles in the groups in the topic and its subtopics.\n" string gnus-topic-indent-level 2 "*How much each subtopic should be indented." integer gnus-topic-display-empty-topics t "*If non-nil, display the topic lines even of topics that have no unread articles." boolean boundp gnus-topic-active-topology current-load-list gnus-topic-active-alist] 8) #@56 Whether the topology has been checked in this session. (defvar gnus-topology-checked-p nil (#$ . 1675)) (byte-code "! B! B B!( B‡" [boundp gnus-topic-killed-topics nil current-load-list gnus-topic-inhibit-change-level ((110 name 115) (118 visible 115) (105 indentation 115) (103 number-of-groups 100) (97 (gnus-topic-articles-in-topic entries) 100) (65 total-number-of-articles 100) (108 level 100)) gnus-topic-line-format-alist gnus-topic-line-format-spec] 2) #@44 The name of the topic on the current line. (defalias 'gnus-group-topic-name #[nil " \" !)" [get-text-property gnus-point-at-bol gnus-topic topic symbol-name] 4 (#$ . 2175)]) #@45 The level of the topic on the current line. (defalias 'gnus-group-topic-level #[nil " \"" [get-text-property gnus-point-at-bol gnus-topic-level] 3 (#$ . 2365)]) #@61 The number of unread articles in topic on the current line. (defalias 'gnus-group-topic-unread #[nil " \"" [get-text-property gnus-point-at-bol gnus-topic-unread] 3 (#$ . 2536)]) #@48 Return the number of unread articles in TOPIC. (defalias 'gnus-topic-unread #[(topic) " ! )Ç" [gnus-topic-goto-topic topic gnus-group-topic-unread 0] 2 (#$ . 2725)]) #@48 Return non-nil if the current line is a topic. (defalias 'gnus-group-topic-p #[nil " " [gnus-group-topic-name] 1 (#$ . 2907)]) #@49 Return non-nil if the current topic is visible. (defalias 'gnus-topic-visible-p #[nil " \"" [get-text-property gnus-point-at-bol gnus-topic-visible] 3 (#$ . 3042)]) (defalias 'gnus-topic-articles-in-topic #[(entries) "\f\fA@@ \n\\ *" [0 nil number total entries] 2]) #@40 Return the topic GROUP is a member of. (defalias 'gnus-group-topic #[(group) "\f @A @@ A\n*" [gnus-topic-alist nil out alist group] 3 (#$ . 3339)]) #@69 Return the topic GROUP is member of by looking at the group buffer. (defalias 'gnus-group-parent-topic #[(group) "q\n! \n!)" [gnus-group-buffer gnus-group-goto-group group gnus-current-topic gnus-group-topic] 2 (#$ . 3514)]) #@14 Go to TOPIC. (defalias 'gnus-topic-goto-topic #[(topic) "ed!$\fb)" [topic text-property-any gnus-topic intern point] 7 (#$ . 3758)]) #@39 Return the name of the current topic. (defalias 'gnus-current-topic #[nil "`\"`\" b)`Se]\")'\f!)" [get-text-property gnus-topic previous-single-property-change point result symbol-name] 4 (#$ . 3911)]) #@65 Return a list of all current topics, lowest in hierarchy first. (defalias 'gnus-current-topics #[nil "  \nB ! \n*" [gnus-current-topic nil topics topic gnus-topic-parent-topic] 3 (#$ . 4143)]) #@61 Say whether the current topic comes from the active topics. (defalias 'gnus-group-active-topic-p #[nil "y`\")" [0 get-text-property gnus-active] 3 (#$ . 4358)]) #@49 Return entries for all visible groups in TOPIC. (defalias 'gnus-topic-find-groups #[(topic &optional level all) " \n\"AÉ \n \f &.  A @  \"J 8\f\f8 \"J @t ֚?t\ft\fAT\f@Z\n\fA@:@) ق \n0 X0 Y0\n=\nV\f8A\"\" \">A0  B0.\n" [assoc topic gnus-topic-alist nil active entry visible-groups params lowest group unread clevel info groups 1 level 7 intern-soft gnus-newsrc-hashtb 2 5 gnus-active-hashtb "dummy.group" rank gnus-zombie-list 8 9 all t gnus-group-list-inactive-groups 0 gnus-list-groups-with-ticked-articles tick 3 gnus-permanently-visible-groups string-match visible] 11 (#$ . 4531)]) #@55 Return the previous topic on the same level as TOPIC. (defalias 'gnus-topic-previous-topic #[(topic) "\n!!AA\n @@@?+ ' A@@@\n' A @@@)" [gnus-topic-find-topology gnus-topic-parent-topic topic top] 4 (#$ . 5306)]) #@29 Return the parent of TOPIC. (defalias 'gnus-topic-parent-topic #[(topic &optional topology) " A@@‰3@@@3@\"3A\f< < +" [topology gnus-topic-topology nil found result parent topic gnus-topic-parent-topic] 4 (#$ . 5541)]) #@35 Return the next sibling of TOPIC. (defalias 'gnus-topic-next-topic #[(topic &optional previous) "\n!!AA# @@@\n# @@@ A,\f1 A@@@*" [gnus-topic-find-topology gnus-topic-parent-topic topic nil prev parentt previous] 4 (#$ . 5807)]) #@60 Go to the next topic on the same level as the current one. (defalias 'gnus-topic-forward-topic #[(num) " \nW Ă\n!\nU0 !0 !\nS\nU9db\n+" [gnus-current-topic topic num 0 gnus-topic-previous-topic gnus-topic-next-topic way abs gnus-topic-goto-topic] 3 (#$ . 6065)]) #@31 Return the topology of TOPIC. (defalias 'gnus-topic-find-topology #[(topic &optional topology level remove) " @@'!\" BJAI@ T<$IA. *" [topology gnus-topic-topology 0 level nil result top topic remove delq gnus-topic-find-topology] 6 (#$ . 6370)]) (byte-code "! B‡" [boundp gnus-tmp-topics nil current-load-list] 2) #@46 Return a list of all topics in the topology. (defalias 'gnus-topic-list #[(&optional topology) " @@ BA\" " [topology gnus-topic-topology nil gnus-tmp-topics mapcar gnus-topic-list] 3 (#$ . 6755)]) #@34 Return the parameters for TOPIC. (defalias 'gnus-topic-parameters #[(topic) " ! \nA@8)" [gnus-topic-find-topology topic top 3] 3 (#$ . 6972)]) #@50 Set the topic parameters of TOPIC to PARAMETERS. (defalias 'gnus-topic-set-parameters #[(topic parameters) " ! \"\nA@AA\nA@C\nA@+\nA@C\nA@ #!)" [gnus-topic-find-topology topic top error "No such topic: %s" nil 3 parameters gnus-dribble-enter format "(gnus-topic-set-parameters %S '%S)"] 6 (#$ . 7128)]) #@85 Compute the group parameters for GROUP taking into account inheritance from topics. (defalias 'gnus-group-topic-parameters #[(group) " !C‰ ! .A@!B\"A@c A@5\f:T\fB\f@ \"\f BA ." [gnus-group-get-parameter group nil out param params topics params-list gnus-group-goto-group gnus-current-topics gnus-topic-parameters delq t] 5 (#$ . 7471)]) (defalias 'gnus-topic-enter-dribble #[nil " \"!" [gnus-dribble-enter format "(setq gnus-topic-topology '%S)" gnus-topic-topology] 4]) #@249 List all newsgroups with unread articles of level LEVEL or lower, and use the `gnus-group-topics' to sort the groups. If ALL is non-nil, list groups that have no unread articles. If LOWEST is non-nil, list all newsgroups of level LOWEST or higher. (defalias 'gnus-group-prepare-topics #[(level &optional all lowest regexp list-topic topic-level) "q\n    \n Y>\n X>\" $\nY]\nX]\"$\n W!A@}\n$)\n$ \nB!*" [gnus-group-buffer nil lowest 1 buffer-read-only gnus-topic-alist gnus-topology-checked-p gnus-topic-check-topology list-topic erase-buffer level gnus-level-zombie gnus-group-prepare-flat-list-dead sort gnus-zombie-list string< 90 regexp gnus-level-killed gnus-killed-list 75 gnus-topic-find-topology top gnus-topic-prepare-topic topic-level all gnus-topic-topology 0 gnus-group-set-mode-line gnus-group-list-mode run-hooks gnus-group-prepare-hook] 5 (#$ . 8021)]) #@141 Insert TOPIC into the group buffer. If SILENT, don't insert anything. Return the number of unread articles in the topic and its subtopics. (defalias 'gnus-topic-prepare-topic #[(topicl level &optional list-level all silent) "A@ @ \f# A@=?\n _\" y`! d @eA@ T \f?%\\J`b A@;ނ!\"JAT@Z%8@A@#:#@#)8@8%<@@\\̂?E\nAAA@E)d\"\"j\"," [gnus-group-topic-name gnus-group-topic-level 0 nil buffer-read-only beg level topic 1 gnus-topic-find-topology data insert visible invisible hide total-remove delq assoc gnus-topic-alist gnus-topic-insert-topic in-level] 5 (#$ . 10028)]) #@15 Insert TOPIC. (defalias 'gnus-topic-insert-topic #[(topic &optional level) " @ A‰ \f&" [gnus-group-prepare-topics gnus-group-list-mode nil topic level] 7 (#$ . 10499)]) #@34 Remove/insert the current topic. (defalias 'gnus-topic-fold #[(&optional insert) " 7 \f ?!6B\n \f\f. ?͉$ +))" [gnus-group-topic-name topic gnus-group-active-topic-p gnus-topic-remove-topic insert gnus-topic-visible-p gnus-topic-active-topology gnus-topic-active-alist 5 t gnus-group-list-mode gnus-topic-alist gnus-topic-topology nil 9 gnus-topic-enter-dribble] 6 (#$ . 10678)]) (defalias 'gnus-topic-insert-topic-line #[(name visiblep shownp level entries &optional unread) "  _\" \n G\f =y``T!! \n#-" [visiblep "" "..." visible make-string gnus-topic-indent-level level 32 indentation unread total-number-of-articles entries number-of-groups gnus-topic-alist gnus-topic-active-alist active-topic 0 gnus-add-text-properties eval gnus-topic-line-format-spec gnus-topic intern name gnus-topic-level gnus-topic-unread gnus-active gnus-topic-visible] 13]) #@48 Update all topics that have GROUP as a member. (defalias 'gnus-topic-update-topics-containing-group #[(group) "=0\n0 \f/ \f@A'\f@@!'\f@@!\fA *" [major-mode gnus-group-mode gnus-topic-mode gnus-topic-alist alist group gnus-topic-goto-topic gnus-topic-update-topic-line] 2 (#$ . 11619)]) #@48 Update all parent topics to the current group. (defalias 'gnus-topic-update-topic #[nil "=>\n> = \"J8= != !bʼn +" [major-mode gnus-group-mode gnus-topic-mode gnus-group-group-name point-marker nil buffer-read-only m group 2 intern-soft gnus-newsrc-hashtb gnus-topic-goto-topic gnus-current-topic gnus-topic-update-topic-line gnus-group-topic-name gnus-group-position-point] 5 (#$ . 11935)]) #@53 Place point where GROUP is supposed to be inserted. (defalias 'gnus-topic-goto-missing-group #[(group) " !\n\f\"A A+@\"+A?u !AYYA@\"9y9u\nu\n!?u\nlj\n!@&," [gnus-group-topic group topic assoc gnus-topic-alist groups g t unfound gnus-group-goto-group reverse 1 nil gnus-topic-goto-missing-topic gnus-topic-insert-topic-line gnus-topic-find-topology 0] 7 (#$ . 12374)]) (defalias 'gnus-topic-goto-missing-topic #[(topic) " ! y !! AA!@@@ (AAF@@@!FA-R!Y A@@!*ʇ" [gnus-topic-goto-topic topic 1 gnus-topic-find-topology gnus-topic-parent-topic top reverse tp gnus-topic-forward-topic gnus-topic-goto-missing-topic nil] 4]) (defalias 'gnus-topic-update-topic-line #[(topic-name &optional reads) " !A@\nAA @@A# ! \n\f @!@ Z\ft\fU\f\fA@@@!\\\f@A@t@U\f@\\\fU  @ 8=? \n\f&y`y`| y  Z\"\f. " [gnus-topic-find-topology topic-name top type children gnus-topic-find-groups gnus-group-list-mode entries gnus-topic-parent-topic parent all-entries 0 unread nil old-unread entry gnus-topic-goto-topic reads gnus-group-topic-unread gnus-topic-unread gnus-topic-insert-topic-line gnus-topic-visible-p 2 hidden gnus-group-topic-level 1 -1 gnus-topic-update-topic-line] 8]) (defalias 'gnus-topic-group-indentation #[nil " y ! )_\"" [make-string gnus-topic-indent-level -1 gnus-topic-goto-topic gnus-current-topic gnus-group-topic-level 0 32] 4]) (gnus-add-shutdown (quote gnus-topic-close) (quote gnus)) (defalias 'gnus-topic-close #[nil "" [nil gnus-topic-active-topology gnus-topic-active-alist gnus-topic-killed-topics gnus-topology-checked-p] 2]) (defalias 'gnus-topic-check-topology #[nil "  :@@1 @@DCCAB a@\"W@CBAB+\"\" @@\"!AA@@~CA~,A@AA@A@\"JAAA*" [gnus-topic-alist gnus-topic-init-alist t gnus-topology-checked-p gnus-topic-list nil changed alist topics gnus-topic-topology visible gnus-topic-enter-dribble assoc apply append mapcar #[(entry) "A" [entry] 1] tgroups last entry gnus-newsrc-alist newsrc group topic intern-soft gnus-newsrc-hashtb] 6]) #@34 Initialize the topic structures. (defalias 'gnus-topic-init-alist #[nil "D\"BA\"BCD " ["Gnus" visible mapcar #[(topic) "@DC" [topic visible] 2] (("misc")) gnus-topic-topology "misc" #[(info) "@" [info] 1] gnus-newsrc-alist gnus-topic-alist gnus-topic-enter-dribble] 4 (#$ . 14751)]) #@43 Remove bogus groups from the topic alist. (defalias 'gnus-topic-clean-alist #[nil " \fA@g\nA@ \nA@Z \"JG\"J88$ \"J$B$ B B+ +" [gnus-topic-alist nil topic result topic-alist gnus-killed-hashtb gnus-make-hashtable-from-killed filtered-topic group topic-name intern-soft gnus-active-hashtb 4 2 gnus-newsrc-hashtb] 5 (#$ . 15061)]) #@62 Run when changing levels to enter/remove groups from topics. (defalias 'gnus-topic-change-level #[(group level oldlevel &optional previous) "q 8@ \f! ? WK\n YK\fy \"\fJ\f\f\fA\")\n W Y  ! )r_\"\fC\fΊy @@)\"\f\f;C\f\fA\f\fA\fA\fA@\f\fA\fA\f. )" [gnus-group-buffer gnus-group-goto-group 2 previous group gnus-topic-mode gnus-topic-alist gnus-topic-inhibit-change-level oldlevel gnus-level-zombie level nil alist -1 assoc gnus-current-topic gnus-delete-first gnus-group-group-name prev t make-string gnus-topic-indent-level gnus-topic-goto-topic gnus-group-topic-level 0 32 gnus-group-indentation yanked talist end gnus-topic-topology gnus-topic-update-topic] 4 (#$ . 15469)]) #@44 Go to group or the next group after group. (defalias 'gnus-topic-goto-next-group #[(group props) "\n> db\n>A@!!!Ƈ! \"\n\nAA E @!E A 4 i\nA!A i @!i A X\n@ueb \n@! *Ƈ" [group gnus-topic props gnus-topic-goto-topic symbol-name gnus-group-goto-group t assoc gnus-group-topic gnus-topic-alist list after reverse nil] 5 (#$ . 16337)]) #@63 Parse all active groups and create topic structures for them. (defalias 'gnus-topic-grok-active #[(&optional force) " ?/\" \"DC  \" @͠ @͠)" [force gnus-topic-active-alist nil groups mapatoms #[(g) "J\f!\nB" [g symbol-name groups] 2] gnus-active-hashtb sort string< "" visible gnus-topic-active-topology gnus-topic-grok-active-1 "Gnus active"] 3 (#$ . 16748)]) (defalias 'gnus-topic-grok-active-1 #[(topology groups) "@@ !P Y\f @\"Y̕#= A @B̉ODCC \"  \"h ̉Oi BB@  -" [topology name "^" regexp-quote prefix nil tgroups ntopology group groups string-match "\\." 0 invisible gnus-topic-grok-active-1 "\\.$" gnus-topic-active-alist] 5]) (byte-code "! B! B . \"\"\"‡" [boundp gnus-topic-mode-map nil current-load-list gnus-group-topic-map make-sparse-keymap gnus-define-keys-1 ("=" gnus-topic-select-group " " gnus-topic-select-group " " gnus-topic-read-group " " gnus-topic-kill-group "" gnus-topic-yank-group "" gnus-topic-get-new-news-this-topic "AT" gnus-topic-list-active "Gp" gnus-topic-edit-parameters "#" gnus-topic-mark-topic "" gnus-topic-unmark-topic gnus-mouse-2 gnus-mouse-pick-topic) (gnus-group-topic-map "T" gnus-group-mode-map) ("#" gnus-topic-mark-topic "" gnus-topic-unmark-topic "n" gnus-topic-create-topic "m" gnus-topic-move-group "D" gnus-topic-remove-group "c" gnus-topic-copy-group "h" gnus-topic-hide-topic "s" gnus-topic-show-topic "M" gnus-topic-move-matching "C" gnus-topic-copy-matching " " gnus-topic-indent [tab] gnus-topic-indent "r" gnus-topic-rename "" gnus-topic-delete [delete] gnus-topic-delete "h" gnus-topic-toggle-display-empty-topics) (gnus-topic-sort-map "S" gnus-group-topic-map) ("s" gnus-topic-sort-groups "a" gnus-topic-sort-groups-by-alphabet "u" gnus-topic-sort-groups-by-unread "l" gnus-topic-sort-groups-by-level "v" gnus-topic-sort-groups-by-score "r" gnus-topic-sort-groups-by-rank "m" gnus-topic-sort-groups-by-method)] 3) (defalias 'gnus-topic-make-menu-bar #[nil "!? ! B#$" [boundp gnus-topic-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-topic-mode-map ("Topics" ["Toggle topics" gnus-topic-mode t] ("Groups" ["Copy" gnus-topic-copy-group t] ["Move" gnus-topic-move-group t] ["Remove" gnus-topic-remove-group t] ["Copy matching" gnus-topic-copy-matching t] ["Move matching" gnus-topic-move-matching t]) ("Topics" ["Show" gnus-topic-show-topic t] ["Hide" gnus-topic-hide-topic t] ["Delete" gnus-topic-delete t] ["Rename" gnus-topic-rename t] ["Create" gnus-topic-create-topic t] ["Mark" gnus-topic-mark-topic t] ["Indent" gnus-topic-indent t] ["Toggle hide empty" gnus-topic-toggle-display-empty-topics t] ["Edit parameters" gnus-topic-edit-parameters t]) ["List active" gnus-topic-list-active t])] 5]) #@49 Minor mode for topicsifying Gnus group buffers. (defalias 'gnus-topic-mode #[(&optional arg redisplay) "=!\f ?\f!V#\"- ##\"\"!L!L!L!L!L!L&!\"+, ! \"\"\"#3 " [major-mode gnus-group-mode make-local-variable gnus-topic-mode arg prefix-numeric-value 0 nil gnus-goto-missing-group-function gnus-visual-p topic-menu menu gnus-topic-make-menu-bar gnus-parse-format gnus-topic-line-format gnus-topic-line-format-alist t gnus-topic-line-format-spec gnus-add-minor-mode " Topic" gnus-topic-mode-map add-hook gnus-summary-exit-hook gnus-topic-update-topic gnus-group-catchup-group-hook gnus-group-prepare-function gnus-group-prepare-topics gnus-group-get-parameter-function gnus-group-topic-parameters gnus-group-goto-next-group-function gnus-topic-goto-next-group gnus-group-indentation-function gnus-topic-group-indentation gnus-group-update-group-function gnus-topic-update-topics-containing-group gnus-group-sort-alist-function gnus-group-sort-topic gnus-topic-change-level gnus-group-change-level-function gnus-topic-goto-missing-group make-local-hook gnus-check-bogus-groups-hook gnus-topic-clean-alist gnus-topology-checked-p gnus-newsrc-alist gnus-topic-check-topology run-hooks gnus-topic-mode-hook remove-hook gnus-group-prepare-flat gnus-group-sort-flat redisplay gnus-group-list-groups] 5 (#$ . 19628) (list current-prefix-arg t)]) #@230 Select this newsgroup. No article is selected automatically. If ALL is non-nil, already read articles become readable. If ALL is a number, fetch this number of articles. If performed over a topic line, toggle folding the topic. (defalias 'gnus-topic-select-group #[(&optional all) "    B\f !) !" [gnus-group-topic-p all 7 t gnus-group-list-mode gnus-topic-fold gnus-group-select-group] 2 (#$ . 21096) "P"]) #@52 Select the group or topic under the mouse pointer. (defalias 'gnus-mouse-pick-topic #[(e) " !!" [mouse-set-point e gnus-topic-read-group nil] 2 (#$ . 21534) "e"]) #@359 Read news in this newsgroup. If the prefix argument ALL is non-nil, already read articles become readable. IF ALL is a number, fetch this number of articles. If the optional argument NO-ARTICLE is non-nil, no article will be auto-selected upon group entry. If GROUP is non-nil, fetch that group. If performed over a topic line, toggle folding the topic. (defalias 'gnus-topic-read-group #[(&optional all no-article group) "    B\f !) #" [gnus-group-topic-p all 7 t gnus-group-list-mode gnus-topic-fold gnus-group-read-group no-article group] 4 (#$ . 21709) "P"]) #@97 Create a new TOPIC under PARENT. When used interactively, PARENT will be the topic under point. (defalias 'gnus-topic-create-topic #[(topic parent &optional previous full-topic) " !\n!\f @@\f!A BC,\f\"\nYALA@@@\nLA3AB`C \f\"o C\fB\f* !" [gnus-topic-find-topology topic error "Topic already exists" parent gnus-topic-topology full-topic (visible) top "No such parent topic: %s" previous assoc gnus-topic-alist gnus-topic-enter-dribble gnus-group-list-groups gnus-topic-goto-topic] 4 (#$ . 22310) (list (read-string "New topic: ") (gnus-current-topic))]) #@69 Move the next N groups to TOPIC. If COPYP, copy the groups instead. (defalias 'gnus-topic-move-group #[(n topic &optional copyp) " ! \f\"y  \n \f  \"  / !4\n! -" [gnus-group-process-prefix n assoc topic gnus-topic-alist 1 gnus-group-group-name gnus-group-topic-name nil entry start-topic start-group topicl groups mapcar #[(g) " ! \f\" A\" C" [gnus-group-remove-mark g assoc gnus-current-topic gnus-topic-alist entry copyp gnus-delete-first topicl] 4] gnus-topic-enter-dribble gnus-group-goto-group gnus-topic-goto-topic gnus-group-list-groups] 5 (#$ . 22946) (list current-prefix-arg (completing-read "Move to topic: " gnus-topic-alist nil t))]) #@42 Remove the current group from the topic. (defalias 'gnus-topic-remove-group #[(&optional arg) " \"" [gnus-group-iterate arg #[(group) " \n\"!!y`y`| \" *" [assoc gnus-current-topic gnus-topic-alist nil buffer-read-only topicl group 0 1 gnus-delete-first gnus-topic-update-topic gnus-group-position-point] 4]] 3 (#$ . 23654) "P"]) #@36 Copy the current group to a topic. (defalias 'gnus-topic-copy-group #[(n topic) " \n#" [gnus-topic-move-group n topic t] 4 (#$ . 24018) (list current-prefix-arg (completing-read "Copy to topic: " gnus-topic-alist nil t))]) #@25 Kill the next N groups. (defalias 'gnus-topic-kill-group #[(&optional n discard) " & \n!\n \"BB\"\nȉ\n$ ) \" " [gnus-group-topic-p gnus-group-topic-name topic gnus-topic-find-topology assoc gnus-topic-alist gnus-topic-killed-topics gnus-topic-remove-topic nil t gnus-topic-topology gnus-topic-enter-dribble gnus-group-kill-group n discard gnus-topic-update-topic] 5 (#$ . 24250) "P"]) #@22 Yank the last topic. (defalias 'gnus-topic-yank-group #[(&optional arg) "< !A@A @AB@@\f!\f$ @@!,  ! )S_\"!ۊy )\";|CAAAA@AA- " [gnus-topic-killed-topics gnus-group-topic-name gnus-topic-next-topic gnus-current-topic previous data alist item gnus-topic-alist gnus-topic-create-topic gnus-topic-parent-topic gnus-topic-enter-dribble gnus-topic-goto-topic gnus-group-group-name prev t gnus-topic-inhibit-change-level make-string gnus-topic-indent-level gnus-group-topic-level 0 32 gnus-group-indentation nil yanked gnus-group-yank-group arg assoc -1 gnus-topic-update-topic] 6 (#$ . 24669) "p"]) #@25 Hide the current topic. (defalias 'gnus-topic-hide-topic #[nil "  !É#" [gnus-current-topic gnus-topic-goto-topic gnus-topic-remove-topic nil hidden] 4 (#$ . 25419) nil]) #@24 Show the hidden topic. (defalias 'gnus-topic-show-topic #[nil " \n#" [gnus-group-topic-p gnus-topic-remove-topic t nil shown] 4 (#$ . 25606) nil]) #@53 Mark all groups in the topic with the process mark. (defalias 'gnus-topic-mark-topic #[(topic &optional unmark) "!#.ȂA@8@!*" [topic call-interactively gnus-group-mark-group gnus-topic-find-groups 9 t groups unmark gnus-group-remove-mark gnus-group-set-mark 2] 4 (#$ . 25767) (list (gnus-group-topic-name))]) #@55 Remove the process mark from all groups in the topic. (defalias 'gnus-topic-unmark-topic #[(topic &optional unmark) "!\"" [topic call-interactively gnus-group-unmark-group gnus-topic-mark-topic t] 3 (#$ . 26119) (list (gnus-group-topic-name))]) #@42 Check for new news in the current topic. (defalias 'gnus-topic-get-new-news-this-topic #[(&optional n) " \n! ! " [gnus-group-topic-p gnus-group-get-new-news-this-group n gnus-topic-mark-topic gnus-group-topic-name] 2 (#$ . 26381) "P"]) #@50 Move all groups that match REGEXP to some topic. (defalias 'gnus-topic-move-matching #[(regexp topic &optional copyp) " !\f #" [gnus-group-mark-regexp regexp gnus-topic-move-group nil topic copyp] 4 (#$ . 26634) (byte-code "\f$ \"!D)" [nil topic completing-read "Move to topic: " gnus-topic-alist t read-string format "Move to %s (regexp): "] 5)]) #@50 Copy all groups that match REGEXP to some topic. (defalias 'gnus-topic-copy-matching #[(regexp topic &optional copyp) " \n#" [gnus-topic-move-matching regexp topic t] 4 (#$ . 27006) (byte-code "\f$ \"!D)" [nil topic completing-read "Copy to topic: " gnus-topic-alist t read-string format "Copy to %s (regexp): "] 5)]) #@17 Delete a topic. (defalias 'gnus-topic-delete #[(topic) "!\f\"A!!*y`y`|\f\"ʼn$ *" [topic error "No topic to be deleted" assoc gnus-topic-alist nil buffer-read-only entry "Topic not empty" gnus-topic-goto-topic 0 1 delq gnus-topic-find-topology delete gnus-dribble-touch] 6 (#$ . 27346) (list (gnus-group-topic-name))]) #@17 Rename a topic. (defalias 'gnus-topic-rename #[(old-name new-name) " ! \" A@\f\fy *" [gnus-topic-find-topology old-name assoc gnus-topic-alist entry top new-name -1 gnus-dribble-touch gnus-group-list-groups] 5 (#$ . 27710) (let ((topic (gnus-current-topic))) (list topic (read-string (format "Rename %s to: " topic))))]) #@98 Indent a topic -- make it a sub-topic of the previous topic. If UNINDENT, remove an indentation. (defalias 'gnus-topic-indent #[(&optional unindent) "  !  \" G ! \f@A B \f@@A$\fA\f !G !+" [unindent gnus-topic-unindent gnus-current-topic topic gnus-topic-previous-topic parent nil buffer-read-only error "Nothing to indent %s into" gnus-topic-goto-topic gnus-topic-kill-group gnus-topic-killed-topics gnus-topic-alist gnus-topic-create-topic] 5 (#$ . 28064) "P"]) #@19 Unindent a topic. (defalias 'gnus-topic-unindent #[nil "  ! ! \" = !  @A\nB\n \f ! @@A$ A !+" [gnus-current-topic topic gnus-topic-parent-topic parent grandparent error "Nothing to indent %s into" gnus-topic-goto-topic gnus-topic-kill-group gnus-topic-killed-topics gnus-topic-alist gnus-topic-create-topic gnus-topic-next-topic] 6 (#$ . 28575) nil]) #@107 List all groups that Gnus knows about in a topicsified fashion. If FORCE, always re-read the active file. (defalias 'gnus-topic-list-active #[(&optional force) " ! \fʼn #," [force gnus-get-killed-groups gnus-topic-grok-active gnus-topic-active-topology gnus-topic-active-alist nil gnus-zombie-list gnus-killed-list gnus-topic-alist gnus-topic-topology gnus-group-list-groups 9 1] 4 (#$ . 28964) "P"]) #@48 Show/hide topics that have no unread articles. (defalias 'gnus-topic-toggle-display-empty-topics #[nil "? Ă\"" [gnus-topic-display-empty-topics gnus-group-list-groups message "%s empty topics" "Showing" "Hiding"] 3 (#$ . 29392) nil]) #@97 Edit the group parameters of GROUP. If performed on a topic, edit the topic parameters instead. (defalias 'gnus-topic-edit-parameters #[(group) "! ! !\"\"BBE#)" [group gnus-group-edit-group-parameters gnus-group-topic-p error "Nothing to edit on the current line" gnus-group-topic-name topic gnus-edit-form gnus-topic-parameters format "Editing the topic parameters for `%s'." lambda (form) gnus-topic-set-parameters (form)] 8 (#$ . 29647) (list (gnus-group-group-name))]) #@58 Sort groups in the topics according to FUNC and REVERSE. (defalias 'gnus-group-sort-topic #[(func reverse) " % @\" @\" A@#)" [gnus-topic-alist alist delq nil delete "dummy.group" gnus-topic-sort-topic func reverse] 4 (#$ . 30161)]) (defalias 'gnus-topic-sort-topic #[(topic func reverse) "A\" \"\"A" [topic mapcar #[(info) "@" [info] 1] sort #[(group) "\n \"J8" [2 intern-soft group gnus-newsrc-hashtb] 4] func reverse] 7]) #@82 Sort the current topic according to FUNC. If REVERSE, reverse the sorting order. (defalias 'gnus-topic-sort-groups #[(func &optional reverse) " \n\" !# )" [assoc gnus-current-topic gnus-topic-alist topic gnus-topic-sort-topic gnus-make-sort-function func reverse gnus-group-list-groups] 4 (#$ . 30641) (list gnus-group-sort-function current-prefix-arg)]) #@89 Sort the current topic alphabetically by group name. If REVERSE, sort in reverse order. (defalias 'gnus-topic-sort-groups-by-alphabet #[(&optional reverse) "\n\"" [gnus-topic-sort-groups gnus-group-sort-by-alphabet reverse] 3 (#$ . 31014) "P"]) #@89 Sort the current topic by number of unread articles. If REVERSE, sort in reverse order. (defalias 'gnus-topic-sort-groups-by-unread #[(&optional reverse) "\n\"" [gnus-topic-sort-groups gnus-group-sort-by-unread reverse] 3 (#$ . 31268) "P"]) #@75 Sort the current topic by group level. If REVERSE, sort in reverse order. (defalias 'gnus-topic-sort-groups-by-level #[(&optional reverse) "\n\"" [gnus-topic-sort-groups gnus-group-sort-by-level reverse] 3 (#$ . 31518) "P"]) #@75 Sort the current topic by group score. If REVERSE, sort in reverse order. (defalias 'gnus-topic-sort-groups-by-score #[(&optional reverse) "\n\"" [gnus-topic-sort-groups gnus-group-sort-by-score reverse] 3 (#$ . 31752) "P"]) #@74 Sort the current topic by group rank. If REVERSE, sort in reverse order. (defalias 'gnus-topic-sort-groups-by-rank #[(&optional reverse) "\n\"" [gnus-topic-sort-groups gnus-group-sort-by-rank reverse] 3 (#$ . 31986) "P"]) #@91 Sort the current topic alphabetically by backend name. If REVERSE, sort in reverse order. (defalias 'gnus-topic-sort-groups-by-method #[(&optional reverse) "\n\"" [gnus-topic-sort-groups gnus-group-sort-by-method reverse] 3 (#$ . 32217) "P"]) (provide (quote gnus-topic))