;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:43:55 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/gnus-srvr.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-srvr.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require gnus gnus-spec gnus-group gnus-int gnus-range] 2) #@41 Hook run in `gnus-server-mode' buffers. (defvar gnus-server-mode-hook nil (#$ . 763)) #@193 Format of server lines. It works along the same lines as a normal formatting string, with some simple extensions. The following specs are understood: %h backend %n name %w address %s status (defconst gnus-server-line-format " {%(%h:%w%)} %s\n" (#$ . 856)) #@52 The format specification for the server mode line. (defvar gnus-server-mode-line-format "Gnus: %%b" (#$ . 1124)) #@43 *Hook run when exiting the server buffer. (defvar gnus-server-exit-hook nil (#$ . -1243)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\310\303B\306\303!\204$\311\304B\306\304!\2040\307\305B\306\305!\204<\307\312B\306\312!\204I\307\n\313B\307\207" [current-load-list gnus-inserted-opened-servers gnus-server-line-format-alist gnus-server-mode-line-format-alist gnus-server-line-format-spec gnus-server-mode-line-format-spec boundp nil ((104 gnus-tmp-how 115) (110 gnus-tmp-name 115) (119 gnus-tmp-where 115) (115 gnus-tmp-status 115)) ((83 gnus-tmp-news-server 115) (77 gnus-tmp-news-method 115) (117 gnus-tmp-user-defined 115)) gnus-server-killed-servers gnus-server-mode-map] 2) #@55 *Hook run after the creation of the server mode menu. (defvar gnus-server-menu-hook nil (#$ . -1966)) (defalias 'gnus-server-make-menu-bar #[nil "\303\304!\210\305\300!?\2058\306\300\307\310#\210\305\300!\204\311\312\300 \310\313$\210\306\302\307\310#\210\305\302!\204.\311\312\302 \310\314$\210\315\316!\207" [gnus-server-server-menu gnus-server-mode-map gnus-server-connections-menu gnus-turn-off-edit-menu server boundp put variable-documentation "" nil easy-menu-do-define ("Server" ["Add" gnus-server-add-server t] ["Browse" gnus-server-read-server t] ["Scan" gnus-server-scan-server t] ["List" gnus-server-list-servers t] ["Kill" gnus-server-kill-server t] ["Yank" gnus-server-yank-server t] ["Copy" gnus-server-copy-server t] ["Edit" gnus-server-edit-server t] ["Regenerate" gnus-server-regenerate-server t] ["Exit" gnus-server-exit t]) ("Connections" ["Open" gnus-server-open-server t] ["Close" gnus-server-close-server t] ["Deny" gnus-server-deny-server t] "---" ["Open All" gnus-server-open-all-servers t] ["Close All" gnus-server-close-all-servers t] ["Reset All" gnus-server-remove-denials t]) gnus-run-hooks gnus-server-menu-hook] 5]) (byte-code "\301B\302\301!\204\f\303\304\305\306\307#\210 \204\"\310 \311 !\210\312\301\313\"\210\303\207" [current-load-list gnus-server-mode-map boundp nil put gnus-server-mode mode-class special make-sparse-keymap suppress-keymap gnus-define-keys-1 (" " gnus-server-read-server " " gnus-server-read-server gnus-mouse-2 gnus-server-pick-server "q" gnus-server-exit "l" gnus-server-list-servers "k" gnus-server-kill-server "y" gnus-server-yank-server "c" gnus-server-copy-server "a" gnus-server-add-server "e" gnus-server-edit-server "s" gnus-server-scan-server "O" gnus-server-open-server "\357" gnus-server-open-all-servers "C" gnus-server-close-server "\343" gnus-server-close-all-servers "D" gnus-server-deny-server "R" gnus-server-remove-denials "n" next-line "p" previous-line "g" gnus-server-regenerate-server " " gnus-info-find-node "" gnus-bug)] 4) #@268 Major mode for listing and editing servers. All normal editing commands are switched off. \ For more in-depth information on this mode, read the manual (`\[gnus-info-find-node]'). The following commands are available: \{gnus-server-mode-map} (defalias 'gnus-server-mode #[nil "\306\307\310\"\203\n\311 \210\312 \210\313 \210\314\315\316 \210\317\320 !\210\321 \210\322\322\323\324!\207" [major-mode mode-name mode-line-process gnus-server-mode-map truncate-lines buffer-read-only gnus-visual-p server-menu menu gnus-server-make-menu-bar kill-all-local-variables gnus-simplify-mode-line gnus-server-mode "Server" gnus-set-default-directory nil use-local-map buffer-disable-undo t gnus-run-hooks gnus-server-mode-hook] 3 (#$ . 3995) nil]) (defalias 'gnus-server-insert-server-line #[(gnus-tmp-name method) "@A@\306 \"\211A@\307=\203\310\202\311\312\313\217\314 \210\315``T\316!\210\317\320!D#,\207" [method gnus-tmp-how gnus-tmp-where gnus-opened-servers elem gnus-tmp-status assoc denied "(denied)" nil (byte-code "\302!\204 A@\303=\203\304\207\305\207" [method elem gnus-server-opened ok "(opened)" "(closed)"] 2) (((error) "(error)")) beginning-of-line gnus-add-text-properties eval gnus-server intern gnus-server-line-format-spec gnus-tmp-name] 7]) #@27 Set up the server buffer. (defalias 'gnus-enter-server-buffer #[nil "\300 \210\301\302!\210\303 \207" [gnus-server-setup-buffer gnus-configure-windows server gnus-server-prepare] 2 (#$ . 5303)]) #@31 Initialize the server buffer. (defalias 'gnus-server-setup-buffer #[nil "\302!?\205\212\303!q\210\304 \210 \205\305\306!)\207" [gnus-server-buffer gnus-carpal get-buffer gnus-get-buffer-create gnus-server-mode gnus-carpal-setup-buffer server] 2 (#$ . 5504)]) (defalias 'gnus-server-prepare #[nil "\306\307!\210\306\303\310\"\210\311 \311\211\211\312 \210\311\203r\211@A)\f\235\204Z\211@A)\fB\211A@\211A\210 \203Z @\203Z A\203Z\313 @ A\"\210\211@A)\f\235\203\211A@\210\202 \203\316 \211@@)\f\235\204\307 \211@@)\235\204\307 \211@@)\fB\313\314\315 \211@@)@ \211@@)A@#\211 \211@@)\"\210\n \211@@)DB A\211\204v.eb\210\316 \207" [gnus-server-alist gnus-opened-servers op-ser server done opened gnus-set-format server-mode t nil erase-buffer gnus-server-insert-server-line format "%s:%s" gnus-server-position-point buffer-read-only alist gnus-inserted-opened-servers x gnus-ephemeral-servers] 7]) (defalias 'gnus-server-server-name #[nil "\301\302 \303\"\211\205 \304!)\207" [server get-text-property gnus-point-at-bol gnus-server symbol-name] 4]) (byte-code "\302\303\304\"\210\301B\305\302\207" [current-load-list gnus-server-edit-buffer defalias gnus-server-position-point gnus-goto-colon "*Gnus edit server*"] 3) (defalias 'gnus-server-update-server #[(server) "\212q\210\306\307\n \"\307\310\n! \"\f\203$\311\312\n\313\314\fA!\315\260!\210\f\204-\205g\214~\210\316\n!\203@\317 \210`\320y\210`|\210\f\203N\321\f@\fA\"\210\202d\321\322\323\211@@)@A@#@\"\210\324 ),\207" [gnus-server-buffer buffer-read-only server gnus-server-alist entry gnus-opened-servers nil assoc gnus-server-to-method gnus-dribble-enter "(gnus-server-set-info \"" "\" '" prin1-to-string ")\n" gnus-server-goto-server beginning-of-line 1 gnus-server-insert-server-line format "%s:%s" gnus-server-position-point oentry x] 7]) (defalias 'gnus-server-set-info #[(server info) "\2050 \2050\304\305\306\307 !\310\260!\210 A@\311\n\"\211\203' \241\202/\n BC\244\211*\207" [server info gnus-server-alist entry gnus-dribble-enter "(gnus-server-set-info \"" "\" '" prin1-to-string ")" assoc] 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 \210`\317y\210`|\210)\312 \" B\320 @ \"\321!\211\203\200\322\323\324\fG\"!\203\200\f\315\211\203@\320\312 \"\"\203v \325#\210A\211\204Z*)\326 \207" [server gnus-server-alist buffer-read-only gnus-server-killed-servers groups group gnus-server-goto-server error "No such server: %s" "No server on the current line" assoc "Read-only server %s" gnus-dribble-touch nil beginning-of-line 1 delq gnus-groups-from-server gnus-yes-or-no-p format "Kill all %s groups from this server? " 3 gnus-server-position-point #1=#:--dolist-temp--97316 gnus-newsrc-alist gnus-group-change-level-function gnus-level-killed] 6 (#$ . 7684) (list (gnus-server-server-name))]) #@36 Yank the previously killed server. (defalias 'gnus-server-yank-server #[nil "\204\306\307!\210 \310 @ \204 \nC\244\202W \211@@)\230\203.\n B\202W\fA\203F \f\211A@)@\230\204F\fA\211\202/\f\203T\f\n\fAB\241\210\202W\nC\311\n@!\210A\312 +\207" [gnus-server-killed-servers gnus-server-alist killed server alist x error "No killed servers to be yanked" gnus-server-server-name gnus-server-update-server gnus-server-position-point] 4 (#$ . 8561) nil]) #@29 Return to the group buffer. (defalias 'gnus-server-exit #[nil "\300\301!\210\302p!\210\303\304\305\"\207" [gnus-run-hooks gnus-server-exit-hook kill-buffer gnus-configure-windows group t] 3 (#$ . 9039) nil]) #@29 List all available servers. (defalias 'gnus-server-list-servers #[nil "\301 \302 \210\203\303!\210\202db\210\304y\210\305 )\207" [cur gnus-server-server-name gnus-server-prepare gnus-server-goto-server -1 gnus-server-position-point] 2 (#$ . 9253) 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 (#$ . 9519)]) #@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 (#$ . 9717)]) #@26 Force an open of SERVER. (defalias 'gnus-server-open-server #[(server) "\302!\211\204 \303\304\"\210\305 \306\"\210\307 !\206\310\311\"\210\312\313!\210\314 \210)\207" [server method gnus-server-to-method error "No such server: %s" gnus-server-set-status ok gnus-open-server message "Couldn't open %s" nil gnus-server-update-server gnus-server-position-point] 4 (#$ . 9902) (list (gnus-server-server-name))]) #@19 Open all servers. (defalias 'gnus-server-open-all-servers #[nil " \205\302 \211A@@!\210\202)\207" [gnus-inserted-opened-servers servers gnus-server-open-server] 3 (#$ . 10325) nil]) #@15 Close SERVER. (defalias 'gnus-server-close-server #[(server) "\302!\211\204 \303\304\"\210\305 \306\"\210\307 !\310!\210\311 \210)\207" [server method gnus-server-to-method error "No such server: %s" gnus-server-set-status closed gnus-close-server gnus-server-update-server gnus-server-position-point] 4 (#$ . 10520) (list (gnus-server-server-name))]) #@20 Close all servers. (defalias 'gnus-server-close-all-servers #[nil " \205\302 \211A@@!\210\202)\207" [gnus-inserted-opened-servers servers gnus-server-close-server] 3 (#$ . 10883) nil]) #@50 Make sure SERVER will never be attempted opened. (defalias 'gnus-server-deny-server #[(server) "\302!\211\204 \303\304\"\210\305 \306\"\210)\307!\210\310 \210\311\207" [server method gnus-server-to-method error "No such server: %s" gnus-server-set-status denied gnus-server-update-server gnus-server-position-point t] 4 (#$ . 11081) (list (gnus-server-server-name))]) #@46 Make all denied servers into closed servers. (defalias 'gnus-server-remove-denials #[nil "\211\203 @A@\302=\203 @A\303\240\210 A\211\204)\304 \207" [gnus-opened-servers servers denied closed gnus-server-list-servers] 3 (#$ . 11460) nil]) (defalias 'gnus-server-copy-server #[(from to) "\204\305\306!\210 \203 \307\230\203\305\310!\210\311 \n\"\203\"\305\312 \"\210\313!\204-\305\314\"\210\315\313!!B\211 \240\210 AA \240\210 \fB\316 )\207" [from to gnus-server-alist to-entry gnus-server-killed-servers error "No server on current line" "" "No name to copy to" assoc "%s already exists" gnus-server-to-method "%s: no such server" gnus-copy-sequence gnus-server-yank-server] 5 nil (list (or (gnus-server-server-name) (error "No server on the current line")) (read-string "Copy to: "))]) (defalias 'gnus-server-add-server #[(how where) " \236\203\n\304\305!\210\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 (completing-read "Server method: " gnus-valid-select-methods nil t)) (read-string "Server name: "))]) #@24 Jump to a server line. (defalias 'gnus-server-goto-server #[(server) "\302ed\303\304!$\211\205 b\210\305 )\207" [server to text-property-any gnus-server intern gnus-server-position-point] 7 (#$ . 12619) (list (completing-read "Goto server: " gnus-server-alist nil t))]) #@38 Edit the server on the current line. (defalias 'gnus-server-edit-server #[(server) "\204\303\304!\210\305 \"\204\303\306!\210\305 \"A\307\n!\210\310\n\311\312\313\314\315BB\316BBB#)\207" [server gnus-server-alist info error "No server on current line" assoc "This server can't be edited" gnus-close-server gnus-edit-form "Editing the server." lambda (form) gnus-server-set-info (form) ((gnus-server-list-servers) (gnus-server-position-point))] 8 (#$ . 12899) (list (gnus-server-server-name))]) #@41 Request a scan from the current server. (defalias 'gnus-server-scan-server #[(server) "\302!\303 \304\"\204\305\306 @\"\202#\307\310\311#\210\312\313 \"\210\307\310\314#)\207" [server method gnus-server-to-method gnus-get-function request-scan error "Server %s can't scan" gnus-message 3 "Scanning %s..." gnus-request-scan nil "Scanning %s...done"] 4 (#$ . 13408) (list (gnus-server-server-name))]) #@18 Browse a server. (defalias 'gnus-server-read-server #[(server) "p\302 \"\212q\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 (#$ . 13820) (list (gnus-server-server-name))]) (defalias 'gnus-server-pick-server #[(e) "\301!\210\302\303 !\207" [e mouse-set-point gnus-server-read-server gnus-server-server-name] 2 nil "e"]) #@55 *Hook run after the creation of the browse mode menu. (defvar gnus-browse-menu-hook nil (#$ . -14255)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\305\306\307\310#\210\n\204.\311 \312\n!\210\313\302\314\"\210\304\207" [current-load-list gnus-browse-mode-hook gnus-browse-mode-map boundp nil put gnus-browse-mode mode-class special make-keymap suppress-keymap gnus-define-keys-1 (" " gnus-browse-read-group "=" gnus-browse-select-group "n" gnus-browse-next-group "p" gnus-browse-prev-group "" gnus-browse-prev-group [delete] gnus-browse-prev-group "N" gnus-browse-next-group "P" gnus-browse-prev-group "\356" gnus-browse-next-group "\360" gnus-browse-prev-group " " gnus-browse-select-group "u" gnus-browse-unsubscribe-current-group "l" gnus-browse-exit "L" gnus-browse-exit "q" gnus-browse-exit "Q" gnus-browse-exit "" gnus-browse-exit "?" gnus-browse-describe-briefly " " gnus-info-find-node "" gnus-bug)] 4) (defalias 'gnus-browse-make-menu-bar #[nil "\302\303!\210\304\300!?\205#\305\300\306\307#\210\304\300!\204\310\311\300 \307\312$\210\313\314!\207" [gnus-browse-menu gnus-browse-mode-map gnus-turn-off-edit-menu browse boundp put variable-documentation "" nil easy-menu-do-define ("Browse" ["Subscribe" gnus-browse-unsubscribe-current-group t] ["Read" gnus-browse-read-group t] ["Select" gnus-browse-select-group t] ["Next" gnus-browse-next-group t] ["Prev" gnus-browse-prev-group t] ["Exit" gnus-browse-exit t]) gnus-run-hooks gnus-browse-menu-hook] 5]) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\305\303B\304\303!\204$\306\305\207" [current-load-list gnus-browse-current-method gnus-browse-return-buffer gnus-browse-buffer boundp nil "*Gnus Browse Server*"] 2) #@27 Browse the server SERVER. (defalias 'gnus-browse-foreign-server #[(server &optional return-buffer) "\306!\n \211\3071\3072\310\311\312\fA@#\210\313\f!\204-\310\314\315\fA@\316\f!$\210\307\202W\310\317\320\"\210\321\f!\310\317\322\"\210\204I\310\314\323\316\f!#\210\307\202W\3243!\2104\203W\325\326!\210\327\326!\210\330 \210\3075\331 \210)\332 \210\333\334\f@\f\2116A@)#C7\2128q\210p9eb\210:\335\230\204\216\336:!\210m\204\235\337\340\341\217\210\307y\210\202\216*\3421\343\"1\307\211;51\203C1@2\f22\211\204\304\3442!\345\f<\"=\307>?\211@\203\334@A\202?\211A?@\211@\203\376\346@@2\"\203\334\307?@A>\202\334>-;\347``T\333\3502A2@;;\211A\203-;\203-\351\352!\203-\353A;\"\202/A*#c\210\3542@D#\2101A\2111\204\260*\355p!\210eb\210\356 \210\310\311\357\fA@#\210\360,\207" [server gnus-browse-current-method return-buffer gnus-browse-return-buffer method gnus-select-method gnus-server-to-method nil 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" gnus-get-buffer-create gnus-carpal-setup-buffer browse gnus-configure-windows buffer-disable-undo erase-buffer gnus-browse-mode format "Gnus: %%b {%s:%s}" "" delete-matching-lines #1=#:G97317 (byte-code "\304f\305=\203 \306!\2025`\307\310\304w\210\n`{\304f\311=\2033`T\312u\210\310\304w\210 \n`{P\202 *\313\306!T\306!Z]B B\304\207" [cur name p groups nil 34 read "" "^ \\\\" 92 2 0] 5) ((error)) sort #[(l1 l2) "@ @\231\207" [l1 l2] 2] gnus-find-method-for-group assoc string-match gnus-add-text-properties "K%7d: %s\n" featurep mule mm-decode-coding-string gnus-group switch-to-buffer gnus-group-position-point "Connecting to %s...done" t groups group gnus-browse-buffer gnus-carpal buffer-read-only x mode-line-buffer-identification nntp-server-buffer cur gnus-ignored-newsgroups charset gnus-group-name-charset-method-alist gnus-group-name-charset-group-alist result alist item string] 10 (#$ . 15993)]) #@427 Major mode for browsing a foreign server. All normal editing commands are switched off. \ The only things you can do in this buffer is 1) `\[gnus-browse-unsubscribe-current-group]' to subscribe to a group. The group will be inserted into the group buffer upon exit from this buffer. 2) `\[gnus-browse-read-group]' to read a group ephemerally. 3) `\[gnus-browse-exit]' to return to the group buffer. (defalias 'gnus-browse-mode #[nil "\306 \210\307\310\311\"\203 \312 \210\313 \210\314\315\316\317 !\210\320 \210\321\322 \210\321\323\324!\207" [major-mode mode-name mode-line-process gnus-browse-mode-map truncate-lines buffer-read-only kill-all-local-variables gnus-visual-p browse-menu menu gnus-browse-make-menu-bar gnus-simplify-mode-line gnus-browse-mode "Browse Server" nil use-local-map buffer-disable-undo t gnus-set-default-directory gnus-run-hooks gnus-browse-mode-hook] 3 (#$ . 18106) nil]) #@38 Enter the group at the current line. (defalias 'gnus-browse-read-group #[(&optional no-article) "\305 \306\307 \"J8\203\310!\2038\311\312\313\n\"\203%\n\314\225\315O\202&\n) \315p\316B$?\205E\317\320\"\202E\321\315\f#?\205E\317\320\")\207" [group gnus-newsrc-hashtb gname gnus-browse-current-method no-article gnus-browse-group-name 2 intern-soft gnus-ephemeral-group-p gnus-group-read-ephemeral-group string-match "^[^:]+:" 0 nil browse error "Couldn't enter %s" gnus-group-read-group] 6 (#$ . 19046) nil]) #@27 Select the current group. (defalias 'gnus-browse-select-group #[nil "\300\301!\207" [gnus-browse-read-group no] 2 (#$ . 19576) nil]) #@23 Go to the next group. (defalias 'gnus-browse-next-group #[(n) "y\301 \210\207" [n gnus-group-position-point] 2 (#$ . 19715) "p"]) #@23 Go to the next group. (defalias 'gnus-browse-prev-group #[(n) "\301[!\207" [n gnus-browse-next-group] 2 (#$ . 19852) "p"]) #@39 (Un)subscribe to the next ARG groups. (defalias 'gnus-browse-unsubscribe-current-group #[(arg) "m\203\302\303!\210\304W\203\305\202\306\307!\304V\2036m\2046\310 \2036\311\312 !!\2036S\211\202\313 \210\304U\204D\314\315\316\"\210*\207" [arg ward error "No group at current line" 0 -1 1 abs gnus-browse-unsubscribe-group zerop gnus-browse-next-group gnus-group-position-point gnus-message 7 "No more newsgroups"] 4 (#$ . 19982) "p"]) (defalias 'gnus-browse-group-name #[nil "\212\302 \210\303`\304\"\305\306\307 \310#\205\311\206\312\313! \"*\207" [name gnus-browse-current-method beginning-of-line get-text-property gnus-group re-search-forward ": \\(.*\\)$" gnus-point-at-eol t gnus-group-prefixed-name match-string-no-properties 1] 4]) #@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=\203\311\312 \n\203+\313 \"J\211A@)\203+\314\315!\210\316\317!\210\n\203i\320!\210\321\311 \306\211\322\323\"?\205J\324!\257 A@@\205`\313A@@ \"J\311%\210\325c\210\202s\321 #\210\310c\210,\311\207" [group buffer-read-only sub gnus-newsrc-hashtb x gnus-level-default-subscribed nil beginning-of-line 75 t gnus-browse-group-name intern-soft error "Group already subscribed" delete-char 1 gnus-kill-ephemeral-group gnus-group-change-level gnus-server-equal "native" gnus-method-simplify 32 gnus-browse-current-method gnus-level-killed gnus-newsrc-alist] 10 (#$ . 20753)]) #@47 Quit browsing and return to the group buffer. (defalias 'gnus-browse-exit #[nil "\303=\203\n\304p!\210\212 q\210\305\306!\210)\n\203\307\310\311\"\207\307\312\311\"\207" [major-mode gnus-group-buffer gnus-browse-return-buffer gnus-browse-mode kill-buffer gnus-group-list-groups nil gnus-configure-windows server force group] 3 (#$ . 21504) nil]) #@57 Give a one line description of the group mode commands. (defalias 'gnus-browse-describe-briefly #[nil "\300\301\302\303!\"\207" [gnus-message 6 substitute-command-keys "\\\\[gnus-group-next-group]:Forward \\[gnus-group-prev-group]:Backward \\[gnus-browse-exit]:Exit \\[gnus-info-find-node]:Run Info \\[gnus-browse-describe-briefly]:This help"] 4 (#$ . 21860) nil]) #@70 Issue a command to the server to regenerate all its data structures. (defalias 'gnus-server-regenerate-server #[nil "\303 \211\204 \304\305!\210\306\307!@\310\311\312\217*\204 \304\313!\202C\314\315\316#\210\317!\2040\304\320!\210\321!\203>\314\315\322#\202C\314\315\323#)\207" [server group func gnus-server-server-name error "No server on the current line" request-regenerate gnus-server-to-method #1=#:G97318 (byte-code ";\203\f\303!@\202 \304 !\204\305 !\210\306\307\310\311 \n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) "This backend doesn't support regeneration" gnus-message 5 "Requesting regeneration of %s..." gnus-open-server "Couldn't open server" gnus-request-regenerate "Requesting regeneration of %s...done" "Couldn't regenerate %s"] 5 (#$ . 22257) nil]) (provide 'gnus-srvr)