;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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 (#$ . 288))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\313\314\306\315&\210\300\316\302\303\317DD\320\306\321%\210\300\322\302\303\323DD\324\306\325%\210\300\326\302\303\327DD\330\331\332\306\333&\207" [custom-declare-variable gnus-topic-mode-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "Hook run in topic mode buffers." :type hook gnus-topic-line-format #[0 "\300\207" ["%i[ %(%{%n%}%) -- %A ]%v\n"] 1 #1#] "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%G  Number of groups in the topic and its subtopics.\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 #[0 "\300\207" [2] 1 #1#] "How much each subtopic should be indented." integer gnus-topic-display-empty-topics #[0 "\300\207" [t] 1 #1#] "If non-nil, display the topic lines even of topics that have no unread articles." boolean gnus-topic-display-predicate #[0 "\300\207" [nil] 1 #1#] "If non-nil, this should be a function to control the display of the topic.\nThe function is called with one parameter -- the topic name, and\nshould return non-nil if the topic is to be displayed." :version "28.1" (choice (const :tag "Display all topics" nil) function)] 8)
(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 (#$ . 2111))
(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) (71 total-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 #[0 "\300\301 \302\"\207" [get-text-property point-at-bol gnus-topic] 3 (#$ . 2600)])
#@45 The level of the topic on the current line.
(defalias 'gnus-group-topic-level #[0 "\300\301 \302\"\207" [get-text-property point-at-bol gnus-topic-level] 3 (#$ . 2768)])
#@61 The number of unread articles in topic on the current line.
(defalias 'gnus-group-topic-unread #[0 "\300\301 \302\"\207" [get-text-property point-at-bol gnus-topic-unread] 3 (#$ . 2944)])
#@60 Return the number of unread articles in TOPIC.

(fn TOPIC)
(defalias 'gnus-topic-unread #[257 "\301
\"A\206	\302\207" [gnus-topic-unreads assoc 0] 4 (#$ . 3138)])
#@48 Return non-nil if the current line is a topic.
(defalias 'gnus-group-topic-p #[0 "\300 \207" [gnus-group-topic-name] 1 (#$ . 3309)])
#@49 Return non-nil if the current topic is visible.
(defalias 'gnus-topic-visible-p #[0 "\300\301 \302\"\207" [get-text-property point-at-bol gnus-topic-visible] 3 (#$ . 3448)])
#@16 

(fn ENTRIES)
(defalias 'gnus-topic-articles-in-topic #[257 "\300\301\203\211A\262\242@\211\262\247\203

\\\262\202
\207" [0 nil] 5 (#$ . 3628)])
#@52 Return the topic GROUP is a member of.

(fn GROUP)
(defalias 'gnus-group-topic #[257 "\301
\203@A\235\203
@@\262
\301\262
A\262\202\207" [gnus-topic-alist nil] 5 (#$ . 3792)])
#@14 

(fn TOPIC)
(defalias 'gnus-topic-goto-topic #[257 "\211\205\n\300\301\302\303$\207" [gnus-text-property-search gnus-topic nil goto] 6 (#$ . 3985)])
#@26 Go to TOPIC.

(fn TOPIC)
(defalias 'gnus-topic-jump-to-topic #[257 "\301\302
!\211\203 \211@\303
!\204\304
!\210\305
!\210
A\266\202\202\210)\303
!\207" [inhibit-read-only t gnus-current-topics gnus-topic-goto-topic gnus-topic-goto-missing-topic gnus-topic-display-missing-topic] 5 (#$ . 4143) [(byte-code "\300\301\302 \303#C\207" [gnus-completing-read "Go to topic" gnus-topic-list t] 4) (gnus-topic-mode)]])
#@39 Return the name of the current topic.
(defalias 'gnus-current-topic #[0 "\300`\301\"\206\212\302`\301\"\211\205\211b\262
\205\300`Se]\301\")\207" [get-text-property gnus-topic previous-single-property-change] 3 (#$ . 4566)])
#@120 Return a list of all current topics, lowest in hierarchy first.
If TOPIC, start with that topic.

(fn &optional TOPIC)
(defalias 'gnus-current-topics #[256 "\211\206\300 \301
\203

B\262
\302!\262\202\211\237\207" [gnus-current-topic nil gnus-topic-parent-topic] 5 (#$ . 4804)])
#@61 Say whether the current topic comes from the active topics.
(defalias 'gnus-group-active-topic-p #[0 "\300\301 \302\"\207" [get-text-property point-at-bol gnus-active] 3 (#$ . 5097)])
#@153 Return entries for all visible groups in TOPIC.
If RECURSIVE is t, return groups in its subtopics too.

(fn TOPIC &optional LEVEL ALL LOWEST RECURSIVE)
(defalias 'gnus-topic-find-groups #[1281 "\306\"A\307\211\211\211\211\211\211\211\n\206\310\262\f\206	\262
\203\356\211A\262\n\242\211\262\203\202\311\n\"\262
A@\262\3128\262\311\"\262

@\206\\\313\232?\205\\\211\205\\\211AT
@Z\262\211A@\211:\203o\211@\266\202\202q\262
\206\200\f\235\203~
\202\200\262\203
X\203Y\203\204\342\314=\204\246\204\253\202\256\315V\204\342\203\300\316\317	8\236A\204\342\203\316\320\"\204\342\235\204\342\321>\204\342\321\236A\203
\206\347B\262\202\237\262	\203'
	\314=\203
\322!A\262\n	A\211\203&
\211@\323@@%\244\262
A\266\202\202
\210\207" [gnus-topic-alist gnus-level-unsubscribed gnus-newsrc-hashtb gnus-active-hashtb gnus-zombie-list gnus-level-zombie assoc nil 1 gethash 5 "dummy.group" t 0 tick 3 string-match visible gnus-topic-find-topology gnus-topic-find-groups gnus-level-killed gnus-group-list-inactive-groups gnus-list-groups-with-ticked-articles gnus-permanently-visible-groups gnus-group-marked] 23 (#$ . 5288)])
#@40 Go to the N'th previous topic.

(fn N)
(defalias 'gnus-topic-goto-previous-topic #[257 "\300
[!\207" [gnus-topic-goto-next-topic] 3 (#$ . 6520) ["p" (gnus-topic-mode)]])
#@36 Go to the N'th next topic.

(fn N)
(defalias 'gnus-topic-goto-next-topic #[257 "\211\300W\301!\302 
\300V\203,\203\303
!\202\304
!\211\262\203,\305
!\210
S\262\202
\300U\2047\306\307\310\"\210
\207" [0 abs gnus-current-topic gnus-topic-previous-topic gnus-topic-next-topic gnus-topic-goto-topic gnus-message 7 "No more topics"] 7 (#$ . 6696) ["p" (gnus-topic-mode)]])
#@67 Return the previous topic on the same level as TOPIC.

(fn TOPIC)
(defalias 'gnus-topic-previous-topic #[257 "\300\301!!AA

@@@\232?\205*\211\203&\211A@@@\232\204&\211A\262
\202\211@@@\207" [gnus-topic-find-topology gnus-topic-parent-topic] 4 (#$ . 7083)])
#@60 Return the parent of TOPIC.

(fn TOPIC &optional TOPOLOGY)
(defalias 'gnus-topic-parent-topic #[513 "\211\204\262
\211
A\262\242@\301\211\2032@@@\232\211\262\2042\302@\"\211\262\2042A\262\202
\206;\211\205;\207" [gnus-topic-topology nil gnus-topic-parent-topic] 8 (#$ . 7353)])
#@66 Return the next sibling of TOPIC.

(fn TOPIC &optional PREVIOUS)
(defalias 'gnus-topic-next-topic #[513 "\300\301!!AA\302
\203\"
@@@\232\204\"
@@@\262

A\262\202\203'\207
A@@@\207" [gnus-topic-find-topology gnus-topic-parent-topic nil] 6 (#$ . 7658)])
#@70 Go to the next topic on the same level as the current one.

(fn NUM)
(defalias 'gnus-topic-forward-topic #[257 "\300 
\301W\203\f\302\202
\303\304!\211\301U\204,
!\211\262\203,\305!\203\211S\262
\202\211\301U\2045db\210\207" [gnus-current-topic 0 gnus-topic-previous-topic gnus-topic-next-topic abs gnus-topic-goto-topic] 6 (#$ . 7925)])
#@75 Return the topology of TOPIC.

(fn TOPIC &optional TOPOLOGY LEVEL REMOVE)
(defalias 'gnus-topic-find-topology #[1025 "\204\n\262\301\262\302@@\232\203\"\203\303\"\210B\207A\262\203G\304@T\2059$\211\262\204GA\262\202&\207" [gnus-topic-topology 0 nil delq gnus-topic-find-topology] 11 (#$ . 8282)])
(defvar gnus-tmp-topics nil)
#@71 Return a list of all topics in the topology.

(fn &optional TOPOLOGY)
(defalias 'gnus-topic-list #[256 "\211\204	\262
\302\211@@	B\303\304A\"\210	\207" [gnus-topic-topology gnus-tmp-topics nil mapc gnus-topic-list] 4 (#$ . 8650)])
#@46 Return the parameters for TOPIC.

(fn TOPIC)
(defalias 'gnus-topic-parameters #[257 "\300
!\211\205\f\301
A@8\207" [gnus-topic-find-topology 3] 4 (#$ . 8892)])
#@73 Set the topic parameters of TOPIC to PARAMETERS.

(fn TOPIC PARAMETERS)
(defalias 'gnus-topic-set-parameters #[514 "\300!\211\204\f\301\302\"\210\211A@AA\204\211A@\303C\244\210\304
A@\233\204*\211A@\303C\244\210\304
A@\233\240\210\305\306\307#!\207" [gnus-topic-find-topology error "No such topic: %s" nil 3 gnus-dribble-enter format "(gnus-topic-set-parameters %S '%S)"] 8 (#$ . 9059)])
#@120 Compute the group parameters for GROUP in topic mode.
Possibly inherit parameters from topics above GROUP.

(fn GROUP)
(defalias 'gnus-group-topic-parameters #[257 "\300\301!!\212\302\303!\203\304 \206\305!\")\207" [copy-sequence gnus-group-get-parameter gnus-topic-hierarchical-parameters gnus-group-goto-group gnus-current-topic gnus-group-topic] 5 (#$ . 9463)])
#@222 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.

(fn TOPIC &optional GROUP-PARAMS-LIST)
(defalias 'gnus-topic-hierarchical-parameters #[513 "\300\301\302\303\304!\"B\"\301\211\211\211\211A\262\242\211\262\203l
\211A\262\242\211\262\203:\2042\305B\262@\306=\203]A\301
\211A\262\242\211\262\203X\307
@\"\204<\211B\262\202<\266\202@\236\204B\262\202\211\203w\306
BB\262\210
\207" [delq nil mapcar gnus-topic-parameters gnus-current-topics t posting-style assoc] 12 (#$ . 9843)])
(defalias 'gnus-topic-enter-dribble #[0 "\301\302\303\"!\207" [gnus-topic-topology gnus-dribble-enter format "(setq gnus-topic-topology '%S)"] 4])
#@382 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.

(fn LEVEL &optional PREDICATE LOWEST REGEXP LIST-TOPIC TOPIC-LEVEL)
(defalias 'gnus-group-prepare-topics #[1537 "q\210\306\206	\307	\205\310	!\311\312\313\"\210\203\f\204\"\314 \210\204)\315 \210	\204:
Y\203I

X\203I\316\317\320\"\211
\321	$\210	\204\\Y\203\204
X\203\204\316\317\320\"\211\322	$\210\211\203\204\204x\323 \210\316\324\325\"\322	$\210

W\204\216	\205\303\203\257\326!\327
A@\206\241\f\f\312
&\262
\202\303\327 \330\206\272\312\f&\331 \210		B!\332\333!\210)\207" [gnus-group-buffer gnus-group-listed-groups inhibit-read-only gnus-topic-alist gnus-topology-checked-p gnus-level-zombie 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 #[257 "\302
\"\206\302
	\"\207" [gnus-newsrc-hashtb gnus-killed-hashtb gethash] 4 "\n\n(fn GROUP)"] gnus-topic-find-topology gnus-topic-prepare-topic 0 gnus-group-set-mode-line gnus-run-hooks gnus-group-prepare-hook gnus-zombie-list gnus-level-killed gnus-killed-list gnus-killed-hashtb gnus-topic-topology gnus-group-list-mode] 18 (#$ . 10648)])
#@212 Insert TOPIC into the group buffer.
If SILENT, don't insert anything.  Return the number of unread
articles in the topic and its subtopics.

(fn TOPICL LEVEL &optional LIST-LEVEL PREDICATE SILENT LOWEST REGEXP)
(defalias 'gnus-topic-prepare-topic #[1794 "\211A\262\242\211@\203	\202\206\"\206\"\306\307!\236A\203*\310\202+\311$\311\312%A@\306=\205D	?\313\n_\314\"\315 \210`\316!d\310\317\211\211\211\211\f\203k\f!\204k\310\202\203\217\320\n\211A\262\f\242T?&\\\262\202k`\262	b\210\f\211A\262\242\211\262\203\304
;\203\376\321\203\322
W?\205\372\235\203\301
\202\302	\211X\205\315\211Y\262
\205\372;\203\341\322\"\202\372\323!\203\360!\202\372\204\371\312\202\372\317\"\202K
A@\262\321@\203-
\211A@\211:\203
\211@\266\202\202
\262
\211X\205(
\211Y\262
\205J
\323!\203<
!\205J
;?\206J
\322@\"\"\203\226\n\203\250
;\203|
\324\211\235\203e

\202f
	\317\325\"\211\262AT@Z\317%\210\202\250
A@\211\262\203\250
\324@\211A@\211:\203\231
\211@\266\202\202\233
\262
\3268@\327\n8%\210<\203\271
@\247\203\271
@\\\262<\203\226\312\262
\202\226	b\210\204\372
\204\343
\310U\203\343
\211\204\343
dU\204\372
\330\f\3318\332=?\f&\210\333\"\210\334\n\"\210b\210)\207" [gnus-group-listed-groups gnus-level-killed gnus-topic-indent-level gnus-group-indentation gnus-topic-display-predicate gnus-level-zombie visible gnus-topic-hierarchical-parameters 0 gnus-topic-find-groups t make-string 32 beginning-of-line reverse nil gnus-topic-prepare-topic gnus-group-prepare-logic string-match functionp 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 gnus-zombie-list gnus-active-hashtb gnus-topic-display-empty-topics] 34 (#$ . 12191)])
#@77 Remove the current topic.

(fn &optional INSERT TOTAL-REMOVE HIDE IN-LEVEL)
(defalias 'gnus-topic-remove-topic #[1024 "\302 \303 \304 \210`\305\205V\306y\307U\203!\303 \206
TV\204\211`|\210\310!A@\211\2034\311\2025\312AA@AAA@E\241\266\203R\313\314	\"	\"\211\202V\315\")\207" [buffer-read-only gnus-topic-alist 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] 12 (#$ . 14091)])
#@43 Insert TOPIC.

(fn TOPIC &optional LEVEL)
(defalias 'gnus-topic-insert-topic #[513 "\301@A\302\211&\207" [gnus-group-list-mode gnus-group-prepare-topics nil] 9 (#$ . 14599)])
#@63 Remove/insert the current topic.

(fn &optional INSERT TOPIC)
(defalias 'gnus-topic-fold #[512 "\211\206\305 \211\2055\212\306 \204\307\206\310 ?!\2024	\311\312B\307\206,\310 ?\313\211\314$\210\315 +)\207" [gnus-topic-active-topology gnus-topic-active-alist gnus-group-list-mode gnus-topic-alist gnus-topic-topology 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] 8 (#$ . 14787)])
#@71 

(fn NAME VISIBLEP SHOWNP LEVEL ENTRIES &optional UNREAD ALL-GROUPS)
(defalias 'gnus-topic-insert-topic-line #[1797 "\203\306\202	\307\310	_\311\"
G\211G=\312\313\n\"\210\314 \210\205N\315``T\316\317\"\210\320\n\321	\322\n\323\n\324\257\n#.\207" [visible level name gnus-topic-indent-level indentation total-number-of-articles "" "..." make-string 32 nil gnus-topic-update-unreads beginning-of-line add-text-properties eval t gnus-topic gnus-topic-level gnus-topic-unread gnus-active gnus-topic-visible number-of-groups total-number-of-groups gnus-topic-alist gnus-topic-active-alist gnus-tmp-header gnus-topic-line-format-spec] 21 (#$ . 15270)])
#@22 

(fn TOPIC UNREADS)
(defalias 'gnus-topic-update-unreads #[514 "\301\302\"\"

BB\211\207" [gnus-topic-unreads delq assoc] 6 (#$ . 15958)])
#@60 Update all topics that have GROUP as a member.

(fn GROUP)
(defalias 'gnus-topic-update-topics-containing-group #[257 "\301=\2050	\2050\212\n\211\205-

@A\235\203&\303
@@!\203&\304
@@!\210\211A\262
\202\f\262
)\207" [major-mode gnus-topic-mode gnus-topic-alist gnus-topic-goto-topic gnus-topic-update-topic-line] 4 (#$ . 16110)])
#@48 Update all parent topics to the current group.
(defalias 'gnus-topic-update-topic #[0 "\301=\2059	\2059\304 \305 \306
\2056
\307
\"A@\262
\2056\310\311 !\2056\312\313 !\210\211b\210\211\314\211\223\210\315 )\266\202\207" [major-mode gnus-topic-mode inhibit-read-only gnus-newsrc-hashtb 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] 6 (#$ . 16453)])
#@65 Place point where GROUP is supposed to be inserted.

(fn GROUP)
(defalias 'gnus-topic-goto-missing-group #[257 "\301
!\302
\"A
\235A\303
\203 \304@\303\"\204 
A\262\202

?\205\\\305!\235A\262
\203J\211\203J\304\211A\262\242\303\"\203-\306y\210\307\262
\202-\211\205\\\205\\\310!?\205\\\311!\207" [gnus-topic-alist gnus-group-topic assoc t gnus-group-goto-group reverse 1 nil gnus-topic-goto-missing-topic gnus-topic-display-missing-topic] 8 (#$ . 16938)])
#@64 Insert topic lines recursively for missing topics.

(fn TOPIC)
(defalias 'gnus-topic-display-missing-topic #[257 "\301\302!!\211\203\303
A@@!\204\304
A@@!\210\210\303
!\210\305 \203)\306y\210\202\301
!\211AA
A@\307\310@@A#\310@@A\311\312%\311\203\\\313\211A\262	\242@@!\\\262\202F\211A\262\242\211\262\203w\211@\247\203\\
@\\\262\202\\\314\312\211\301\f!@\311	&\207" [gnus-group-list-mode 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 t gnus-topic-unread gnus-topic-insert-topic-line] 16 (#$ . 17423)])
#@14 

(fn TOPIC)
(defalias 'gnus-topic-goto-missing-topic #[257 "\300
!\203	\301y\207\302\303!!\304
AA!
\204)\305\306\211\302!@\307\310&\266\202e\211@@@\232\2049\211A\262
\202)\211A\262
\211\203Q\300
@@@!\204Q\211A\262
\202=\211\203]\311\301!\266\202e\312A@@!\266\307\207" [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] 10 (#$ . 18087)])
#@35 

(fn TOPIC-NAME &optional READS)
(defalias 'gnus-topic-update-topic-line #[513 "\301!\211A@
AA\302@@A#\302@@A\303$\304!\305\306\211\211\307\n@!\203\230\203:\310 \fZ\262\202m\203Q\311\n\211A\262\f\242@@!\\\262\202:\211A\262	\242\211\262\203m
@\247\203Q@\\\262\202Q\310 \262\312\n@\313 \314
8\315=?\316 		
&\210\317 \320y\210`|\210\321y\210\310 \262
\203\257\321y\210\322\206\247\305\206\254\305Z\"\210\207" [gnus-group-list-mode gnus-topic-find-topology gnus-topic-find-groups t 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] 21 (#$ . 18575)])
(defalias 'gnus-topic-group-indentation #[0 "\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 #[0 "\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 #[0 "\204\305 \210\306\307 \310
\203-
@@\235\204&\n@@\311DCC\244\210\306\262

A\262\202
\211\2034\312 \210\203M\313@\"\204F@CBA\262\2024\266\314\315\316\317\"\"\320\313\n@@\"!A\211\211\203}\211@\211\235\204v
C\241\210A\262
A\266\202\202a\266\310
\211A\262\242\211\262\205\261\211A\203\201\211A@\203\250\321
A@\f\"\203\250\211A\262
\202\215\211
AA\241\210\202\215\207" [gnus-topic-alist gnus-topology-checked-p gnus-topic-topology gnus-group-list gnus-newsrc-hashtb gnus-topic-init-alist t gnus-topic-list nil visible gnus-topic-enter-dribble assoc apply append mapcar cdr last gethash] 7])
#@34 Initialize the topic structures.
(defalias 'gnus-topic-init-alist #[0 "\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 #[257 "\211@\300DC\207" [visible] 3 "\n\n(fn TOPIC)"] (("misc")) "misc" #[257 "\211@\207" [] 2 "\n\n(fn INFO)"] gnus-topic-enter-dribble] 4 (#$ . 20460)])
#@43 Remove bogus groups from the topic alist.
(defalias 'gnus-topic-clean-alist #[0 "\304\211	\204\n\305 \210\211A\262\242\211\262\203^\211
A\262\242\304\211\211A\262\242\211\262\203Q\306\n\"\204B
\306
\"A@\262
\307
8\262
\203\306	\"\204

B\262
\202
\237BB\262\266\202\n
\237\211\207" [gnus-topic-alist gnus-killed-hashtb gnus-active-hashtb gnus-newsrc-hashtb nil gnus-make-hashtable-from-killed gethash 4] 10 (#$ . 20830)])
#@108 Run when changing levels to enter/remove groups from topics.

(fn GROUP LEVEL OLDLEVEL &optional PREVIOUS)
(defalias 'gnus-topic-change-level #[1027 "rq\210\306\n?\205\371\307
A@@\206!\210\205\371\f\205\371\310 \205\371

W\203c
Y\203c\f\307!\203A\311 \312y\210`|\210\2020\211\205^
@\235\203W\211@\313@A\"\241\210\211A\262
\202A\262
\202\371
W\205\371

Y\205\371\314 \306\315\212\316\310 !\210\317 )\206\203\320_\321\"C\322\211\211\323\212\324y\210\310 \206\233@@)\f\"\211\262\203\364\262;\203\260C\262\204\273\244\210\202\364A\204\312A\244\241\210\202\364\211\204\354A\203\354A@\232\203\345A\244\241\210\306\262
A\262\202\312\211\204\364
\244\210*\266\325 *\207" [gnus-group-buffer inhibit-read-only gnus-topic-inhibit-change-level gnus-topic-mode gnus-topic-alist gnus-level-zombie t gnus-group-goto-group gnus-current-topic point-at-bol 1 delete gnus-group-group-name make-string gnus-topic-goto-topic gnus-group-topic-level 0 32 nil assoc -1 gnus-topic-update-topic gnus-topic-indent-level gnus-group-indentation gnus-topic-topology] 12 (#$ . 21285)])
#@62 Go to group or the next group after group.

(fn GROUP PROPS)
(defalias 'gnus-topic-goto-next-group #[514 "
\204\301
>\204
db\207\301
>A@\302
!\206\302\303!!\207\304!\203&\305\207\306\307!\"\212\302
@!)\211\205;A\235A\211\203M\304
@!\204M\211A\262
\202;\211\204l\310A!\235A\262
\211\203l\304
@!\204l\211A\262
\202Z@\204xeb\266\202\230\211\204\226
\203\214
\211\205\207\211b\266\202\223\302\303@!!\210\311\262
\266\305\207" [gnus-topic-alist gnus-topic gnus-topic-goto-topic gnus-topic-next-topic gnus-group-goto-group t assoc gnus-group-topic reverse nil] 8 (#$ . 22417)])
#@85 Parse all active groups and create topic structures for them.

(fn &optional FORCE)
(defalias 'gnus-topic-grok-active #[256 "\211\204	?\2053\303	\304C\305\306\307\"\"\210\211\242\237\266\202\310\"\311\312DC\304\313\n\"\210\n@\314\240\210@\314\240\262
\207" [gnus-topic-active-alist gnus-active-hashtb gnus-topic-active-topology sort nil maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K --CL-VAR--)"] string< "" visible gnus-topic-grok-active-1 "Gnus active"] 8 (#$ . 23028)])
#@24 

(fn TOPOLOGY GROUPS)
(defalias 'gnus-topic-grok-active-1 #[514 "
@@\301\302!P\303\211\211\203K\304@\211\262\"\203K\304\305\306\225#\2041\211A\262\242B\262\202
\306\211\225O\307DC\211\262C\244\210\310\"\262\202\304\311\"\203[\306\211\224O\202\\\262\237BB@\240\210\207" [gnus-topic-active-alist "^" regexp-quote nil string-match "\\." 0 invisible gnus-topic-grok-active-1 "\\.$"] 11 (#$ . 23540)])
(defvar gnus-topic-mode-map nil)
(defvar gnus-group-topic-map nil)
(byte-code "\204\301 \302\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 #[0 "\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] ["Toggle/Set 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 (#$ . 26691))
(make-variable-buffer-local 'gnus-topic-mode)
#@604 Minor mode for topicsifying Gnus group buffers.

This is a minor mode.  If called interactively, toggle the `Gnus-Topic
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `gnus-topic-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'gnus-topic-mode #[256 "\306 
\307=\203
?\202
\247\203
\310W\203\311\202\312\313\301!\2031\314\300	\"\2031\300	B\315\316!\204<\311\202\266\204E\311\202\227\317\320\321\"\203O\322 \210\323\324\312\"\210\325\326\327\"\210\330\303!\210\331\330\304!\210\332\330\305!\210\333\330\334!\210\335\330\336!\210\337\330\340!\210\341 \3429\343\325\344\345\311\346$\210\311:;\203\227\347 \210\204\255\350\351\327\"\210\3119\350\344\345\"\210\352\353 \354\355!\203\266\356 \210\357\360\203\300\361\202\301\362\"\210\354\355!\203\343\306 \203\325\211\306 \232\203\343\363\364\203\337\365\202\340\366\367#\210\210\370 \210\207" [gnus-topic-mode local-minor-modes gnus-goto-missing-group-function gnus-group-prepare-function gnus-group-get-parameter-function gnus-group-goto-next-group-function current-message toggle 1 nil t boundp delq derived-mode-p gnus-group-mode gnus-visual-p topic-menu menu gnus-topic-make-menu-bar gnus-set-format topic add-hook gnus-group-catchup-group-hook gnus-topic-update-topic make-local-variable gnus-group-prepare-topics gnus-group-topic-parameters 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 message "Gnus-Topic mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update gnus-group-change-level-function gnus-topology-checked-p gnus-newsrc-alist] 7 (#$ . 26884) [(byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2) (gnus-group-mode)]])
(defvar gnus-topic-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\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.)" custom-type hook standard-value nil add-minor-mode gnus-topic-mode " Topic"] 6)
#@427 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.

(fn &optional ALL)
(defalias 'gnus-topic-select-group #[256 "m\203\f\301 \204\f\302y\210\303 \203.\211\203$\211\247\203\211\202\304\305B\202%\306
!\210\307 )\207\310
!\207" [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] 3 (#$ . 29972) ["P" (gnus-topic-mode)]])
#@60 Select the group or topic under the mouse pointer.

(fn E)
(defalias 'gnus-mouse-pick-topic #[257 "\300
!\210\301\302!\207" [mouse-set-point gnus-topic-read-group nil] 3 (#$ . 30740) ["e" (gnus-topic-mode)]])
#@53 Expire articles in this topic or group.

(fn TOPIC)
(defalias 'gnus-topic-expire-articles #[257 "\211\204\302\303!\207\212\304\305\306#\210\307\310\311\312\313\312%\"\303\313!\210)\304\305\314#)\207" [gnus-level-killed gnus-group-marked call-interactively gnus-group-expire-articles gnus-message 5 "Expiring groups in %s..." mapcar #[257 "\211A@@\207" [] 2 "\n\n(fn ENTRY)"] gnus-topic-find-groups t nil "Expiring groups in %s...done"] 9 (#$ . 30955) [(byte-code "\300 C\207" [gnus-group-topic-name] 1) (gnus-topic-mode)]])
#@73 Catchup this topic or group.
Also see `gnus-group-catchup'.

(fn TOPIC)
(defalias 'gnus-topic-catchup-articles #[257 "\211\204\303\304!\207\212\305\306\307\310\311\310%\"\310\211\304 \210\305\312\"*\262
)\207" [gnus-level-killed inhibit-read-only gnus-group-marked call-interactively gnus-group-catchup-current mapcar #[257 "\211A@@\207" [] 2 "\n\n(fn ENTRY)"] gnus-topic-find-groups t nil gnus-topic-update-topics-containing-group] 9 (#$ . 31492) [(byte-code "\300 C\207" [gnus-group-topic-name] 1) (gnus-topic-mode)]])
#@516 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.

(fn &optional ALL NO-ARTICLE GROUP)
(defalias 'gnus-topic-read-group #[768 "m\203\f\301 \204\f\302y\210\303 \203+\203$\247\203\202\304\305B\202%\306!)\207\307#\207" [gnus-group-list-mode gnus-group-group-name -1 gnus-group-topic-p 7 t gnus-topic-fold gnus-group-read-group] 7 (#$ . 32027) ["P" (gnus-topic-mode)]])
#@146 Create a new TOPIC under PARENT.
When used interactively, PARENT will be the topic under point.

(fn TOPIC PARENT &optional PREVIOUS FULL-TOPIC)
(defalias 'gnus-topic-create-topic #[1026 "\302!\203\n\303\304!\210\204@@\262\302!A
\206!\305\306\211FC
\204+\303\307\"\210\203O
A\203E
A@@@\232\204E
A\262\202/

AB\241\210\202T

C\244\210\310	\"\204aC	B\266\311 \210\312 \210\313!\207" [gnus-topic-topology gnus-topic-alist 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] 9 (#$ . 32846) [(byte-code "\300\301!\302 D\207" [read-string "New topic: " gnus-current-topic] 2) (gnus-topic-mode)]])
(defvar gnus-topic-history nil)
#@99 Move the next N groups to TOPIC.
If COPYP, copy the groups instead.

(fn N TOPIC &optional COPYP)
(defalias 'gnus-topic-move-group #[770 "?\205\205\n	?\205\n\205\304\305!\306\"\307 \310y\210\311 \312\2045\2045\2035\313	\"\207\211\203f\211@\314
	\"\210\306\315 \"\211\262\203Z\204Z\316A\"\241\210
C\244\210
A\266\202\2026\210\317 \210
\203u\320!\210\202y\321!\210\322 \207" [transient-mark-mode mark-active gnus-group-marked 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] 15 (#$ . 33622) [(byte-code "\302\303\304\305	\"\306\307\310%D\207" [current-prefix-arg gnus-topic-alist gnus-completing-read "Move to topic" mapcar car t nil gnus-topic-history] 7) (gnus-topic-mode)]])
#@60 Remove the current group from the topic.

(fn &optional N)
(defalias 'gnus-topic-remove-group #[256 "\211?\205\205\n	?\205\n\205\303\304!\305\306\307\"\"\210\310 \210\311 \207" [transient-mark-mode mark-active gnus-group-marked t gnus-group-process-prefix mapc make-closure #[257 "\303
\300\"\210\304\305 	\"\306\211\203!
\203!\307 \310y\210`|\210\311\"\210\312 )\207" [V0 gnus-topic-alist inhibit-read-only gnus-group-remove-mark assoc gnus-current-topic t point-at-bol 1 gnus-delete-first gnus-topic-update-topic] 5 "\n\n(fn GROUP)"] gnus-topic-enter-dribble gnus-group-position-point] 7 (#$ . 34565) ["P" (gnus-topic-mode)]])
#@50 Copy the current group to a topic.

(fn N TOPIC)
(defalias 'gnus-topic-copy-group #[514 "\300\301#\207" [gnus-topic-move-group t] 6 (#$ . 35216) [(byte-code "\302\303\304\305	\"\306#D\207" [current-prefix-arg gnus-topic-alist gnus-completing-read "Copy to topic" mapcar car t] 6) (gnus-topic-mode)]])
#@51 Kill the next N groups.

(fn &optional N DISCARD)
(defalias 'gnus-topic-kill-group #[512 "\303 \203!\304 \305
!\306\"B	B\307\310\311\"\210\305
\310\211\n$\210\312 \207\313\"\210\303 \204.\314 \207\315y\210\314 \210\316y\207" [gnus-topic-alist gnus-topic-killed-topics gnus-topic-topology 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] 8 (#$ . 35526) ["P" (gnus-topic-mode)]])
#@42 Yank the last topic.

(fn &optional ARG)
(defalias 'gnus-topic-yank-group #[256 "\2031\305 \206
\306\307 !\211A\242\211A
@A
	B\310
@@\311!$\210\312 \210\313
@@!\207\314 \315\316\212\313\307 !\210\317 )\206D\320_\321\"\322\211\323!\262\324\212\325y\210\307 )	\"\262

;\203d
C\262\204o\211\244\210\202\234\211A\204~\211A\244\241\210\202\234\211A\203\234\211A@\232\203\225\211A\244\241\210\322\262
\211A\262
\202~*\266\326 \207" [gnus-topic-killed-topics gnus-topic-alist gnus-topic-inhibit-change-level gnus-topic-indent-level gnus-group-indentation 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] 10 (#$ . 36047) ["p" (gnus-topic-mode)]])
#@117 Hide the current topic.
If PERMANENT, make it stay hidden in subsequent sessions as well.

(fn &optional PERMANENT)
(defalias 'gnus-topic-hide-topic #[256 "\300 \205\301\300 !\210\211\203\302\300 !A@AA\303\240\210\304\305\211\"\207" [gnus-current-topic gnus-topic-goto-topic gnus-topic-find-topology hidden gnus-topic-remove-topic nil] 4 (#$ . 36960) ["P" (gnus-topic-mode)]])
#@115 Show the hidden topic.
If PERMANENT, make it stay shown in subsequent sessions as well.

(fn &optional PERMANENT)
(defalias 'gnus-topic-show-topic #[256 "\301 \205+\211\204\302\303\304\"\207\305\306\307\310\311\"\303#!\211A@AA\304\240\210\211A@A\312\240\210\313 \262
\207" [gnus-topic-alist 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 (#$ . 37348) ["P" (gnus-topic-mode)]])
#@177 Mark all groups in the TOPIC with the process mark.
If NON-RECURSIVE (which is the prefix) is t, don't mark its subtopics.

(fn TOPIC &optional UNMARK NON-RECURSIVE NO-TOGGLE)
(defalias 'gnus-topic-mark-topic #[1025 "\204\303\304!\207\212\305\306\307?%\211\205T\211
A\262\242A@\211@\262
	\203@\204@\211\n>\2038\310
!\266\202\311
!\266\202\203L\310
!\266\202\311
!\266\202\262
)\207" [gnus-level-killed gnus-process-mark-toggle gnus-group-marked call-interactively gnus-group-mark-group gnus-topic-find-groups t nil gnus-group-remove-mark gnus-group-set-mark] 10 (#$ . 37842) [(byte-code "\301 \302\205\303E\207" [current-prefix-arg gnus-group-topic-name nil t] 3) (gnus-topic-mode)]])
#@170 Remove the process mark from all groups in the TOPIC.
If NON-RECURSIVE (which is the prefix) is t, don't unmark its subtopics.

(fn TOPIC &optional DUMMY NON-RECURSIVE)
(defalias 'gnus-topic-unmark-topic #[769 "\204\300\301!\207\302\303\303$\207" [call-interactively gnus-group-unmark-group gnus-topic-mark-topic t] 8 (#$ . 38564) [(byte-code "\301 \302\205\303E\207" [current-prefix-arg gnus-group-topic-name nil t] 3) (gnus-topic-mode)]])
#@60 Check for new news in the current topic.

(fn &optional N)
(defalias 'gnus-topic-get-new-news-this-topic #[256 "\300 \204	\301
!\207\302 \303
!A@\212\304\305\205\306#\210\301 \210)\307
A@\310=!\207" [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] 7 (#$ . 39019) ["P" (gnus-topic-mode)]])
#@85 Move all groups that match REGEXP to some topic.

(fn REGEXP TOPIC &optional COPYP)
(defalias 'gnus-topic-move-matching #[770 "\300!\210\301\302#\207" [gnus-group-mark-regexp gnus-topic-move-group nil] 7 (#$ . 39433) [(byte-code "\301\302\303\304\305\"\306#\211\262\307\310\311\"!D\237\207" [gnus-topic-alist nil gnus-completing-read "Move to topic" mapcar car t read-string format "Move to %s (regexp): "] 6) (gnus-topic-mode)]])
#@85 Copy all groups that match REGEXP to some topic.

(fn REGEXP TOPIC &optional COPYP)
(defalias 'gnus-topic-copy-matching #[770 "\300\301#\207" [gnus-topic-move-matching t] 7 (#$ . 39876) [(byte-code "\301\302\303\304\"\305#\211\306\307\310\"!D\237\207" [gnus-topic-alist gnus-completing-read "Copy to topic" mapcar car t read-string format "Copy to %s (regexp): "] 6) (gnus-topic-mode)]])
#@29 Delete a topic.

(fn TOPIC)
(defalias 'gnus-topic-delete #[257 "\211\204\302\303!\210\304
\"\305\211A\203\302\306!\210\307!\203%\310 \311y\210`|\210\312
\"\313\314\211\315$\210\316 )\207" [gnus-topic-alist inhibit-read-only 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] 7 (#$ . 40274) [(byte-code "\300 C\207" [gnus-group-topic-name] 1) (gnus-topic-mode)]])
#@41 Rename a topic.

(fn OLD-NAME NEW-NAME)
(defalias 'gnus-topic-rename #[514 "\301
!\203\302\303\"\210\211\304\232\203\302\305\306\"\210\301!\307\"
\203'
A@\240\210\211\203/\211\240\210\310y\210\311 \210\312 \210\313y\207" [gnus-topic-alist gnus-topic-find-topology error "Topic `%s' already exists" "nil" "Invalid name: %s" nil assoc -1 gnus-dribble-touch gnus-group-list-groups 1] 6 (#$ . 40758) [(byte-code "\300 \211\301\302\303\"\"D\207" [gnus-current-topic read-string format "Rename %s to: "] 6) (gnus-topic-mode)]])
#@123 Indent a topic -- make it a sub-topic of the previous topic.
If UNINDENT, remove an indentation.

(fn &optional UNINDENT)
(defalias 'gnus-topic-indent #[256 "\211\203\303 \207\304 \305
!\306\211\204\307\310\"\210
\205@\311!\210\312 \210	@A\nB\313\314	@@A$\210	\210	A\311!\206@\311
!)\207" [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] 8 (#$ . 41301) ["P" (gnus-topic-mode)]])
#@19 Unindent a topic.
(defalias 'gnus-topic-unindent #[0 "\302 \303
!\303
!\211\204\304\305\"\210\2056\306!\210\307 \210@A	B\310\311!@@A$\210\210A\306!\207" [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] 8 (#$ . 41886) [nil (gnus-topic-mode)]])
#@129 List all groups that Gnus knows about in a topicsified fashion.
If FORCE, always re-read the active file.

(fn &optional FORCE)
(defalias 'gnus-topic-list-active #[256 "\211\203\306 \210\307
!\210	\310\211\311\310\312#,\207" [gnus-topic-active-topology gnus-topic-active-alist gnus-zombie-list gnus-killed-list gnus-topic-alist gnus-topic-topology gnus-get-killed-groups gnus-topic-grok-active nil gnus-group-list-groups 1 gnus-level-killed] 5 (#$ . 42314) ["P" (gnus-topic-mode)]])
#@48 Show/hide topics that have no unread articles.
(defalias 'gnus-topic-toggle-display-empty-topics #[0 "?\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 (#$ . 42812) [nil (gnus-topic-mode)]])
#@109 Edit the group parameters of GROUP.
If performed on a topic, edit the topic parameters instead.

(fn GROUP)
(defalias 'gnus-topic-edit-parameters #[257 "\211\203\300
!\207\301 \204\302\303!\207\304 \305\306!\307\310\206\"\311\312\"#\207" [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'." make-closure #[257 "\301\300\"\207" [V0 gnus-topic-set-parameters] 4 "\n\n(fn FORM)"]] 8 (#$ . 43113) [(byte-code "\300 C\207" [gnus-group-group-name] 1) (gnus-topic-mode)]])
#@77 Sort groups in the topics according to FUNC and REVERSE.

(fn FUNC REVERSE)
(defalias 'gnus-group-sort-topic #[514 "\211\205#\211\301\302@\"\240\210\211\303\304@\"\240\210\305
\211A\262\242#\210\202
\207" [gnus-topic-alist delq nil delete "dummy.group" gnus-topic-sort-topic] 7 (#$ . 43755)])
#@27 

(fn TOPIC FUNC REVERSE)
(defalias 'gnus-topic-sort-topic #[771 "\300\301\302\300\303A\"\"\"\241\210\211\205\211A\237\241\207" [mapcar #[257 "\211@\207" [] 2 "\n\n(fn INFO)"] sort #[257 "\211\301
\"A@\207" [gnus-newsrc-hashtb gethash] 5 "\n\n(fn GROUP)"]] 10 (#$ . 44062)])
#@111 Sort the current topic according to FUNC.
If REVERSE, reverse the sorting order.

(fn FUNC &optional REVERSE)
(defalias 'gnus-topic-sort-groups #[513 "\301\302 \"\303
\304!#\210\305 \207" [gnus-topic-alist assoc gnus-current-topic gnus-topic-sort-topic gnus-make-sort-function gnus-group-list-groups] 7 (#$ . 44353) [(list gnus-group-sort-function current-prefix-arg) (gnus-topic-mode)]])
#@113 Sort the current topic alphabetically by group name.
If REVERSE, sort in reverse order.

(fn &optional REVERSE)
(defalias 'gnus-topic-sort-groups-by-alphabet #[256 "\300\301\"\207" [gnus-topic-sort-groups gnus-group-sort-by-alphabet] 4 (#$ . 44752) ["P" (gnus-topic-mode)]])
#@113 Sort the current topic by number of unread articles.
If REVERSE, sort in reverse order.

(fn &optional REVERSE)
(defalias 'gnus-topic-sort-groups-by-unread #[256 "\300\301\"\207" [gnus-topic-sort-groups gnus-group-sort-by-unread] 4 (#$ . 45035) ["P" (gnus-topic-mode)]])
#@99 Sort the current topic by group level.
If REVERSE, sort in reverse order.

(fn &optional REVERSE)
(defalias 'gnus-topic-sort-groups-by-level #[256 "\300\301\"\207" [gnus-topic-sort-groups gnus-group-sort-by-level] 4 (#$ . 45313) ["P" (gnus-topic-mode)]])
#@99 Sort the current topic by group score.
If REVERSE, sort in reverse order.

(fn &optional REVERSE)
(defalias 'gnus-topic-sort-groups-by-score #[256 "\300\301\"\207" [gnus-topic-sort-groups gnus-group-sort-by-score] 4 (#$ . 45575) ["P" (gnus-topic-mode)]])
#@98 Sort the current topic by group rank.
If REVERSE, sort in reverse order.

(fn &optional REVERSE)
(defalias 'gnus-topic-sort-groups-by-rank #[256 "\300\301\"\207" [gnus-topic-sort-groups gnus-group-sort-by-rank] 4 (#$ . 45837) ["P" (gnus-topic-mode)]])
#@115 Sort the current topic alphabetically by backend name.
If REVERSE, sort in reverse order.

(fn &optional REVERSE)
(defalias 'gnus-topic-sort-groups-by-method #[256 "\300\301\"\207" [gnus-topic-sort-groups gnus-group-sort-by-method] 4 (#$ . 46097) ["P" (gnus-topic-mode)]])
#@114 Sort the current topic alphabetically by server name.
If REVERSE, sort in reverse order.

(fn &optional REVERSE)
(defalias 'gnus-topic-sort-groups-by-server #[256 "\300\301\"\207" [gnus-topic-sort-groups gnus-group-sort-by-server] 4 (#$ . 46378) ["P" (gnus-topic-mode)]])
#@20 

(fn TOP REVERSE)
(defalias 'gnus-topic-sort-topics-1 #[514 "
A\203\300\301\302\"\303A\304\"\"\203\305!\202
\241\266
\207" [mapcar make-closure #[257 "\301
\300\"\207" [V0 gnus-topic-sort-topics-1] 4 "\n\n(fn TOP)"] sort #[514 "
@@
@@\231\207" [] 4 "\n\n(fn T1 T2)"] reverse] 7 (#$ . 46657)])
#@121 Sort topics in TOPIC alphabetically by topic name.
If REVERSE, reverse the sorting order.

(fn &optional TOPIC REVERSE)
(defalias 'gnus-topic-sort-topics #[512 "
\203\301!A\206\f\302
\"\210\303 \210\304 \210\305!\207" [gnus-topic-topology gnus-topic-find-topology gnus-topic-sort-topics-1 gnus-topic-enter-dribble gnus-group-list-groups gnus-topic-goto-topic] 6 (#$ . 46970) [(byte-code "\302\303\304\305\"\306\307 $	D\207" [gnus-topic-alist current-prefix-arg gnus-completing-read "Sort topics in" mapcar car t gnus-current-topic] 5) (gnus-topic-mode)]])
#@48 Move the CURRENT topic to TO.

(fn CURRENT TO)
(defalias 'gnus-topic-move #[514 "
\203\211\204\f\300\301!\210\302!A\302!A
\204\300\303\"\210\211\204&\300\303\"\210\302\304#\2033\300\305\"\210\302\306\211\307$\210\310
!C\241\210\311 \210\312 \210\313!\207" [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] 9 (#$ . 47540) [(byte-code "\301 \302\303\304\305\"\306#D\207" [gnus-topic-alist gnus-group-topic-name gnus-completing-read "Move to topic" mapcar car t] 6) (gnus-topic-mode)]])
#@18 

(fn NEWSGROUP)
(defalias 'gnus-subscribe-topics #[257 "\3032Q\304\211\305 \211\203K\211@\306\307!\236A\211\262\203D\310\"\203D\311!\210\312
	\"C\244\210\313\307!\236A\211\203>\314\n#\210\210\315\303\316\"\210
A\266\202\202	\210)\304\262
0\207" [gnus-group-change-level-function gnus-topic-alist gnus-level-default-subscribed end nil gnus-topic-list subscribe gnus-topic-parameters string-match gnus-subscribe-alphabetically assoc subscribe-level gnus-group-change-level throw t] 9 (#$ . 48197)])
(provide 'gnus-topic)