| Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/gnus/gnus-topic.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\304!\210\305\306\307\310\311\302%\207" [require gnus gnus-group gnus-start gnus-util custom-declare-group gnus-topic nil "Group topics." :group] 6)
#@36 Minor mode for Gnus group buffers.
(defvar gnus-topic-mode nil (#$ . 612))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\313\314\304\315\306\307& \210\300\316\317\320\304\321\306\307&\210\300\322\323\324\304\325\306\307&\207" [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\nGeneral format specifiers can also be used.\nSee Info node `(gnus)Formatting Variables'." :link (custom-manual "(gnus)Formatting Variables") 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] 10)
(defvar gnus-topic-active-topology nil)
(defvar gnus-topic-active-alist nil)
(defvar gnus-topic-unreads nil)
#@56 Whether the topology has been checked in this session.
(defvar gnus-topology-checked-p nil (#$ . 1904))
(defvar gnus-topic-killed-topics nil)
(defvar gnus-topic-inhibit-change-level nil)
(defconst gnus-topic-line-format-alist '((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)))
(defvar gnus-topic-line-format-spec nil)
#@44 The name of the topic on the current line.
(defalias 'gnus-group-topic-name #[nil "\300\301 \302\"\207" [get-text-property point-at-bol gnus-topic] 3 (#$ . 2361)])
#@45 The level of the topic on the current line.
(defalias 'gnus-group-topic-level #[nil "\300\301 \302\"\207" [get-text-property point-at-bol gnus-topic-level] 3 (#$ . 2531)])
#@61 The number of unread articles in topic on the current line.
(defalias 'gnus-group-topic-unread #[nil "\300\301 \302\"\207" [get-text-property point-at-bol gnus-topic-unread] 3 (#$ . 2709)])
#@48 Return the number of unread articles in TOPIC.
(defalias 'gnus-topic-unread #[(topic) "\302 \"A\206 \303\207" [topic gnus-topic-unreads assoc 0] 3 (#$ . 2905)])
#@48 Return non-nil if the current line is a topic.
(defalias 'gnus-group-topic-p #[nil "\300 \207" [gnus-group-topic-name] 1 (#$ . 3074)])
#@49 Return non-nil if the current topic is visible.
(defalias 'gnus-topic-visible-p #[nil "\300\301 \302\"\207" [get-text-property point-at-bol gnus-topic-visible] 3 (#$ . 3215)])
(defalias 'gnus-topic-articles-in-topic #[(entries) "\303\304\n\203 \n\211A\242@\211\247\203 \\\202 *\207" [number total entries 0 nil] 2])
#@40 Return the topic GROUP is a member of.
(defalias 'gnus-group-topic #[(group) "\304\211\203 \n@A\235\203 \n@@\304\nA\211\204 *\207" [gnus-topic-alist out alist group nil] 3 (#$ . 3548)])
(defalias 'gnus-topic-goto-topic #[(topic) "\205\n \301\302\303\304$\207" [topic gnus-text-property-search gnus-topic nil goto] 5])
#@14 Go to TOPIC.
(defalias 'gnus-topic-jump-to-topic #[(topic) "\303\304 !\305\211\203$ \n@\306 !\204 \307 !\210\310 !\210\nA\211\204\f +\306 !\207" [inhibit-read-only topic --dolist-tail-- t gnus-current-topics nil gnus-topic-goto-topic gnus-topic-goto-missing-topic gnus-topic-display-missing-topic] 3 (#$ . 3885) (list (gnus-completing-read "Go to topic" (gnus-topic-list) t))])
#@39 Return the name of the current topic.
(defalias 'gnus-current-topic #[nil "\301`\302\"\206 \212\303`\302\"\211\205 b)\205 \301`Se]\302\")\207" [point get-text-property gnus-topic previous-single-property-change] 4 (#$ . 4275)])
#@98 Return a list of all current topics, lowest in hierarchy first.
If TOPIC, start with that topic.
(defalias 'gnus-current-topics #[(&optional topic) "\206 \302 \303\211\203 B\304!\211\204
\237*\207" [topic topics gnus-current-topic nil gnus-topic-parent-topic] 3 (#$ . 4514)])
#@61 Say whether the current topic comes from the active topics.
(defalias 'gnus-group-active-topic-p #[nil "\300\301 \302\"\207" [get-text-property point-at-bol gnus-active] 3 (#$ . 4808)])
#@104 Return entries for all visible groups in TOPIC.
If RECURSIVE is t, return groups in its subtopics too.
(defalias 'gnus-topic-find-groups #[(topic &optional level all lowest recursive) "\306 \"A\307\211\211\211\211\211\211\211 \206! \310\206* \203\211A\242\211\203\225 \311 \"\211A@\3128\311 \" @\206m \313\232?\205m \n\205m \nAT\n@Z\211A@\211:\203~ \211@\202 \211\266\202\206\223 \235\203\221 \202\223 \203, X\203, Y\203, !\204\373 \314=\204\275 \307=\203\302 \"\202\306 \315V\204\373 #\203\330 \316\3178\236A\204\373 $\203\346 \320$\"\204\373 %\235\204\373 \321
>\204\373 \321
\236A\203, \206\fB\202, \f\237&\203H&\314=\203 \322!A&&A\307 '\211 (\203G(@'\f\323'@@!'%\244(A\211(\204(*\f. \207" [topic gnus-topic-alist active entry visible-groups params assoc nil 1 gethash 5 "dummy.group" t 0 tick 3 string-match visible gnus-topic-find-topology gnus-topic-find-groups group unread clevel info groups lowest level gnus-level-unsubscribed gnus-newsrc-hashtb gnus-active-hashtb gnus-zombie-list gnus-level-zombie gnus-level-killed all gnus-group-list-inactive-groups gnus-list-groups-with-ticked-articles gnus-permanently-visible-groups gnus-group-marked recursive topic-topology --dolist-tail--] 10 (#$ . 5001)])
#@32 Go to the N'th previous topic.
(defalias 'gnus-topic-goto-previous-topic #[(n) "\301[!\207" [n gnus-topic-goto-next-topic] 2 (#$ . 6338) "p"])
#@28 Go to the N'th next topic.
(defalias 'gnus-topic-goto-next-topic #[(n) "\303W\304!\305 \303V\203. \n\203 \306 !\202 \307 !\211\203. \310 !\210S\211\202\f \303U\2049 \311\312\313\"\210+\207" [n topic backward 0 abs gnus-current-topic gnus-topic-previous-topic gnus-topic-next-topic gnus-topic-goto-topic gnus-message 7 "No more topics"] 4 (#$ . 6488) "p"])
#@55 Return the previous topic on the same level as TOPIC.
(defalias 'gnus-topic-previous-topic #[(topic) "\302\303!!AA @@@\232?\205+ \203' A@@@\232\204' A\211\204 @@@)\207" [topic top gnus-topic-find-topology gnus-topic-parent-topic] 4 (#$ . 6863)])
#@29 Return the parent of TOPIC.
(defalias 'gnus-topic-parent-topic #[(topic &optional topology) "\204 \211A\242@\306\211 \2031 @@@
\232\211\2041 \307
@\"\211\2041 A\211\204 \206: \n\205: \f+\207" [topology gnus-topic-topology found result parent topic nil gnus-topic-parent-topic] 4 (#$ . 7125)])
#@35 Return the next sibling of TOPIC.
(defalias 'gnus-topic-next-topic #[(topic &optional previous) "\304\305!!AA\306\211\203# \n@@@\232\204# \n@@@\nA\211\204 \203+ \2020 \nA@@@*\207" [topic prev parentt previous gnus-topic-find-topology gnus-topic-parent-topic nil] 4 (#$ . 7441)])
#@60 Go to the next topic on the same level as the current one.
(defalias 'gnus-topic-forward-topic #[(num) "\303 \304W\203
\305\202 \306\307 ! \304U\204. \n!\211\203. \310!\203 S\211\202 \304U\2047 db\210 +\207" [topic num way gnus-current-topic 0 gnus-topic-previous-topic gnus-topic-next-topic abs gnus-topic-goto-topic] 3 (#$ . 7735)])
#@31 Return the topology of TOPIC.
(defalias 'gnus-topic-find-topology #[(topic &optional topology level remove) "\204 \306\307 @@
\232\203% \n\203 \310\n\"\210\nB\202F A\211\203E \311
@\nT\n\2058 \f$\211\204E A\211\204, *\207" [topology gnus-topic-topology level result top topic 0 nil delq gnus-topic-find-topology remove] 6 (#$ . 8090)])
(defvar gnus-tmp-topics nil)
#@46 Return a list of all topics in the topology.
(defalias 'gnus-topic-list #[(&optional topology) "\204 \303@@\nB\304\305A\"\210\n\207" [topology gnus-topic-topology gnus-tmp-topics nil mapc gnus-topic-list] 3 (#$ . 8482)])
#@34 Return the parameters for TOPIC.
(defalias 'gnus-topic-parameters #[(topic) "\302!\211\205
\303 A@8)\207" [topic top gnus-topic-find-topology 3] 3 (#$ . 8717)])
#@50 Set the topic parameters of TOPIC to PARAMETERS.
(defalias 'gnus-topic-set-parameters #[(topic parameters) "\303!\211\204
\304\305\"\210 A@AA\204 A@\306C\244\210\307 A@\233\204+ A@\306C\244\210\307 A@\233\n\240\210\310\311\312\n#!)\207" [topic top parameters gnus-topic-find-topology error "No such topic: %s" nil 3 gnus-dribble-enter format "(gnus-topic-set-parameters %S '%S)"] 6 (#$ . 8887)])
#@108 Compute the group parameters for GROUP in topic mode.
Possibly inherit parameters from topics above GROUP.
(defalias 'gnus-group-topic-parameters #[(group) "\302\303!!\212\304\305!\203 \306 \206 \307! \"*\207" [group params-list copy-sequence gnus-group-get-parameter gnus-topic-hierarchical-parameters gnus-group-goto-group gnus-current-topic gnus-group-topic] 3 (#$ . 9298)])
#@182 Compute the topic parameters for TOPIC.
Possibly inherit parameters from topics above TOPIC.
If optional argument GROUP-PARAMS-LIST is non-nil, use it as the basis for
inheritance.
(defalias 'gnus-topic-hierarchical-parameters #[(topic &optional group-params-list) "\306\307\310\311\312 !\"B\"\307\211\211 \307 \f
\211A\242\211\203p \n\211A\242\211\203 \f:\2042 \f\313B\f@\314=\203b \fA\307 \f\211A\242\211\203^ \315@\f\"\204? \fB\f\202? *\202 \f@ \236\204 \f B\202 \f\203| \314\fB B) ,\207" [group-params-list topic params out param params-list delq nil mapcar gnus-topic-parameters gnus-current-topics t posting-style assoc elt] 7 (#$ . 9689)])
(defalias 'gnus-topic-enter-dribble #[nil "\301\302\303\"!\207" [gnus-topic-topology gnus-dribble-enter format "(setq gnus-topic-topology '%S)"] 4])
#@313 List all newsgroups with unread articles of level LEVEL or lower.
Use the `gnus-group-topics' to sort the groups.
If PREDICATE is a function, list groups that the function returns non-nil;
if it is t, 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 predicate lowest regexp list-topic topic-level) "q\210\306 \206 \307\n\205 \310\n! \311\312\313\"\210
\203! \204$ \314 \210 \204, \315 \210\n\204? Y\203O X\203O \316\317 \320\"\211 \321!$\210\n\204b \"Y\203\212 \"X\203\212 \316\317#\320\"\211#\"\322!$\210 \203\212 $\204~ \323 \210\316\324\325 \"\"\322!$\210 W\204\225 \n\205\315 \203\272 \326 ! %\327%A%@&\206\256 '\312 !&)\202\315 \327(\330&\206\305 '\312 !&\331 \210 'B)\332\333!\210+\207" [gnus-group-buffer lowest gnus-group-listed-groups not-in-list inhibit-read-only gnus-topic-alist t 1 copy-sequence gnus-update-format-specifications nil topic gnus-topic-check-topology erase-buffer gnus-group-prepare-flat-list-dead sort string< 90 75 gnus-make-hashtable-from-killed seq-remove #[(group) "\303 \"\206 \303\n\"\207" [group gnus-newsrc-hashtb gnus-killed-hashtb gethash] 3] gnus-topic-find-topology gnus-topic-prepare-topic 0 gnus-group-set-mode-line gnus-run-hooks gnus-group-prepare-hook gnus-topology-checked-p list-topic level gnus-level-zombie gnus-zombie-list regexp gnus-level-killed gnus-killed-list gnus-killed-hashtb top topic-level predicate gnus-topic-topology gnus-group-list-mode] 8 (#$ . 10522)])
#@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 predicate silent lowest regexp) "\211A\242\306 @\n\203 \202 \f
\206! \n\206! \307\310 @!\236A\n\203) \311\202+ $ A@\307=\2059 ? \312!\"_\313\" #\314 \210` $\315! %d &\311 '\316\211 ( )\316\211 * +\316 ,\203\210 '\317\211A\242\"T\f
? -&\\'\202h `*$b\210 \211A \242\211)\203\313);\203\374 \320)\n\203\320 \f.W?\205\370 )/\235\203\276 .\202\277 \211 0\fX\205\314 0 Y)\205\370 -;\203\337 \321-)\"\202\370 \322-!\203\356 -)!\202\370 -\204\367 \323\202\370 \316\"\202I)A@(\320(@\n\203-(\211A@\211:\203\211@\202\211\266\202\211 0\fX\205)0 Y)\205H\322
!\203:
(!\205H-;?\206H\321-(@\"\"\203\217 \203\252);\203}\324)\211/\235\203f.\202g \316\325)1\"\211+AT+@Z\316%\210\202\252)A@\211(\203\252\324(@(\211A@\211:\203\232\211@\202\233\211\266\202\326(8)@\327(8%\210)<\203\277)@\247\203\277')@\\')<\203\217 \323,\202\217 $b\210 \204 2\204\354'\311U\203\354,\204\354&dU\204 \330 @ \331 8\332=?\"%'&\210\333 @'\"\210\334$*\"\210*b\210'.\207" [topicl type gnus-group-listed-groups gnus-level-killed list-level predicate gnus-topic-find-groups visible gnus-topic-hierarchical-parameters 0 make-string 32 beginning-of-line reverse nil gnus-topic-prepare-topic gnus-group-prepare-logic string-match functionp t gnus-group-insert-group-line gethash 3 4 gnus-topic-insert-topic-line 2 hidden gnus-topic-update-unreads gnus-group--setup-tool-bar-update lowest entries silent visiblep gnus-topic-indent-level level gnus-group-indentation beg all-entries point-max unread info entry end active tick regexp gnus-level-zombie gnus-zombie-list entry-level gnus-active-hashtb gnus-topic-display-empty-topics] 10 (#$ . 12125)])
#@27 Remove the current topic.
(defalias 'gnus-topic-remove-topic #[(&optional insert total-remove _hide in-level) "\306 \307 \310 \210`\311\211\205^ \312y\313U\203$ \307 \206 \nT\nV\204 `|\210\314 !A@\211
\2037 \315\2028 \316\fAA@\fAAA@E\241\210)\203Y \317\320 \"\"\211\202^ \321 \",\207" [buffer-read-only beg level topic data insert gnus-group-topic-name gnus-group-topic-level beginning-of-line nil 1 0 gnus-topic-find-topology visible invisible delq assoc gnus-topic-insert-topic total-remove gnus-topic-alist in-level] 5 (#$ . 14071)])
#@15 Insert TOPIC.
(defalias 'gnus-topic-insert-topic #[(topic &optional level) "\303@A\304\211 \n&\207" [gnus-group-list-mode topic level gnus-group-prepare-topics nil] 7 (#$ . 14632)])
#@34 Remove/insert the current topic.
(defalias 'gnus-topic-fold #[(&optional insert topic) "\206 \306 \211\2057 \212\307 \204 \310 \206 \311 ?!\2026 \n \312\313B \310 \206. \311 ?\314\211\315$\210\316 +))\207" [topic insert gnus-topic-active-topology gnus-topic-active-alist gnus-group-list-mode gnus-topic-alist gnus-group-topic-name gnus-group-active-topic-p gnus-topic-remove-topic gnus-topic-visible-p 5 t nil 9 gnus-topic-enter-dribble gnus-topic-topology] 6 (#$ . 14823)])
(defalias 'gnus-topic-insert-topic-line #[(name visiblep shownp level entries &optional unread) "\203 \306\202 \307\310\n _\311\"
G = \312 \313
\"\210\314 \210 \205I \315``T\316 !\210\317\320 \321
\322\323\257\n#.\207" [visiblep visible gnus-topic-indent-level level indentation unread "" "..." make-string 32 nil gnus-topic-update-unreads beginning-of-line add-text-properties eval gnus-topic gnus-topic-level gnus-topic-unread gnus-active gnus-topic-visible total-number-of-articles entries number-of-groups gnus-topic-alist gnus-topic-active-alist active-topic gnus-tmp-header name shownp gnus-topic-line-format-spec] 13])
(defalias 'gnus-topic-update-unreads #[(topic unreads) "\303\304 \" \"\nB B\211\207" [topic gnus-topic-unreads unreads delq assoc] 4])
#@48 Update all topics that have GROUP as a member.
(defalias 'gnus-topic-update-topics-containing-group #[(group) "\305=\2050 \2050 \212\n \205/ \f @A\235\203' \306 @@!\203' \307 @@!\210 \211A\210\202
*\207" [major-mode gnus-topic-mode gnus-topic-alist alist group gnus-group-mode gnus-topic-goto-topic gnus-topic-update-topic-line] 2 (#$ . 16103)])
#@48 Update all parent topics to the current group.
(defalias 'gnus-topic-update-topic #[nil "\306=\2059 \2059 \307 \310 \311\211 \2058 \f\312
\"A@\262\2058 \313\314 !\2058 \315\316 !\210 b\210 \317\211\223\210\320 +\207" [major-mode gnus-topic-mode inhibit-read-only m group gnus-newsrc-hashtb gnus-group-mode gnus-group-group-name point-marker t gethash gnus-topic-goto-topic gnus-current-topic gnus-topic-update-topic-line gnus-group-topic-name nil gnus-group-position-point] 5 (#$ . 16460)])
#@53 Place point where GROUP is supposed to be inserted.
(defalias 'gnus-topic-goto-missing-group #[(group) "\306!\307 \n\"A \235A \310 \f\203% \311\f@\310\"\204% \f\211A\210\202 \f?\205^ \312 !\235A\f\203L
\203L \311\f\211A\242\310\"\2031 \313y\210\314\2021
\205^ \205^ \315 !?\205^ \316 !,\207" [group topic gnus-topic-alist groups g unfound gnus-group-topic assoc t gnus-group-goto-group reverse 1 nil gnus-topic-goto-missing-topic gnus-topic-display-missing-topic] 3 (#$ . 16963)])
#@52 Insert topic lines recursively for missing topics.
(defalias 'gnus-topic-display-missing-topic #[(topic) "\306\307!!\211\203 \310 A@@!\204 \311 A@@!\210)\310!\210\312 \203* \313y\210\202 \306!\211AA\nA@ \314 \315\f@@A# \316 \203Z
\317 \211A\242@@!\\\202G \211A\242\211\203w @\247\203Z
@\\\202Z \320\321\211\306!@\316
&.\207" [topic parent top children type unread gnus-topic-find-topology gnus-topic-parent-topic gnus-topic-goto-missing-topic gnus-topic-display-missing-topic gnus-group-group-name 1 0 gnus-topic-find-groups nil gnus-topic-unread gnus-topic-insert-topic-line t gnus-group-list-mode entries entry] 8 (#$ . 17463)])
(defalias 'gnus-topic-goto-missing-topic #[(topic) "\303!\203 \304y\207\305\306!!\307 AA! \204) \310\311\211\305!@\312\313&\210\202e \n@@@\232\2049 \nA\211\202* \n\210\nA\n\203S \303\n@@@!\204S \n\211A\210\202> \n\203^ \314\304!\210\202e \315 A@@!\210*\312\207" [topic top tp gnus-topic-goto-topic 1 gnus-topic-find-topology gnus-topic-parent-topic reverse gnus-topic-insert-topic-line t nil 0 gnus-topic-forward-topic gnus-topic-goto-missing-topic] 8])
(defalias 'gnus-topic-update-topic-line #[(topic-name &optional reads) "\306!\211A@ AA\307\n@\f@\fA# \310!
\311 \312\211 \312 \313\n@!\203\230 \203? \314 Z\202q \203T \315 \211A\242@@!\\\202?
\211A\242\211\203q @\247\203T @\\\202T \314 \316\n@\317 \320\n8\321=?\322 &\210\323 \324y\210`|\210\325y\210\314 \203\262 \325y\210\326\206\251 \311 \206\257 \311Z\"\210.\n\207" [topic-name top type children gnus-group-list-mode entries gnus-topic-find-topology gnus-topic-find-groups gnus-topic-parent-topic 0 nil gnus-topic-goto-topic gnus-group-topic-unread gnus-topic-unread gnus-topic-insert-topic-line gnus-topic-visible-p 2 hidden gnus-group-topic-level point-at-bol 1 -1 gnus-topic-update-topic-line parent all-entries unread old-unread entry new-unread reads] 8])
(defalias 'gnus-topic-group-indentation #[nil "\301\212\302y\210\303\304 !\210\305 )\206 \306_\307\"\207" [gnus-topic-indent-level make-string -1 gnus-topic-goto-topic gnus-current-topic gnus-group-topic-level 0 32] 4])
(gnus-add-shutdown 'gnus-topic-close 'gnus)
(defalias 'gnus-topic-close #[nil "\304\211\304\211\211\207" [gnus-topic-active-topology gnus-topic-active-alist gnus-topic-killed-topics gnus-topology-checked-p nil] 3])
(defalias 'gnus-topic-check-topology #[nil "\204 \306 \210\307\310 \311 \203/ @@\f\235\204(
@@\312DCC\244\210\307 A\211\204 \n\2036 \313 \210\f\203P \314\f@\"\204H \f@CB\f\211A\210\2026 +\315\316\317\320\"\" \321\314
@@\"! A\211 \311 \211 \203\224 @\211\235\204\213 C\241\210AA\211\204s -\311 \211A\242\211\205\320 A\203\232 A@\203\306 \322A@\"\203\306 A\211\202\247 \211AA\241\210\202\245 *\207" [gnus-topic-alist gnus-topology-checked-p changed alist topics gnus-topic-topology gnus-topic-init-alist t gnus-topic-list nil visible gnus-topic-enter-dribble assoc apply append mapcar cdr last gethash tgroups entry gnus-group-list groups group --dolist-tail-- topic gnus-newsrc-hashtb] 6])
#@34 Initialize the topic structures.
(defalias 'gnus-topic-init-alist #[nil "\303\304D\305\306\307\"B\310\305\311 A\"B\303CD\312 \207" [gnus-topic-topology gnus-newsrc-alist gnus-topic-alist "Gnus" visible mapcar #[(topic) "@\301DC\207" [topic visible] 2] (("misc")) "misc" #[(info) "@\207" [info] 1] gnus-topic-enter-dribble] 4 (#$ . 20617)])
#@43 Remove bogus groups from the topic alist.
(defalias 'gnus-topic-clean-alist #[nil "\306\211\f\204
\307 \210 \211A\242\211\203h \211A\242\306\211 \n \211A\242\211\n\203\\ \310\n\f\"\204L \n\310
\"A@\262 \3118)\203# \310\n\f\"\204# \n
B\202#
\237B\nB+\202
\n\237\211+\207" [gnus-topic-alist topic result topic-alist gnus-killed-hashtb filtered-topic nil gnus-make-hashtable-from-killed gethash 4 group topic-name gnus-active-hashtb gnus-newsrc-hashtb cl-x] 4 (#$ . 20967)])
#@62 Run when changing levels to enter/remove groups from topics.
(defalias 'gnus-topic-change-level #[(group level oldlevel &optional previous) "rq\210\306\n?\205)\307 A@@\206 \f!\210
\205)\205)\n?\205)W\203p Y\203p \307\f!\203I \310 \311y\210`|\210\2028 \205l \f@\235\203b @\312\f@A\"\241\210\211A\210\202I )\202)W\205)Y\205)\313 \306\314 \212\315\316 !\210\317 )\206\226 \320_\321\" \fC \322\211 \322 \323\212\324y\210\316 \206\266 !@@)\"\211\203% ;\203\317 C \204\335 \244\210\202%A\204\360 A\244\241\210\202% \204A\203A@\232\203 A\244\241\210\306 A\202\360 \204% \244\210.\325 *\207" [gnus-group-buffer inhibit-read-only gnus-topic-inhibit-change-level previous group gnus-topic-mode t gnus-group-goto-group point-at-bol 1 delete gnus-group-group-name make-string gnus-topic-goto-topic gnus-current-topic gnus-group-topic-level 0 32 nil assoc -1 gnus-topic-update-topic gnus-topic-alist oldlevel gnus-level-zombie level alist prev gnus-topic-indent-level gnus-group-indentation yanked talist end gnus-topic-topology] 5 (#$ . 21477)])
#@44 Go to group or the next group after group.
(defalias 'gnus-topic-goto-next-group #[(group props) "\204 \306 >\204
db\207\306 >A@\307\n!\206 \307\310\n!!)\207\311!\203( \312\207\313\314! \" \212\307\f@!)\211 \205? \fA\235A\211 \203V \311@!\204V A\211\204E \204y \315\fA!\235A\211\203y \311@!\204y A\211\204h \f@\204\204 eb\210\202\246 \204\246
\203\234
\211 \203\230 b\210)\202\243 \307\310\f@!!\210\316+\312\207" [group props topic gnus-topic-alist list topic-visible gnus-topic gnus-topic-goto-topic gnus-topic-next-topic gnus-group-goto-group t assoc gnus-group-topic reverse nil after point] 4 (#$ . 22631)])
#@63 Parse all active groups and create topic structures for them.
(defalias 'gnus-topic-grok-active #[(&optional force) "\204 ?\205< \305\n\306C\307\310\311\312\313\314!\315\"\316\317%\"\210\211\242\237\266\202\320\"\321\322DC\306\323\f \"\210\f@\324\240\210 @\324\240)\207" [force gnus-topic-active-alist gnus-active-hashtb groups gnus-topic-active-topology sort nil maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K --CL-VAR--)" string< "" visible gnus-topic-grok-active-1 "Gnus active"] 10 (#$ . 23284)])
(defalias 'gnus-topic-grok-active-1 #[(topology groups) "@@\306\307 !P\310\211 \310 \203P \311\n@\211\"\203P \311\312
\313\225#\2046 \211A\242 B\202 \314
\313\211\225#\315DC\211C\244\210\316\f\"\211\204 \311\317 \"\203` \314 \313\211\224#\202a \211 \237BB@ \240\210-\207" [topology name prefix tgroups ntopology group "^" regexp-quote nil string-match "\\." 0 substring invisible gnus-topic-grok-active-1 "\\.$" groups gnus-topic-active-alist] 6])
(defvar gnus-topic-mode-map nil)
(defvar gnus-group-topic-map nil)
(byte-code "\204 \301 \302\300\303\"\210\302\304\305\"\210\302\306\307\"\210\301\207" [gnus-topic-mode-map make-sparse-keymap gnus-define-keys-1 ("=" gnus-topic-select-group "
" gnus-topic-select-group " " gnus-topic-read-group "" gnus-topic-expire-articles "c" gnus-topic-catchup-articles " " gnus-topic-kill-group "" gnus-topic-yank-group "\347" gnus-topic-get-new-news-this-topic "AT" gnus-topic-list-active "Gp" gnus-topic-edit-parameters "#" gnus-topic-mark-topic "\243" gnus-topic-unmark-topic [tab] gnus-topic-indent [(meta tab)] gnus-topic-unindent " " gnus-topic-indent "\211" gnus-topic-unindent [mouse-2] gnus-mouse-pick-topic) (gnus-group-topic-map "T" gnus-group-mode-map) ("#" gnus-topic-mark-topic "\243" 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 "j" gnus-topic-jump-to-topic "M" gnus-topic-move-matching "C" gnus-topic-copy-matching "\360" gnus-topic-goto-previous-topic "\356" gnus-topic-goto-next-topic " " 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 "e" gnus-topic-sort-groups-by-server "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 "\301\302!?\205 \303\304!\210\305\302\306\307$\207" [gnus-topic-mode-map boundp gnus-topic-menu (lambda (#1=#:def-tmp-var) (defvar gnus-topic-menu #1# #2="")) nil easy-menu-do-define #2# ("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" ["Goto..." gnus-topic-jump-to-topic t] ["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] ["Sort" gnus-topic-sort-topics t] ["Previous topic" gnus-topic-goto-previous-topic t] ["Next topic" gnus-topic-goto-next-topic 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])
#@99 Non-nil if Gnus-Topic mode is enabled.
Use the command `gnus-topic-mode' to change this variable.
(defvar gnus-topic-mode nil (#$ . 27016))
(make-variable-buffer-local 'gnus-topic-mode)
#@292 Minor mode for topicsifying Gnus group buffers.
If called interactively, enable Gnus-Topic mode if ARG is
positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
(defalias 'gnus-topic-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\312\313!\204 \314\202\232 \n\204( \314\202{ \315\316\317\"\2032 \320 \210\321\322\323\"\210\324\325\326\"\210\327\304!\210\330\327\305!\210\331\327\332!\210\333\327\334!\210\335 \327\336!\210\337 \327\340!\210\341 \3429\343\324\344\345\314\346$\210\314:;\203{ \347 \210\n\204\221 \350\351\326\"\210\3149\350\344\345\"\210\352\353 \354\355!\203\232 \356 \210\357\360\n\203\244 \361\202\245 \362\"\210\354\355!\203\314 \306 \203\271 \306 \232\203\314 \363 &\364\365\n\203\306 \366\202\307 \367&#\210))\370 \210\n\207" [#1=#:last-message arg gnus-topic-mode gnus-goto-missing-group-function gnus-group-prepare-function gnus-group-get-parameter-function current-message toggle prefix-numeric-value 0 derived-mode-p gnus-group-mode nil gnus-visual-p topic-menu menu gnus-topic-make-menu-bar gnus-set-format topic t add-hook gnus-group-catchup-group-hook gnus-topic-update-topic make-local-variable gnus-group-prepare-topics 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-topic-goto-missing-group gnus-check-bogus-groups-hook gnus-topic-clean-alist local gnus-topic-check-topology remove-hook gnus-summary-exit-hook gnus-group-prepare-flat gnus-group-sort-flat called-interactively-p any gnus-group-list-groups run-hooks gnus-topic-mode-hook gnus-topic-mode-on-hook gnus-topic-mode-off-hook " in current buffer" message "Gnus-Topic mode %sabled%s" "en" "dis" force-mode-line-update gnus-group-change-level-function gnus-topology-checked-p gnus-newsrc-alist] 5 (#$ . 27209) (list (or current-prefix-arg 'toggle))])
(defvar gnus-topic-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [gnus-topic-mode-map gnus-topic-mode-hook variable-documentation put "Hook run after entering or leaving `gnus-topic-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode gnus-topic-mode " Topic" nil] 6)
#@407 Select this newsgroup.
No article is selected automatically.
If the group is opened, just switch the summary buffer.
If ALL is non-nil, already read articles become readable.
If ALL is a positive number, fetch this number of the latest
articles in the group. If ALL is a negative number, fetch this
number of the earliest articles in the group.
If performed over a topic line, toggle folding the topic.
(defalias 'gnus-topic-select-group #[(&optional all) "m\203\f \302 \204\f \303y\210\304 \203. \203$ \247\203 \202 \305\306B\202% \307!\210\310 )\207\311!\207" [all gnus-group-list-mode gnus-group-group-name -1 gnus-group-topic-p 7 t gnus-topic-fold gnus-dribble-touch gnus-group-select-group] 2 (#$ . 29793) "P"])
#@52 Select the group or topic under the mouse pointer.
(defalias 'gnus-mouse-pick-topic #[(e) "\301!\210\302\303!\207" [e mouse-set-point gnus-topic-read-group nil] 2 (#$ . 30528) "e"])
#@41 Expire articles in this topic or group.
(defalias 'gnus-topic-expire-articles #[(topic) "\204 \303\304!\207\212\305\306\307#\210\310\311\312 \313\314\313%\"\304\314!\210)\305\306\315#)\207" [topic gnus-level-killed gnus-group-marked call-interactively gnus-group-expire-articles gnus-message 5 "Expiring groups in %s..." mapcar #[(entry) "A@@\207" [entry] 1] gnus-topic-find-groups t nil "Expiring groups in %s...done"] 8 (#$ . 30717) (list (gnus-group-topic-name))])
#@61 Catchup this topic or group.
Also see `gnus-group-catchup'.
(defalias 'gnus-topic-catchup-articles #[(topic) "\204 \305\306!\207\212\307\310\311 \312\313\312%\"\312\n \306 \210\307\314\n\",\207" [topic gnus-level-killed groups inhibit-read-only gnus-group-marked call-interactively gnus-group-catchup-current mapcar #[(entry) "A@@\207" [entry] 1] gnus-topic-find-groups t nil gnus-topic-update-topics-containing-group] 8 (#$ . 31198) (list (gnus-group-topic-name))])
#@479 Read news in this newsgroup.
If the prefix argument ALL is non-nil, already read articles become
readable.
If ALL is a positive number, fetch this number of the latest
articles in the group. If ALL is a negative number, fetch this
number of the earliest articles in the group.
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) "m\203\f \304 \204\f \305y\210\306 \203+ \203$ \247\203 \202 \307\310B\202% \311!)\207\312\n #\207" [all gnus-group-list-mode no-article group gnus-group-group-name -1 gnus-group-topic-p 7 t gnus-topic-fold gnus-group-read-group] 4 (#$ . 31678) "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) "\306!\203\n \307\310!\210 \204 \n@@\306 !A \206 \311\312\211FC\211 \204+ \307\313 \"\210
\203O \fA\203E \fA@@@
\232\204E \fA\211\2020 \f \fAB\241\210\202T \f C\244\210\314\"\204c CB*\315 \210\316 \210\317!\207" [topic parent gnus-topic-topology full-topic top previous gnus-topic-find-topology error "Topic already exists" visible nil "No such parent topic: %s" assoc gnus-topic-enter-dribble gnus-group-list-groups gnus-topic-goto-topic gnus-topic-alist] 6 (#$ . 32490) (list (read-string "New topic: ") (gnus-current-topic))])
(defvar gnus-topic-history nil)
#@69 Move the next N groups to TOPIC.
If COPYP, copy the groups instead.
(defalias 'gnus-topic-move-group #[(n topic &optional copyp) "?\205 \205\n \n?\205 \205 \306\307!\310\f
\"\311 \312y\210\313 \314 \204E \204E \203E \315\f\"\202\237 \314 \211 \203\207 @ \316 \"\210\310\317
\"\211\203w \204w \320 A\"\241\210 C\244\210 A\211 \204P *\321 \210\203\230 \322!\210\202\235 \323!\210\324 .\207" [n transient-mark-mode mark-active gnus-group-marked topic gnus-topic-alist t gnus-group-process-prefix assoc gnus-group-topic-name 1 gnus-group-group-name nil gnus-topic-move gnus-group-remove-mark gnus-current-topic gnus-delete-first gnus-topic-enter-dribble gnus-group-goto-group gnus-topic-goto-topic gnus-group-list-groups entry start-group start-topic topicl groups use-marked copyp g --dolist-tail--] 7 (#$ . 33252) (list current-prefix-arg (gnus-completing-read "Move to topic" (mapcar 'car gnus-topic-alist) t nil 'gnus-topic-history))])
#@42 Remove the current group from the topic.
(defalias 'gnus-topic-remove-group #[(&optional n) "?\205 \205\n \n?\205 \205 \306\307! \310\311\f\"\210\312 \210\313 *\207" [n transient-mark-mode mark-active gnus-group-marked groups use-marked t gnus-group-process-prefix mapc #[(group) "\305 \"\210\306\307 \n\"\310\211 \203\" \203\" \311 \312y\210`|\210\313\f\"\210\314 *\207" [group use-marked gnus-topic-alist inhibit-read-only topicl gnus-group-remove-mark assoc gnus-current-topic t point-at-bol 1 gnus-delete-first gnus-topic-update-topic] 4] gnus-topic-enter-dribble gnus-group-position-point] 3 (#$ . 34252) "P"])
#@36 Copy the current group to a topic.
(defalias 'gnus-topic-copy-group #[(n topic) "\302 \303#\207" [n topic gnus-topic-move-group t] 4 (#$ . 34886) (list current-prefix-arg (gnus-completing-read "Copy to topic" (mapcar 'car gnus-topic-alist) t))])
#@25 Kill the next N groups.
(defalias 'gnus-topic-kill-group #[(&optional n discard) "\306 \203# \307 \310!\311 \"B\nB\312\313\314\"\210\310\313\211 $\210\315 )\207\316\f
\"\210\306 \2040 \317 \207\320y\210\317 \210\321y\207" [topic gnus-topic-alist gnus-topic-killed-topics gnus-topic-topology n discard gnus-group-topic-p gnus-group-topic-name gnus-topic-find-topology assoc gnus-topic-remove-topic nil t gnus-topic-enter-dribble gnus-group-kill-group gnus-topic-update-topic -1 1] 5 (#$ . 35139) "P"])
#@22 Yank the last topic.
(defalias 'gnus-topic-yank-group #[(&optional arg) "\2034 \306 \206
\307\310 !\211A\242\211A\n@A
B\311\f@@\312 ! \f$\210\313 \210\314\f@@!,\207\315 \316 \317\212\314\310 !\210\320 )\206K \321_\322\" \323\211 \324 ! \325\212\326y\210\310 )
\" ;\203q C \204~ \244\210\202\255 A\204\216 A\244\241\210\202\255 A\203\255 A@\232\203\246 A\244\241\210\323 A\211\202\217 -\327 \207" [gnus-topic-killed-topics previous data alist item gnus-topic-alist gnus-group-topic-name gnus-topic-next-topic gnus-current-topic gnus-topic-create-topic gnus-topic-parent-topic gnus-topic-enter-dribble gnus-topic-goto-topic gnus-group-group-name t make-string gnus-group-topic-level 0 32 nil gnus-group-yank-group assoc -1 gnus-topic-update-topic prev gnus-topic-inhibit-change-level gnus-topic-indent-level gnus-group-indentation yanked arg] 6 (#$ . 35651) "p"])
#@91 Hide the current topic.
If PERMANENT, make it stay hidden in subsequent sessions as well.
(defalias 'gnus-topic-hide-topic #[(&optional permanent) "\301 \205 \302\301 !\210\203 \303\301 !A@AA\304\240\210\305\306\211\"\207" [permanent gnus-current-topic gnus-topic-goto-topic gnus-topic-find-topology hidden gnus-topic-remove-topic nil] 3 (#$ . 36564) "P"])
#@89 Show the hidden topic.
If PERMANENT, make it stay shown in subsequent sessions as well.
(defalias 'gnus-topic-show-topic #[(&optional permanent) "\303 \205+ \204 \304\305\306\"\207\307\310\311\312\313 \"\305#!\211A@AA\306\240\210\nA@A\314\240\210\315 )\207" [permanent gnus-topic-alist topic gnus-group-topic-p gnus-topic-remove-topic t nil gnus-topic-find-topology gnus-completing-read "Show topic" mapcar car visible gnus-group-list-groups] 7 (#$ . 36930) "P"])
#@124 Mark all groups in the TOPIC with the process mark.
If NON-RECURSIVE (which is the prefix) is t, don't mark its subtopics.
(defalias 'gnus-topic-mark-topic #[(topic &optional unmark non-recursive) "\204 \306\307!\207\212\310 \311\312\n?% \205/ \f\203 \313\202 \314 \211A\242A@\211 @)!\210\202 *\207" [topic gnus-level-killed non-recursive groups unmark cl-x call-interactively gnus-group-mark-group gnus-topic-find-groups t nil gnus-group-remove-mark gnus-group-set-mark] 7 (#$ . 37404) (list (gnus-group-topic-name) nil (and current-prefix-arg t))])
#@128 Remove the process mark from all groups in the TOPIC.
If NON-RECURSIVE (which is the prefix) is t, don't unmark its subtopics.
(defalias 'gnus-topic-unmark-topic #[(topic &optional _dummy non-recursive) "\204 \302\303!\207\304\305 #\207" [topic non-recursive call-interactively gnus-group-unmark-group gnus-topic-mark-topic t] 4 (#$ . 37970) (list (gnus-group-topic-name) nil (and current-prefix-arg t))])
#@42 Check for new news in the current topic.
(defalias 'gnus-topic-get-new-news-this-topic #[(&optional n) "\303 \204 \304!\207\305 \306 !A@\212\307 \310\205 \311#\210\304 \210)\312\nA@\313=!*\207" [n topic data gnus-group-topic-p gnus-group-get-new-news-this-group gnus-group-topic-name gnus-topic-find-topology gnus-topic-mark-topic nil t gnus-topic-remove-topic visible] 4 (#$ . 38385) "P"])
#@50 Move all groups that match REGEXP to some topic.
(defalias 'gnus-topic-move-matching #[(regexp topic &optional copyp) "\303!\210\304\305 \n#\207" [regexp topic copyp gnus-group-mark-regexp gnus-topic-move-group nil] 4 (#$ . 38788) (byte-code "\302\303\304\305\306 \"\307#\211\310\311\312\"!D\237)\207" [topic gnus-topic-alist nil gnus-completing-read "Move to topic" mapcar car 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) "\302 \303#\207" [regexp topic gnus-topic-move-matching t] 4 (#$ . 39227) (byte-code "\302\303\304\305\"\306#\211\307\310\311 \"!D\237)\207" [gnus-topic-alist topic gnus-completing-read "Copy to topic" mapcar car t read-string format "Copy to %s (regexp): "] 6)])
#@17 Delete a topic.
(defalias 'gnus-topic-delete #[(topic) "\204 \304\305!\210\306 \"\307\211A\203 \304\310!\210\311!\203& \312 \313y\210`|\210\314 \"\315\316\211\317$\210\320 *\207" [topic gnus-topic-alist inhibit-read-only entry error "No topic to be deleted" assoc t "Topic not empty" gnus-topic-goto-topic point-at-bol 1 delq gnus-topic-find-topology nil delete gnus-dribble-touch] 6 (#$ . 39619) (list (gnus-group-topic-name))])
#@17 Rename a topic.
(defalias 'gnus-topic-rename #[(old-name new-name) "\305!\203 \306\307\"\210\310\232\203 \306\311\312\"\210\305 !\313 \n\"\211 \203) \fA@\240\210 \2031 \240\210\314y\210\315 \210\316 \210\317y*\207" [new-name old-name gnus-topic-alist entry top gnus-topic-find-topology error "Topic `%s' already exists" "nil" "Invalid name: %s" nil assoc -1 gnus-dribble-touch gnus-group-list-groups 1] 5 (#$ . 40065) (let ((topic (gnus-current-topic))) (list topic (read-string (format "Rename %s to: " topic) 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) "\203 \306 \207\307 \310 !\311\n\204 \312\313 \"\210 \205B \314 !\210\315 \210\f@A
B\316 \n\317\f@@A$\210\f\210\fA\314 !\206B \314\n!+\207" [unindent topic parent inhibit-read-only gnus-topic-killed-topics gnus-topic-alist gnus-topic-unindent gnus-current-topic gnus-topic-previous-topic t error "Nothing to indent %s into" gnus-topic-goto-topic gnus-topic-kill-group gnus-topic-create-topic nil] 5 (#$ . 40602) "P"])
#@19 Unindent a topic.
(defalias 'gnus-topic-unindent #[nil "\305 \306!\306 !\211\204 \307\310\"\210\2059 \311!\210\312 \210 @A\fB\313\n\314 ! @@A$\210 \210 A\311!+\207" [topic parent grandparent gnus-topic-killed-topics gnus-topic-alist gnus-current-topic gnus-topic-parent-topic error "Can't unindent %s further" gnus-topic-goto-topic gnus-topic-kill-group gnus-topic-create-topic gnus-topic-next-topic] 6 (#$ . 41183) 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) "\203 \306 \210\307!\210 \n\310\211 \311\f\310\312#,\207" [force gnus-topic-active-topology gnus-topic-active-alist gnus-zombie-list gnus-killed-list gnus-topic-alist gnus-get-killed-groups gnus-topic-grok-active nil gnus-group-list-groups 1 gnus-topic-topology gnus-level-killed] 4 (#$ . 41624) "P"])
#@48 Show/hide topics that have no unread articles.
(defalias 'gnus-topic-toggle-display-empty-topics #[nil "?\301 \210\302\303\203 \304\202 \305\"\207" [gnus-topic-display-empty-topics gnus-group-list-groups message "%s empty topics" "Showing" "Hiding"] 3 (#$ . 42100) nil])
#@97 Edit the group parameters of GROUP.
If performed on a topic, edit the topic parameters instead.
(defalias 'gnus-topic-edit-parameters #[(group) "\203 \302!\207\303 \204 \304\305!\207\306 \307\310 !\311\312\206 \"\313\314\315 \316BBE#)\207" [group topic gnus-group-edit-group-parameters gnus-group-topic-p error "Nothing to edit on the current line" gnus-group-topic-name gnus-edit-form gnus-topic-parameters format-message "Editing the topic parameters for `%s'." lambda (form) gnus-topic-set-parameters (form)] 8 (#$ . 42382) (list (gnus-group-group-name))])
#@58 Sort groups in the topics according to FUNC and REVERSE.
(defalias 'gnus-group-sort-topic #[(func reverse) " \205# \304\305 @\"\240\210 \306\307 @\"\240\210\310 \211A\242\n #\210\202 )\207" [gnus-topic-alist alist func reverse delq nil delete "dummy.group" gnus-topic-sort-topic] 4 (#$ . 42956)])
(defalias 'gnus-topic-sort-topic #[(topic func reverse) "\303\304\305\303\306A\" \"\"\241\210\n\205 \211A\237\241\207" [topic func reverse mapcar #[(info) "@\207" [info] 1] sort #[(group) "\302 \"A@\207" [group gnus-newsrc-hashtb gethash] 4]] 7])
#@82 Sort the current topic according to FUNC.
If REVERSE, reverse the sorting order.
(defalias 'gnus-topic-sort-groups #[(func &optional reverse) "\304\305 \"\306 \307\n! #\210\310 )\207" [gnus-topic-alist topic func reverse assoc gnus-current-topic gnus-topic-sort-topic gnus-make-sort-function gnus-group-list-groups] 4 (#$ . 43518) (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) "\301\302\"\207" [reverse gnus-topic-sort-groups gnus-group-sort-by-alphabet] 3 (#$ . 43910) "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) "\301\302\"\207" [reverse gnus-topic-sort-groups gnus-group-sort-by-unread] 3 (#$ . 44172) "P"])
#@75 Sort the current topic by group level.
If REVERSE, sort in reverse order.
(defalias 'gnus-topic-sort-groups-by-level #[(&optional reverse) "\301\302\"\207" [reverse gnus-topic-sort-groups gnus-group-sort-by-level] 3 (#$ . 44430) "P"])
#@75 Sort the current topic by group score.
If REVERSE, sort in reverse order.
(defalias 'gnus-topic-sort-groups-by-score #[(&optional reverse) "\301\302\"\207" [reverse gnus-topic-sort-groups gnus-group-sort-by-score] 3 (#$ . 44672) "P"])
#@74 Sort the current topic by group rank.
If REVERSE, sort in reverse order.
(defalias 'gnus-topic-sort-groups-by-rank #[(&optional reverse) "\301\302\"\207" [reverse gnus-topic-sort-groups gnus-group-sort-by-rank] 3 (#$ . 44914) "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) "\301\302\"\207" [reverse gnus-topic-sort-groups gnus-group-sort-by-method] 3 (#$ . 45153) "P"])
#@90 Sort the current topic alphabetically by server name.
If REVERSE, sort in reverse order.
(defalias 'gnus-topic-sort-groups-by-server #[(&optional reverse) "\301\302\"\207" [reverse gnus-topic-sort-groups gnus-group-sort-by-server] 3 (#$ . 45413) "P"])
(defalias 'gnus-topic-sort-topics-1 #[(top reverse) "A\203% \303\304\305\306\307\300 EE!\310A\311\"\" \203! \301\n!\202\" \n\241\210)\207" [top reverse subtop mapcar gnus-byte-compile lambda (top) gnus-topic-sort-topics-1 sort #[(t1 t2) "@@ @@\231\207" [t1 t2] 2]] 7])
#@91 Sort topics in TOPIC alphabetically by topic name.
If REVERSE, reverse the sorting order.
(defalias 'gnus-topic-sort-topics #[(&optional topic reverse) "\203 \304!A\206\f \305\n \"\210\306 \210\307 \210\310!)\207" [topic gnus-topic-topology topic-topology reverse gnus-topic-find-topology gnus-topic-sort-topics-1 gnus-topic-enter-dribble gnus-group-list-groups gnus-topic-goto-topic] 3 (#$ . 45947) (list (gnus-completing-read "Sort topics in" (mapcar 'car gnus-topic-alist) t (gnus-current-topic)) current-prefix-arg)])
#@31 Move the CURRENT topic to TO.
(defalias 'gnus-topic-move #[(current to) "\203 \204\f \304\305!\210\306!A\306 !A\211\204 \304\307\"\210\n\204( \304\307 \"\210\306 \310#\2035 \304\311\"\210\306\312\211\313$\210\314\n! C\241\210\315 \210\316 \210\317!*\207" [current to to-top current-top error "Can't find topic" gnus-topic-find-topology "Can't find topic `%s'" 0 "Can't move `%s' to its sub-level" nil delete last gnus-topic-enter-dribble gnus-group-list-groups gnus-topic-goto-topic] 6 (#$ . 46481) (list (gnus-group-topic-name) (gnus-completing-read "Move to topic" (mapcar 'car gnus-topic-alist) t))])
(defalias 'gnus-subscribe-topics #[(newsgroup) "\3062V \307\211\310 \307\211\203S @\311\312\n!\236A\211\203L \313 \f\"\203L \314\f!\210\315\n
\"\fC\244\210\316\312\n!\236A\211 \203F \317\f#\210)\320\306\321\"\210 A\211\204 ,\3070\207" [gnus-group-change-level-function match topic --dolist-tail-- newsgroup gnus-topic-alist end nil gnus-topic-list subscribe gnus-topic-parameters string-match gnus-subscribe-alphabetically assoc subscribe-level gnus-group-change-level throw t gnus-level-default-subscribed] 5])
(provide 'gnus-topic)