HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/gnus/gnus-srvr.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\300\307!\210\310\311\312\"\210\313\314\315\316\317\320\321\322&\210\313\323\315\324\317\320\321\322&\210\313\325\326\327\330\331\317\332\321\333&	\210\313\334\335\336\317\332\321\333&\210\313\337\315\340\341\342\317\332\321\343&	\207" [require gnus gnus-start gnus-spec gnus-group gnus-int gnus-range gnus-cloud 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%c\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) (99 gnus-tmp-cloud 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)
#@54 Hook run after the creation of the server mode menu.
(custom-declare-variable 'gnus-server-menu-hook nil '(#$ . 2271) :type 'hook :group 'gnus-server)
(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] ["Toggle Cloud Sync for this server" gnus-server-toggle-cloud-server t] ["Toggle Cloud Sync Host" gnus-server-toggle-cloud-method-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\311\326\327\330\315\316%\210\311\331\332\333\315\316%\210\301\334\320\331#\210\301\334\321\322#\210\311\335\336\337\315\316%\210\301\340\320\335#\210\301\340\321\322#\210\311\341\342\343\315\316%\210\301\344\320\341#\210\301\344\321\322#\210\311\345\346\347\315\316%\210\301\350\320\345#\210\301\350\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 [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 "i" gnus-server-toggle-cloud-server "I" gnus-server-toggle-cloud-method-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-cloud ((((class color) (background light)) (:foreground "ForestGreen" :bold t)) (((class color) (background dark)) (:foreground "PaleGreen" :bold t)) (t (:bold t))) "Face used for displaying Cloud-synced servers" gnus-server-cloud-host ((((class color) (background light)) (:foreground "ForestGreen" :inverse-video t :italic t)) (((class color) (background dark)) (:foreground "PaleGreen" :inverse-video t :italic t)) (t (:inverse-video t :italic t))) "Face used for displaying the Cloud Host" 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) ("(\\(cloud[-]sync\\))" 1 'gnus-server-cloud) ("(\\(CLOUD[-]HOST\\))" 1 'gnus-server-cloud-host) ("(\\(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 (#$ . 7423) nil])
(defalias 'gnus-server-insert-server-line #[(name method) "\n@\nA@\306\n
\"\211(A@\307=\203\310\202F(A@\311=\203(\312\202F\3131D\314\n!\204;(A@\315=\203?\316\202@\3170\202F\210\320)*\203W\321\n!\203W\322\202X\323+\324	!\203d\325\202e\323\326	!\203o\327\202p\323P,\330 \210\331``T\332-!\210\333\334	!\335\334\n\336\337./\3402\352\n\206\2270/\204\243\341\3421\"\210\341\34323D\"\210\nA@\344\235\203\274\345\346\n@\"\202\304\345\347\n@\nA@#\211\nB\21141\235\204\347.\204\347\3064@1\"\204\34741B1*0+!F#.\207" [name gnus-tmp-name method gnus-tmp-how gnus-tmp-where gnus-opened-servers assoc denied "(denied)" offline "(offline)" (error) gnus-server-opened ok "(opened)" "(closed)" "(error)" gnus-agent-method-p " (agent)" #1="" gnus-cloud-host-server-p " (CLOUD-HOST)" gnus-cloud-server-p " (cloud-sync)" beginning-of-line add-text-properties eval gnus-server intern gnus-named-server t nil server-name 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" elem gnus-tmp-status gnus-agent gnus-tmp-agent gnus-tmp-cloud gnus-server-line-format-spec no-enter-cache nocache gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist name-method] 12])
#@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 (#$ . 9813)])
#@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 (#$ . 10057)])
(defalias 'gnus-server-prepare #[nil "\306\307!\210\306\302\310\"\210\311\211\211\211\312 \210\311
\203V
@A\235\204F
@AB
\211A\242\211\203F\n@\203F\nA\203F\313\n@\nA\"\210
@A\235\203
\211A\210\202\311\211\203\242@\211@\235\204\231\314@!\204\231@B\313\315\316@@@A@#\211@\"\210	@DBA\211\204a.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 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 (#$ . 11061)])
(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\206M\307\n
\"A\206M\n\310\232\203. \2066\307\n\"A\2066\307\n!\"A\2066\"##\203e\n\311\312#@@@#@@A@#\232\204e#\211A#\210\202C#@@)\2066$%%\203\221\n\311\312%@@%@A@#\232\204\221%\211A%\210\202q%@)\2066&A\306\211'())\2033\313)\211A)\2428\211(;\204\243\n(\306\314*+(\3152#(\206\316 (+\204\332\316\317
\"\210\316\320!D\"\210(A@\321\235\203\364\311\322(@\"\202\376\311\312(@(A@#\211,(B\211-
\235\204*\204\307-@
\"\204-
B,*0+\232\203\243('\306\211)\204\250'+\211.\203J\307\n
\"\204J\n.B
B.))\"\"/\f\203j\323\324\n\325\326\fA!\327\260\330\331\n!\332Q\"\210\f\204s/\205\247\214~\210\333\n!\203\204\334 \335y\210`|\210\f\203\222\336\f@\fA\"\210\202\244\336\311\312/@@/@A@#/@\"\210\337 ),\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 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 "") "%s" gnus-dribble-enter "(gnus-server-set-info \"" "\" '" gnus-prin1-to-string ")" "^(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 gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method 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 (#$ . 13673) (list (gnus-server-server-name))])
#@36 Yank the previously killed server.
(defalias 'gnus-server-yank-server #[nil "\204\305\306!\210	\307 @\204	\nC\244\202Q	@@\230\203+\n	B\202Q\fA\203@\fA@@\230\204@\fA\211\202,\f\203N\f\n\fAB\241\210\202Q\nC\310\n@!\210A\311 +\207" [gnus-server-killed-servers gnus-server-alist killed server alist error "No killed servers to be yanked" gnus-server-server-name gnus-server-update-server gnus-server-position-point] 4 (#$ . 14525) nil])
#@29 Return to the group buffer.
(defalias 'gnus-server-exit #[nil "\302\303!\210p\211\211\205	;\203\304\202\305	!)\203#\306!\210\307 \210)\310\311\312\"\207" [buf buffer gnus-run-hooks gnus-server-exit-hook get-buffer buffer-name kill-buffer gnus-prune-buffers gnus-configure-windows group t] 4 (#$ . 14990) 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 (#$ . 15316) 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 (#$ . 15583)])
#@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 (#$ . 15782)])
#@26 Force an open of SERVER.
(defalias 'gnus-server-open-server #[(server) "\211\203<\203\206<\306	\"A\206<\307\232\203!\n\206%\306\"A\206%\306\f\"A\206%
\203V\310\311@@@@@A@#\232\204V\211A\210\2024@@)\206%\203\202\310\311@@@A@#\232\204\202\211A\210\202b@)\206%A\312\211  \203\"\313 \211A \2428\211;\204\224\312\314!\"\3152\206\276\n\"\204\312\316\317	\"\210\316\320\fD\"\210A@\321\235\203\343\310\322@\"\202\355\310\311@A@#\211#B\211$	\235\204!\204\306$@	\"\204$	B#*0+\232\203\224\312\211 \204\231+\211%\2039\306	\"\2049%B	B%))\211\204H\323\324\"\210\325\326\"\210\327!\330!\210\331 \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 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 "") "%s" error "No such server: %s" gnus-server-set-status ok gnus-open-server gnus-server-update-server gnus-server-position-point opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 15968) (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 (#$ . 17502) nil])
#@15 Close SERVER.
(defalias 'gnus-server-close-server #[(server) "\211\203<\203\206<\306	\"A\206<\307\232\203!\n\206%\306\"A\206%\306\f\"A\206%
\203V\310\311@@@@@A@#\232\204V\211A\210\2024@@)\206%\203\202\310\311@@@A@#\232\204\202\211A\210\202b@)\206%A\312\211  \203\"\313 \211A \2428\211;\204\224\312\314!\"\3152\206\276\n\"\204\312\316\317	\"\210\316\320\fD\"\210A@\321\235\203\343\310\322@\"\202\355\310\311@A@#\211#B\211$	\235\204!\204\306$@	\"\204$	B#*0+\232\203\224\312\211 \204\231+\211%\2039\306	\"\2049%B	B%))\211\204H\323\324\"\210\325\326\"\210\327!\330!\210\331 \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 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 "") "%s" error "No such server: %s" gnus-server-set-status closed gnus-close-server gnus-server-update-server gnus-server-position-point opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 17733) (list (gnus-server-server-name))])
#@24 Set SERVER to offline.
(defalias 'gnus-server-offline-server #[(server) "\211\203<\203\206<\306	\"A\206<\307\232\203!\n\206%\306\"A\206%\306\f\"A\206%
\203V\310\311@@@@@A@#\232\204V\211A\210\2024@@)\206%\203\202\310\311@@@A@#\232\204\202\211A\210\202b@)\206%A\312\211  \203\"\313 \211A \2428\211;\204\224\312\314!\"\3152\206\276\n\"\204\312\316\317	\"\210\316\320\fD\"\210A@\321\235\203\343\310\322@\"\202\355\310\311@A@#\211#B\211$	\235\204!\204\306$@	\"\204$	B#*0+\232\203\224\312\211 \204\231+\211%\2039\306	\"\2049%B	B%))\211\204H\323\324\"\210\325!\326\327\"\210\330!\210\331 \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 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 "") "%s" error "No such server: %s" gnus-close-server gnus-server-set-status offline gnus-server-update-server gnus-server-position-point opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 19262) (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 (#$ . 20803) nil])
#@50 Make sure SERVER will never be attempted opened.
(defalias 'gnus-server-deny-server #[(server) "\211\203<\203\206<\306	\"A\206<\307\232\203!\n\206%\306\"A\206%\306\f\"A\206%
\203V\310\311@@@@@A@#\232\204V\211A\210\2024@@)\206%\203\202\310\311@@@A@#\232\204\202\211A\210\202b@)\206%A\312\211\203\"\313\211A\2428\211;\204\224\312\314 !\3152\206\276\n!\204\312\316\317	\"\210\316\320\fD\"\210A@\321\235\203\343\310\322@\"\202\355\310\311@A@#\211\"B\211#	\235\204 \204\306#@	\"\204#	B\"*0+\232\203\224\312\211\204\231+\211$\2039\306	\"\2049$B	B$))\211\204H\323\324\"\210\325\326\"\210)\327!\210\330 \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 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 "") "%s" error "No such server: %s" gnus-server-set-status denied gnus-server-update-server gnus-server-position-point opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 21102) (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 (#$ . 22644) 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\206a\312\f\"A\206a\314\232\203C
\206J\312\n\"A\206J\312\"A\206J\203z\315\316@@@@@A@#\232\204z\211A\210\202X@@)\206J !!\203\246\315\316!@@!@A@#\232\204\246!\211A!\210\202\206!@)\206J\"A\317\211#$%%\203G\320%\211A%\2428\211$;\204\270$\317\321&'$\32227$\206\342
$'\204\356\323\324\f\"\210\323\325\nD\"\210$A@\326\235\203\315\327$@\"\202\315\316$@$A@#\211($B\211)\f\235\2043&\2043\312)@\f\"\2043)\fB(*0+\232\203\270$#\317\211%\204\275#+\211*\203^\312\f\"\204^*B\fB*))\204j\306\330\"\210\331\211\203{<\203{\206\253\312\f\"A\206\253\314\232\203\215
\206\224\312\n\"A\206\224\312\"A\206\224\203\304\315\316@@@@@A@#\232\204\304\211A\210\202\242@@)\206\224 !!\203\360\315\316!@@!@A@#\232\204\360!\211A!\210\202\320!@)\206\224\"A\317\211#$%%\203\221\320%\211A%\2428\211$;\204$\317\321&'$\3222\201$\206,
$'\2048\323\332\f\"\210\323\333\nD\"\210$A@\326\235\203R\315\327$@\"\202\\\315\316$@$A@#\211($B\211)\f\235\204}&\204}\312)@\f\"\204})\fB(*0+\232\203$#\317\211%\204#+\211*\203\250\312\f\"\204\250*B\fB*))!B\211+	\240\210+AA	\240\210+,B,\334 )\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 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] (nil #1#) "%s" "%s: no such server" gnus-copy-sequence #[#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] gnus-server-yank-server gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result to-entry gnus-server-killed-servers] 8 (#$ . 22927) (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 (#$ . 25960) (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 (#$ . 26253) (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\206D\310	\"A\206D\311\232\203)\n\206-\310\"A\206-\310\f\"A\206-
\203^\312\313@@@@@A@#\232\204^\211A\210\202<@@)\206-\203\212\312\313@@@A@#\232\204\212\211A\210\202j@)\206-A\314\211\203*\315\211A\2428\211;\204\234\314\316 !\3172\206\306\n!\204\322\320\321	\"\210\320\322\fD\"\210A@\323\235\203\353\312\324@\"\202\365\312\313@A@#\211\"B\211#	\235\204 \204\310#@	\"\204#	B\"*0+\232\203\234\314\211\204\241+\211$\203A\310	\"\204A$B	B$))%\325%\326\327\330$)\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 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 "") "%s" gnus-edit-form "Showing the server." (lambda (form) (gnus-server-position-point)) edit-server opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result info] 6 (#$ . 26778) (list (gnus-server-server-name))])
#@41 Request a scan from the current server.
(defalias 'gnus-server-scan-server #[(server) "\211\203<\203\206<\306	\"A\206<\307\232\203!\n\206%\306\"A\206%\306\f\"A\206%
\203V\310\311@@@@@A@#\232\204V\211A\210\2024@@)\206%\203\202\310\311@@@A@#\232\204\202\211A\210\202b@)\206%A\312\211 !\"\"\203\"\313\"\211A\"\2428\211!;\204\224!\312\314#$!\3152!\206\276\n!$\204\312\316\317	\"\210\316\320\fD\"\210!A@\321\235\203\343\310\322!@\"\202\355\310\311!@!A@#\211%!B\211&	\235\204#\204\306&@	\"\204&	B%*0+\232\203\224! \312\211\"\204\231 +\211'\2039\306	\"\2049'B	B'))!\323!\324\"\204P\325\326!@\"\202a\327\330\331#\210\332\312!\"\210\327\330\333#)\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 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 "") "%s" gnus-get-function request-scan error "Server %s can't scan" gnus-message 3 "Scanning %s..." gnus-request-scan "Scanning %s...done" opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 6 (#$ . 28323) (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 (#$ . 29901) (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 (#$ . 30145) (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"])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\313\314\304\305\306\315&	\207" [custom-declare-variable gnus-browse-menu-hook nil "Hook run after the creation of the browse mode menu." :group gnus-server :type hook gnus-browse-subscribe-newsgroup-method 'gnus-subscribe-alphabetically "Function(s) called when subscribing groups in the Browse Server Buffer\nA few pre-made functions are supplied: `gnus-subscribe-randomly'\ninserts new groups at the beginning of the list of groups;\n`gnus-subscribe-alphabetically' inserts new groups in strict\nalphabetic order; `gnus-subscribe-hierarchically' inserts new groups\nin hierarchical newsgroup order; `gnus-subscribe-interactively' asks\nfor your decision; `gnus-subscribe-killed' kills all new groups;\n`gnus-subscribe-zombies' will make all new groups into zombies;\n`gnus-subscribe-topics' will enter groups into the topics that\nclaim them." :version "24.1" (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))] 10)
(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 [delete] gnus-browse-delete-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<\306	\"A\206<\307\232\203!\n\206%\306\"A\206%\306\f\"A\206%
@@\203V\310\311@@@@@@@A@#\232\204V@\211A@\210\2024@@@)\206%ABB\203\202\310\311B@@B@A@#\232\204\202B\211AB\210\202bB@)\206%CA\312\211DEFF\203\"\313F\211AF\2428\211E;\204\224E\312\314GHE\3152E\206\276\nEH\204\312\316\317	\"\210\316\320\fD\"\210EA@\321\235\203\343\310\322E@\"\202\355\310\311E@EA@#\211IEB\211J	\235\204G\204\306J@	\"\204J	BI*0+\232\203\224ED\312\211F\204\231D+\211K\2039\306	\"\2049KB	BK))LMNLE\nOE\312\211P0\323\324\325EA@#\210\326E!\204t\323\327\330EA@\331E!$\210\312\202!\323\332\333\"\210\334E!\323\332\335\"\210\204\222\323\327\336\331E!#\210\312\202!rQq\210pReb\210S\203\256S\337\230\204\256\340S!\210E@\341=\203\353m\204X\3421\340\343`\344\312w\210`{!\345R!T\345R!T)BBPB\211P0\202\344\210\202\345\210\312y\210\202\266m\204X\3461M\343\312f\347=\203\345R!\2023`\337IU\350\312w\210U`{I\312f\351=\2030`TU\352u\210\350\312w\210IU`{PI\202I*!\345R!T\345R!T)BBPB\211P0\202Q\210\202R\210\312y\210\202\353*\353P\354\"PV\203\200O\355\356P\"W\357\360!\210XY\361\327\361$\210*\202
\362Z!\210\357\363!\210\364 \210\312[\365 \210)\366 \210\310\367E@EA@#C\\\312\211O\370\337E\")]I[P\211AP\242\2110\203\371``T\310\372]\337\230\203\331\3730@\211I!\202\344\373]0@\211IP!\211^_X\203\361\374\202\n^`X\203\375\375\202\n^aU\203	\376\202\n\377)\201e0AAT0A@Z]\201fI\314\"\201g=\203,I\202\370\201hIEI0\211E\204E\201i0!EE;\203\221E\211\203[<\203[\206\216\306	\"A\206\216\307\232\203m\n\206w\306\"A\206w\306\f\"A\206w
@@\203\242\310\311@@@@@@@A@#\232\204\242@\211A@\210\202\200@@@)\206wABB\203\316\310\311B@@B@A@#\232\204\316B\211AB\210\202\256B@)\206wCA\312\211DEFF\203t\313F\211AF\2428\211E;\204\340E\312\314GHE\3152dE\206\n\nEH\204\316\201j	\"\210\316\201k\fD\"\210EA@\201l\235\2035\310\322E@\"\202?\310\311E@EA@#\211IEB\211J	\235\204`G\204`\306J@	\"\204`J	BI*0+\232\203\340ED\312\211F\204\345D+\211K\203\213\306	\"\204\213KB	BK))EE@\201m=\203\241\201n\202\366\306Eb\"\206\274E:\205\274\306E@EA@Db\"c\312KF\211d\203\317dA\202\365F\211AF\242\211d\203\363\201od@0\"\203\317\312FdAK\202\317K+*\"$c\210\201pID#\210\202\264+\201qp!\210eb\210\201r \210\323\324\201sEA@#\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 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="") "%s" 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 (error) string-as-unibyte "^ 	" read (error) 34 "^ 	\\\\" 92 2 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 add-text-properties "%c%7d: %s\n" gnus-group-level 32 85 90 75 opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result gnus-browse-current-method return-buffer gnus-browse-return-buffer orig-select-method groups nntp-server-buffer cur gnus-ignored-newsgroups last p 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 level gnus-level-subscribed gnus-level-unsubscribed gnus-level-zombie gnus-group-name-charset-method-alist gnus-group-name-charset-group-alist item 0 detect-coding-string undecided decode-coding-string gnus-find-method-for-group #[(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#) nnimap utf-8 string-match gnus-group switch-to-buffer gnus-group-position-point "Connecting to %s...done"] 15 (#$ . 33442)])
(defvar gnus-browse-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [gnus-browse-mode-hook variable-documentation put "Hook run after entering Browse Server mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp gnus-browse-mode-map definition-name gnus-browse-mode] 4)
(defvar gnus-browse-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [gnus-browse-mode-abbrev-table gnus-browse-mode-map variable-documentation put purecopy "Keymap for `gnus-browse-mode'." boundp gnus-browse-mode-syntax-table definition-name gnus-browse-mode (lambda (#1=#:def-tmp-var) (defvar gnus-browse-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-browse-mode'." (lambda (#1#) (defvar gnus-browse-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-browse-mode'." derived-mode-parent] 5)
#@533 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.

This mode runs the hook `gnus-browse-mode-hook', as the final or penultimate step
during initialization.
(defalias 'gnus-browse-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\315\316\317\"\203\"\320 \210\321 \210\322\323 \210\307\324 \210\307)\325\326!\207" [delay-mode-hooks major-mode mode-name gnus-browse-mode-map gnus-browse-mode-syntax-table gnus-browse-mode-abbrev-table make-local-variable t kill-all-local-variables gnus-browse-mode "Browse Server" use-local-map set-syntax-table gnus-visual-p browse-menu menu gnus-browse-make-menu-bar gnus-simplify-mode-line nil buffer-disable-undo gnus-set-default-directory run-mode-hooks gnus-browse-mode-hook local-abbrev-table mode-line-process truncate-lines buffer-read-only] 3 (#$ . 39603) 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 (#$ . 40819) "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 (#$ . 41346) "P"])
#@23 Go to the next group.
(defalias 'gnus-browse-next-group #[(n) "y\301 \210\207" [n gnus-group-position-point] 2 (#$ . 41551) "p"])
#@23 Go to the next group.
(defalias 'gnus-browse-prev-group #[(n) "\301[!\207" [n gnus-browse-next-group] 2 (#$ . 41688) "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	!\304U\2036S\211\202\312 \210\304U\204D\313\314\315\"\210*\207" [arg ward error "No group at current line" 0 -1 1 abs gnus-browse-unsubscribe-group gnus-browse-next-group gnus-group-position-point gnus-message 7 "No more newsgroups"] 4 (#$ . 41819) "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 (#$ . 42884) (list (gnus-browse-group-name))])
#@291 Delete the current group.  Only meaningful with editable groups.
If FORCE (the prefix) is non-nil, all the articles in the group will
be deleted.  This is "deleted" as in "removed forever from the face
of the Earth".  There is no undo.  The user will be prompted before
doing the deletion.
(defalias 'gnus-browse-delete-group #[(group force) "\302	\"\207" [group force gnus-group-delete-group] 3 (#$ . 43072) (list (gnus-browse-group-name) current-prefix-arg)])
#@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 (#$ . 43541)])
#@47 Quit browsing and return to the group buffer.
(defalias 'gnus-browse-exit #[nil "\304\305!\203&p\211\211\205	;\203\306\202\307	!)\203%\310!\210\311 \210)r\nq\210\312\313!\210)\2038\314\315\316\"\207\314\317\316\"\207" [buf buffer gnus-group-buffer gnus-browse-return-buffer derived-mode-p gnus-browse-mode get-buffer buffer-name kill-buffer gnus-prune-buffers gnus-group-list-groups nil gnus-configure-windows server force group] 4 (#$ . 44583) 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 (#$ . 45053) nil])
#@70 Issue a command to the server to regenerate all its data structures.
(defalias 'gnus-server-regenerate-server #[nil "\306 \211\204\307\310!\210\3111S\312\211\203<\203\206L\313	\"A\206L\314\232\2031\n\2065\313\"A\2065\313\f\"A\2065
\"\"\203f\315\316\"@@@\"@@A@#\232\204f\"\211A\"\210\202D\"@@)\2065#$$\203\222\315\316$@@$@A@#\232\204\222$\211A$\210\202r$@)\2065%A\317\211&'((\2032\320(\211A(\2428\211';\204\244'\317\321)*'\3222\"'\206\316\n'*\204\332\323\324	\"\210\323\325\fD\"\210'A@\326\235\203\363\315\327'@\"\202\375\315\316'@'A@#\211+'B\211,	\235\204)\204\313,@	\"\204,	B+*0+\232\203\244'&\317\211(\204\251&+\211-\203I\313	\"\204I-B	B-))\330\"0\202W\210\307\331!\210\332\333\334#\210\335!\204h\307\336!\210\337!\203v\332\333\340#\202{\332\333\341#)\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-server-server-name error "No server on the current line" (error) gnus-get-function assoc "native" format "%s:%s" nil 4 t server-name 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 "") "%s" request-regenerate "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" opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result] 7 (#$ . 45458) 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\3111S\312\211\203<\203\206L\313	\"A\206L\314\232\2031\n\2065\313\"A\2065\313\f\"A\2065
&&\203f\315\316&@@@&@@A@#\232\204f&\211A&\210\202D&@@)\2065'((\203\222\315\316(@@(@A@#\232\204\222(\211A(\210\202r(@)\2065)A\317\211*+,,\2032\320,\211A,\2428\211+;\204\244+\317\321-.+\3222\"+\206\316\n+.\204\332\323\324	\"\210\323\325\fD\"\210+A@\326\235\203\363\315\327+@\"\202\375\315\316+@+A@#\211/+B\2110	\235\204-\204\3130@	\"\2040	B/*0+\232\203\244+*\317\211,\204\251*+\2111\203I\313	\"\204I1B	B1))\330\"0\202W\210\307\331!\210\332\333\334#\210\335!\204h\307\336!\210\337!\204v\332\333\340#\202\254\332\333\341#\210\3422!\2113\205\2533\2114\2115\205\2375;\203\233\342\202\234\3435!)\205\252\3444!\210\345 )))\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-server-server-name error "No server on the current line" (error) gnus-get-function assoc "native" format "%s:%s" nil 4 t server-name 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 "") "%s" request-compact "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 kill-buffer gnus-prune-buffers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result gnus-original-article-buffer original buf buffer] 7 (#$ . 47311) nil])
#@63 Make the server under point be replicated in the Emacs Cloud.
(defalias 'gnus-server-toggle-cloud-server #[nil "\302 \211\204\303\304!\210\305\306\"\204\303\307!\210\310!\203$\311	\"\202(	B\312!\210\313\314\310!\2038\315\2029\316#)\207" [server gnus-cloud-covered-servers gnus-server-server-name error "No server on the current line" gnus-method-option-p cloud "The server under point doesn't support cloudiness" gnus-cloud-server-p delete gnus-server-update-server gnus-message 1 "Replication of %s in the cloud will start" "Replication of %s in the cloud will stop"] 5 (#$ . 49412) nil])
#@53 Set the server under point to host the Emacs Cloud.
(defalias 'gnus-server-toggle-cloud-method-server #[nil "\302 \211\204\303\304!\210\305!\204\303\306!\210	\230\204-\307\310!\210\311\312\313\"!\203-\314\301\"\210\311\312\315\"!\205?\316\317\320#\210\321\322!)\207" [server gnus-cloud-method gnus-server-server-name error "No server on the current line" gnus-cloud-host-acceptable-method-p "The server under point can't host the Emacs Cloud" custom-set-variables (gnus-cloud-method server) gnus-yes-or-no-p format "The new cloud host server is %S now. Save it? " customize-save-variable "Upload Cloud data to %S now? " gnus-message 1 "Uploading all data to Emacs Cloud server %S" gnus-cloud-upload-data t] 5 (#$ . 50026) nil])
(provide 'gnus-srvr)