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:30 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-srvr.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\300\305!\210\300\306!\210\307\310\311\"\210\312\313\314\315\316\317\320\321&\210\312\322\314\323\316\317\320\321&\210\312\324\325\326\327\330\316\331\320\332& \210\312\333\334\335\316\331\320\332&\210\312\336\314\337\340\341\316\331\320\342& \207" [require gnus gnus-start gnus-spec gnus-group gnus-int gnus-range autoload gnus-group-make-nnir-group "nnir" custom-declare-variable gnus-server-mode-hook nil "Hook run in `gnus-server-mode' buffers." :group gnus-server :type hook gnus-server-exit-hook "Hook run when exiting the server buffer." gnus-server-line-format " {%(%h:%w%)} %s%a\n" "Format of server lines.\nIt works along the same lines as a normal formatting string,\nwith some simple extensions.\n\nThe following specs are understood:\n\n%h back end\n%n name\n%w address\n%s status\n%a agent covered\n\nGeneral format specifiers can also be used.\nSee Info node `(gnus)Formatting Variables'." :link (custom-manual "(gnus)Formatting Variables") gnus-server-visual string gnus-server-mode-line-format "Gnus: %%b" "The format specification for the server mode line." gnus-server-browse-in-group-buffer "Whether server browsing should take place in the group buffer.\nIf nil, a faster, but more primitive, buffer is used instead." :version "22.1" boolean] 10) (defvar gnus-inserted-opened-servers nil) (defvar gnus-server-line-format-alist '((104 gnus-tmp-how 115) (110 gnus-tmp-name 115) (119 gnus-tmp-where 115) (115 gnus-tmp-status 115) (97 gnus-tmp-agent 115))) (defvar gnus-server-mode-line-format-alist '((83 gnus-tmp-news-server 115) (77 gnus-tmp-news-method 115) (117 gnus-tmp-user-defined 115))) (defvar gnus-server-line-format-spec nil) (defvar gnus-server-mode-line-format-spec nil) (defvar gnus-server-killed-servers nil) #@55 *Hook run after the creation of the server mode menu. (defvar gnus-server-menu-hook nil (#$ . -2366)) (defalias 'gnus-server-make-menu-bar #[nil "\301\302!\210\303\304!?\205$ \305\306!\210\307\304\310\311$\210\312\306!\210\307\313\310\314$\210\315\316!\207" [gnus-server-mode-map gnus-turn-off-edit-menu server boundp gnus-server-server-menu (lambda (#1=#:def-tmp-var) (defvar gnus-server-server-menu #1# #2="")) nil easy-menu-do-define #2# ("Server" ["Add..." gnus-server-add-server t] ["Browse" gnus-server-read-server t] ["Scan" gnus-server-scan-server t] ["List" gnus-server-list-servers t] ["Kill" gnus-server-kill-server t] ["Yank" gnus-server-yank-server t] ["Copy" gnus-server-copy-server t] ["Show" gnus-server-show-server t] ["Edit" gnus-server-edit-server t] ["Regenerate" gnus-server-regenerate-server t] ["Compact" gnus-server-compact-server t] ["Exit" gnus-server-exit t]) (lambda (#1#) (defvar gnus-server-connections-menu #1# #2#)) gnus-server-connections-menu ("Connections" ["Open" gnus-server-open-server t] ["Close" gnus-server-close-server t] ["Offline" gnus-server-offline-server t] ["Deny" gnus-server-deny-server t] "---" ["Open All" gnus-server-open-all-servers t] ["Close All" gnus-server-close-all-servers t] ["Reset All" gnus-server-remove-denials t]) gnus-run-hooks gnus-server-menu-hook] 5]) (defvar gnus-server-mode-map nil) (byte-code "\301\302\303\304#\210\204 \305 \306!\210\307\300\310\"\210\311\312\313\314\315\316%\210\301\317\320\312#\210\301\317\321\322#\210\311\323\324\325\315\316%\210\301\326\320\323#\210\301\326\321\322#\210\311\327\330\331\315\316%\210\301\332\320\327#\210\301\332\321\322#\210\311\333\334\335\315\316%\210\301\336\320\333#\210\301\336\321\322#\210\311\337\340\341\315\316%\210\301\342\320\337#\210\301\342\321\322#\207" [gnus-server-mode-map put gnus-server-mode mode-class special make-sparse-keymap suppress-keymap gnus-define-keys-1 (" " gnus-server-read-server-in-server-buffer " " gnus-server-read-server gnus-mouse-2 gnus-server-pick-server "q" gnus-server-exit "l" gnus-server-list-servers "k" gnus-server-kill-server "y" gnus-server-yank-server "c" gnus-server-copy-server "a" gnus-server-add-server "e" gnus-server-edit-server "S" gnus-server-show-server "s" gnus-server-scan-server "O" gnus-server-open-server "\357" gnus-server-open-all-servers "C" gnus-server-close-server "\343" gnus-server-close-all-servers "D" gnus-server-deny-server "L" gnus-server-offline-server "R" gnus-server-remove-denials "n" next-line "p" previous-line "g" gnus-server-regenerate-server "G" gnus-group-make-nnir-group "z" gnus-server-compact-server " " gnus-info-find-node "" gnus-bug) custom-declare-face gnus-server-agent ((((class color) (background light)) (:foreground "PaleTurquoise" :bold t)) (((class color) (background dark)) (:foreground "PaleTurquoise" :bold t)) (t (:bold t))) "Face used for displaying AGENTIZED servers" :group gnus-server-visual gnus-server-agent-face face-alias obsolete-face "22.1" gnus-server-opened ((((class color) (background light)) (:foreground "Green3" :bold t)) (((class color) (background dark)) (:foreground "Green1" :bold t)) (t (:bold t))) "Face used for displaying OPENED servers" gnus-server-opened-face gnus-server-closed ((((class color) (background light)) (:foreground "Steel Blue" :italic t)) (((class color) (background dark)) (:foreground "LightBlue" :italic t)) (t (:italic t))) "Face used for displaying CLOSED servers" gnus-server-closed-face gnus-server-denied ((((class color) (background light)) (:foreground "Red" :bold t)) (((class color) (background dark)) (:foreground "Pink" :bold t)) (t (:inverse-video t :bold t))) "Face used for displaying DENIED servers" gnus-server-denied-face gnus-server-offline ((((class color) (background light)) (:foreground "Orange" :bold t)) (((class color) (background dark)) (:foreground "Yellow" :bold t)) (t (:inverse-video t :bold t))) "Face used for displaying OFFLINE servers" gnus-server-offline-face] 6) (defvar gnus-server-font-lock-keywords '(("(\\(agent\\))" 1 'gnus-server-agent) ("(\\(opened\\))" 1 'gnus-server-opened) ("(\\(closed\\))" 1 'gnus-server-closed) ("(\\(offline\\))" 1 'gnus-server-offline) ("(\\(denied\\))" 1 'gnus-server-denied))) #@268 Major mode for listing and editing servers. All normal editing commands are switched off. \<gnus-server-mode-map> For more in-depth information on this mode, read the manual (`\[gnus-info-find-node]'). The following commands are available: \{gnus-server-mode-map} (defalias 'gnus-server-mode #[nil "\306\307\310\"\203\n \311 \210\312 \210\313 \210\314\315\316 \210\317\320 !\210\321 \210\322\211\323\324!\210\325\326\327!\207" [major-mode mode-name mode-line-process gnus-server-mode-map truncate-lines buffer-read-only gnus-visual-p server-menu menu gnus-server-make-menu-bar kill-all-local-variables gnus-simplify-mode-line gnus-server-mode "Server" gnus-set-default-directory nil use-local-map buffer-disable-undo t make-local-variable font-lock-defaults (gnus-server-font-lock-keywords t) gnus-run-mode-hooks gnus-server-mode-hook] 4 (#$ . 6592) nil]) (defalias 'gnus-server-insert-server-line #[(gnus-tmp-name method) "@A@\306 \"\211 A@\307=\203 \310\202( \fA@\311=\203$ \312\202( \313\314\315\217 \2038 \316!\2038 \317\2029 \320 \321 \210\322``T\323 !\210\324\325 !\326\325\327\313 \330\331\215+!F#-\207" [method gnus-tmp-how gnus-tmp-where gnus-opened-servers elem gnus-tmp-status assoc denied "(denied)" offline "(offline)" nil (byte-code "\302!\204 A@\303=\203 \304\207\305\207" [method elem gnus-server-opened ok "(opened)" "(closed)"] 2) (((error) "(error)")) gnus-agent-method-p " (agent)" #1="" beginning-of-line gnus-add-text-properties eval gnus-server intern gnus-named-server t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1#) format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-agent gnus-tmp-agent gnus-server-line-format-spec gnus-tmp-name no-enter-cache nocache] 11]) #@27 Set up the server buffer. (defalias 'gnus-enter-server-buffer #[nil "\301 \210\302\303!\210r\304!q\210\305 )\207" [gnus-server-buffer gnus-server-setup-buffer gnus-configure-windows server get-buffer gnus-server-prepare] 2 (#$ . 8913)]) #@31 Initialize the server buffer. (defalias 'gnus-server-setup-buffer #[nil "\301!?\205 r\302!q\210\303 )\207" [gnus-server-buffer get-buffer gnus-get-buffer-create gnus-server-mode] 2 (#$ . 9157)]) (defalias 'gnus-server-prepare #[nil "\306\307!\210\306\302\310\"\210\311\211\211\211 \312 \210\311 \203c \211 @A) \235\204N \211 @A) B \211A@\211\203N \n@\203N \nA\203N \313\n@\nA\"\210 \211 @A) \235\203 \211A@\210\202 \311 \211 \203\263 @\211@ \235\204\252 \314@!\204\252 @ B\313\315\316\211 @@)@A@#\211@\"\210 @DBA\211\204n .eb\210\317 \207" [gnus-server-alist op-ser server done buffer-read-only alist gnus-set-format server-mode t nil erase-buffer gnus-server-insert-server-line gnus-method-ephemeral-p format "%s:%s" gnus-server-position-point gnus-inserted-opened-servers x gnus-opened-servers open --dolist-tail--] 6]) (defalias 'gnus-server-server-name #[nil "\301\302 \303\"\211\205 \304!)\207" [server get-text-property point-at-bol gnus-server symbol-name] 4]) #@89 Return a server name that matches one of the names returned by `gnus-method-to-server'. (defalias 'gnus-server-named-server #[nil "\301\302 \303\"\211\205 \304!)\207" [server get-text-property point-at-bol gnus-named-server symbol-name] 4 (#$ . 10188)]) (defalias 'gnus-server-position-point 'gnus-goto-colon) (defconst gnus-server-edit-buffer "*Gnus edit server*") (defalias 'gnus-server-update-server #[(server) "rq\210\306\307\n \" \307\n\211\203 \n<\203 \n\206\371 \307\n \"A\206\371 \n\310\232\203. \206\342 \307\n \"A\206\342 \307\n \"A\206\342 \203f \n\311\312 @@@ @@A@#\232\204f \211A @\210\202C \211 @@*\206\342 ! \"\"\203\232 \n\311\312\"\211 @@)\"@A@#\232\204\232 \"\211A\"@\210\202u \"@)\206\342 #A\306\211 $ % &&\203\337 \313&\211A&@8\211%;\204\254 \n%\306\314 ' ( %\315\316\215+\232\203\254 %$\306\211&\204\261 $+\211 )\203\366 \307\n \"\204\366 \n)B B))) \" *\f\203\317\320\n\321\322\fA!\323\260\324\325\n!\326Q\"\210\f\204 *\205W\214~\210\327\n!\2030\330 \331y\210`|\210\f\203>\332\f@\fA\"\210\202T\332\311\312*\211 @@)*@A@#*@\"\210\333 ),\207" [gnus-server-buffer buffer-read-only server gnus-server-alist entry gnus-server-method-cache nil assoc "native" format "%s:%s" 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-dribble-enter "(gnus-server-set-info \"" "\" '" gnus-prin1-to-string ")\n" "^(gnus-server-set-info \"" regexp-quote "\"" gnus-server-goto-server point-at-bol 1 gnus-server-insert-server-line gnus-server-position-point gnus-select-method gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result oentry] 7]) (defalias 'gnus-server-set-info #[(server info) "\205Q \205Q \306\307\310\311 !\312\260\313\314!\315Q\"\210 A@\316\n\"\316\f\"\211 \2031 \317 \f\" \203H \320 A!\210 A @\240\210 A A\241\202P \n BC\244\211+\207" [server info gnus-server-alist entry gnus-server-method-cache cached gnus-dribble-enter "(gnus-server-set-info \"" "\" '" gnus-prin1-to-string ")" "^(gnus-server-set-info \"" regexp-quote "\"" assoc delq gnus-opened-servers-remove] 7]) #@38 Kill the server on the current line. (defalias 'gnus-server-kill-server #[(server) "\306!\204 \203 \307\310\"\210\202 \307\311!\210\312 \"\204\" \307\313\"\210\314 \210\315\316 \317y\210`|\210)\312 \" B\320 @ \"\321!\211 \203~ \322\323\324\fG\"!\203~ \f\315 \211 \203} @\320\312 \"\"\203t \325#\210A\211\204X *)\326 \207" [server gnus-server-alist buffer-read-only gnus-server-killed-servers groups group gnus-server-goto-server error "No such server: %s" "No server on the current line" assoc "Read-only server %s" gnus-dribble-touch nil point-at-bol 1 delq gnus-groups-from-server gnus-yes-or-no-p format "Kill all %s groups from this server? " 3 gnus-server-position-point --dolist-tail-- gnus-newsrc-alist gnus-group-change-level-function gnus-level-killed] 5 (#$ . 13011) (list (gnus-server-server-name))]) #@36 Yank the previously killed server. (defalias 'gnus-server-yank-server #[nil "\204 \306\307!\210 \310 @ \204 \nC\244\202T \211 @@)\230\203. \n B\202T \fA\203C \fA@@\230\204C \fA\211\202/ \f\203Q \f\n\fAB\241\210\202T \nC\311\n@!\210A\312 +\207" [gnus-server-killed-servers gnus-server-alist killed server alist x error "No killed servers to be yanked" gnus-server-server-name gnus-server-update-server gnus-server-position-point] 4 (#$ . 13863) nil]) #@29 Return to the group buffer. (defalias 'gnus-server-exit #[nil "\303\304!\210p\211\211\205 ;\203 \305\202 \306 !)\203' \307\305!\n\"\310!\210)\311\312\313\"\207" [buf buffer gnus-buffers gnus-run-hooks gnus-server-exit-hook get-buffer buffer-name delete kill-buffer gnus-configure-windows group t] 4 (#$ . 14336) nil]) #@29 List all available servers. (defalias 'gnus-server-list-servers #[nil "\301 \302 \210\203 \303!\210\202 db\210\304y\210\305 )\207" [cur gnus-server-server-name gnus-server-prepare gnus-server-goto-server -1 gnus-server-position-point] 2 (#$ . 14669) nil]) #@26 Make METHOD have STATUS. (defalias 'gnus-server-set-status #[(method status) "\304 \"\211\203 \nA \240\202 D B\211)\207" [method gnus-opened-servers entry status assoc] 4 (#$ . 14936)]) #@48 Remove METHOD from the list of opened servers. (defalias 'gnus-opened-servers-remove #[(method) "\302\303 \" \"\211\207" [method gnus-opened-servers delq assoc] 4 (#$ . 15135)]) #@26 Force an open of SERVER. (defalias 'gnus-server-open-server #[(server) "\211\203 <\203 \206\352 \306 \"A\206\352 \307\232\203! \n\206\323 \306 \"A\206\323 \306\f\"A\206\323 \203W \310\311@@@@@A@#\232\204W \211A@\210\2024 \211 @@*\206\323 \203\213 \310\311\211 @@)@A@#\232\204\213 \211A@\210\202f @)\206\323 A\312\211 \203\320 \313 \211A @8\211 ;\204\235 \312\314 \315\316\215+\232\203\235 \312\211 \204\242 +\211 \203\347 \306 \"\204\347 B B ))\211 \204\366 \317\320\"\210\321 \322\"\210\323 !\324!\210\325 \210)\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) error "No such server: %s" gnus-server-set-status ok gnus-open-server gnus-server-update-server gnus-server-position-point opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 15321) (list (gnus-server-server-name))]) #@19 Open all servers. (defalias 'gnus-server-open-all-servers #[nil "\303\211\205 \n@\304 @!\210\nA\211\204 \303*\207" [gnus-inserted-opened-servers server --dolist-tail-- nil gnus-server-open-server] 3 (#$ . 17064) nil]) #@15 Close SERVER. (defalias 'gnus-server-close-server #[(server) "\211\203 <\203 \206\352 \306 \"A\206\352 \307\232\203! \n\206\323 \306 \"A\206\323 \306\f\"A\206\323 \203W \310\311@@@@@A@#\232\204W \211A@\210\2024 \211 @@*\206\323 \203\213 \310\311\211 @@)@A@#\232\204\213 \211A@\210\202f @)\206\323 A\312\211 \203\320 \313 \211A @8\211 ;\204\235 \312\314 \315\316\215+\232\203\235 \312\211 \204\242 +\211 \203\347 \306 \"\204\347 B B ))\211 \204\366 \317\320\"\210\321 \322\"\210\323 !\324!\210\325 \210)\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) error "No such server: %s" gnus-server-set-status closed gnus-close-server gnus-server-update-server gnus-server-position-point opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 17295) (list (gnus-server-server-name))]) #@24 Set SERVER to offline. (defalias 'gnus-server-offline-server #[(server) "\211\203 <\203 \206\352 \306 \"A\206\352 \307\232\203! \n\206\323 \306 \"A\206\323 \306\f\"A\206\323 \203W \310\311@@@@@A@#\232\204W \211A@\210\2024 \211 @@*\206\323 \203\213 \310\311\211 @@)@A@#\232\204\213 \211A@\210\202f @)\206\323 A\312\211 \203\320 \313 \211A @8\211 ;\204\235 \312\314 \315\316\215+\232\203\235 \312\211 \204\242 +\211 \203\347 \306 \"\204\347 B B ))\211 \204\366 \317\320\"\210\321 !\322 \323\"\210\324!\210\325 \210)\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) error "No such server: %s" gnus-close-server gnus-server-set-status offline gnus-server-update-server gnus-server-position-point opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 19033) (list (gnus-server-server-name))]) #@20 Close all servers. (defalias 'gnus-server-close-all-servers #[nil "\304\211\203 \n@\305 @!\210\nA\211\204 * \304\211\2050 \n@\305 @!\210\nA\211\204 \304*\207" [gnus-inserted-opened-servers server --dolist-tail-- gnus-server-alist nil gnus-server-close-server] 3 (#$ . 20783) nil]) #@50 Make sure SERVER will never be attempted opened. (defalias 'gnus-server-deny-server #[(server) "\211\203 <\203 \206\352 \306 \"A\206\352 \307\232\203! \n\206\323 \306 \"A\206\323 \306\f\"A\206\323 \203W \310\311@@@@@A@#\232\204W \211A@\210\2024 \211 @@*\206\323 \203\213 \310\311\211 @@)@A@#\232\204\213 \211A@\210\202f @)\206\323 A\312\211 \203\320 \313 \211A @8\211;\204\235 \312\314 \315\316\215+\232\203\235 \312\211 \204\242 +\211 \203\347 \306 \"\204\347 B B ))\211 \204\366 \317\320\"\210\321\322\"\210)\323!\210\324 \210\314\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) error "No such server: %s" gnus-server-set-status denied gnus-server-update-server gnus-server-position-point opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 21082) (list (gnus-server-server-name))]) #@46 Make all denied servers into closed servers. (defalias 'gnus-server-remove-denials #[nil "\303\211\203 \n@\211A@\304=\203 A\305\240\210\nA\211\204 *\306 \207" [gnus-opened-servers server --dolist-tail-- nil denied closed gnus-server-list-servers] 3 (#$ . 22833) nil]) #@41 Copy a server definition to a new name. (defalias 'gnus-server-copy-server #[(from to) "\204 \306\307!\210 \203 \310\230\203 \306\311!\210\312 \n\"\203\" \306\313 \"\210\211\2031 <\2031 \206\312 \f\"A\206 \314\232\203C \206\367 \312 \n\"A\206\367 \312 \"A\206\367 \203{ \315\316@@@@@A@#\232\204{ \211A@\210\202X \211 @@*\206\367 \203\257 \315\316 \211 @@) @A@#\232\204\257 \211A @\210\202\212 @)\206\367 A\317\211 !!\203\364 \320!\211A!@8\211 ;\204\301 \317\321 \" # \322\323\215+\232\203\301 \317\211!\204\306 +\211 $\203 \312 \f\"\204 $B\fB$))\204\306\324\"\210\325\211\203( <\203( \206\312 \f\"A\206 \314\232\203: \206\356\312 \n\"A\206\356\312 \"A\206\356 \203r \315\316@@@@@A@#\232\204r\211A@\210\202O\211 @@*\206\356 \203\246 \315\316 \211 @@) @A@#\232\204\246 \211A @\210\202\201 @)\206\356 A\317\211 !!\203\353\320!\211A!@8\211 ;\204\270 \317\321 \" # \322\326\215+\232\203\270 \317\211!\204\275 +\211 $\203\312 \f\"\204 $B\fB$))!B\211 % \240\210%AA \240\210%&B&\327 )\207" [from to gnus-server-alist server gnus-server-method-cache gnus-select-method error "No server on current line" #1="" "No name to copy to" assoc "%s already exists" "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2=(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5=(nil #1#) format #6="%s" #7="%s:%s" assoc x name name-method no-enter-cache] 5) "%s: no such server" gnus-copy-sequence (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) gnus-server-yank-server gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result to-entry gnus-server-killed-servers] 8 (#$ . 23116) (list (or (gnus-server-server-name) (error "No server on the current line")) (read-string "Copy to: "))]) (defalias 'gnus-server-add-server #[(how where) " \236\203\n \304\305!\210\nE B\306 \207" [where gnus-server-alist how gnus-server-killed-servers error "Server with that name already defined" gnus-server-yank-server] 3 nil (list (intern (gnus-completing-read "Server method" (mapcar 'car gnus-valid-select-methods) t)) (read-string "Server name: "))]) #@24 Jump to a server line. (defalias 'gnus-server-goto-server #[(server) "\302ed\303\304!$\211\205 b\210\305 )\207" [server to text-property-any gnus-server intern gnus-server-position-point] 7 (#$ . 26549) (list (gnus-completing-read "Goto server" (mapcar 'car gnus-server-alist) t))]) #@38 Edit the server on the current line. (defalias 'gnus-server-edit-server #[(server) "\204 \303\304!\210\305 \"\204 \303\306!\210\305 \"A\307\n!\210\310\n\311\312\313\314\315BB\316BBB\317$)\207" [server gnus-server-alist info error "No server on current line" assoc "This server can't be edited" gnus-close-server gnus-edit-form "Editing the server." lambda (form) gnus-server-set-info (form) ((gnus-server-list-servers) (gnus-server-position-point)) edit-server] 8 (#$ . 26842) (list (gnus-server-server-name))]) #@56 Show the definition of the server on the current line. (defalias 'gnus-server-show-server #[(server) "\204 \306\307!\210\211\203 <\203 \206\362 \310 \"A\206\362 \311\232\203) \n\206\333 \310 \"A\206\333 \310\f\"A\206\333 \203_ \312\313@@@@@A@#\232\204_ \211A@\210\202< \211 @@*\206\333 \203\223 \312\313\211 @@)@A@#\232\204\223 \211A@\210\202n @)\206\333 A\314\211 \203\330 \315 \211A @8\211;\204\245 \314\316 \317\320\215+\232\203\245 \314\211 \204\252 +\211 \203\357 \310 \"\204\357 B B )) \321 \322\323\324$)\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers error "No server on current line" assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-edit-form "Showing the server." (lambda (form) (gnus-server-position-point)) edit-server opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result info] 6 (#$ . 27367) (list (gnus-server-server-name))]) #@41 Request a scan from the current server. (defalias 'gnus-server-scan-server #[(server) "\211\203 <\203 \206\352 \306 \"A\206\352 \307\232\203! \n\206\323 \306 \"A\206\323 \306\f\"A\206\323 \203W \310\311@@@@@A@#\232\204W \211A@\210\2024 \211 @@*\206\323 \203\213 \310\311\211 @@)@A@#\232\204\213 \211A@\210\202f @)\206\323 A\312\211 \203\320 \313 \211A @8\211 ;\204\235 \312\314 ! \315\316\215+\232\203\235 \312\211 \204\242 +\211 \"\203\347 \306 \"\204\347 \"B B\")) \317 \320\"\204\376 \321\322 @\"\202\323\324\325#\210\326\312 \"\210\323\324\327#)\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function request-scan error "Server %s can't scan" gnus-message 3 "Scanning %s..." gnus-request-scan "Scanning %s...done" opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 29119) (list (gnus-server-server-name))]) #@35 Browse a server in server buffer. (defalias 'gnus-server-read-server-in-server-buffer #[(server) "\302\303 !)\207" [gnus-server-browse-in-group-buffer server nil gnus-server-read-server] 2 (#$ . 30906) (list (gnus-server-server-name))]) #@18 Browse a server. (defalias 'gnus-server-read-server #[(server) "p\302 \"rq\210\303\304 !\210\305 \210*\207" [buf server gnus-browse-foreign-server gnus-server-update-server gnus-server-server-name gnus-server-position-point] 3 (#$ . 31150) (list (gnus-server-server-name))]) (defalias 'gnus-server-pick-server #[(e) "\301!\210\302\303 !\207" [e mouse-set-point gnus-server-read-server gnus-server-server-name] 2 nil "e"]) #@55 *Hook run after the creation of the browse mode menu. (defvar gnus-browse-menu-hook nil (#$ . -31582)) #@599 Function(s) called when subscribing groups in the Browse Server Buffer A few pre-made functions are supplied: `gnus-subscribe-randomly' inserts new groups at the beginning of the list of groups; `gnus-subscribe-alphabetically' inserts new groups in strict alphabetic order; `gnus-subscribe-hierarchically' inserts new groups in hierarchical newsgroup order; `gnus-subscribe-interactively' asks for your decision; `gnus-subscribe-killed' kills all new groups; `gnus-subscribe-zombies' will make all new groups into zombies; `gnus-subscribe-topics' will enter groups into the topics that claim them. (custom-declare-variable 'gnus-browse-subscribe-newsgroup-method ''gnus-subscribe-alphabetically '(#$ . 31692) :version "24.1" :group 'gnus-server :type '(radio (function-item gnus-subscribe-randomly) (function-item gnus-subscribe-alphabetically) (function-item gnus-subscribe-hierarchically) (function-item gnus-subscribe-interactively) (function-item gnus-subscribe-killed) (function-item gnus-subscribe-zombies) (function-item gnus-subscribe-topics) function (repeat function))) (defvar gnus-browse-mode-hook nil) (defvar gnus-browse-mode-map nil) (byte-code "\301\302\303\304#\210\204 \305 \306!\210\307\300\310\"\210\301\207" [gnus-browse-mode-map put gnus-browse-mode mode-class special make-keymap suppress-keymap gnus-define-keys-1 (" " gnus-browse-read-group "=" gnus-browse-select-group "n" gnus-browse-next-group "p" gnus-browse-prev-group "" gnus-browse-prev-group [delete] gnus-browse-prev-group "N" gnus-browse-next-group "P" gnus-browse-prev-group "\356" gnus-browse-next-group "\360" gnus-browse-prev-group " " gnus-browse-select-group "u" gnus-browse-unsubscribe-current-group "l" gnus-browse-exit "L" gnus-browse-exit "q" gnus-browse-exit "Q" gnus-browse-exit "d" gnus-browse-describe-group "" gnus-browse-exit "?" gnus-browse-describe-briefly " " gnus-info-find-node "" gnus-bug)] 4) (defalias 'gnus-browse-make-menu-bar #[nil "\301\302!\210\303\304!?\205 \305\306!\210\307\304\310\311$\210\312\313!\207" [gnus-browse-mode-map gnus-turn-off-edit-menu browse boundp gnus-browse-menu (lambda (#1=#:def-tmp-var) (defvar gnus-browse-menu #1# #2="")) nil easy-menu-do-define #2# ("Browse" ["Subscribe" gnus-browse-unsubscribe-current-group t] ["Read" gnus-browse-read-group t] ["Select" gnus-browse-select-group t] ["Describe" gnus-browse-describe-group t] ["Next" gnus-browse-next-group t] ["Prev" gnus-browse-prev-group t] ["Exit" gnus-browse-exit t]) gnus-run-hooks gnus-browse-menu-hook] 5]) (defvar gnus-browse-current-method nil) (defvar gnus-browse-return-buffer nil) (defvar gnus-browse-buffer "*Gnus Browse Server*") #@27 Browse the server SERVER. (defalias 'gnus-browse-foreign-server #[(server &optional return-buffer) "\211\203 <\203 \206\352 \306 \"A\206\352 \307\232\203! \n\206\323 \306 \"A\206\323 \306\f\"A\206\323 @@\203W \310\311@@@@@@@A@#\232\204W @\211A@@\210\2024 @\211 A@@*\206\323 B CC\203\213 \310\311C\211 A@@)C@A@#\232\204\213 C\211AC@\210\202f C@)\206\323 DA\312\211 E F GG\203\320 \313G\211AG@8\211F;\204\235 F\312\314 H I F\315\316\215+\232\203\235 FE\312\211G\204\242 E+\211 J\203\347 \306 \"\204\347 JB BJ))KLMK F\n NF\312\211 O '\317\320\321FA@#\210\322F!\204\"\317\323\324FA@\325F!$\210\312\202\373\317\326\327\"\210\330F!\317\326\331\"\210\204@\317\323\332\325F!#\210\312\202\373rPq\210p Qeb\210R\203\\R\333\230\204\\\334R!\210F@\335=\203sm\204\202\312\336\337\217\210\312y\210\202dm\204\202\312\340\341\217\210\312y\210\202s*\342O\343\"OS\203\252N\344\345O\" T\346\347!\210UV\350\323\350$\210*\202\347\351W!\210\346\352!\210\353 \210\312 X\354 \210)\355 \210\310\356F@F\211 AA@)#CY\312\211N\357\333F\") Z [ XO\211AO@\211'\203\340\360``T\310\361Z\333\230\203\362'@\211[!\202\362Z'@\211[P!\211 \\]X\203 \363\2028\\^X\203+\364\2028\\_U\2037\365\2028\366)\367'\211 AAA)T'\211 AA@)Z]\370\371!\203b\371[\314\"\372=\203b[\202\322\373[F[ '\211 F\204w\374'!FF;\203kF\211\203\215<\203\215\206h\306 \"A\206h\307\232\203\237\n\206Q\306 \"A\206Q\306\f\"A\206Q @@\203\325\310\311@@@@@@@A@#\232\204\325@\211A@@\210\202\262@\211 A@@*\206QB CC\203 \310\311C\211 A@@)C@A@#\232\204 C\211AC@\210\202\344C@)\206QDA\312\211 E F GG\203N\313G\211AG@8\211F;\204F\312\314 H I F\315\375\215+\232\203FE\312\211G\204 E+\211 J\203e\306 \"\204eJB BJ))FF@\376=\203w\377\202\320\306F`\"\206\226F:\205\226\306F@F\211 AA@)D`\"a\312 J G\211 b\203\251bA\202\317G\211AG@\211b\203\315\201c b@'\"\203\251\312GbAJ\202\251J+*\"$c\210\201d [D#\210\202\342+\201e p!\210eb\210\201f \210\317\320\201g FA@#\210\314-\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-message 5 "Connecting to %s..." gnus-check-server 1 "Unable to contact server %s: %s" gnus-status-message 6 "Reading active file..." gnus-request-list "Reading active file...done" "Couldn't request list: %s" #1# delete-matching-lines nntp (byte-code "\303`\304\305w\210`{!\306!\306! )BB\nB\305\207" [cur last groups mm-string-as-unibyte "^ " nil read] 4) ((error)) (byte-code "\305\306f\307=\203 \310!\2026 `\311\312\306w\210\n`{\306f\313=\2034 `T\314u\210\312\306w\210 \n`{P\202 *!\310!\310! )BB\fB\306\207" [cur name p last groups mm-string-as-unibyte nil 34 read #1# "^ \\\\" 92 2] 4) ((error)) sort #[(l1 l2) "@ @\231\207" [l1 l2] 2] mapcar #[(group) "\304@ \"\305\n \"AL\210\n)\207" [group method name gnus-active-hashtb gnus-group-prefixed-name intern] 3] gnus-configure-windows group ignore gnus-get-buffer-create browse buffer-disable-undo erase-buffer gnus-browse-mode "Gnus: %%b {%s:%s}" gnus-group-prefixed-name gnus-add-text-properties "%c%7d: %s\n" gnus-group-level 32 85 90 75 0 fboundp detect-coding-string undecided mm-decode-coding-string gnus-find-method-for-group (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1#) format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) nnimap utf-8 opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result gnus-browse-current-method return-buffer gnus-browse-return-buffer orig-select-method groups nntp-server-buffer cur gnus-ignored-newsgroups gnus-server-browse-in-group-buffer gnus-group-listed-groups gnus-group-prepare-function gnus-level-killed gnus-browse-buffer buffer-read-only mode-line-buffer-identification prefix name level gnus-level-subscribed gnus-level-unsubscribed gnus-level-zombie gnus-group-name-charset-method-alist gnus-group-name-charset-group-alist item string-match gnus-group switch-to-buffer gnus-group-position-point "Connecting to %s...done"] 15 (#$ . 34348)]) #@427 Major mode for browsing a foreign server. All normal editing commands are switched off. \<gnus-browse-mode-map> The only things you can do in this buffer is 1) `\[gnus-browse-unsubscribe-current-group]' to subscribe to a group. The group will be inserted into the group buffer upon exit from this buffer. 2) `\[gnus-browse-read-group]' to read a group ephemerally. 3) `\[gnus-browse-exit]' to return to the group buffer. (defalias 'gnus-browse-mode #[nil "\306 \210\307\310\311\"\203 \312 \210\313 \210\314\315\316\317 !\210\320 \210\321\322 \210\321\323\324!\207" [major-mode mode-name mode-line-process gnus-browse-mode-map truncate-lines buffer-read-only kill-all-local-variables gnus-visual-p browse-menu menu gnus-browse-make-menu-bar gnus-simplify-mode-line gnus-browse-mode "Browse Server" nil use-local-map buffer-disable-undo t gnus-set-default-directory gnus-run-mode-hooks gnus-browse-mode-hook] 3 (#$ . 39811) nil]) #@80 Enter the group at the current line. If NUMBER, fetch this number of articles. (defalias 'gnus-browse-read-group #[(&optional no-article number) "\305 \306\307 \"J8\203 \310!\203+ \311\n\312p\313B\312\211\211 &?\2058 \314\315\"\2028 \316\312\f#?\2058 \314\315\")\207" [group gnus-newsrc-hashtb gnus-browse-current-method number no-article gnus-browse-group-name 2 intern-soft gnus-ephemeral-group-p gnus-group-read-ephemeral-group nil browse error "Couldn't enter %s" gnus-group-read-group] 9 (#$ . 40756) "P"]) #@69 Select the current group. If NUMBER, fetch this number of articles. (defalias 'gnus-browse-select-group #[(&optional number) "\301\302\"\207" [number gnus-browse-read-group no] 3 (#$ . 41283) "P"]) #@23 Go to the next group. (defalias 'gnus-browse-next-group #[(n) "y\301 \210\207" [n gnus-group-position-point] 2 (#$ . 41488) "p"]) #@23 Go to the next group. (defalias 'gnus-browse-prev-group #[(n) "\301[!\207" [n gnus-browse-next-group] 2 (#$ . 41625) "p"]) #@158 (Un)subscribe to the next ARG groups. The variable `gnus-browse-subscribe-newsgroup-method' determines how new groups will be entered into the group buffer. (defalias 'gnus-browse-unsubscribe-current-group #[(arg) "m\203 \302\303!\210\304W\203 \305\202 \306\307!\304V\2036 m\2046 \310 \2036 \311\312 !!\2036 S\211\202 \313 \210\304U\204D \314\315\316\"\210*\207" [arg ward error "No group at current line" 0 -1 1 abs gnus-browse-unsubscribe-group zerop gnus-browse-next-group gnus-group-position-point gnus-message 7 "No more newsgroups"] 4 (#$ . 41756) "p"]) (defalias 'gnus-browse-group-name #[nil "\212\304 \210\305`\306\"\307\310\311 \312#\205L \313\314\n@\"\315\313\314\n@\"\316\317!\"\204- \320\n \"\205A \nA@\205A \nA@\321\230?\205A \322\nA@PP)\323\206K \324\325!Q*\207" [name gnus-browse-current-method method gnus-message-archive-method beginning-of-line get-text-property gnus-group re-search-forward ": \\(.*\\)$" point-at-eol t format "%s" assoc gnus-methods-using address gnus-server-equal "" "+" ":" match-string-no-properties 1] 5]) #@29 Describe the current group. (defalias 'gnus-browse-describe-group #[(group) "\301\302\"\207" [group gnus-group-describe-group nil] 3 (#$ . 42827) (list (gnus-browse-group-name))]) #@64 Toggle subscription of the current group in the browse buffer. (defalias 'gnus-browse-unsubscribe-group #[nil "\306\211\211\212\307 \210\306f\310=\204 \311\312 \313 \314\"\2031 \315\316\f\"\203. \f\317\225\306O\202/ \f)\n\203\223 \320!\203? \321!\210\322 \"J\211 \203T \323 \"\210\202_ \324 \"\210\325\326\"\210)\327\330!\210\331!\211 !W\203t \310\202\215 \"W\203\200 \332\202\215 #W\203\214 \333\202\215 \334)c\210\202\242 \323! #\210\327\330!\210\332c\210,\311\207" [group buffer-read-only sub gnus-browse-current-method gname gnus-newsrc-hashtb nil beginning-of-line 32 t gnus-browse-group-name gnus-server-equal "native" string-match "^[^:]+:" 0 gnus-ephemeral-group-p gnus-kill-ephemeral-group intern-soft gnus-group-change-level gnus-call-subscribe-functions gnus-request-update-group-status subscribe delete-char 1 gnus-group-level 85 90 75 entry gnus-level-default-subscribed gnus-browse-subscribe-newsgroup-method lvl gnus-level-unsubscribed gnus-level-zombie gnus-level-killed] 5 (#$ . 43014)]) #@47 Quit browsing and return to the group buffer. (defalias 'gnus-browse-exit #[nil "\306=\203* p\211\211\205 \n;\203 \307\202 \310\n!)\203) \311\307 ! \"\312 !\210)r\fq\210\313\314!\210) \203< \315\316\317\"\207\315\320\317\"\207" [major-mode buf buffer gnus-buffers gnus-group-buffer gnus-browse-return-buffer gnus-browse-mode get-buffer buffer-name delete kill-buffer gnus-group-list-groups nil gnus-configure-windows server force group] 4 (#$ . 44056) nil]) #@57 Give a one line description of the group mode commands. (defalias 'gnus-browse-describe-briefly #[nil "\300\301\302\303\304!#\207" [gnus-message 6 "%s" substitute-command-keys "\\<gnus-browse-mode-map>\\[gnus-group-next-group]:Forward \\[gnus-group-prev-group]:Backward \\[gnus-browse-exit]:Exit \\[gnus-info-find-node]:Run Info \\[gnus-browse-describe-briefly]:This help"] 5 (#$ . 44527) nil]) #@70 Issue a command to the server to regenerate all its data structures. (defalias 'gnus-server-regenerate-server #[nil "\301 \211\204 \302\303!\210\304\305\306\217\210\307\310\311#\210\312!\204 \302\313!\210\314!\203. \307\310\315#\2023 \307\310\316#)\207" [server gnus-server-server-name error "No server on the current line" nil (byte-code "\306\211\203 <\203 \206\353 \307 \"A\206\353 \310\232\203\" \n\206\324 \307 \"A\206\324 \307\f\"A\206\324 \203X \311\312@@@@@A@#\232\204X \211A@\210\2025 \211 @@*\206\324 \203\214 \311\312\211 @@)@A@#\232\204\214 \211A@\210\202g @)\206\324 A\313\211 \203\321 \314\211A@8\211;\204\236 \313\315 \316\317\215+\232\203\236 \313\211\204\243 +\211 \203\350 \307 \"\204\350 B B))\320\"\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-get-function assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) request-regenerate opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 7) ((error (error "This back end doesn't support regeneration"))) gnus-message 5 "Requesting regeneration of %s..." gnus-open-server "Couldn't open server" gnus-request-regenerate "Requesting regeneration of %s...done" "Couldn't regenerate %s"] 5 (#$ . 44932) nil]) #@101 Issue a command to the server to compact all its groups. Note: currently only implemented in nnml. (defalias 'gnus-server-compact-server #[nil "\306 \211\204 \307\310!\210\311\312\313\217\210\314\315\316#\210\317!\204 \307\320!\210\321!\204. \314\315\322#\202` \314\315\323#\210\324 !\211\205_ \n\211\211 \205P \f;\203M \324\202N \325\f!)\205^ \326\324 ! \"\327 !)))\207" [server gnus-original-article-buffer original buf buffer gnus-buffers gnus-server-server-name error "No server on the current line" nil (byte-code "\306\211\203 <\203 \206\353 \307 \"A\206\353 \310\232\203\" \n\206\324 \307 \"A\206\324 \307\f\"A\206\324 \203X \311\312@@@@@A@#\232\204X \211A@\210\2025 \211 @@*\206\324 \203\214 \311\312\211 @@)@A@#\232\204\214 \211A@\210\202g @)\206\324 A\313\211 \203\321 \314\211A@8\211;\204\236 \313\315 \316\317\215+\232\203\236 \313\211\204\243 +\211 \203\350 \307 \"\204\350 B B))\320\"\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-get-function assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206 \n\204 \306\307 \"\210\306\310\f D\"\210\211 A@)\311\235\203* \312\313@\"\2026 \312\314@\211 A@)#\211 B\211 \235\204V \204V \315@ \"\204V B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A \232\205\f \302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A \"\205 \n\235\204 \nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) request-compact opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 7) ((error (error "This back end doesn't support compaction"))) gnus-message 5 "Requesting compaction of %s... (this may take a long time)" gnus-open-server "Couldn't open server" gnus-request-compact "Couldn't compact %s" "Requesting compaction of %s...done" get-buffer buffer-name delete kill-buffer] 5 (#$ . 47020) nil]) (provide 'gnus-srvr)