%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\324\325\326\327\317\330\321\331& \210\313\332\333\334\317\330\321\331&\210\313\335\315\336\337\340\317\330\321\341& \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-exit-hook nil "Hook run when exiting the server buffer." :group gnus-server :type hook 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)
(defvar gnus-server-mode-map nil)
#@54 Hook run after the creation of the server mode menu.
(custom-declare-variable 'gnus-server-menu-hook nil '(#$ . 2203) :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-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\300\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-make-nnir-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 #[nil "\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 \2036
\321 =\203< \322\f\323 \"\210)\324%\325\"\204V %&=\204V \326%\325&C#\210\327 !\210\330\f!\210%&\331\332\333\"\203l \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 parent 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 gnus-server-mode-abbrev-table local-abbrev-table mode-line-process truncate-lines] 6 (#$ . 8099) nil])
(defalias 'gnus-server-insert-server-line #[(name method) "\n@\nA@ \306\n
\"\211 0A@\307=\203 \310\202F 0A@\311=\203( \312\202F \3131D \314\n!\204; 0A@\315=\203? \316\202@ \3170\202F \210\320 12\203W \321\n!\203W \322\202X \323 3\324 !\203d \325\202e \323\326 !\203o \327\202p \323P 4\330 \210\331``T\3325!\210\333\334 !\335\334\n\336\337C\3402\211\242\206\226 6\240\210\204\256 \341\342\343\344\345\346!\347\"\350\351%7\"\21089D\211\203\321 \211@\341\342\343\352\345\346!\353\"\350\351%\"\210A\266\202\202\263 \210\211\242A@\354\235\203\344 \355\356\242@\"\202\356 \355\357\242@\242A@#\211\242B\2117\235\204\f\204\f\306@7\"\204\f\2117B7\266\2020\266\204!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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] 4 "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) format "%s" "%s:%s" elem gnus-tmp-status gnus-agent 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] 21])
#@27 Set up the server buffer.
(defalias 'gnus-enter-server-buffer #[nil "\301\302!\210r\303!q\210\304 \210\305 )\207" [gnus-server-buffer gnus-configure-windows server get-buffer-create gnus-server-mode gnus-server-prepare] 2 (#$ . 11174)])
(defalias 'gnus-server-prepare #[nil "\306\307!\210\306\302\310\"\210\311\211\211\211 \312 \210\311
\203V
@A \235\204F
@A B
\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 (#$ . 12217)])
(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 \211<\203 \211\206O\307
\"A\206O\211\310\232\203- '\206;\307 \"A\206;\307(\"A\206;)\211\203] \311\312@@@@@A@#\232\204] \211A\266\202\202@ \211@@\262\206;*\211\203\202 \311\312@@@A@#\232\204\202 \211A\266\202\202g \211@\262\206;+A\306\211\2039\211A\262\242\3138\262\262;\204\216 \306\314C\3152*\211\242\206\266 '\240\210\204\315 \316\317\320\321\322\323!\324\"\313\325%
\"\210 (D\211\203\357 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\321 \210\211\242A@\330\235\203\311\331\242@\"\202\f\311\312\242@\242A@#\211\242B\211
\235\204&\204&\307@
\"\204&\211
B\266\2020\266\204\232\203\216 \262\306\262\202\216 \266\202\211\203L\307
\"\204LB
B\211\262\262)\" ,\f\203m\332\333\n\334\335\fA!\336\260\337\340\n!\341Q\"\210\f\204v,\205\252\214~\210\342\n!\203\207\343 \344y\210`|\210\f\203\225\345\f@\fA\"\210\202\247\345\311\312,@@,@A@#,@\"\210\346 ),\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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (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 gnus-secondary-select-methods gnus-newsrc-alist oentry] 19])
(defalias 'gnus-server-set-info #[(server info) "\205Q \205Q \306\307\310\311 !\312\260\313\314!\315Q\"\210 A@\316\n\"\316\f\"\211 \2031 \317
\f\" \203H \320 A!\210 A @\240\210 A A\241\202P \n BC\244\211+\207" [server info gnus-server-alist entry gnus-server-method-cache cached gnus-dribble-enter "(gnus-server-set-info \"" "\" '" gnus-prin1-to-string ")" "^(gnus-server-set-info \"" regexp-quote "\"" assoc delq gnus-opened-servers-remove] 7])
#@38 Kill the server on the current line.
(defalias 'gnus-server-kill-server #[(server) "\306!\204 \203 \307\310\"\210\202 \307\311!\210\312 \"\204\" \307\313\"\210\314 \210\315\316 \317y\210`|\210)\312 \" B\320 @ \"\321!\211 \203~ \322\323\324\fG\"!\203~ \f\315 \211 \203} @\320\312
\"\"\203t
\325#\210A\211\204X *)\326 \207" [server gnus-server-alist buffer-read-only gnus-server-killed-servers groups group gnus-server-goto-server error "No such server: %s" "No server on the current line" assoc "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 --dolist-tail-- gnus-newsrc-alist gnus-group-change-level-function gnus-level-killed] 5 (#$ . 14850) (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 (#$ . 15738) nil])
#@29 Return to the group buffer.
(defalias 'gnus-server-exit #[nil "\302\303!\210p\211\211\205 \304\305 !\211!\205 )\203\" \306!\210\307 \210)\310\311\312\"\207" [buf buffer gnus-run-hooks gnus-server-exit-hook buffer-live-p get-buffer kill-buffer gnus-prune-buffers gnus-configure-windows group t] 4 (#$ . 16203) nil])
#@29 List all available servers.
(defalias 'gnus-server-list-servers #[nil "\301 \302 \210\203 \303!\210\202 db\210\304y\210\305 )\207" [cur gnus-server-server-name gnus-server-prepare gnus-server-goto-server -1 gnus-server-position-point] 2 (#$ . 16531) nil])
#@26 Make METHOD have STATUS.
(defalias 'gnus-server-set-status #[(method status) "\304 \"\211\203 \nA \240\202 D B\211)\207" [method gnus-opened-servers entry status assoc] 4 (#$ . 16798)])
#@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 (#$ . 16997)])
#@26 Force an open of SERVER.
(defalias 'gnus-server-open-server #[(server) "\211\203 \211<\203 \211\206>\306 \"A\206>\211\307\232\203 \n\206*\306 \"A\206*\306\f\"A\206*
\211\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206*!\211\203s \310\311@@@A@#\232\204s \211A\266\202\202X \211@\262\206*\"A\312\211\203(\211A\262\242\3138\262\262;\204 \312\314C\3152\211\242\206\246 \n\240\210\204\275 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\336 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\300 \210\211\242A@\330\235\203\361 \310\331\242@\"\202\373 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203 \262\312\262\202 \266\202\211\203;\306 \"\204;B B\211\262\262\211 #\204K\332\333\"\210\334#\335\"\210\336#!\337!\210\340 \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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" error "No such server: %s" gnus-server-set-status ok gnus-open-server gnus-server-update-server gnus-server-position-point gnus-secondary-select-methods gnus-newsrc-alist method] 19 (#$ . 17183) (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 (#$ . 18746) nil])
#@15 Close SERVER.
(defalias 'gnus-server-close-server #[(server) "\211\203 \211<\203 \211\206>\306 \"A\206>\211\307\232\203 \n\206*\306 \"A\206*\306\f\"A\206*
\211\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206*!\211\203s \310\311@@@A@#\232\204s \211A\266\202\202X \211@\262\206*\"A\312\211\203(\211A\262\242\3138\262\262;\204 \312\314C\3152\211\242\206\246 \n\240\210\204\275 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\336 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\300 \210\211\242A@\330\235\203\361 \310\331\242@\"\202\373 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203 \262\312\262\202 \266\202\211\203;\306 \"\204;B B\211\262\262\211 #\204K\332\333\"\210\334#\335\"\210\336#!\337!\210\340 \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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" error "No such server: %s" gnus-server-set-status closed gnus-close-server gnus-server-update-server gnus-server-position-point gnus-secondary-select-methods gnus-newsrc-alist method] 19 (#$ . 18977) (list (gnus-server-server-name))])
#@24 Set SERVER to offline.
(defalias 'gnus-server-offline-server #[(server) "\211\203 \211<\203 \211\206>\306 \"A\206>\211\307\232\203 \n\206*\306 \"A\206*\306\f\"A\206*
\211\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206*!\211\203s \310\311@@@A@#\232\204s \211A\266\202\202X \211@\262\206*\"A\312\211\203(\211A\262\242\3138\262\262;\204 \312\314C\3152\211\242\206\246 \n\240\210\204\275 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\336 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\300 \210\211\242A@\330\235\203\361 \310\331\242@\"\202\373 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203 \262\312\262\202 \266\202\211\203;\306 \"\204;B B\211\262\262\211 #\204K\332\333\"\210\334#!\335#\336\"\210\337!\210\340 \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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" error "No such server: %s" gnus-close-server gnus-server-set-status offline gnus-server-update-server gnus-server-position-point gnus-secondary-select-methods gnus-newsrc-alist method] 19 (#$ . 20535) (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 (#$ . 22105) nil])
#@50 Make sure SERVER will never be attempted opened.
(defalias 'gnus-server-deny-server #[(server) "\211\203 \211<\203 \211\206>\306 \"A\206>\211\307\232\203 \n\206*\306 \"A\206*\306\f\"A\206*
\211\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206* \211\203s \310\311@@@A@#\232\204s \211A\266\202\202X \211@\262\206*!A\312\211\203(\211A\262\242\3138\262\262;\204 \312\314C\3152\211\242\206\246 \n\240\210\204\275 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\336 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\300 \210\211\242A@\330\235\203\361 \310\331\242@\"\202\373 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203 \262\312\262\202 \266\202\211\203;\306 \"\204;B B\211\262\262\211 \"\204K\332\333\"\210\334\"\335\"\210)\336!\210\337 \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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" error "No such server: %s" gnus-server-set-status denied gnus-server-update-server gnus-server-position-point gnus-secondary-select-methods gnus-newsrc-alist method] 19 (#$ . 22404) (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 (#$ . 23976) 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\2030 \211<\2030 \211\206a\312 \"A\206a\211\314\232\203B \f\206M\312\n\"A\206M\312
\"A\206M\"\211\203q \315\316@@@@@A@#\232\204q \211A\266\202\202T \211@@\262\206M#\211\203\226 \315\316@@@A@#\232\204\226 \211A\266\202\202{ \211@\262\206M$A\317\211\203K\211A\262\242\3208\262\262;\204\242 \317\321C\3222<\211\242\206\311 \f\240\210\204\340 \323\324\325\326\327\330!\331\"\320\332% \"\210\n
D\211\203\211@\323\324\325\333\327\330!\334\"\320\332%\"\210A\266\202\202\343 \210\211\242A@\335\235\203\315\336\242@\"\202 \315\316\242@\242A@#\211\242B\211 \235\2048\2048\312@ \"\2048\211 B\266\2020\266\204\232\203\242 \262\317\262\202\242 \266\202\211\203^\312 \"\204^B B\211\262\262\204k\306\337\"\210\340\211\203{\211<\203{\211\206\254\312 \"A\206\254\211\314\232\203\215\f\206\230\312\n\"A\206\230\312
\"A\206\230\"\211\203\274\315\316@@@@@A@#\232\204\274\211A\266\202\202\237\211@@\262\206\230#\211\203\341\315\316@@@A@#\232\204\341\211A\266\202\202\306\211@\262\206\230$A\317\211\203\226\211A\262\242\3208\262\262;\204\355\317\321C\3222\207\211\242\206\f\240\210\204+\323\324\325\326\327\330!\331\"\320\332% \"\210\n
D\211\203L\211@\323\324\325\333\327\330!\334\"\320\332%\"\210A\266\202\202.\210\211\242A@\335\235\203_\315\336\242@\"\202i\315\316\242@\242A@#\211\242B\211 \235\204\203\204\203\312@ \"\204\203\211 B\266\2020\266\204\232\203\355\262\317\262\202\355\266\202\211\203\251\312 \"\204\251B B\211\262\262!B\211 % \240\210%AA \240\210%&B&\341 )\207" [from to gnus-server-alist gnus-server-method-cache gnus-select-method gnus-predefined-server-alist 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-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" "%s: no such server" copy-tree gnus-server-yank-server gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist to-entry gnus-server-killed-servers] 21 (#$ . 24259) (list (or (gnus-server-server-name) (error "No server on the current line")) (read-string "Copy to: "))])
(defalias 'gnus-server-add-server #[(how where) " \236\203\n \304\305!\210\nE B\306 \207" [where gnus-server-alist how gnus-server-killed-servers error "Server with that name already defined" gnus-server-yank-server] 3 nil (list (intern (gnus-completing-read "Server method" (mapcar 'car gnus-valid-select-methods) t)) (read-string "Server name: "))])
#@24 Jump to a server line.
(defalias 'gnus-server-goto-server #[(server) "\302ed\303\304!$\211\205 b\210\305 )\207" [server to text-property-any gnus-server intern gnus-server-position-point] 7 (#$ . 27199) (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 "Server %s must be edited in your configuration files" 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 (#$ . 27492) (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 \211<\203 \211\206F\310 \"A\206F\211\311\232\203( \n\2062\310 \"A\2062\310\f\"A\2062
\211\203V \312\313@@@@@A@#\232\204V \211A\266\202\2029 \211@@\262\2062 \211\203{ \312\313@@@A@#\232\204{ \211A\266\202\202` \211@\262\2062!A\314\211\2030\211A\262\242\3158\262\262;\204\207 \314\316C\3172!\211\242\206\256 \n\240\210\204\305 \320\321\322\323\324\325!\326\"\315\327% \"\210 \fD\211\203\346 \211@\320\321\322\330\324\325!\331\"\315\327%\"\210A\266\202\202\310 \210\211\242A@\332\235\203\371 \312\333\242@\"\202\312\313\242@\242A@#\211\242B\211 \235\204 \204 \310@ \"\204 \211 B\266\2020\266\204\232\203\207 \262\314\262\202\207 \266\202\211\203C\310 \"\204CB B\211\262\262 \"\334\"\335\336\337$)\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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-edit-form "Showing the server." #[(form) "\300 \207" [gnus-server-position-point] 1] edit-server gnus-secondary-select-methods gnus-newsrc-alist info] 18 (#$ . 28044) (list (gnus-server-server-name))])
#@41 Request a scan from the current server.
(defalias 'gnus-server-scan-server #[(server) "\211\203 \211<\203 \211\206>\306 \"A\206>\211\307\232\203 \n\206*\306 \"A\206*\306\f\"A\206*
\211\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206*#\211\203s \310\311@@@A@#\232\204s \211A\266\202\202X \211@\262\206*$A\312\211\203(\211A\262\242\3138\262\262;\204 \312\314C\3152\211\242\206\246 \n\240\210\204\275 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\336 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\300 \210\211\242A@\330\235\203\361 \310\331\242@\"\202\373 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203 \262\312\262\202 \266\202\211\203;\306 \"\204;B B\211\262\262 %\332%\333\"\204S\334\335%@\"\202d\336\337\340#\210\341\312%\"\210\336\337\342#)\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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (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-secondary-select-methods gnus-newsrc-alist method] 18 (#$ . 29627) (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 (#$ . 31230) (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 (#$ . 31474) (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-map nil)
(byte-code "\204 \301 \302!\210\303\300\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-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)] 3)
(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 \211<\203 \211\206>\306 \"A\206>\211\307\232\203 \n\206*\306 \"A\206*\306\f\"A\206*
\211\203N \310\311@@@@@A@#\232\204N \211A\266\202\2021 \211@@\262\206*@\211\203s \310\311@@@A@#\232\204s \211A\266\202\202X \211@\262\206*AA\312\211\203(\211A\262\242\3138\262\262;\204 \312\314C\3152\211\242\206\246 \n\240\210\204\275 \316\317\320\321\322\323!\324\"\313\325% \"\210 \fD\211\203\336 \211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\300 \210\211\242A@\330\235\203\361 \310\331\242@\"\202\373 \310\311\242@\242A@#\211\242B\211 \235\204\204\306@ \"\204\211 B\266\2020\266\204\232\203 \262\312\262\202 \266\202\211\203;\306 \"\204;B B\211\262\262BCDB E\n FE\312\211 G 8\332\333\334EA@#\210\335E!\204w\332\336\337EA@\340E!$\210\312\202[\332\341\342\"\210\343E!\332\341\344\"\210\204\225\332\336\345\340E!#\210\312\202[rHq\210p Ieb\210J\203\261J\346\230\204\261\347J!\210E@\350=\203\357m\204]\3511\344\352`\353\312w\210`{\354\"\355I! K\355I!K)BBGB\211G0\202\350\210\202\351\210\312y\210\202\271m\204]\3561R\352\312f\357=\203\355I!\2027`\346 L M\360\312w\210M`{L\312f\361=\2034`TM\362u\210\360\312w\210LM`{PL\202L*\354\"\355I! K\355I!K)BBGB\211G0\202V\210\202W\210\312y\210\202\357*\363G\364\"GN\203\205F\365\366G\" O\367\370!\210PQ\371\336\371$\210*\202G\372R!\210\367\373!\210\374 \210\312 S\375 \210)\376 \210\310\377E@EA@#CT\312\211F\201Z \346E\") U L SG\211AG\242\2118\203@\201[ ``T\310\201\\ U\346\230\203\346\201] 8@\211L!\202\363\201] U8@\211LP!\211 VWX\203\201^ \202!VXX\203\201_ \202!VYU\203 \201` \202!\201a )\201b 8AAT8A@Z]L$c\210\201c LD#\210\202\273+\201d p!\210eb\210\201e \210\332\333\201f EA@#\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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (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 #[(l1 l2) "@ @\231\207" [l1 l2] 2] mapcar #[(group) "\304@ \"\305\nA #\210\n)\207" [group method name gnus-active-hashtb gnus-group-prefixed-name puthash] 4] gnus-configure-windows group ignore gnus-get-buffer-create browse buffer-disable-undo erase-buffer gnus-browse-mode "Gnus: %%b {%s:%s}" gnus-secondary-select-methods gnus-newsrc-alist gnus-browse-current-method return-buffer gnus-browse-return-buffer method orig-select-method groups nntp-server-buffer cur gnus-ignored-newsgroups last name 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-prefixed-name add-text-properties "%c%7d: %s\n" gnus-group-level 32 85 90 75 0 gnus-group switch-to-buffer gnus-group-position-point "Connecting to %s...done"] 19 (#$ . 34675)])
(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)
#@601 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.
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 #[nil "\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 \2036
\321 =\203< \322\f\323 \"\210)\324#\325\"\204V #$=\204V \326#\325$C#\210\327 !\210\330\f!\210#$\331\332\333\"\203l \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 parent 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 gnus-browse-mode-abbrev-table local-abbrev-table mode-line-process truncate-lines] 6 (#$ . 39533) 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) "\306 \307!\211 \232\206* GGU\205* \203( @\235\203( A\262\202 ?\266\203\2035 \310!\2026 \211\311 \"A@\262\203I \312\n!\203a \313\n\f\314p\315B\314\211\211
&?\205o \316\317\n\"\202o \320\314\n#?\205o \316\317\n\"*\207" [full-name gnus-select-method group gnus-newsrc-hashtb gnus-browse-current-method number 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 no-article] 10 (#$ . 41134) "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 (#$ . 41841) "P"])
#@23 Go to the next group.
(defalias 'gnus-browse-next-group #[(n) "y\301 \210\207" [n gnus-group-position-point] 2 (#$ . 42046) "p"])
#@23 Go to the next group.
(defalias 'gnus-browse-prev-group #[(n) "\301[!\207" [n gnus-browse-next-group] 2 (#$ . 42183) "p"])
#@158 (Un)subscribe to the next ARG groups.
The variable `gnus-browse-subscribe-newsgroup-method' determines
how new groups will be entered into the group buffer.
(defalias 'gnus-browse-unsubscribe-current-group #[(arg) "m\203 \302\303!\210\304W\203 \305\202 \306\307!\304V\2036 m\2046 \310 \2036 \311 !\304U\2036 S\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 (#$ . 42314) "p"])
(defalias 'gnus-browse-group-name #[nil "\212\303 \210\304`\305\"\306\307\310 \311#\205L \312\313@\"\314\312\313@\"\315\316!\"\204, \317\n\"\205@ A@\205@ A@\320\230?\205@ \321A@PP\262\322\206K \323\324!Q*\207" [name 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] 6])
#@29 Describe the current group.
(defalias 'gnus-browse-describe-group #[(group) "\301\302\"\207" [group gnus-group-describe-group nil] 3 (#$ . 43370) (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 (#$ . 43558) (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. \317\f\320\225\"\202/ \f)\n\203\222 \321!\203? \322!\210\323
\"\211 \203S \324 \"\210\202^ \325 \"\210\326\327\"\210)\330\331!\210\332!\211 !\"W\203s \310\202\214 !#W\203 \333\202\214 !$W\203\213 \334\202\214 \335)c\210\202\241 \324\" #\210\330\331!\210\333c\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 "^[^:]+:" substring 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 entry gnus-level-default-subscribed gnus-browse-subscribe-newsgroup-method lvl gnus-level-unsubscribed gnus-level-zombie gnus-level-killed] 5 (#$ . 44027)])
#@47 Quit browsing and return to the group buffer.
(defalias 'gnus-browse-exit #[nil "\304\305!\203% p\211\211\205 \306\307 !\211!\205 )\203$ \310!\210\311 \210)r\nq\210\312\313!\210) \2037 \314\315\316\"\207\314\317\316\"\207" [buf buffer 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] 4 (#$ . 45073) 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 (#$ . 45544) 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\3111V\312\211\203 \211<\203 \211\206N\313 \"A\206N\211\314\232\2030 \n\206:\313 \"A\206:\313\f\"A\206:
\211\203^ \315\316@@@@@A@#\232\204^ \211A\266\202\202A \211@@\262\206:)\211\203\203 \315\316@@@A@#\232\204\203 \211A\266\202\202h \211@\262\206:*A\317\211\2038\211A\262\242\3208\262\262;\204\217 \317\321C\3222)\211\242\206\266 \n\240\210\204\315 \323\324\325\326\327\330!\331\"\320\332% \"\210 \fD\211\203\356 \211@\323\324\325\333\327\330!\334\"\320\332%\"\210A\266\202\202\320 \210\211\242A@\335\235\203\315\336\242@\"\202 \315\316\242@\242A@#\211\242B\211 \235\204%\204%\313@ \"\204%\211 B\266\2020\266\204\232\203\217 \262\317\262\202\217 \266\202\211\203K\313 \"\204KB B\211\262\262\337\"0\202Z\210\307\340!\210\341\342\343#\210\344!\204k\307\345!\210\346!\203y\341\342\347#\202~\341\342\350#)\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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (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-secondary-select-methods gnus-newsrc-alist] 20 (#$ . 45949) 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\3111V\312\211\203 \211<\203 \211\206N\313 \"A\206N\211\314\232\2030 \n\206:\313 \"A\206:\313\f\"A\206:
\211\203^ \315\316@@@@@A@#\232\204^ \211A\266\202\202A \211@@\262\206:-\211\203\203 \315\316@@@A@#\232\204\203 \211A\266\202\202h \211@\262\206:.A\317\211\2038\211A\262\242\3208\262\262;\204\217 \317\321C\3222)\211\242\206\266 \n\240\210\204\315 \323\324\325\326\327\330!\331\"\320\332% \"\210 \fD\211\203\356 \211@\323\324\325\333\327\330!\334\"\320\332%\"\210A\266\202\202\320 \210\211\242A@\335\235\203\315\336\242@\"\202 \315\316\242@\242A@#\211\242B\211 \235\204%\204%\313@ \"\204%\211 B\266\2020\266\204\232\203\217 \262\317\262\202\217 \266\202\211\203K\313 \"\204KB B\211\262\262\337\"0\202Z\210\307\340!\210\341\342\343#\210\344!\204k\307\345!\210\346!\204y\341\342\347#\202\244\341\342\350#\210/\211 0\211 1\205\230\351\3521!\2111!\205\2301)\205\243\3530!\210\354 ))\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 make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (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-secondary-select-methods gnus-newsrc-alist gnus-original-article-buffer buf buffer] 20 (#$ . 47827) nil])
#@73 Toggle whether the server under point is 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 (#$ . 49927) nil])
#@53 Set the server under point to host the Emacs Cloud.
(defalias 'gnus-server-set-cloud-method-server #[nil "\302 \211\204 \303\304!\210\305!\204 \303\306!\210 \230\204. \307\301\"\210\310\311\312\"!\203. \313\301\"\210\310\311\314\"!\205@ \315\316\317#\210\320\321!)\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" 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 (#$ . 50551) nil])
(provide 'gnus-srvr)
Zerion Mini Shell 1.0