;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Wed Jul 17 16:53:36 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/gnus-topic.el ;;; emacs version 19.31.94.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")) (require (quote gnus)) #@36 Minor mode for Gnus group buffers. (defvar gnus-topic-mode nil (#$ . 507)) #@33 Hook run in topic mode buffers. (defvar gnus-topic-mode-hook nil (#$ . 588)) #@393 Format of topic lines. It works along the same lines as a normal formatting string, with some simple extensions. %i Indentation based on topic level. %n Topic name. %v Nothing if the topic is visible, "..." otherwise. %g Number of groups in the topic. %a Number of unread articles in the groups in the topic. %A Number of unread articles in the groups in the topic and its subtopics.  (defvar gnus-topic-line-format "%i[ %(%{%n%}%) -- %A ]%v\n" (#$ . 672)) #@45 *How much each subtopic should be indented. (defvar gnus-topic-indent-level 2 (#$ . -1142)) (byte-code "! B! B‡" [boundp gnus-topic-active-topology nil current-load-list gnus-topic-active-alist] 2) #@56 Whether the topology has been checked in this session. (defvar gnus-topology-checked-p nil (#$ . 1365)) (byte-code "! B! B!  B B!4 B‡" [boundp gnus-topic-killed-topics nil current-load-list gnus-topic-inhibit-change-level gnus-topic-tallied-groups ((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 "`y` b)\"\f!)" [get-text-property p 0 gnus-topic topic symbol-name] 4 (#$ . 1903)]) #@45 The level of the topic on the current line. (defalias 'gnus-group-topic-level #[nil "`y` b)\"" [get-text-property p 0 gnus-topic-level] 3 (#$ . 2088)]) #@61 The number of unread articles in topic on the current line. (defalias 'gnus-group-topic-unread #[nil "`y` b)\"" [get-text-property p 0 gnus-topic-unread] 3 (#$ . 2253)]) #@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 (#$ . 2436)]) #@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 (#$ . 2618)]) #@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   \"  \fYA\n\fXA\"\f$ Y`\nX`\"$\n\fW  !A@ $) $*  B!" [gnus-group-buffer nil lowest 1 buffer-read-only gnus-topic-tallied-groups 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 (#$ . 2928)]) #@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`!  @_A@ T \f?%\\D`b A@;܂\"JAT@Z%8@A@!:!@!)8@8%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 (#$ . 4925)]) #@27 Remove the current topic. (defalias 'gnus-topic-remove-topic #[(&optional insert total-remove hide in-level) " y`\\yU( \"TV `|!A@A\n<˂=̠ P!A@A C?\\\"," [gnus-group-topic-name gnus-group-topic-level 0 nil buffer-read-only beg level topic 1 gnus-topic-find-topology insert visible invisible hide total-remove gnus-topic-insert-topic in-level] 5 (#$ . 5695)]) #@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 (#$ . 6117)]) #@34 Remove/insert the current topic. (defalias 'gnus-topic-fold #[(&optional insert) " 4 \f ?!3B\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] 6 (#$ . 6295)]) #@48 Return non-nil if the current line is a topic. (defalias 'gnus-group-topic-p #[nil " " [gnus-group-topic-name] 1 (#$ . 6686)]) #@49 Return non-nil if the current topic is visible. (defalias 'gnus-topic-visible-p #[nil "`y` b)\"" [get-text-property p 0 gnus-topic-visible] 3 (#$ . 6821)]) (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-remove-excess-properties gnus-topic intern name gnus-topic-level gnus-topic-unread gnus-active gnus-topic-visible] 13]) #@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 (#$ . 7550)]) #@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 (#$ . 7785)]) #@35 Return the next sibling of TOPIC. (defalias 'gnus-topic-next-topic #[(topic &optional previous) " !!AA,@@@ ,@@@A5 ;A@@@+" [gnus-topic-topology gnus-topic-find-topology gnus-topic-parent-topic topic nil prev parentt topology previous] 5 (#$ . 8051)]) #@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 (#$ . 8345)]) (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-topic-tallied-groups gnus-topology-checked-p] 2]) (defalias 'gnus-topic-check-topology #[nil "  :@@1 @@DCCAB +\"\" @@\"A@@\\AB\\," [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 apply append mapcar #[(entry) "A" [entry] 1] tgroups assoc entry gnus-newsrc-alist newsrc group] 6]) (byte-code "! B‡" [boundp gnus-tmp-topics nil current-load-list] 2) (defalias 'gnus-topic-list #[(&optional topology) " @@ BA\" " [topology gnus-topic-topology nil gnus-tmp-topics mapcar gnus-topic-list] 3]) (defalias 'gnus-topic-enter-dribble #[nil " \"!" [gnus-dribble-enter format "(setq gnus-topic-topology '%S)" gnus-topic-topology] 4]) (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 (#$ . 9830)]) #@14 Go to TOPIC. (defalias 'gnus-topic-goto-topic #[(topic) "ed!$\fb)" [topic text-property-any gnus-topic intern point] 7 (#$ . 10005)]) #@39 Return the name of the current topic. (defalias 'gnus-group-parent-topic #[nil "`\"`\" b)`Se]\")'\f!)" [get-text-property gnus-topic previous-single-property-change point result symbol-name] 4 (#$ . 10159)]) #@48 Update all parent topics to the current group. (defalias 'gnus-topic-update-topic #[nil "=4\n4 3 \"J83 !3 !! *" [major-mode gnus-group-mode gnus-topic-mode gnus-group-group-name nil buffer-read-only group 2 intern-soft gnus-newsrc-hashtb gnus-topic-goto-topic gnus-group-parent-topic gnus-topic-update-topic-line gnus-group-topic-name gnus-group-goto-group gnus-group-position-point] 5 (#$ . 10397)]) #@53 Place point where GROUP is supposed to be inserted. (defalias 'gnus-topic-goto-missing-group #[(group) " !\n\f\"A A22A@!yi !A^^A@!?y?i\n!y," [gnus-group-topic group topic assoc gnus-topic-alist groups g t unfound gnus-group-goto-group 0 nil reverse 1 gnus-topic-goto-topic] 3 (#$ . 10838)]) (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]) #@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 (#$ . 11845)]) (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]) #@65 Return whether the current active comes from the active topics. (defalias 'gnus-group-active-topic-p #[nil "y`\")" [0 get-text-property gnus-active] 3 (#$ . 12603)]) (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 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)] 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]) ["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,\",  #BBRBB\"\"\"!!!!\"%& ! \"\", " [major-mode gnus-group-mode make-local-variable gnus-topic-mode arg prefix-numeric-value 0 menu-bar-mode 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 minor-mode-alist (gnus-topic-mode " Topic") minor-mode-map-alist gnus-topic-mode-map add-hook gnus-summary-exit-hook gnus-topic-update-topic gnus-group-catchup-group-hook gnus-group-update-group-hook gnus-group-prepare-function gnus-group-prepare-topics gnus-group-goto-next-group-function gnus-topic-goto-next-group gnus-topic-change-level gnus-group-change-level-function gnus-topic-goto-missing-group gnus-goto-missing-group-function gnus-group-indentation-function gnus-topic-group-indentation nil gnus-topology-checked-p gnus-newsrc-alist gnus-topic-check-topology run-hooks gnus-topic-mode-hook remove-hook gnus-group-prepare-flat redisplay gnus-group-list-groups] 5 (#$ . 14333) (list current-prefix-arg t)]) #@171 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. (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 (#$ . 15595) "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 (#$ . 15974) "e"]) #@300 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. (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 (#$ . 16149) "P"]) (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 aleady 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 nil (list (read-string "New topic: ") (gnus-group-parent-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\"\" + " [gnus-group-process-prefix n assoc topic gnus-topic-alist nil entry topicl groups mapcar #[(g) " ! \f\" A\" C" [gnus-group-remove-mark g assoc gnus-group-parent-topic gnus-topic-alist entry copyp gnus-delete-first topicl] 4] gnus-group-position-point gnus-topic-enter-dribble gnus-group-list-groups] 4 (#$ . 17220) (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 #[nil " \n\" ''y`y`|\" +" [assoc gnus-group-parent-topic gnus-topic-alist gnus-group-group-name nil buffer-read-only group topicl 0 1 gnus-delete-first gnus-group-position-point] 4 (#$ . 17816) nil]) #@36 Copy the current group to a topic. (defalias 'gnus-topic-copy-group #[(n topic) " \n#" [gnus-topic-move-group n topic t] 4 (#$ . 18127) (list current-prefix-arg (completing-read "Copy to topic: " gnus-topic-alist nil t))]) (defalias 'gnus-topic-group-indentation #[nil " ! )_\"" [make-string gnus-topic-indent-level gnus-topic-goto-topic gnus-group-parent-topic gnus-group-topic-level 0 32] 4]) #@62 Run when changing levels to enter/remove groups from topics. (defalias 'gnus-topic-change-level #[(group level oldlevel) "q \n ?\f W; Y;y \n\": A\") W\f Y  ! )^_\" Cʊy @@)\n\";CAAAA@AA. )" [gnus-group-buffer gnus-topic-mode gnus-topic-alist gnus-topic-inhibit-change-level oldlevel gnus-level-zombie level nil alist -1 assoc gnus-group-parent-topic gnus-delete-first group 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 (#$ . 18544)]) #@44 Go to group or the next group after group. (defalias 'gnus-topic-goto-next-group #[(group props) "\f>A@!!!Ƈ  \"\n\nAA ; @!; A * _\nA!A _ @!_ A N m\n@! *Ƈ" [group gnus-topic-goto-topic symbol-name gnus-topic props gnus-group-goto-group t assoc gnus-group-parent-topic gnus-topic-alist list after reverse nil] 5 (#$ . 19328)]) #@25 Kill the next N groups. (defalias 'gnus-topic-kill-group #[(&optional n discard) "  \"\nĉ$B)\n \" " [gnus-group-topic-p gnus-group-topic-name topic gnus-topic-remove-topic nil t gnus-topic-find-topology gnus-topic-topology gnus-topic-killed-topics gnus-group-kill-group n discard gnus-topic-update-topic] 5 (#$ . 19722) "P"]) #@22 Yank the last topic. (defalias 'gnus-topic-yank-group #[(&optional arg) "' !A@A\f@@ ! \f$\f@@!* \n\f ! )>_\"!؊y )\";gC\nuAAAA@\nAA- " [gnus-topic-killed-topics gnus-group-topic-name gnus-topic-next-topic gnus-group-parent-topic item previous gnus-topic-create-topic gnus-topic-parent-topic 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 alist gnus-group-yank-group arg assoc -1 gnus-topic-alist gnus-topic-update-topic] 6 (#$ . 20080) "p"]) #@45 Hide all subtopics under the current topic. (defalias 'gnus-topic-hide-topic #[nil "  !É#" [gnus-group-parent-topic gnus-topic-goto-topic gnus-topic-remove-topic nil hidden] 4 (#$ . 20789) 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 (#$ . 21001) nil]) #@53 Mark all groups in the topic with the process mark. (defalias 'gnus-topic-mark-topic #[(topic &optional unmark) " #\f! Ƃ\fA@8@!*" [gnus-topic-find-groups topic 9 t groups unmark gnus-group-remove-mark gnus-group-set-mark 2] 4 (#$ . 21162) (list (gnus-group-parent-topic))]) #@55 Remove the process mark from all groups in the topic. (defalias 'gnus-topic-unmark-topic #[(topic &optional unmark) " \"" [gnus-topic-mark-topic topic t] 3 (#$ . 21464) (list (gnus-group-parent-topic))]) #@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 (#$ . 21677) "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 (#$ . 21930) (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 (#$ . 22302) (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] 6 (#$ . 22642) (list (gnus-group-topic-name))]) #@17 Rename a topic. (defalias 'gnus-topic-rename #[(old-name new-name) " ! \" A@\f\f *" [gnus-topic-find-topology old-name assoc gnus-topic-alist entry top new-name gnus-group-list-groups] 5 (#$ . 22984) (let ((topic (gnus-group-parent-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) "  ! \" 9 ! \fA\f@A$ !9 !*" [unindent gnus-topic-unindent gnus-group-parent-topic topic gnus-topic-previous-topic parent error "Nothing to indent %s into" gnus-topic-goto-topic gnus-topic-kill-group gnus-topic-create-topic nil gnus-topic-killed-topics] 7 (#$ . 23315) "P"]) #@19 Unindent a topic. (defalias 'gnus-topic-unindent #[nil "  ! ! \" 2 ! \f ! A @A$ !+" [gnus-group-parent-topic topic gnus-topic-parent-topic parent grandparent error "Nothing to indent %s into" gnus-topic-goto-topic gnus-topic-kill-group gnus-topic-create-topic gnus-topic-next-topic gnus-topic-killed-topics] 7 (#$ . 23781) 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 (#$ . 24145) "P"]) (provide (quote gnus-topic))