Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : gnus-srvr.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:42 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/gnus-srvr.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-srvr.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require gnus gnus-spec gnus-group gnus-int gnus-range] 2)
#@41 Hook run in `gnus-server-mode' buffers.
(custom-declare-variable 'gnus-server-mode-hook 'nil '(#$ . 752) :group 'gnus-server :type 'hook)
#@42 Hook run when exiting the server buffer.
(custom-declare-variable 'gnus-server-exit-hook 'nil '(#$ . 896) :group 'gnus-server :type 'hook)
#@300 Format of server lines.
It works along the same lines as a normal formatting string,
with some simple extensions.

The following specs are understood:

%h back end
%n name
%w address
%s status
%a agent covered

General format specifiers can also be used.
See Info node `(gnus)Formatting Variables'.
(custom-declare-variable 'gnus-server-line-format '"     {%(%h:%w%)} %s%a\n" '(#$ . 1042) :link '(custom-manual "(gnus)Formatting Variables") :group 'gnus-server-visual :type 'string)
#@52 The format specification for the server mode line.
(custom-declare-variable 'gnus-server-mode-line-format '"Gnus: %%b" '(#$ . 1531) :group 'gnus-server-visual :type 'string)
#@126 Whether server browsing should take place in the group buffer.
If nil, a faster, but more primitive, buffer is used instead.
(custom-declare-variable 'gnus-server-browse-in-group-buffer 'nil '(#$ . 1712) :version "22.1" :group 'gnus-server-visual :type 'boolean)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\307B\302\307!\204-�\303\307\310\"\210\311B\302\311!\204<�\303\311\304\"\210\312B\302\312!\204K�\303\312\304\"\210\313B\302\313!\204Z�\303\313\304\"\210\304\207" [current-load-list gnus-inserted-opened-servers default-boundp set-default nil 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)) gnus-server-mode-line-format-alist ((83 gnus-tmp-news-server 115) (77 gnus-tmp-news-method 115) (117 gnus-tmp-user-defined 115)) gnus-server-line-format-spec gnus-server-mode-line-format-spec gnus-server-killed-servers] 3)
#@55 *Hook run after the creation of the server mode menu.
(defvar gnus-server-menu-hook nil (#$ . -2699))
(defalias 'gnus-server-make-menu-bar #[nil "\301\302!\210\303\304!?\205>�\305\304\306\307#\210\310\304!\204�\311\304\312\"\210\313\304\307\314$\210\305\315\306\307#\210\310\315!\2044�\311\315\312\"\210\313\315\307\316$\210\317\320!\207" [gnus-server-mode-map gnus-turn-off-edit-menu server boundp gnus-server-server-menu put variable-documentation "" default-boundp set-default nil easy-menu-do-define ("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] ["Edit" gnus-server-edit-server t] ["Regenerate" gnus-server-regenerate-server t] ["Compact" gnus-server-compact-server t] ["Exit" gnus-server-exit t]) 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])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305\306\307\310#\210	\204%�\311 \312	!\210\313\301\314\"\210\315\316\317\320\321\322%\210\305\323\324\316#\210\315\325\326\327\321\322%\210\305\330\324\325#\210\315\331\332\333\321\322%\210\305\334\324\331#\210\315\335\336\337\321\322%\210\305\340\324\335#\210\315\341\342\343\321\322%\210\305\344\324\341#\210\345B\302\345!\204z�\303\345\346\"\210\304\207" [current-load-list gnus-server-mode-map default-boundp set-default nil 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-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 "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 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 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))] 6)
#@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 (#$ . 6801) nil])
(defalias 'gnus-server-insert-server-line #[(gnus-tmp-name method) "@A@\306\"\211A@\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\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@)#\211B\211\235\204H�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" x name name-method] 5) gnus-agent gnus-tmp-agent gnus-server-line-format-spec gnus-tmp-name nocache] 10])
#@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 (#$ . 9056)])
#@31 Initialize the server buffer.
(defalias 'gnus-server-setup-buffer #[nil "\302!?\205�r\303!q\210\304 \210	\205�\305\306!)\207" [gnus-server-buffer gnus-carpal get-buffer gnus-get-buffer-create gnus-server-mode gnus-carpal-setup-buffer server] 2 (#$ . 9300)])
(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\264�@\211@\235\204\253�@\235\204\253�@B\313\314\315\211@@)@A@#\211@\"\210	@DBA\211\204n�.eb\210\316 \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 format "%s:%s" gnus-server-position-point gnus-inserted-opened-servers x gnus-opened-servers open #1=#:--cl-dolist-temp-- gnus-ephemeral-servers] 7])
(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 (#$ . 10403)])
(byte-code "\301\302\303\"\210\304B\305\306!\207" [current-load-list defalias gnus-server-position-point gnus-goto-colon gnus-server-edit-buffer (lambda (#1=#:defconst-tmp-var) (defconst gnus-server-edit-buffer #1#)) "*Gnus edit server*"] 3)
(defalias 'gnus-server-update-server #[(server) "rq\210\306\307\n\"\307\n\211\203�\n<\203�\n\206\373�\307\n
\"A\206\373�\n\310\232\203.�\206\353�\307\n\"A\206\353�\307\n\"A\206\353�\203n�\n\311\312\211@@)@\211@@)A@#\232\204n�\211A@\210\202C�\211@@*\206\353�\203\246�\n\311\312\211@@)\211@A)@#\232\204\246�\211A@\210\202}�@)\206\353�A\306\211 !\"\"\203\350�\313\"\211A\"@8\211!;\204\270�\n!\306#!\314\315\215*\232\203\270�! \306\211\"\204\275� +\211$\203\370�\n$B
B$))\"%\f\203\316\317\n\320\321\fA!\322\260!\210\f\204%\205S\214~\210\323\n!\203,\324 \325y\210`|\210\f\203:\326\f@\fA\"\210\202P\326\311\312%\211@@)%@A@#%@\"\210\327 ),\207" [gnus-server-buffer buffer-read-only server gnus-server-alist entry gnus-server-method-cache nil assoc "native" format "%s:%s" 4 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@)#\211B\211\235\204H�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" x name name-method] 5) gnus-dribble-enter "(gnus-server-set-info \"" "\" '" gnus-prin1-to-string ")\n" 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 nocache result oentry] 7])
(defalias 'gnus-server-set-info #[(server info) "\205K�	\205K�\306\307\310\311	!\312\260!\210	A@\313\n\"\313\f\"\211\203+�\314
\f\"\203B�\315A!\210A	@\240\210A	A\241\202J�\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 ")" 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 #1=#:--cl-dolist-temp-- gnus-newsrc-alist gnus-group-change-level-function gnus-level-killed] 6 (#$ . 13166) (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\202W�	\211@@)\230\203.�\n	B\202W�\fA\203F�\f\211A@)@\230\204F�\fA\211\202/�\f\203T�\f\n\fAB\241\210\202W�\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 (#$ . 14026) 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 (#$ . 14505) 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 (#$ . 14838) 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 (#$ . 15105)])
#@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 (#$ . 15304)])
#@26 Force an open of SERVER.
(defalias 'gnus-server-open-server #[(server) "\211\203�<\203�\206\354�\306	\"A\206\354�\307\232\203!�\n\206\334�\306\"A\206\334�\306\f\"A\206\334�
\203_�\310\311\211@@)@\211@@)A@#\232\204_�\211A@\210\2024�\211@@*\206\334�\203\227�\310\311\211@@)\211@A)@#\232\204\227�\211A@\210\202n�@)\206\334�A\312\211\203\331�\313\211A@8\211;\204\251�\312\314\315\215*\232\203\251�\312\211\204\256�+\211 \203\351� B	B ))\211\204\370�\316\317\"\210\320\321\"\210\322!\206\323\324\"\210\312\325!\210\326 \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 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@)#\211B\211\235\204H�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" x name name-method] 5) error "No such server: %s" gnus-server-set-status ok gnus-open-server message "Couldn't open %s" gnus-server-update-server gnus-server-position-point opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result] 6 (#$ . 15490) (list (gnus-server-server-name))])
#@19 Open all servers.
(defalias 'gnus-server-open-all-servers #[nil "\303\211\203�\n@\304	@!\210\nA\211\204�*\303\207" [gnus-inserted-opened-servers server #1=#:--cl-dolist-temp-- nil gnus-server-open-server] 3 (#$ . 17221) nil])
#@15 Close SERVER.
(defalias 'gnus-server-close-server #[(server) "\211\203�<\203�\206\354�\306	\"A\206\354�\307\232\203!�\n\206\334�\306\"A\206\334�\306\f\"A\206\334�
\203_�\310\311\211@@)@\211@@)A@#\232\204_�\211A@\210\2024�\211@@*\206\334�\203\227�\310\311\211@@)\211@A)@#\232\204\227�\211A@\210\202n�@)\206\334�A\312\211\203\331�\313\211A@8\211;\204\251�\312\314\315\215*\232\203\251�\312\211\204\256�+\211\203\351�B	B))\211\204\370�\316\317\"\210\320\321\"\210\322!\323!\210\324 \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 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@)#\211B\211\235\204H�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" x name name-method] 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 nocache result] 6 (#$ . 17460) (list (gnus-server-server-name))])
#@24 Set SERVER to offline.
(defalias 'gnus-server-offline-server #[(server) "\211\203�<\203�\206\354�\306	\"A\206\354�\307\232\203!�\n\206\334�\306\"A\206\334�\306\f\"A\206\334�
\203_�\310\311\211@@)@\211@@)A@#\232\204_�\211A@\210\2024�\211@@*\206\334�\203\227�\310\311\211@@)\211@A)@#\232\204\227�\211A@\210\202n�@)\206\334�A\312\211\203\331�\313\211A@8\211;\204\251�\312\314\315\215*\232\203\251�\312\211\204\256�+\211\203\351�B	B))\211\204\370�\316\317\"\210\320!\321\322\"\210\323!\210\324 \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 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@)#\211B\211\235\204H�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" x name name-method] 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 nocache result] 6 (#$ . 19134) (list (gnus-server-server-name))])
#@20 Close all servers.
(defalias 'gnus-server-close-all-servers #[nil "\305\211\203�\n@\306	@!\210\nA\211\204�*\305\211\203/�\f@\306	@!\210\fA\211\204 �*\305\207" [gnus-inserted-opened-servers server #1=#:--cl-dolist-temp-- gnus-server-alist #2=#:--cl-dolist-temp-- nil gnus-server-close-server] 3 (#$ . 20820) nil])
#@50 Make sure SERVER will never be attempted opened.
(defalias 'gnus-server-deny-server #[(server) "\211\203�<\203�\206\354�\306	\"A\206\354�\307\232\203!�\n\206\334�\306\"A\206\334�\306\f\"A\206\334�
\203_�\310\311\211@@)@\211@@)A@#\232\204_�\211A@\210\2024�\211@@*\206\334�\203\227�\310\311\211@@)\211@A)@#\232\204\227�\211A@\210\202n�@)\206\334�A\312\211\203\331�\313\211A@8\211;\204\251�\312\314\315\215*\232\203\251�\312\211\204\256�+\211\203\351�B	B))\211\204\370�\316\317\"\210\320\321\"\210)\322!\210\323 \210\324\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 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@)#\211B\211\235\204H�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" x name name-method] 5) error "No such server: %s" gnus-server-set-status denied gnus-server-update-server gnus-server-position-point t opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist nocache result] 6 (#$ . 21151) (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 #1=#:--cl-dolist-temp-- nil denied closed gnus-server-list-servers] 3 (#$ . 22840) nil])
(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�\312\n\"A\206�\312\"A\206�\203\203�\315\316\211@@)@\211@@)A@#\232\204\203�\211A@\210\202X�\211@@*\206�\203\273�\315\316\211@@)\211@A)@#\232\204\273�\211A@\210\202\222�@)\206�A\317\211  \203\375�\320 \211A @8\211;\204\315�\317!\321\322\215*\232\203\315�\317\211 \204\322�+\211\"\203
\"B\fB\"))\204\306\323\"\210\324\211\203*<\203*\206	\312\f\"A\206	\314\232\203<
\206\371\312\n\"A\206\371\312\"A\206\371\203|\315\316\211@@)@\211@@)A@#\232\204|\211A@\210\202Q\211@@*\206\371\203\264\315\316\211@@)\211@A)@#\232\204\264\211A@\210\202\213@)\206\371A\317\211  \203\366\320 \211A @8\211;\204\306\317!\321\325\215*\232\203\306\317\211 \204\313+\211\"\203\"B\fB\"))!B\211#	\240\210#AA	\240\210#$B$\326 )\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 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@)#\211B\211\235\204H�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" x name name-method] 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@)#\211B\211\235\204H�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# x name name-method] 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 nocache result to-entry gnus-server-killed-servers] 8 nil (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\nEB\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 (completing-read "Server method: " gnus-valid-select-methods nil 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 (#$ . 26384) (list (completing-read "Goto server: " gnus-server-alist nil 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 (#$ . 26664) (list (gnus-server-server-name))])
#@41 Request a scan from the current server.
(defalias 'gnus-server-scan-server #[(server) "\211\203�<\203�\206\354�\306	\"A\206\354�\307\232\203!�\n\206\334�\306\"A\206\334�\306\f\"A\206\334�
\203_�\310\311\211@@)@\211@@)A@#\232\204_�\211A@\210\2024�\211@@*\206\334�\203\227�\310\311\211@@)\211@A)@#\232\204\227�\211A@\210\202n�@)\206\334�A\312\211\203\331�\313\211A@8\211;\204\251�\312\314\315\215*\232\203\251�\312\211\204\256�+\211 \203\351� B	B ))\316\317\"\204�\320\321@\"\202\322\323\324#\210\325\312\"\210\322\323\326#)\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 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@)#\211B\211\235\204H�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" x name name-method] 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 nocache result] 6 (#$ . 27189) (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 (#$ . 28906) (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 (#$ . 29150) (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 (#$ . -29582))
(byte-code "\302B\303\302!\204�\304\302\305\"\210\301B\303\301!\204�\304\301\305\"\210\306\307\310\311#\210	\2044�\312 \313	!\210\314\301\315\"\210\305\207" [current-load-list gnus-browse-mode-map gnus-browse-mode-hook default-boundp set-default nil 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\304\306\307#\210\310\304!\204�\311\304\312\"\210\313\304\307\314$\210\315\316!\207" [gnus-browse-mode-map gnus-turn-off-edit-menu browse boundp gnus-browse-menu put variable-documentation "" default-boundp set-default nil easy-menu-do-define ("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])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306B\302\306!\204-�\303\306\307\"\210\304\207" [current-load-list gnus-browse-current-method default-boundp set-default nil gnus-browse-return-buffer gnus-browse-buffer "*Gnus Browse Server*"] 3)
#@27 Browse the server SERVER.
(defalias 'gnus-browse-foreign-server #[(server &optional return-buffer) "\211\203�<\203�\206\354�\306	\"A\206\354�\307\232\203!�\n\206\334�\306\"A\206\334�\306\f\"A\206\334�
@@\203_�\310\311@\211A@@)@@\211A@@)A@#\232\204_�@\211A@@\210\2024�@\211A@@*\206\334�BCC\203\227�\310\311C\211A@@)C\211A@A)@#\232\204\227�C\211AC@\210\202n�C@)\206\334�DA\312\211EFGG\203\331�\313G\211AG@8\211F;\204\251�F\312HF\314\315\215*\232\203\251�FE\312\211G\204\256�E+\211I\203\351�IB	BI))JKLJF\nMF\312\211N&\316\317\320FA@#\210\321F!\204$\316\322\323FA@\324F!$\210\312\202\374\316\325\326\"\210\327F!\316\325\330\"\210\204B\316\322\331\324F!#\210\312\202\374rOq\210pPeb\210Q\332\230\204Y\333Q!\210F@\334=\203pm\204\312\335\336\217\210\312y\210\202am\204\312\337\340\217\210\312y\210\202p*\341N\342\"NR\203\247M\343\344N\"S\345\346!\210TU\347\322\347$\210*\202\350\350V!\210W\203\265\351\352!\210\345\352!\210\353 \210\312X\354 \210)\355 \210\310\356F@F\211AA@)#CY\312\211M\357\332F\")Z[XN\211AN@\211&\203\341\360``T\310\361Z\332\230\203
\362&@\211[!\202\362Z&@\211[P!\211\\]X\203%\363\202>\\^X\2031\364\202>\\_U\203=\365\202>\366)\367&\211AAA)T&\211AA@)Z]\370\371!\203h\371[\372\"\373=\203h[\202\325\374[F[&\211F\204}\375&!F\306F`\"\206\234F:\205\234\306F@F\211AA@)D`\"a\312IG\211b\203\257bA\202\323G\211AG@\211b\203\321\376b@&\"\203\257\312GbAI\202\257I-\"$c\210\377[D#\210\202\350+\201c�p!\210eb\210\201d� \210\316\317\201e�FA@#\210\372-\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 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@)#\211B\211\235\204H�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" x name name-method] 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 gnus-carpal-setup-buffer 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 t undecided mm-decode-coding-string gnus-find-method-for-group string-match gnus-group opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist 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 gnus-carpal 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 switch-to-buffer gnus-group-position-point "Connecting to %s...done"] 14 (#$ . 31534)])
#@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 (#$ . 35816) 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 (#$ . 36761) "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 (#$ . 37288) "P"])
#@23 Go to the next group.
(defalias 'gnus-browse-next-group #[(n) "y\301 \210\207" [n gnus-group-position-point] 2 (#$ . 37493) "p"])
#@23 Go to the next group.
(defalias 'gnus-browse-prev-group #[(n) "\301[!\207" [n gnus-browse-next-group] 2 (#$ . 37630) "p"])
#@39 (Un)subscribe to the next ARG groups.
(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 (#$ . 37760) "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 (#$ . 38712) (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\203�\320!\203?�\321!\210\322\323
\"J\206[�\311\306\211\313\314\"?\205Y�\324!\257\325!A@@\205q�\323A@@
\"J\323
\"J?%\210\326\327!\210\310c\210\202\222�\322#\210\326\327!\210\330c\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 gnus-group-change-level intern-soft gnus-method-simplify gnus-group-level delete-char 1 85 gnus-level-default-subscribed gnus-newsrc-alist gnus-level-unsubscribed] 9 (#$ . 38899)])
#@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 (#$ . 39766) nil])
#@57 Give a one line description of the group mode commands.
(defalias 'gnus-browse-describe-briefly #[nil "\300\301\302\303!\"\207" [gnus-message 6 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"] 4 (#$ . 40237) 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\355�\307	\"A\206\355�\310\232\203\"�\n\206\335�\307\"A\206\335�\307\f\"A\206\335�
\203`�\311\312\211@@)@\211@@)A@#\232\204`�\211A@\210\2025�\211@@*\206\335�\203\230�\311\312\211@@)\211@A)@#\232\204\230�\211A@\210\202o�@)\206\335�A\313\211\203\332�\314\211A@8\211;\204\252�\313\315\316\215*\232\203\252�\313\211\204\257�+\211\203\352�B	B))\317\"\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 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@)#\211B\211\235\204H�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" x name name-method] 5) request-regenerate opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist 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 (#$ . 40634) 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\355�\307	\"A\206\355�\310\232\203\"�\n\206\335�\307\"A\206\335�\307\f\"A\206\335�
\203`�\311\312\211@@)@\211@@)A@#\232\204`�\211A@\210\2025�\211@@*\206\335�\203\230�\311\312\211@@)\211@A)@#\232\204\230�\211A@\210\202o�@)\206\335�A\313\211\203\332�\314\211A@8\211;\204\252�\313\315\316\215*\232\203\252�\313\211\204\257�+\211\203\352�B	B))\317\"\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 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@)#\211B\211\235\204H�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" x name name-method] 5) request-compact opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist 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 (#$ . 42658) nil])
(provide 'gnus-srvr)

${this.title}

Code Editor : gnus-srvr.elc