;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:05 2024
;;; 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 (#$ . -2370))
(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 (#$ . 6596) 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\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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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 (#$ . 8917)])
#@31 Initialize the server buffer.
(defalias 'gnus-server-setup-buffer #[nil "\301!?\205r\302!q\210\303 )\207" [gnus-server-buffer get-buffer gnus-get-buffer-create gnus-server-mode] 2 (#$ . 9161)])
(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 (#$ . 10192)])
(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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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\320A!\210A	@\240\210A	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 (#$ . 13015) (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 (#$ . 13867) 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 (#$ . 14340) nil])
#@29 List all available servers.
(defalias 'gnus-server-list-servers #[nil "\301 \302 \210\203\303!\210\202db\210\304y\210\305 )\207" [cur gnus-server-server-name gnus-server-prepare gnus-server-goto-server -1 gnus-server-position-point] 2 (#$ . 14673) nil])
#@26 Make METHOD have STATUS.
(defalias 'gnus-server-set-status #[(method status) "\304	\"\211\203\nA\240\202D	B\211)\207" [method gnus-opened-servers entry status assoc] 4 (#$ . 14940)])
#@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 (#$ . 15139)])
#@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\323A\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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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 (#$ . 15325) (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 (#$ . 17068) 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\323A\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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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 (#$ . 17299) (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\323A\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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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 (#$ . 19037) (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 (#$ . 20787) 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\323A\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\347B	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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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 (#$ . 21086) (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 (#$ . 22837) 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\367A\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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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 (#$ . 23120) (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 (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 (#$ . 26553) (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 (#$ . 26846) (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\333A\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\357B	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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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 (#$ . 27371) (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\323A\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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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 (#$ . 29123) (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 (#$ . 30910) (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 (#$ . 31154) (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 (#$ . -31586))
#@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 '(#$ . 31696) :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@\211A@@*\206\323BCC\203\213\310\311C\211A@@)C@A@#\232\204\213C\211AC@\210\202fC@)\206\323DA\312\211EFGG\203\320\313G\211AG@8\211F;\204\235F\312\314HIF\315\316\215+\232\203\235FE\312\211G\204\242E+\211J\203\347\306	\"\204\347JB	BJ))KLMKF\nNF\312\211O'\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\210pQeb\210R\203\\
R\333\230\204\\
\334R!\210F@\335=\203s
m\204\202
\312\336\337\217\210\312y\210\202d
m\204\202
\312\340\341\217\210\312y\210\202s
*\342O\343\"OS\203\252
N\344\345O\"T\346\347!\210UV\350\323\350$\210*\202\347\351W!\210\346\352!\210\353 \210\312X\354 \210)\355 \210\310\356F@F\211AA@)#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'\211AAA)T'\211AA@)Z]\370\371!\203b\371[\314\"\372=\203b[\202\322\373[F['\211F\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@\211A@@*\206QBCC\203	\310\311C\211A@@)C@A@#\232\204	C\211AC@\210\202\344C@)\206QDA\312\211EFGG\203N\313G\211AG@8\211F;\204F\312\314HIF\315\375\215+\232\203FE\312\211G\204 E+\211J\203e\306	\"\204eJB	BJ))FF@\376=\203w\377\202\320\306F`\"\206\226F:\205\226\306F@F\211AA@)D`\"a\312JG\211b\203\251bA\202\317G\211AG@\211b\203\315\201cb@'\"\203\251\312GbAJ\202\251J+*\"$c\210\201d[D#\210\202\342
+\201ep!\210eb\210\201f \210\317\320\201gFA@#\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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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 (#$ . 34352)])
#@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 (#$ . 39815) 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 (#$ . 40760) "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 (#$ . 41287) "P"])
#@23 Go to the next group.
(defalias 'gnus-browse-next-group #[(n) "y\301 \210\207" [n gnus-group-position-point] 2 (#$ . 41492) "p"])
#@23 Go to the next group.
(defalias 'gnus-browse-prev-group #[(n) "\301[!\207" [n gnus-browse-next-group] 2 (#$ . 41629) "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\2036m\2046\310 \2036\311\312	!!\2036S\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 (#$ . 41760) "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 (#$ . 42831) (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 (#$ . 43018)])
#@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 (#$ . 44060) 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 (#$ . 44531) 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\324A\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\350B	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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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 (#$ . 44936) 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\324A\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\350B	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\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\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 (#$ . 47024) nil])
(provide 'gnus-srvr)