Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
gnus /
Delete
Unzip
Name
Size
Permission
Date
Action
.dir-locals.el
105
B
-rw-r--r--
2012-04-13 21:33
auth-source.elc
51.28
KB
-rw-r--r--
2023-06-07 04:09
canlock.elc
5.89
KB
-rw-r--r--
2023-06-07 04:09
compface.elc
1.34
KB
-rw-r--r--
2023-06-07 04:09
deuglify.elc
8.04
KB
-rw-r--r--
2023-06-07 04:09
ecomplete.elc
4.59
KB
-rw-r--r--
2023-06-07 04:09
flow-fill.elc
4.74
KB
-rw-r--r--
2023-06-07 04:09
gmm-utils.elc
7.46
KB
-rw-r--r--
2023-06-07 04:09
gnus-agent.elc
121.05
KB
-rw-r--r--
2023-06-07 04:09
gnus-art.elc
256.06
KB
-rw-r--r--
2023-06-07 04:09
gnus-async.elc
12.05
KB
-rw-r--r--
2023-06-07 04:09
gnus-bcklg.elc
3.42
KB
-rw-r--r--
2023-06-07 04:09
gnus-bookmark.elc
24.2
KB
-rw-r--r--
2023-06-07 04:09
gnus-cache.elc
25.68
KB
-rw-r--r--
2023-06-07 04:09
gnus-cite.elc
27.02
KB
-rw-r--r--
2023-06-07 04:09
gnus-cus.elc
38.53
KB
-rw-r--r--
2023-06-07 04:09
gnus-delay.elc
4.79
KB
-rw-r--r--
2023-06-07 04:09
gnus-demon.elc
7.77
KB
-rw-r--r--
2023-06-07 04:09
gnus-diary.elc
8.86
KB
-rw-r--r--
2023-06-07 04:09
gnus-dired.elc
7.65
KB
-rw-r--r--
2023-06-07 04:09
gnus-draft.elc
11.72
KB
-rw-r--r--
2023-06-07 04:09
gnus-dup.elc
4.45
KB
-rw-r--r--
2023-06-07 04:09
gnus-eform.elc
3.43
KB
-rw-r--r--
2023-06-07 04:09
gnus-ems.elc
5.94
KB
-rw-r--r--
2023-06-07 04:09
gnus-fun.elc
8.5
KB
-rw-r--r--
2023-06-07 04:09
gnus-gravatar.elc
4.09
KB
-rw-r--r--
2023-06-07 04:09
gnus-group.elc
151.52
KB
-rw-r--r--
2023-06-07 04:09
gnus-html.elc
14.29
KB
-rw-r--r--
2023-06-07 04:09
gnus-int.elc
63.73
KB
-rw-r--r--
2023-06-07 04:10
gnus-kill.elc
17.78
KB
-rw-r--r--
2023-06-07 04:10
gnus-logic.elc
5.07
KB
-rw-r--r--
2023-06-07 04:10
gnus-mh.elc
2.83
KB
-rw-r--r--
2023-06-07 04:10
gnus-ml.elc
5.57
KB
-rw-r--r--
2023-06-07 04:10
gnus-mlspl.elc
6.3
KB
-rw-r--r--
2023-06-07 04:10
gnus-msg.elc
85.35
KB
-rw-r--r--
2023-06-07 04:10
gnus-notifications.elc
5.29
KB
-rw-r--r--
2023-06-07 04:10
gnus-picon.elc
8.41
KB
-rw-r--r--
2023-06-07 04:10
gnus-range.elc
12.41
KB
-rw-r--r--
2023-06-07 04:10
gnus-registry.elc
31.31
KB
-rw-r--r--
2023-06-07 04:10
gnus-salt.elc
24.04
KB
-rw-r--r--
2023-06-07 04:10
gnus-score.elc
73.99
KB
-rw-r--r--
2023-06-07 04:10
gnus-setup.elc
4.95
KB
-rw-r--r--
2023-06-07 04:10
gnus-sieve.elc
8.35
KB
-rw-r--r--
2023-06-07 04:10
gnus-spec.elc
14.81
KB
-rw-r--r--
2023-06-07 04:10
gnus-srvr.elc
48.21
KB
-rw-r--r--
2023-06-07 04:10
gnus-start.elc
144.43
KB
-rw-r--r--
2023-06-07 04:10
gnus-sum.elc
414.15
KB
-rw-r--r--
2023-06-07 04:10
gnus-sync.elc
21.49
KB
-rw-r--r--
2023-06-07 04:10
gnus-topic.elc
46.05
KB
-rw-r--r--
2023-06-07 04:10
gnus-undo.elc
4.29
KB
-rw-r--r--
2023-06-07 04:10
gnus-util.elc
52.93
KB
-rw-r--r--
2023-06-07 04:10
gnus-uu.elc
55.72
KB
-rw-r--r--
2023-06-07 04:10
gnus-vm.elc
2.57
KB
-rw-r--r--
2023-06-07 04:10
gnus-win.elc
10.58
KB
-rw-r--r--
2023-06-07 04:10
gnus.elc
156.43
KB
-rw-r--r--
2023-06-07 04:10
gravatar.elc
4.26
KB
-rw-r--r--
2023-06-07 04:10
gssapi.elc
2.41
KB
-rw-r--r--
2023-06-07 04:10
html2text.elc
10.47
KB
-rw-r--r--
2023-06-07 04:10
ietf-drums.elc
7.64
KB
-rw-r--r--
2023-06-07 04:10
legacy-gnus-agent.elc
6.54
KB
-rw-r--r--
2023-06-07 04:10
mail-parse.elc
2.39
KB
-rw-r--r--
2023-06-07 04:10
mail-prsvr.elc
1.23
KB
-rw-r--r--
2023-06-07 04:10
mail-source.elc
28.49
KB
-rw-r--r--
2023-06-07 04:10
mailcap.elc
24.93
KB
-rw-r--r--
2023-06-07 04:10
message.elc
227.03
KB
-rw-r--r--
2023-06-07 04:10
messcompat.elc
2.69
KB
-rw-r--r--
2023-06-07 04:10
mm-archive.elc
2.85
KB
-rw-r--r--
2023-06-07 04:10
mm-bodies.elc
5.99
KB
-rw-r--r--
2023-06-07 04:10
mm-decode.elc
50.6
KB
-rw-r--r--
2023-06-07 04:10
mm-encode.elc
6.2
KB
-rw-r--r--
2023-06-07 04:10
mm-extern.elc
4.28
KB
-rw-r--r--
2023-06-07 04:10
mm-partial.elc
3.37
KB
-rw-r--r--
2023-06-07 04:10
mm-url.elc
8.73
KB
-rw-r--r--
2023-06-07 04:10
mm-util.elc
39.65
KB
-rw-r--r--
2023-06-07 04:10
mm-uu.elc
18.9
KB
-rw-r--r--
2023-06-07 04:10
mm-view.elc
18.51
KB
-rw-r--r--
2023-06-07 04:10
mml-sec.elc
12.41
KB
-rw-r--r--
2023-06-07 04:10
mml-smime.elc
14.44
KB
-rw-r--r--
2023-06-07 04:10
mml.elc
42.01
KB
-rw-r--r--
2023-06-07 04:10
mml1991.elc
11.5
KB
-rw-r--r--
2023-06-07 04:10
mml2015.elc
33.95
KB
-rw-r--r--
2023-06-07 04:10
nnagent.elc
10.93
KB
-rw-r--r--
2023-06-07 04:10
nnbabyl.elc
17.15
KB
-rw-r--r--
2023-06-07 04:10
nndiary.elc
39.54
KB
-rw-r--r--
2023-06-07 04:10
nndir.elc
2.95
KB
-rw-r--r--
2023-06-07 04:11
nndoc.elc
30.11
KB
-rw-r--r--
2023-06-07 04:11
nndraft.elc
10.94
KB
-rw-r--r--
2023-06-07 04:11
nneething.elc
11.83
KB
-rw-r--r--
2023-06-07 04:11
nnfolder.elc
32.19
KB
-rw-r--r--
2023-06-07 04:11
nngateway.elc
3.04
KB
-rw-r--r--
2023-06-07 04:11
nnheader.elc
31.94
KB
-rw-r--r--
2023-06-07 04:11
nnimap.elc
68.59
KB
-rw-r--r--
2023-06-07 04:11
nnir.elc
56.96
KB
-rw-r--r--
2023-06-07 04:11
nnmail.elc
53.02
KB
-rw-r--r--
2023-06-07 04:11
nnmaildir.elc
97.58
KB
-rw-r--r--
2023-06-07 04:11
nnmairix.elc
72.67
KB
-rw-r--r--
2023-06-07 04:11
nnmbox.elc
18.82
KB
-rw-r--r--
2023-06-07 04:11
nnmh.elc
15.52
KB
-rw-r--r--
2023-06-07 04:11
nnml.elc
39.81
KB
-rw-r--r--
2023-06-07 04:11
nnnil.elc
1.77
KB
-rw-r--r--
2023-06-07 04:11
nnoo.elc
8.72
KB
-rw-r--r--
2023-06-07 04:11
nnregistry.elc
1.85
KB
-rw-r--r--
2023-06-07 04:11
nnrss.elc
30.01
KB
-rw-r--r--
2023-06-07 04:11
nnspool.elc
15.88
KB
-rw-r--r--
2023-06-07 04:11
nntp.elc
121.29
KB
-rw-r--r--
2023-06-07 04:11
nnvirtual.elc
18.42
KB
-rw-r--r--
2023-06-07 04:11
nnweb.elc
17.61
KB
-rw-r--r--
2023-06-07 04:11
plstore.elc
14.75
KB
-rw-r--r--
2023-06-07 04:11
pop3.elc
14.53
KB
-rw-r--r--
2023-06-07 04:11
qp.elc
4.35
KB
-rw-r--r--
2023-06-07 04:11
registry.elc
9.3
KB
-rw-r--r--
2023-06-07 04:11
rfc1843.elc
5.35
KB
-rw-r--r--
2023-06-07 04:11
rfc2045.elc
971
B
-rw-r--r--
2023-06-07 04:11
rfc2047.elc
24.75
KB
-rw-r--r--
2023-06-07 04:11
rfc2104.elc
1.43
KB
-rw-r--r--
2023-06-07 04:11
rfc2231.elc
6.84
KB
-rw-r--r--
2023-06-07 04:11
rtree.elc
4.3
KB
-rw-r--r--
2023-06-07 04:11
score-mode.elc
3.32
KB
-rw-r--r--
2023-06-07 04:11
shr-color.elc
9.11
KB
-rw-r--r--
2023-06-07 04:11
shr.elc
33.2
KB
-rw-r--r--
2023-06-07 04:11
sieve-manage.elc
17.1
KB
-rw-r--r--
2023-06-07 04:11
sieve-mode.elc
7.73
KB
-rw-r--r--
2023-06-07 04:11
sieve.elc
11.08
KB
-rw-r--r--
2023-06-07 04:11
smiley.elc
5.39
KB
-rw-r--r--
2023-06-07 04:11
smime.elc
19.61
KB
-rw-r--r--
2023-06-07 04:11
spam-report.elc
11.53
KB
-rw-r--r--
2023-06-07 04:11
spam-stat.elc
19.64
KB
-rw-r--r--
2023-06-07 04:11
spam-wash.elc
1.37
KB
-rw-r--r--
2023-06-07 04:11
spam.elc
83.9
KB
-rw-r--r--
2023-06-07 04:11
starttls.elc
6.42
KB
-rw-r--r--
2023-06-07 04:11
utf7.elc
5.83
KB
-rw-r--r--
2023-06-07 04:11
yenc.elc
3.62
KB
-rw-r--r--
2023-06-07 04:11
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:10:37 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-topic.el ;;; in Emacs version 24.3.1 ;;; 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 (#$ . 758)) (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 (#$ . 2052)) (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 "\301\302 \303\"\211\205 \304!)\207" [topic get-text-property point-at-bol gnus-topic symbol-name] 4 (#$ . 2509)]) #@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 (#$ . 2715)]) #@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 (#$ . 2893)]) #@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 (#$ . 3089)]) #@48 Return non-nil if the current line is a topic. (defalias 'gnus-group-topic-p #[nil "\300 \207" [gnus-group-topic-name] 1 (#$ . 3258)]) #@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 (#$ . 3399)]) (defalias 'gnus-topic-articles-in-topic #[(entries) "\303\304\n\203 \n\211A@@\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) "\305\211\203# \n\211 @A)\235\203 \n\211 @@)\305\nA\211\204 *\207" [gnus-topic-alist out alist group x nil] 3 (#$ . 3729)]) (defalias 'gnus-topic-goto-topic #[(topic) "\205 \302ed\303\304!$\211\205 b)\207" [topic point text-property-any gnus-topic intern] 7]) #@14 Go to TOPIC. (defalias 'gnus-topic-jump-to-topic #[(topic) "\303\304 !\303\211\203$ \n@\305 !\204 \306 !\210\307 !\210\nA\211\204\f +\305 !\207" [buffer-read-only topic --dolist-tail-- nil gnus-current-topics gnus-topic-goto-topic gnus-topic-goto-missing-topic gnus-topic-display-missing-topic] 3 (#$ . 4088) (list (gnus-completing-read "Go to topic" (gnus-topic-list) t))]) #@39 Return the name of the current topic. (defalias 'gnus-current-topic #[nil "\302`\303\"\206 \212\304`\303\"\211\205 b)\205 \302`Se]\303\")\211\205' \305 !)\207" [point result get-text-property gnus-topic previous-single-property-change symbol-name] 4 (#$ . 4475)]) #@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 (#$ . 4751)]) #@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 (#$ . 5045)]) #@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@\211\203\231 \311 \"J\312 8\3138\311 \"J @\206o \314\232?\205o \n\205o \nAT\n@ZA@\211 :\203\202 @\202\204 )\206\227 \235\203\225 !\202\227 \"\203, X\203, Y\203, #\204\367 \315=\204\301 \307=\203\306 $\202\312 \316V\204\367 %\203\334 \317\3208\236A\204\367 &\203\352 \321&\"\204\367 \322 >\204\367 \322 \236A\203, \206\375 \fB\202, \f\237'\203H'\315=\203\323!A''A\307 (\211 )\203G)@(\f\324(\211 *@@)#(%\244)A\211)\204$*\f. \207" [topic gnus-topic-alist active entry visible-groups params assoc nil 1 intern-soft 2 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 rank 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 recursive topic-topology --dolist-tail-- x] 10 (#$ . 5238)]) #@32 Go to the N'th previous topic. (defalias 'gnus-topic-goto-previous-topic #[(n) "\301[!\207" [n gnus-topic-goto-next-topic] 2 (#$ . 6555) "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 (#$ . 6705) "p"]) #@55 Return the previous topic on the same level as TOPIC. (defalias 'gnus-topic-previous-topic #[(topic) "\303\304!!\211AA)\n@@@\232?\205. \n\203* \nA@@@\232\204* \nA\211\204 \n@@@)\207" [topic x top gnus-topic-find-topology gnus-topic-parent-topic] 4 (#$ . 7080)]) #@29 Return the parent of TOPIC. (defalias 'gnus-topic-parent-topic #[(topic &optional topology) "\204 \211A@@\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 (#$ . 7355)]) #@35 Return the next sibling of TOPIC. (defalias 'gnus-topic-next-topic #[(topic &optional previous) "\305\306!!\211AA)\307\211\203& @@@\232\204& @@@ A\211\204 \f\203. \n\2023 A@@@*\207" [topic x prev parentt previous gnus-topic-find-topology gnus-topic-parent-topic nil] 4 (#$ . 7668)]) #@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 !\310 !\204- \n!\211\203- \311!\203 S\202 \310 !\2046 db\210 +\207" [topic num way gnus-current-topic 0 gnus-topic-previous-topic gnus-topic-next-topic abs zerop gnus-topic-goto-topic] 2 (#$ . 7968)]) #@31 Return the topology of TOPIC. (defalias 'gnus-topic-find-topology #[(topic &optional topology level remove) "\204 \306\307 \211 @@)\n\232\203) \203# \310 \"\210\nB\202K A\211\203J \311\n@\nT \205= \f$\211\204J A\211\2040 *\207" [topology gnus-topic-topology level result top x 0 nil delq gnus-topic-find-topology topic remove] 6 (#$ . 8325)]) (defvar gnus-tmp-topics nil) #@46 Return a list of all topics in the topology. (defalias 'gnus-topic-list #[(&optional topology) "\204 \304\211@@)\nB\305\306A\"\210\n\207" [topology gnus-topic-topology gnus-tmp-topics x nil mapc gnus-topic-list] 4 (#$ . 8726)]) #@34 Return the parameters for TOPIC. (defalias 'gnus-topic-parameters #[(topic) "\303!\211\205 \304 \211A@)8)\207" [topic top x gnus-topic-find-topology 3] 3 (#$ . 8969)]) #@50 Set the topic parameters of TOPIC to PARAMETERS. (defalias 'gnus-topic-set-parameters #[(topic parameters) "\304!\211\204 \305\306\"\210 \211A@)AA\204\" \211A@)\307C\244\210\310 \211A@)\233\2047 \211A@)\307C\244\210\310 \211A@)\233 \240\210\311\312\313 #!)\207" [topic top x parameters gnus-topic-find-topology error "No such topic: %s" nil 3 gnus-dribble-enter format "(gnus-topic-set-parameters %S '%S)"] 6 (#$ . 9147)]) #@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 (#$ . 9589)]) #@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@\211\203p \n\211A@\211\203 \f:\2042 \f\313B\f@\314=\203b \fA\307 \f\211A@\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 (#$ . 9980)]) (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\306\312\"\210 \203! \204$ \313 \210 \204, \314 \210\n\204? Y\203O X\203O \315\316 \317\"\211 \320 $\210\n\204b !Y\203\212 !X\203\212 \315\316\"\317\"\211\"!\321 $\210 \203\212 #\204~ \322 \210\315\323\324 \"!\321 $\210 W\204\225 \n\205\315 \203\272 \325 ! $\326$A$@%\206\256 &\306 &)\202\315 \326'\327%\206\305 &\306 &\330 \210 &B(\331\332!\210+\207" [gnus-group-buffer lowest gnus-group-listed-groups not-in-list buffer-read-only gnus-topic-alist nil 1 copy-sequence gnus-update-format-specifications topic gnus-topic-check-topology erase-buffer gnus-group-prepare-flat-list-dead sort string< 90 75 gnus-make-hashtable-from-killed gnus-remove-if #[(group) "\303 \"J\206 \303\n\"J\207" [group gnus-newsrc-hashtb gnus-killed-hashtb intern-soft] 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 (#$ . 10804)]) #@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@\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 0 1\316 2\203\214 ,\317\211A@'T\f %?\"3&\\,\202l `0)b\210#\211A#@\211/\203\324/;\203 \320/\n\203\324 \f4W?\205\374 /5\235\203\302 4\202\303 \211 6\fX\205\320 6\"Y)\205\374 3;\203\343 \3213/\"\202\374 \3223!\203\362 3/!\202\374 3\204\373 \323\202\374 \316\"\202O\324/8.\320.@\n\2033.A@\211 7:\203 7@\202!7)\211 6\fX\205/6\"Y)\205N\322 !\203@ .!\205N3;?\206N\3213.@\"\"\203\223 %\203\263/;\203\204\325/\2115\235\203l4\202m \316\326/8\"J\2111AT1@Z\316%\210\202\263\324/8\211.\203\263\325.@.A@\211 7:\203\2437@\202\2457)\327.8/@\330.8%\210/<\203\310/@\247\203\310,/@\\,/<\203\223 \3232\202\223 )b\210$\204 9\204\365\331,!\203\3652\204\365+dU\204 \332`!\210\333 @%\324 8\334=?'*,&\210\335 @,\"\210:\203+\336)0\337\340$\210\336)0\341\340$\2100b\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 2 gnus-group-insert-group-line intern-soft 3 4 zerop gnus-extent-start-open gnus-topic-insert-topic-line hidden gnus-topic-update-unreads gnus-put-text-property point-entered gnus-tool-bar-update point-left lowest entries silent visiblep gnus-topic-indent-level level gnus-group-indentation beg all-entries point-max unread topic info entry end active tick regexp gnus-level-zombie gnus-zombie-list entry-level rank gnus-active-hashtb gnus-topic-display-empty-topics gnus-group-update-tool-bar] 10 (#$ . 12412)]) #@27 Remove the current topic. (defalias 'gnus-topic-remove-topic #[(&optional insert total-remove hide in-level) "\306 \307 \310 \210`\311\211\205b \312\313y!\203$ \307 \206 \nT\nV\204 `|\210\314 !\211 A@)\211 \203; \315\202< \316 AA@ AAA@E\241\210)\203] \317\320 \"\"\211\202b \321 \",\207" [buffer-read-only beg level topic x data gnus-group-topic-name gnus-group-topic-level beginning-of-line nil zerop 1 gnus-topic-find-topology visible invisible delq assoc gnus-topic-insert-topic insert total-remove gnus-topic-alist in-level] 5 (#$ . 14487)]) #@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 (#$ . 15058)]) #@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 (#$ . 15249)]) (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 \205K \315``T\316 !\210\317\320 !\321 \322 \323\324\257\n#.\207" [visiblep visible gnus-topic-indent-level level indentation unread "" "..." make-string 32 nil gnus-topic-update-unreads beginning-of-line gnus-add-text-properties eval gnus-topic intern 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) "\306=\205: \205: \212\n \2059 \f \211 @A)\235\2030 \307 \211 @@)!\2030 \310 \211 @@)!\210 \211A@\210\202 *\207" [major-mode gnus-topic-mode gnus-topic-alist alist group x gnus-group-mode gnus-topic-goto-topic gnus-topic-update-topic-line] 3 (#$ . 16546)]) #@48 Update all parent topics to the current group. (defalias 'gnus-topic-update-topic #[nil "\306=\2057 \2057 \307 \310 \311\211 \2056 \312\313\f \"J8\2056 \314\315 !\2056 \316\317 !\210 b\210 \311\211\223\210\320 +\207" [major-mode gnus-topic-mode buffer-read-only m group gnus-newsrc-hashtb gnus-group-mode gnus-group-group-name point-marker nil 2 intern-soft gnus-topic-goto-topic gnus-current-topic gnus-topic-update-topic-line gnus-group-topic-name gnus-group-position-point] 5 (#$ . 16924)]) #@53 Place point where GROUP is supposed to be inserted. (defalias 'gnus-topic-goto-missing-group #[(group) "\306!\307 \n\"A \235A \310 \311 \f\203) \312\f@\310\"\204) \f\211A@\210\202 \f?\205b \313 !\235A\f\203P \203P \312\f\211A@\310\"\2035 \314y\210\311\2025 \205b \205b \315 !?\205b \316 !-\207" [group topic gnus-topic-alist groups g unfound gnus-group-topic assoc t nil gnus-group-goto-group reverse 1 gnus-topic-goto-missing-topic gnus-topic-display-missing-topic entry] 3 (#$ . 17428)]) #@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!\211\211AA) \n\211A@) \314 \315 @@A# \316 \f\203f \317\f\211A@\211@@)!\\\202N \211A@\211\203\205 @\247\203f @\\\202f \320\321\211\306!@\316&.\207" [topic parent top x children type 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 unread gnus-group-list-mode entries entry] 8 (#$ . 17938)]) (defalias 'gnus-topic-goto-missing-topic #[(topic) "\304!\203 \305y\207\306\307!!\310 \211AA)! \204, \311\312\211\306!@\313\314&\210\202i @@@\232\204< A\211\202- \210 A \203W \304 @@@!\204W \211A@\210\202A \203b \315\305!\210\202i \316 A@@!\210*\313\207" [topic top x 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!\211\211A@) \211AA) \307 @ @ A# \310! \311 \312\211 \312 \313 @!\203\245 \203G \314 Z\202~ \f\203_ \315\f\211A@\211@@)!\\\202G \211A@\211 \203~ @\247\203_ @\\\202_ \314 \316 @\317 \320 8\321=?\322 &\210\323 \324y\210`|\210\325y\210\314 \203\277 \325y\210\326\206\266 \311 \206\274 \311Z\"\210.\n\207" [topic-name top x type children gnus-group-list-mode 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 entries 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 \2036 \211 @@)\f\235\204/ \211 @@)\312DCC\244\210\307 A\211\204 \n\203= \313 \210\f\203X \314\f@\"\204O \f@CB\f\211A@\210\202= +\315\316\317\320\"\" \321\314\211 @@)\"! A \311 \203\235 \211A@@\211\235\204x C\241\210A\202x ,\311 \211A@\211\205\343 A\203\243 \211 A@)\203\326 \322\211 A@)\"J\203\326 A\211\202\260 \211 \211AA)\241\210\202\256 *\207" [gnus-topic-alist gnus-topology-checked-p changed alist topics x gnus-topic-init-alist t gnus-topic-list nil visible gnus-topic-enter-dribble assoc apply append mapcar cdr last intern-soft gnus-topic-topology tgroups entry gnus-newsrc-alist newsrc group 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 (#$ . 21148)]) #@43 Remove bogus groups from the topic alist. (defalias 'gnus-topic-clean-alist #[nil "\306\211\f\204 \307 \210 \211A@\211\203c \211A@\306\211 \f \211A@\211 \203W \310 \"J\204F \311\312\310 \"J88\203# \310 \f\"J\204# B\202# \f \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 intern-soft 4 2 group topic-name gnus-active-hashtb gnus-newsrc-hashtb] 5 (#$ . 21498)]) #@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?\2056\307\310 8@\206 \f!\210 \2056\2056\n?\2056W\203u Y\203u \307\f!\203I \311 \312y\210`|\210\2028 \205q \f@\235\203f @\313\f\211 @A)\"\241\210\211A@\210\202I )\2026W\2056Y\2056\314 \315\316 \212\317\320 !\210\321 )\206\233 \322_\323\" \fC \306\211 !\306 \"\324\212\325y\210\320 \206\277 #\211 @@))\"\211\2032! ;\203\330 C \204\346 \244\210\2022A\204\371 A\244\241\210\2022\"\204'A\203'\211 A@) \232\203 A\244\241\210\315\"A\202\371 \"\2042! \244\210.\326 *\207" [gnus-group-buffer buffer-read-only gnus-topic-inhibit-change-level previous group gnus-topic-mode nil gnus-group-goto-group 2 point-at-bol 1 delete gnus-group-group-name t make-string gnus-topic-goto-topic gnus-current-topic gnus-group-topic-level 0 32 assoc -1 gnus-topic-update-topic gnus-topic-alist oldlevel gnus-level-zombie level alist x prev gnus-topic-indent-level gnus-group-indentation yanked talist end gnus-topic-topology] 5 (#$ . 21989)]) #@44 Go to group or the next group after group. (defalias 'gnus-topic-goto-next-group #[(group props) "\204% \306 >\204 db\207\307\306 >\211A@)!\310 !\206# \310\311 !!)\207\312!\203- \313\207\314\315!\f\" \212\310 @!)\211 \205E A\235A\211 \203\\ \312@!\204\\ A\211\204K \204 \316 A!\235A\211\203 \312@!\204 A\211\204n @\204\212 eb\210\202\256 \204\256 \203\244 \211 \203\240 b\210)\202\253 \310\311 @!!\210\317+\313\207" [group props x topic gnus-topic-alist list gnus-topic symbol-name gnus-topic-goto-topic gnus-topic-next-topic gnus-group-goto-group t assoc gnus-group-topic reverse nil topic-visible after point] 4 (#$ . 23175)]) #@63 Parse all active groups and create topic structures for them. (defalias 'gnus-topic-grok-active #[(&optional force) "\204 ?\205+ \305\306\307 \"\210\310\n\311\"\312\313DC\305\314\f\n\"\210\f@\315\240\210 @\315\240)\207" [force gnus-topic-active-alist groups gnus-active-hashtb gnus-topic-active-topology nil mapatoms #[(g) "J\205\f \302! B\211\207" [g groups symbol-name] 2] sort string< "" visible gnus-topic-grok-active-1 "Gnus active"] 3 (#$ . 23852)]) (defalias 'gnus-topic-grok-active-1 #[(topology groups) "\211@@)\306\307\n!P\310\211 \310 \203V \311 @\211\"\203V \311\312\313\225#\204< \211A@\fB\202 \313\211\225O\314DC\211C\244\210\315 \"\211\204 \311\316\n\"\203e \n\313\211\224O\202f \n\211\f\237BB@\n\240\210-\207" [topology x name prefix tgroups ntopology "^" regexp-quote nil string-match "\\." 0 invisible gnus-topic-grok-active-1 "\\.$" group groups gnus-topic-active-alist] 5]) (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 gnus-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]) #@49 Minor mode for topicsifying Gnus group buffers. (defalias 'gnus-topic-mode #[(&optional arg redisplay) "\306=\205\241 \307\302!\210 \204 \n?\202 \310 !\311V\211\204\" \312\202\204 \313\314\315\"\203, \316 \210\317\320\321\"\210\322\302\323\f#\210\324\325\326\"\210\307\305!\210\327\307\330!\210\331\307\332!\210\333\307\334!\210\335 \307\336!\210\337 \307\340!\210\341 \3420\343\344\345!\210\324\345\346\312\347$\210\31212\203\200 \350 \210\351\352!\210\n\204\232 \353\354\326\"\210\3120\353\345\346\"\210\355\356 3\205\241 \357 \207" [major-mode arg gnus-topic-mode gnus-goto-missing-group-function gnus-topic-mode-map gnus-group-prepare-function gnus-group-mode make-local-variable prefix-numeric-value 0 nil gnus-visual-p topic-menu menu gnus-topic-make-menu-bar gnus-set-format topic t add-minor-mode " Topic" add-hook gnus-group-catchup-group-hook gnus-topic-update-topic gnus-group-prepare-topics gnus-group-get-parameter-function gnus-group-topic-parameters gnus-group-goto-next-group-function gnus-topic-goto-next-group gnus-group-indentation-function gnus-topic-group-indentation gnus-group-update-group-function gnus-topic-update-topics-containing-group gnus-group-sort-alist-function gnus-group-sort-topic gnus-topic-change-level gnus-topic-goto-missing-group gnus-make-local-hook gnus-check-bogus-groups-hook gnus-topic-clean-alist local gnus-topic-check-topology gnus-run-hooks gnus-topic-mode-hook remove-hook gnus-summary-exit-hook gnus-group-prepare-flat gnus-group-sort-flat gnus-group-list-groups gnus-group-change-level-function gnus-topology-checked-p gnus-newsrc-alist redisplay] 6 (#$ . 27503) (list current-prefix-arg t)]) #@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 (#$ . 29177) "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 (#$ . 29912) "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) "\3018@\207" [entry 2] 2] gnus-topic-find-groups t nil "Expiring groups in %s...done"] 8 (#$ . 30101) (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%\"\313\n \306 \210\307\314\n\",\207" [topic gnus-level-killed groups buffer-read-only gnus-group-marked call-interactively gnus-group-catchup-current mapcar #[(entry) "\3018@\207" [entry 2] 2] gnus-topic-find-groups t nil gnus-topic-update-topics-containing-group] 8 (#$ . 30587) (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 (#$ . 31071) "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\211@@)\306 !A\f\206# \311\312\211FC \211 \204. \307\313 \"\210\203T A\203J A@@@\232\204J A\211\2024 \f AB\241\210\202Y \fC\244\210\314\"\204h CB*\315 \210\316 \210\317!\207" [topic parent gnus-topic-topology x full-topic top 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 previous gnus-topic-alist] 6 (#$ . 31883) (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 \306 ?\205 \205 \307\310!\311\n \"\312 \313y\210\314 \315 \204@ \204@ \203@ \316\n\"\202\225 \315 \211 \203 @\317\"\210\311\320 \"\211\203o \204o \f\321\fA\"\241\210C\244\210 A\211 \204K *\322 \210 \203\216 \323 !\210\202\223 \324!\210\325 .\207" [n gnus-group-marked topic gnus-topic-alist entry start-group gnus-region-active-p 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 start-topic topicl groups use-marked copyp g --dolist-tail--] 7 (#$ . 32652) (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 \304 ?\205 \205 \305\306!\307\310\n\"\210\311 \210\312 *\207" [n gnus-group-marked groups use-marked gnus-region-active-p 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 buffer-read-only topicl gnus-group-remove-mark assoc gnus-current-topic nil point-at-bol 1 gnus-delete-first gnus-topic-update-topic] 4] gnus-topic-enter-dribble gnus-group-position-point] 3 (#$ . 33628) "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 (#$ . 34247) (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 (#$ . 34500) "P"]) #@22 Yank the last topic. (defalias 'gnus-topic-yank-group #[(&optional arg) "\203? \306 \206 \307\310 !\211A@\211A\n\211 @A) B\311 \211 @@)\312 ! $\210\313 \210\314 \211 @@)!,\207\315 \316 \317\212\314\310 !\210\320 )\206V \321_\322\" \323\211 \324 ! \325\212\326y\210\310 )\" ;\203} C \204\212 \244\210\202\274 A\204\232 A\244\241\210\202\274 A\203\274 \211 A@)\232\203\265 A\244\241\210\323 A\211\202\233 -\327 \207" [gnus-topic-killed-topics previous data alist x item 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 gnus-topic-alist prev gnus-topic-inhibit-change-level gnus-topic-indent-level gnus-group-indentation yanked arg] 6 (#$ . 35012) "p"]) #@91 Hide the current topic. If PERMANENT, make it stay hidden in subsequent sessions as well. (defalias 'gnus-topic-hide-topic #[(&optional permanent) "\302 \205# \303\302 !\210\203 \304\302 !\211A@)\211AA)\305\240\210\306\307\211\"\207" [permanent x gnus-current-topic gnus-topic-goto-topic gnus-topic-find-topology hidden gnus-topic-remove-topic nil] 4 (#$ . 35951) "P"]) #@89 Show the hidden topic. If PERMANENT, make it stay shown in subsequent sessions as well. (defalias 'gnus-topic-show-topic #[(&optional permanent) "\304 \2054 \204 \305\306\307\"\207\310\311\312\313\314 \"\306#!\211\211A@)\211AA)\307\240\210\n\211A@)A\315\240\210\316 )\207" [permanent gnus-topic-alist topic x 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 (#$ . 36331) "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 \305\306!\207\212\307 \310\311\n?% \205, \f\203 \312\202 \313\314 \211A@8@!\210\202 *\207" [topic gnus-level-killed non-recursive groups unmark call-interactively gnus-group-mark-group gnus-topic-find-groups t nil gnus-group-remove-mark gnus-group-set-mark 2] 6 (#$ . 36825) (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 (#$ . 37382) (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) "\304 \204 \305!\207\306 \307 !\211A@)\212\310 \311\205 \312#\210\305 \210)\313 \211A@)\314=!*\207" [n topic x 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] 5 (#$ . 37796) "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 (#$ . 38212) (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 (#$ . 38651) (byte-code "\302\303\304\305\306 \"\307#\211\310\311\312\"!D\237)\207" [topic gnus-topic-alist nil gnus-completing-read "Copy to topic" mapcar car t read-string format "Copy to %s (regexp): "] 5)]) #@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\307\211\316$\210\317 *\207" [topic gnus-topic-alist buffer-read-only entry error "No topic to be deleted" assoc nil "Topic not empty" gnus-topic-goto-topic point-at-bol 1 delq gnus-topic-find-topology delete gnus-dribble-touch] 6 (#$ . 39051) (list (gnus-group-topic-name))]) #@17 Rename a topic. (defalias 'gnus-topic-rename #[(old-name new-name) "\306!\203 \307\310\"\210\311\232\203 \307\312\313\"\210\306 !\314 \n\"\211 \203, \f\211 A@)\240\210 \2034 \240\210\315y\210\316 \210\317 \210\320y*\207" [new-name old-name gnus-topic-alist entry top x 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 (#$ . 39494) (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 \205J \314 !\210\315 \210\f\211 @A)B\316 \n\311\f@\211 @A)$\210\f\210\fA\314 !\206J \314\n!+\207" [unindent topic parent buffer-read-only gnus-topic-killed-topics x gnus-topic-unindent gnus-current-topic gnus-topic-previous-topic nil error "Nothing to indent %s into" gnus-topic-goto-topic gnus-topic-kill-group gnus-topic-create-topic gnus-topic-alist] 6 (#$ . 40039) "P"]) #@19 Unindent a topic. (defalias 'gnus-topic-unindent #[nil "\306 \307!\307 !\211\204 \310\311\"\210\205? \312!\210\313 \210 \211 @A) B\314\n\315 ! @\211 @A)$\210 \210 A\312!+\207" [topic parent grandparent gnus-topic-killed-topics x gnus-topic-alist gnus-current-topic gnus-topic-parent-topic error "Nothing to indent %s into" gnus-topic-goto-topic gnus-topic-kill-group gnus-topic-create-topic gnus-topic-next-topic] 6 (#$ . 40633) 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 (#$ . 41087) "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 (#$ . 41563) 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 "Editing the topic parameters for `%s'." lambda (form) gnus-topic-set-parameters (form)] 8 (#$ . 41845) (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@\n #\210\202 )\207" [gnus-topic-alist alist func reverse delq nil delete "dummy.group" gnus-topic-sort-topic] 4 (#$ . 42411)]) (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\303 \"J8\207" [group gnus-newsrc-hashtb 2 intern-soft] 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 (#$ . 42979) (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 (#$ . 43371) "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 (#$ . 43633) "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 (#$ . 43891) "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 (#$ . 44133) "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 (#$ . 44375) "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 (#$ . 44614) "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 (#$ . 44874) "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) "\211@@)\n\211@@)\231\207" [t1 x t2] 3]] 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 (#$ . 45423) (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 (#$ . 45957) (list (gnus-group-topic-name) (gnus-completing-read "Move to topic" (mapcar 'car gnus-topic-alist) t))]) (defalias 'gnus-subscribe-topics #[(newsgroup) "\300\301\215\207" [end (byte-code "\306\211\307 \306\211\203O @\310\311\n!\236A\211\203H \312 \f\"\203H \313\f!\210\314\n \"\fC\244\210\315\311\n!\236A\211 \203B \316\f #\210)\317\320\321\"\210 A\211\204 ,\306\207" [gnus-group-change-level-function match topic --dolist-tail-- newsgroup gnus-topic-alist nil gnus-topic-list subscribe gnus-topic-parameters string-match gnus-subscribe-alphabetically assoc subscribe-level gnus-group-change-level throw end t gnus-level-default-subscribed] 5)] 2]) (provide 'gnus-topic)