;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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\317DD\320\321\322\323\324&\210\313\325\315\316\326DD\327\330\331\321\332\323\333&	\210\313\334\315\316\335DD\336\321\332\323\333&\210\313\337\315\316\340DD\341\342\343\321\332\323\344&	\207" [require gnus gnus-start gnus-spec gnus-group gnus-int gnus-range gnus-cloud autoload gnus-group-read-ephemeral-search-group "nnselect" custom-declare-variable gnus-server-exit-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "Hook run when exiting the server buffer." :group gnus-server :type hook gnus-server-line-format #[0 "\300\207" ["     {%(%h:%w%)} %s%a%c\n"] 1 #1#] "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 #[0 "\300\207" ["Gnus: %%b"] 1 #1#] "The format specification for the server mode line." gnus-server-browse-in-group-buffer #[0 "\300\207" [nil] 1 #1#] "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)
(defvar gnus-server-mode-map nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable gnus-server-menu-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run after the creation of the server mode menu." :type hook :group gnus-server] 8)
(defalias 'gnus-server-make-menu-bar #[0 "\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-set-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])
(byte-code "\204\301 \302!\210\303\304\"\210\305\306\307\310\311\312%\210\305\313\314\315\311\312%\210\305\316\317\320\311\312%\210\305\321\322\323\311\312%\210\305\324\325\326\311\312%\210\305\327\330\331\311\312%\210\305\332\333\334\311\312%\207" [gnus-server-mode-map make-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-read-ephemeral-search-group "z" gnus-server-compact-server "i" gnus-server-toggle-cloud-server "I" gnus-server-set-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-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-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-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-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."] 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)))
(defvar gnus-server-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-server-mode-hook variable-documentation put "Hook run after entering 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-server-mode-map definition-name gnus-server-mode] 4)
(defvar gnus-server-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\322#\207" [gnus-server-mode-abbrev-table gnus-server-mode-map variable-documentation put purecopy "Keymap for `gnus-server-mode'." boundp gnus-server-mode-syntax-table definition-name gnus-server-mode (lambda (#1=#:def-tmp-var) (defvar gnus-server-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-server-mode'." (lambda (#1#) (defvar gnus-server-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-server-mode'." derived-mode-parent gnus-mode] 5)
#@442 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}

In addition to any hooks its parent mode `gnus-mode' might have run,
this mode runs the hook `gnus-server-mode-hook', as the final or
penultimate step during initialization.
(defalias 'gnus-server-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
%=\204R\326
\325%C#\210\327!\210\330\f!\210
%\331\332\333\"\203g\334 \210\335 \210\336 \210\337&\340 \210\307'\306\341!\210\342!)\343\344!\207" [delay-mode-hooks major-mode mode-name gnus-server-mode-map gnus-server-mode-syntax-table gnus-server-mode-abbrev-table make-local-variable t gnus-mode gnus-server-mode "Server" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table gnus-visual-p server-menu menu gnus-server-make-menu-bar gnus-simplify-mode-line gnus-set-default-directory nil buffer-disable-undo font-lock-defaults (gnus-server-font-lock-keywords t) run-mode-hooks gnus-server-mode-hook local-abbrev-table mode-line-process truncate-lines] 5 (#$ . 8043) nil])
#@20 

(fn NAME METHOD)
(defalias 'gnus-server-insert-server-line #[514 "
\211@\211A@\306
\"\211A@\307=\203\310\202B\211A@\311=\203%\312\202B\3131@\314!\2047\211A@\315=\203;\316\202<\3170\202B\210\320
\203Q\321!\203Q\322\202R\323)\324!\203^\325\202_\323\326!\203i\327\202j\323P*\330 \210\331``T\332+\333\"\210\334\335!\336\335\333\337C\3402\372\211
\242\206\222,\240\210\204\241\341\342\343\"-\"\210./D\211\203\273\211@\341\342\344\"\"\210
A\266\202\202\246\210\211\242A@\345\235\203\316\346\347\242@\"\202\330\346\350\242@\242A@#\211\242B\204\366\211-\235\204\366\306
@-\"\204\366\211-B-
\266\2020\266\204!F#.\207" [gnus-tmp-name gnus-tmp-how gnus-tmp-where gnus-opened-servers gnus-tmp-status gnus-agent 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 t gnus-server intern gnus-named-server nil server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil #1#) format "%s" "%s:%s" gnus-tmp-agent gnus-tmp-cloud gnus-server-line-format-spec gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist] 20 (#$ . 9542)])
#@27 Set up the server buffer.
(defalias 'gnus-enter-server-buffer #[0 "\301\302!\210r\303!q\210\304 \210\305 )\207" [gnus-server-buffer gnus-configure-windows server gnus-get-buffer-create gnus-server-mode gnus-server-prepare] 2 (#$ . 11105)])
(defalias 'gnus-server-prepare #[0 "\304\305!\210\304\306\307\"\210\310\211\211\211\311 \210\310\203T@A\235\204E@AB\262\211A\262\242\262
\203E
@\203E
A\203E\312@A\"\210@A\235\203A\262\202\211\203\217\211@\211@\235\204\210\313
@!\204\210\211@B\262\312\314\315@@@A@#\211\262@\"\210
@D\nB
A\266\202\202U\210)\266eb\210\316 \207" [gnus-server-alist buffer-read-only gnus-inserted-opened-servers gnus-opened-servers gnus-set-format server-mode server t nil erase-buffer gnus-server-insert-server-line gnus-method-ephemeral-p format "%s:%s" gnus-server-position-point] 12])
(defalias 'gnus-server-server-name #[0 "\300\301 \302\"\211\205\f\303
!\207" [get-text-property point-at-bol gnus-server symbol-name] 3])
#@89 Return a server name that matches one of the names returned by
`gnus-method-to-server'.
(defalias 'gnus-server-named-server #[0 "\300\301 \302\"\211\205\f\303
!\207" [get-text-property point-at-bol gnus-named-server symbol-name] 3 (#$ . 12102)])
(defalias 'gnus-server-position-point 'gnus-goto-colon)
(defconst gnus-server-edit-buffer "*Gnus edit server*")
#@15 

(fn SERVER)
(defalias 'gnus-server-update-server #[257 "rq\210\306\307
\n\"\307\211\203\211<\203\211\2066
\307
\"A\2066
\211\310\232\203+\f\206\"
\307
\n\"A\206\"
\307

\"A\206\"
!\211\203Y
\311\312@@@@@A@#\232\204Y\211A\262
\202=\211@@\262
\206\"
\"\211\203}
\311\312@@@A@#\232\204}\211A\262
\202c\211@\262
\206\"
#A\306\211\203 
\211A\262\242\313
8\262
\262
;\204\211\306\314C\3152
\211
\242\206\260\f\240\210\204\276\316\317\320\"\"\210\n
D\211\203\326\211@\316\317\321\"\"\210
A\266\202\202\301\210\211\242A@\322\235\203\351\311\323\242@\"\202\363\311\312\242@\242A@#\211\242B\204

\211\235\204

\307
@\"\204

\211B
\266\2020\266\204\232\203\211
\262
\306\262\202\211\266\202\211\2033
\307\"\2043


BB\211\262
\262
!\"
\203T
\324\325\326\327A!\330\260\331\332!\333Q\"\210
\204\\
\211\205\215
\214~\210\334!\203m
\335 \336y\210`|\210
\203{
\337@A\"\210\202\212
\337\311\312@@@A@#@\"\210\340 ))\266\202)\207" [gnus-server-buffer buffer-read-only gnus-server-alist gnus-server-method-cache gnus-select-method gnus-predefined-server-alist nil assoc "native" format "%s:%s" 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (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-opened-servers gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 12467)])
#@20 

(fn SERVER INFO)
(defalias 'gnus-server-set-info #[514 "
\205M\211\205M\302\303\304\305!\306\260\307\310!\311Q\"\210\211A@\312
\"\312	\"\211\203.\313
	\"
\203C\314A!\210
A@\240\210
AA\241\207BC\244\211\266\203\207" [gnus-server-alist gnus-server-method-cache gnus-dribble-enter "(gnus-server-set-info \"" "\" '" gnus-prin1-to-string ")" "^(gnus-server-set-info \"" regexp-quote "\"" assoc delq gnus-opened-servers-remove] 8 (#$ . 14236)])
#@51 Kill the server on the current line.

(fn SERVER)
(defalias 'gnus-server-kill-server #[257 "\306
!\204\211\203\307\310\"\210\202\307\311!\210\312
\"\204\"\307\313\"\210\314 \210\315\316 \317y\210`|\210)\312
\"\nB\320\n@\"\321
!\211\203o\322\323\324G\"!\203o\211\211\203n\211@\320\312\"\"\f\203g\f

\325#\210
A\266\202\202O\210\210\326 \207" [gnus-server-alist buffer-read-only gnus-server-killed-servers gnus-newsrc-alist gnus-group-change-level-function gnus-level-killed gnus-server-goto-server error "No such server: %s" "No server on the current line" assoc "Server %s must be deleted from your configuration files" 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] 8 (#$ . 14701) [(byte-code "\300 C\207" [gnus-server-server-name] 1) (gnus-server-mode)]])
#@36 Yank the previously killed server.
(defalias 'gnus-server-yank-server #[0 "\204\302\303!\210	\304 @
\204	
C\244\202N
	@@\230\203(\211	B\202NA\203=
A@@\230\204=A\262\202(\203K
AB\241\210\202N\211C\305
@!\210A\306 \207" [gnus-server-killed-servers gnus-server-alist error "No killed servers to be yanked" gnus-server-server-name gnus-server-update-server gnus-server-position-point] 6 (#$ . 15604) [nil (gnus-server-mode)]])
#@29 Return to the group buffer.
(defalias 'gnus-server-exit #[0 "\300\301!\210p\211\211\205\302\303!\211\262!\205\211\262
\203\"\304
!\210\305 \210\210\306\307\310\"\207" [gnus-run-hooks gnus-server-exit-hook buffer-live-p get-buffer kill-buffer gnus-prune-buffers gnus-configure-windows group t] 5 (#$ . 16059) [nil (gnus-server-mode)]])
#@29 List all available servers.
(defalias 'gnus-server-list-servers #[0 "\300 \301 \210\211\203\302
!\210\202db\210\303y\210\304 \207" [gnus-server-server-name gnus-server-prepare gnus-server-goto-server -1 gnus-server-position-point] 3 (#$ . 16407) [nil (gnus-server-mode)]])
#@46 Make METHOD have STATUS.

(fn METHOD STATUS)
(defalias 'gnus-server-set-status #[514 "\301\"\211\203
\211A\240\207DB\211\207" [gnus-opened-servers assoc] 5 (#$ . 16690)])
#@61 Remove METHOD from the list of opened servers.

(fn METHOD)
(defalias 'gnus-opened-servers-remove #[257 "\301\302\"\"\211\207" [gnus-opened-servers delq assoc] 5 (#$ . 16875)])
#@39 Force an open of SERVER.

(fn SERVER)
(defalias 'gnus-server-open-server #[257 "\211\211\203\211<\203\211\206)
\306
\"A\206)
\211\307\232\203 	\206
\306
\n\"A\206
\306
\"A\206
\f\211\203M
\310\311@@@@@A@#\232\204M\211A\262
\2021\211@@\262
\206

\211\203p
\310\311@@@A@#\232\204p\211A\262
\202V\211@\262
\206
A\312\211\203
\211A\262\242\313
8\262
\262
;\204|\312\314C\3152
\211
\242\206\243	\240\210\204\261\316\317\320\"\"\210\nD\211\203\311\211@\316\317\321\"\"\210
A\266\202\202\264\210\211\242A@\322\235\203\334\310\323\242@\"\202\346\310\311\242@\242A@#\211\242B\204
\211\235\204
\306
@\"\204
\211B
\266\2020\266\204\232\203|
\262
\312\262\202|\266\202\211\203&
\306\"\204&


BB\211\262
\262
\211\2044
\324\325\"\210\326
\327\"\210\330
!\331!\210\332 \210\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" error "No such server: %s" gnus-server-set-status ok gnus-open-server gnus-server-update-server gnus-server-position-point gnus-newsrc-alist] 16 (#$ . 17062) [(byte-code "\300 C\207" [gnus-server-server-name] 1) (gnus-server-mode)]])
#@19 Open all servers.
(defalias 'gnus-server-open-all-servers #[0 "\211\205\211@\301
@!\210
A\266\202\202
\207" [gnus-inserted-opened-servers gnus-server-open-server] 4 (#$ . 18619) [nil (gnus-server-mode)]])
#@28 Close SERVER.

(fn SERVER)
(defalias 'gnus-server-close-server #[257 "\211\211\203\211<\203\211\206)
\306
\"A\206)
\211\307\232\203 	\206
\306
\n\"A\206
\306
\"A\206
\f\211\203M
\310\311@@@@@A@#\232\204M\211A\262
\2021\211@@\262
\206

\211\203p
\310\311@@@A@#\232\204p\211A\262
\202V\211@\262
\206
A\312\211\203
\211A\262\242\313
8\262
\262
;\204|\312\314C\3152
\211
\242\206\243	\240\210\204\261\316\317\320\"\"\210\nD\211\203\311\211@\316\317\321\"\"\210
A\266\202\202\264\210\211\242A@\322\235\203\334\310\323\242@\"\202\346\310\311\242@\242A@#\211\242B\204
\211\235\204
\306
@\"\204
\211B
\266\2020\266\204\232\203|
\262
\312\262\202|\266\202\211\203&
\306\"\204&


BB\211\262
\262
\211\2044
\324\325\"\210\326
\327\"\210\330
!\331!\210\332 \210\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" error "No such server: %s" gnus-server-set-status closed gnus-close-server gnus-server-update-server gnus-server-position-point gnus-newsrc-alist] 16 (#$ . 18834) [(byte-code "\300 C\207" [gnus-server-server-name] 1) (gnus-server-mode)]])
#@37 Set SERVER to offline.

(fn SERVER)
(defalias 'gnus-server-offline-server #[257 "\211\211\203\211<\203\211\206)
\306
\"A\206)
\211\307\232\203 	\206
\306
\n\"A\206
\306
\"A\206
\f\211\203M
\310\311@@@@@A@#\232\204M\211A\262
\2021\211@@\262
\206

\211\203p
\310\311@@@A@#\232\204p\211A\262
\202V\211@\262
\206
A\312\211\203
\211A\262\242\313
8\262
\262
;\204|\312\314C\3152
\211
\242\206\243	\240\210\204\261\316\317\320\"\"\210\nD\211\203\311\211@\316\317\321\"\"\210
A\266\202\202\264\210\211\242A@\322\235\203\334\310\323\242@\"\202\346\310\311\242@\242A@#\211\242B\204
\211\235\204
\306
@\"\204
\211B
\266\2020\266\204\232\203|
\262
\312\262\202|\266\202\211\203&
\306\"\204&


BB\211\262
\262
\211\2044
\324\325\"\210\326
!\327\330\"\210\331!\210\332 \210\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" error "No such server: %s" gnus-close-server gnus-server-set-status offline gnus-server-update-server gnus-server-position-point gnus-newsrc-alist] 16 (#$ . 20386) [(byte-code "\300 C\207" [gnus-server-server-name] 1) (gnus-server-mode)]])
#@20 Close all servers.
(defalias 'gnus-server-close-all-servers #[0 "\211\203\211@\302
@!\210
A\266\202\202
\210	\211\205'\211@\302
@!\210
A\266\202\202\207" [gnus-inserted-opened-servers gnus-server-alist gnus-server-close-server] 4 (#$ . 21950) [nil (gnus-server-mode)]])
#@63 Make sure SERVER will never be attempted opened.

(fn SERVER)
(defalias 'gnus-server-deny-server #[257 "\211\211\203\211<\203\211\206)
\306
\"A\206)
\211\307\232\203 	\206
\306
\n\"A\206
\306
\"A\206
\f\211\203M
\310\311@@@@@A@#\232\204M\211A\262
\2021\211@@\262
\206

\211\203p
\310\311@@@A@#\232\204p\211A\262
\202V\211@\262
\206
A\312\211\203
\211A\262\242\313
8\262
\262
;\204|\312\314C\3152
\211
\242\206\243	\240\210\204\261\316\317\320\"\"\210\nD\211\203\311\211@\316\317\321\"\"\210
A\266\202\202\264\210\211\242A@\322\235\203\334\310\323\242@\"\202\346\310\311\242@\242A@#\211\242B\204
\211\235\204
\306
@\"\204
\211B
\266\2020\266\204\232\203|
\262
\312\262\202|\266\202\211\203&
\306\"\204&


BB\211\262
\262
\211\2044
\324\325\"\210\326
\327\"\266\330
!\210\331 \210\314\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" error "No such server: %s" gnus-server-set-status denied gnus-server-update-server gnus-server-position-point gnus-newsrc-alist] 16 (#$ . 22233) [(byte-code "\300 C\207" [gnus-server-server-name] 1) (gnus-server-mode)]])
#@46 Make all denied servers into closed servers.
(defalias 'gnus-server-remove-denials #[0 "\211\203\211@\211A@\301=\203\211A\302\240\210
A\266\202\202
\210\303 \207" [gnus-opened-servers denied closed gnus-server-list-servers] 4 (#$ . 23800) [nil (gnus-server-mode)]])
#@55 Copy a server definition to a new name.

(fn FROM TO)
(defalias 'gnus-server-copy-server #[514 "
\204\306\307!\210\211\203\211\310\230\203\306\311!\210\312
\"\203\"\306\313\"\210
\211\2030\211<\2030\211\206K
\312
	\"A\206K
\211\314\232\203B\n\2067
\312
\"A\2067
\312
\"A\2067
\f\211\203o
\315\316@@@@@A@#\232\204o\211A\262
\202S\211@@\262
\2067

\211\203\222
\315\316@@@A@#\232\204\222\211A\262
\202x\211@\262
\2067
A\317\211\2035
\211A\262\242\320
8\262
\262
;\204\236\317\321C\3222&
\211
\242\206\305\n\240\210\204\323\323\324\325\"	\"\210D\211\203\353\211@\323\324\326\"\"\210
A\266\202\202\326\210\211\242A@\327\235\203\376\315\330\242@\"\202
\315\316\242@\242A@#\211\242B\204\"
\211	\235\204\"
\312
@	\"\204\"
\211	B
\266\2020\266\204\232\203\236
\262
\317\262\202\236\266\202\211\203H
\312	\"\204H


B	B\211\262
\262
\204U
\306\331\"\210
\332\211\203e
\211<\203e
\211\206\200\312
	\"A\206\200\211\314\232\203w
\n\206l\312
\"A\206l\312
\"A\206l\f\211\203\244

\315\316@@@@@A@#\232\204\244
\211A\262
\202\210
\211@@\262
\206l
\211\203\307

\315\316@@@A@#\232\204\307
\211A\262
\202\255
\211@\262
\206lA\317\211\203j\211A\262\242\320
8\262
\262
;\204\323
\317\321C\3222[\211
\242\206\372
\n\240\210\204\323\324\325\"	\"\210D\211\203 \211@\323\324\326\"\"\210
A\266\202\202\210\211\242A@\327\235\2033\315\330\242@\"\202=\315\316\242@\242A@#\211\242B\204W\211	\235\204W\312
@	\"\204W\211	B
\266\2020\266\204\232\203\323

\262
\317\262\202\323
\266\202\211\203}\312	\"\204}

B	B\211\262
\262
!B\211\240\210\211AA\240\210\211B\333 \207" [gnus-server-alist gnus-server-method-cache gnus-select-method gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods 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 make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil #1#) "%s" "%s: No such server" copy-tree gnus-server-yank-server gnus-newsrc-alist gnus-server-killed-servers] 19 (#$ . 24078) [(byte-code "\300 \206\301\302!\303\304!D\207" [gnus-server-server-name error "No server on the current line" read-string "Copy to: "] 3) (gnus-server-mode)]])
#@18 

(fn HOW WHERE)
(defalias 'gnus-server-add-server #[514 "\211\236\203\n\302\303!\210\211E	B\304 \207" [gnus-server-alist gnus-server-killed-servers error "Server with that name already defined" gnus-server-yank-server] 5 (#$ . 26582) [(byte-code "\301\302\303\304\305\"\306#!\307\310!D\207" [gnus-valid-select-methods intern gnus-completing-read "Server method" mapcar car t read-string "Server name: "] 6) (gnus-server-mode)]])
#@37 Jump to a server line.

(fn SERVER)
(defalias 'gnus-server-goto-server #[257 "\300ed\301\302!$\211\205\211b\210\303 \207" [text-property-any gnus-server intern gnus-server-position-point] 7 (#$ . 27024) [(byte-code "\301\302\303\304\"\305#C\207" [gnus-server-alist gnus-completing-read "Goto server" mapcar car t] 5) (gnus-server-mode)]])
#@51 Edit the server on the current line.

(fn SERVER)
(defalias 'gnus-server-edit-server #[257 "\211\204\301\302!\210\303
\"\204\301\304\"\210\303
\"A\305
!\210\306
\307\310\311\"\312$\207" [gnus-server-alist error "No server on current line" assoc "Server %s must be edited in your configuration files" gnus-close-server gnus-edit-form "Editing the server." make-closure #[257 "\301\300\"\210\302 \210\303 \207" [V0 gnus-server-set-info gnus-server-list-servers gnus-server-position-point] 4 "\n\n(fn FORM)"] edit-server] 8 (#$ . 27373) [(byte-code "\300 C\207" [gnus-server-server-name] 1) (gnus-server-mode)]])
#@69 Show the definition of the server on the current line.

(fn SERVER)
(defalias 'gnus-server-show-server #[257 "\211\204\306\307!\210\211\211\203\211<\203\211\2061
\310
\"A\2061
\211\311\232\203(	\206
\310
\n\"A\206
\310
\"A\206
\f\211\203U
\312\313@@@@@A@#\232\204U\211A\262
\2029\211@@\262
\206

\211\203x
\312\313@@@A@#\232\204x\211A\262
\202^\211@\262
\206
A\314\211\203
\211A\262\242\315
8\262
\262
;\204\204\314\316C\3172\f
\211
\242\206\253	\240\210\204\271\320\321\322\"\"\210\nD\211\203\321\211@\320\321\323\"\"\210
A\266\202\202\274\210\211\242A@\324\235\203\344\312\325\242@\"\202\356\312\313\242@\242A@#\211\242B\204
\211\235\204
\310
@\"\204
\211B
\266\2020\266\204\232\203\204
\262
\314\262\202\204\266\202\211\203.
\310\"\204.


BB\211\262
\262
\326
\327\330\331$\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods error "No server on current line" assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" gnus-edit-form "Showing the server." #[257 "\300 \207" [gnus-server-position-point] 2 "\n\n(fn FORM)"] edit-server gnus-newsrc-alist] 16 (#$ . 27999) [(byte-code "\300 C\207" [gnus-server-server-name] 1) (gnus-server-mode)]])
#@54 Request a scan from the current server.

(fn SERVER)
(defalias 'gnus-server-scan-server #[257 "\211\211\203\211<\203\211\206)
\306
\"A\206)
\211\307\232\203 	\206
\306
\n\"A\206
\306
\"A\206
\f\211\203M
\310\311@@@@@A@#\232\204M\211A\262
\2021\211@@\262
\206

\211\203p
\310\311@@@A@#\232\204p\211A\262
\202V\211@\262
\206
A\312\211\203
\211A\262\242\313
8\262
\262
;\204|\312\314C\3152
\211
\242\206\243	\240\210\204\261\316\317\320\"\"\210\nD\211\203\311\211@\316\317\321\"\"\210
A\266\202\202\264\210\211\242A@\322\235\203\334\310\323\242@\"\202\346\310\311\242@\242A@#\211\242B\204
\211\235\204
\306
@\"\204
\211B
\266\2020\266\204\232\203|
\262
\312\262\202|\266\202\211\203&
\306\"\204&


BB\211\262
\262
\324
\325\"\2048
\326\327@\"\207\330\331\332#\210\333\312\"\210\330\331\334#\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") "%s" gnus-get-function request-scan error "Server %s can't scan" gnus-message 3 "Scanning %s..." gnus-request-scan "Scanning %s...done" gnus-newsrc-alist] 16 (#$ . 29598) [(byte-code "\300 C\207" [gnus-server-server-name] 1) (gnus-server-mode)]])
#@48 Browse a server in server buffer.

(fn SERVER)
(defalias 'gnus-server-read-server-in-server-buffer #[257 "\301\302
!)\207" [gnus-server-browse-in-group-buffer nil gnus-server-read-server] 3 (#$ . 31193) (byte-code "\300 C\207" [gnus-server-server-name] 1)])
#@31 Browse a server.

(fn SERVER)
(defalias 'gnus-server-read-server #[257 "p\300\"r
q\210\301\302 !\210\303 \210)\207" [gnus-browse-foreign-server gnus-server-update-server gnus-server-server-name gnus-server-position-point] 5 (#$ . 31458) (byte-code "\300 C\207" [gnus-server-server-name] 1)])
#@10 

(fn E)
(defalias 'gnus-server-pick-server #[257 "\300
!\210\301\302 !\207" [mouse-set-point gnus-server-read-server gnus-server-server-name] 3 (#$ . 31758) "e"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\315\316\306\307\310\317&	\207" [custom-declare-variable gnus-browse-menu-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "Hook run after the creation of the browse mode menu." :group gnus-server :type hook gnus-browse-subscribe-newsgroup-method #[0 "\300\207" [gnus-subscribe-alphabetically] 1 #1#] "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-map nil)
(byte-code "\204\301 \302!\210\303\304\"\210\301\207" [gnus-browse-mode-map 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-toggle-subscription-at-point "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)] 3)
(defalias 'gnus-browse-make-menu-bar #[0 "\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" ["Toggle Subscribe" gnus-browse-toggle-subscription-at-point 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*")
#@64 Browse the server SERVER.

(fn SERVER &optional RETURN-BUFFER)
(defalias 'gnus-browse-foreign-server #[513 "
\211\203\211<\203\211\206)
\306
\"A\206)
\211\307\232\203 	\206
\306
\n\"A\206
\306
\"A\206
\f\211\203M
\310\311@@@@@A@#\232\204M\211A\262
\2021\211@@\262
\206

\211\203p
\310\311@@@A@#\232\204p\211A\262
\202V\211@\262
\206
@A\312\211\203
\211A\262\242\313
8\262
\262
;\204|\312\314C\3152
\211
\242\206\243	\240\210\204\261\316\317\320\"\"\210\nD\211\203\311\211@\316\317\321\"\"\210
A\266\202\202\264\210\211\242A@\322\235\203\334\310\323\242@\"\202\346\310\311\242@\242A@#\211\242B\204
\211\235\204
\306
@\"\204
\211B
\266\2020\266\204\232\203|
\262
\312\262\202|\266\202\211\203&
\306\"\204&


BB\211\262
\262
A\211BA	
\312\211\324\325\326A@#\210\327!\204W
\324\330\331A@\332!$\210\312\202	\324\333\334\"\210\335!\324\333\336\"\210\204t
\324\330\337\332!#\210\312\202	rCq\210peb\210D\203\216
D\340\230\204\216
\341D!\210@\342=\203\303
m\204 \3431\274
\344`\345\312w\210`{\346\"\347!\347!
B\262
BB\211\2620\210\202\275
\210\312y\210\202\225
m\204 \3501\344\312f\351=\203\331
\347!\202`\340\352\312w\210
`{\262
\312f\353=\203`T\262\354u\210\352\312w\210\211`{P\262
\202\344
\262
\346\"\347!\347!
B\262
BB\211\2620\210\202\210\312y\210\202\303
\210)\355\356\"\262E\203J\357\317\360\"\"F\361\362!\210GH\363\330\363$\210*\202\365\364I!\210\361\365!\210\366 \210\312J\367 \210)\370 \210\310\371@A@#CK\312\211\372\340\")J\211A\262\242\211\262\203\354\373``T\310\374\340\230\203\234\375	@\211\262	!\202\247\375\n@\211\262\nP!\211LX\203\262\376\202\315\211MX\203\275\377\202\315\211NU\203\312\201O\202\315\201P\262
\201Q\nAATA@Z]$c\210\201RD#\210\202y)\266\201Sp!\210eb\210\201T \210\324\325\201UA@#\210\314)\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods assoc "native" format "%s:%s" nil 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (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) decode-coding-string "^ 	" utf-8-emacs read (error) 34 "^ 	\\\\" 92 2 sort #[514 "
@
@\231\207" [] 4 "\n\n(fn L1 L2)"] mapcar #[257 "\302
@\300\"\303
A	#\210\207" [V0 gnus-active-hashtb gnus-group-prefixed-name puthash] 6 "\n\n(fn GROUP)"] 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 gnus-newsrc-alist gnus-browse-current-method gnus-browse-return-buffer nntp-server-buffer 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 gnus-level-subscribed gnus-level-unsubscribed gnus-level-zombie 90 75 0 gnus-group switch-to-buffer gnus-group-position-point "Connecting to %s...done"] 18 (#$ . 34791)])
(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\322#\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 gnus-mode] 5)
#@620 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-toggle-subscription-at-point]' to subscribe or unsubscribe 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.

In addition to any hooks its parent mode `gnus-mode' might have run,
this mode runs the hook `gnus-browse-mode-hook', as the final or
penultimate step during initialization.
(defalias 'gnus-browse-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
#=\204R\326
\325#C#\210\327!\210\330\f!\210
#\331\332\333\"\203g\334 \210\335 \210\336$\337 \210\307%\340 \210)\341\342!\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 gnus-mode gnus-browse-mode "Browse Server" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put 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] 5 (#$ . 39556) nil])
#@114 Enter the group at the current line.
If NUMBER, fetch this number of articles.

(fn &optional NO-ARTICLE NUMBER)
(defalias 'gnus-browse-read-group #[512 "\303 \304
!\211
\232\206)G
GU\205)
\203'
@
\235\203'
A\262\202
?\266\203\2034\305
!\2025\211\211\306
	\"A@\262
\203G\307
!\203^\310
\n\311p\312B\311\211\211\n&?\205k\313\314\"\207\315\311#?\205k\313\314\"\207" [gnus-select-method gnus-newsrc-hashtb gnus-browse-current-method gnus-browse-group-name gnus-find-method-for-group gnus-group-short-name gethash gnus-ephemeral-group-p gnus-group-read-ephemeral-group nil browse error "Couldn't enter %s" gnus-group-read-group] 13 (#$ . 41169) ["P" (gnus-browse-mode)]])
#@92 Select the current group.
If NUMBER, fetch this number of articles.

(fn &optional NUMBER)
(defalias 'gnus-browse-select-group #[256 "\300\301\"\207" [gnus-browse-read-group no] 4 (#$ . 41865) ["P" (gnus-browse-mode)]])
#@31 Go to the next group.

(fn N)
(defalias 'gnus-browse-next-group #[257 "\211y\300 \210\207" [gnus-group-position-point] 3 (#$ . 42092) ["p" (gnus-browse-mode)]])
#@31 Go to the next group.

(fn N)
(defalias 'gnus-browse-prev-group #[257 "\300
[!\207" [gnus-browse-next-group] 3 (#$ . 42259) ["p" (gnus-browse-mode)]])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\303#\210\304\306\307\305#\207" [defalias gnus-browse-unsubscribe-current-group gnus-browse-toggle-subscription-at-point nil make-obsolete "28.1" gnus-browse-unsubscribe-group gnus-browse-toggle-subscription] 4)
#@168 (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.

(fn ARG)
(defalias 'gnus-browse-toggle-subscription-at-point #[257 "m\203\300\301!\210\211\302W\203\303\202\304\305!\211\302V\2034m\2044\306 \2034\307!\302U\2034\211S\262
\202\310 \210\211\302U\204B\311\312\313\"\210\207" [error "No group at current line" 0 -1 1 abs gnus-browse-toggle-subscription gnus-browse-next-group gnus-group-position-point gnus-message 7 "No more newsgroups"] 6 (#$ . 42695) ["p" (gnus-browse-mode)]])
(defalias 'gnus-browse-group-name #[0 "\212\302 \210\303`\304\"\305\306\307 \310#\205K\311\312@\"\313\311\312@\"\314\315!\"\204+\316	\"\205?
A@\205?
A@\317\230?\205?\320A@PP\262
\321\206J\322\323!Q\262
)\207" [gnus-browse-current-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] 7])
#@41 Describe the current group.

(fn GROUP)
(defalias 'gnus-browse-describe-group #[257 "\300\301\"\207" [gnus-group-describe-group nil] 4 (#$ . 43780) [(byte-code "\300 C\207" [gnus-browse-group-name] 1) (gnus-browse-mode)]])
#@309 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.

(fn GROUP FORCE)
(defalias 'gnus-browse-delete-group #[514 "\300\"\207" [gnus-group-delete-group] 5 (#$ . 44011) [(byte-code "\301 D\207" [current-prefix-arg gnus-browse-group-name] 2) (gnus-browse-mode)]])
#@64 Toggle subscription of the current group in the browse buffer.
(defalias 'gnus-browse-toggle-subscription #[0 "\306\211\211
\212\307 \210\306f\310=\204\311\262\312 \262
\313	\314\"\2030\315\316\"\203-\211\317\225\306O\202.\211\262
\203\211\320
!\203>\321
!\210\322
\n\"\211\203O\323
\"\266\202Z\324\f\"\210\325\326\"\266\327\330!\210\331
!\211
W\203k\310\202\202\211W\203v\332\202\202\211W\203\201\333\202\202\334\262
c\210\202\226\323

#\210\327\330!\210\332c\210*\311\207" [buffer-read-only gnus-browse-current-method gnus-newsrc-hashtb gnus-level-default-subscribed gnus-browse-subscribe-newsgroup-method gnus-level-unsubscribed 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 gethash gnus-group-change-level gnus-call-subscribe-functions gnus-request-update-group-status subscribe delete-char 1 gnus-group-level 85 90 75 gnus-level-zombie gnus-level-killed] 7 (#$ . 44518)])
#@47 Quit browsing and return to the group buffer.
(defalias 'gnus-browse-exit #[0 "\302\303!\203%p\211\211\205\304\305!\211\262!\205\211\262
\203$\306
!\210\307 \210\210rq\210\310\311!\210)	\2037\312\313\314\"\207\312\315\314\"\207" [gnus-group-buffer gnus-browse-return-buffer derived-mode-p gnus-browse-mode buffer-live-p get-buffer kill-buffer gnus-prune-buffers gnus-group-list-groups nil gnus-configure-windows server force group] 5 (#$ . 45536) [nil (gnus-browse-mode)]])
#@57 Give a one line description of the group mode commands.
(defalias 'gnus-browse-describe-briefly #[0 "\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 (#$ . 46026) [nil (gnus-browse-mode)]])
#@70 Issue a command to the server to regenerate all its data structures.
(defalias 'gnus-server-regenerate-server #[0 "\306 \211\204\n\307\310!\210\3111A
\312
\211\203\211<\203\211\2068
\313
\"A\2068
\211\314\232\203/	\206$
\313
\n\"A\206$
\313
\"A\206$
\f\211\203\\
\315\316@@@@@A@#\232\204\\\211A\262
\202@\211@@\262
\206$

\211\203
\315\316@@@A@#\232\204\211A\262
\202e\211@\262
\206$
#A\317\211\203\"
\211A\262\242\320
8\262
\262
;\204\213\317\321C\3222
\211
\242\206\262	\240\210\204\300\323\324\325\"\"\210\nD\211\203\330\211@\323\324\326\"\"\210
A\266\202\202\303\210\211\242A@\327\235\203\353\315\330\242@\"\202\365\315\316\242@\242A@#\211\242B\204
\211\235\204
\313
@\"\204
\211B
\266\2020\266\204\232\203\213
\262
\317\262\202\213\266\202\211\2035
\313\"\2045


BB\211\262
\262
\331\"0\210\202F
\210\307\332!\210\333\334\335#\210\336
!\204V
\307\337!\210\340
!\203b
\333\334\341#\207\333\334\342#\207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods 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 make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (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" gnus-newsrc-alist] 17 (#$ . 46450) nil])
#@101 Issue a command to the server to compact all its groups.

Note: currently only implemented in nnml.
(defalias 'gnus-server-compact-server #[0 "\306 \211\204\n\307\310!\210\3111A
\312
\211\203\211<\203\211\2068
\313
\"A\2068
\211\314\232\203/	\206$
\313
\n\"A\206$
\313
\"A\206$
\f\211\203\\
\315\316@@@@@A@#\232\204\\\211A\262
\202@\211@@\262
\206$

\211\203
\315\316@@@A@#\232\204\211A\262
\202e\211@\262
\206$
'A\317\211\203\"
\211A\262\242\320
8\262
\262
;\204\213\317\321C\3222
\211
\242\206\262	\240\210\204\300\323\324\325\"\"\210\nD\211\203\330\211@\323\324\326\"\"\210
A\266\202\202\303\210\211\242A@\327\235\203\353\315\330\242@\"\202\365\315\316\242@\242A@#\211\242B\204
\211\235\204
\313
@\"\204
\211B
\266\2020\266\204\232\203\213
\262
\317\262\202\213\266\202\211\2035
\313\"\2045


BB\211\262
\262
\331\"0\210\202F
\210\307\332!\210\333\334\335#\210\336
!\204V
\307\337!\210\340
!\204b
\333\334\341#\207\333\334\342#\210(\211\211\205{
\343\344!\211\262!\205{
\211\262
\205\206
\345
!\210\346 \207" [gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods 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 make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (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" buffer-live-p get-buffer kill-buffer gnus-prune-buffers gnus-newsrc-alist gnus-original-article-buffer] 17 (#$ . 48285) nil])
#@73 Toggle whether the server under point is replicated in the Emacs Cloud.
(defalias 'gnus-server-toggle-cloud-server #[0 "\301 \211\204\n\302\303!\210\304
\305\"\204\302\306!\210\307
!\203#\310
\"\202'\211B\311
!\210\312\313\307!\2037\314\2028\315#\207" [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 (#$ . 50324) [nil (gnus-server-mode)]])
#@53 Set the server under point to host the Emacs Cloud.
(defalias 'gnus-server-set-cloud-method-server #[0 "\301 \211\204\n\302\303!\210\304
!\204\302\305!\210
\230\204-\306\300\"\210\307\310\311\"!\203-\312\300\"\210\307\310\313\"!\205?\314\315\316#\210\317\320!\207" [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" customize-set-variable 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 (#$ . 50962) [nil (gnus-server-mode)]])
(provide 'gnus-srvr)