;ELC ;;; compiled by amu@mit.edu on Sat Sep 13 16:19:34 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/gnus-srvr.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 "!!!!!" [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 (#$ . 589)) #@115 Format of server lines. It works along the same lines as a normal formatting string, with some simple extensions. (defconst gnus-server-line-format " {%(%h:%w%)} %s\n" (#$ . 682)) #@52 The format specification for the server mode line. (defvar gnus-server-mode-line-format "Gnus List of servers" (#$ . 872)) #@43 *Hook run when exiting the server buffer. (defvar gnus-server-exit-hook nil (#$ . -1002)) (byte-code "! B! B!! B!. B!; B!H\n B B‡" [boundp gnus-inserted-opened-servers nil current-load-list gnus-server-line-format-alist ((104 how 115) (110 name 115) (119 where 115) (115 status 115)) gnus-server-mode-line-format-alist ((83 news-server 115) (77 news-method 115) (117 user-defined 115)) gnus-server-line-format-spec gnus-server-mode-line-format-spec 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 (#$ . -1565)) (defalias 'gnus-server-make-menu-bar #[nil "!!?C! B#\n$!.\f B#\n$!" [gnus-turn-off-edit-menu server boundp gnus-server-server-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-server-mode-map ("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]) gnus-server-connections-menu ("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]) run-hooks gnus-server-menu-hook] 5]) (byte-code "! B# \"  !\"‡" [boundp gnus-server-mode-map nil current-load-list 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 "" gnus-server-open-all-servers "C" gnus-server-close-server "" gnus-server-close-all-servers "D" gnus-server-deny-server "R" gnus-server-remove-denials "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 "\"\n  \f!p!!" [gnus-visual-p server-menu menu gnus-server-make-menu-bar kill-all-local-variables gnus-simplify-mode-line gnus-server-mode major-mode "Server" mode-name gnus-set-default-directory nil mode-line-process use-local-map gnus-server-mode-map buffer-disable-undo t truncate-lines buffer-read-only run-hooks gnus-server-mode-hook] 3 (#$ . 3411) nil]) (defalias 'gnus-server-insert-server-line #[(name method) "@A@\f\"A@=ǂ+!& A@=*ʂ+\fy``T!!D#," [method how where assoc gnus-opened-servers elem denied "(denied)" gnus-server-opened ok "(opened)" "(closed)" status 0 gnus-add-text-properties eval gnus-server-line-format-spec gnus-server intern name] 7]) #@27 Set up the server buffer. (defalias 'gnus-enter-server-buffer #[nil " ! " [gnus-server-setup-buffer gnus-configure-windows server gnus-server-prepare] 2 (#$ . 4454)]) #@31 Initialize the server buffer. (defalias 'gnus-server-setup-buffer #[nil " !? !q \f!)" [get-buffer gnus-server-buffer get-buffer-create gnus-server-mode gnus-carpal gnus-carpal-setup-buffer server] 2 (#$ . 4634)]) (defalias 'gnus-server-prepare #[nil " \n\"\f #\nɉ \f  t@A `@A B A@\f`\f@`\fA`\f@\fA\"@A &A&@@ @@ B @@@@@A@# @@\" @@DBAy.eb " [gnus-parse-format gnus-server-mode-line-format gnus-server-mode-line-format-alist gnus-server-mode-line-format-spec gnus-server-line-format gnus-server-line-format-alist t gnus-server-line-format-spec gnus-server-alist nil gnus-opened-servers op-ser server done opened buffer-read-only alist erase-buffer gnus-inserted-opened-servers gnus-server-insert-server-line format "%s:%s" gnus-server-position-point] 7]) (defalias 'gnus-server-server-name #[nil " \" !)" [get-text-property gnus-point-at-bol gnus-server server symbol-name] 4]) (byte-code "\" B" [defalias gnus-server-position-point gnus-goto-colon "*Gnus edit server*" gnus-server-edit-buffer current-load-list] 3) (defalias 'gnus-server-update-server #[(server) "q\f \"\f!\" (\fA!ΰ!2 k~\f!Ey`y`|V@A\"h @@ @A@# @\" )," [gnus-server-buffer nil buffer-read-only assoc server gnus-server-alist entry gnus-server-to-method gnus-opened-servers oentry gnus-dribble-enter "(gnus-server-set-info \"" "\" '" prin1-to-string ")\n" gnus-server-goto-server 0 1 gnus-server-insert-server-line format "%s:%s" gnus-server-position-point] 6]) (defalias 'gnus-server-set-info #[(server info) "5 5 !ư! A@\" * 4 BC*" [server info gnus-dribble-enter "(gnus-server-set-info \"" "\" '" prin1-to-string ")" assoc gnus-server-alist entry] 7]) #@38 Kill the server on the current line. (defalias 'gnus-server-kill-server #[(server) " !  \"! \"# \"! y`y`|) \"B@\" " [gnus-server-goto-server server error "No such server: %s" "No server on the current line" assoc gnus-server-alist "Read-only server %s" gnus-dribble-enter "" nil buffer-read-only 0 1 gnus-server-killed-servers delq gnus-server-position-point] 3 (#$ . 6510) (list (gnus-server-server-name))]) #@36 Yank the previously killed server. (defalias 'gnus-server-yank-server #[nil "! @ C] @@/ B]AIA@@IA1Z AB] C @!A +" [gnus-server-killed-servers error "No killed servers to be yanked" gnus-server-alist gnus-server-server-name killed server alist gnus-server-update-server gnus-server-position-point] 4 (#$ . 6975) nil]) #@29 Return to the group buffer. (defalias 'gnus-server-exit #[nil "!p!\"" [run-hooks gnus-server-exit-hook kill-buffer gnus-configure-windows group t] 3 (#$ . 7368) nil]) #@29 List all available servers. (defalias 'gnus-server-list-servers #[nil "   !dby )" [gnus-server-server-name cur gnus-server-prepare gnus-server-goto-server -1 gnus-server-position-point] 2 (#$ . 7550) nil]) #@26 Make METHOD have STATUS. (defalias 'gnus-server-set-status #[(method status) " \n\" A\f \fD\nB)" [assoc method gnus-opened-servers entry status] 4 (#$ . 7780)]) #@48 Remove METHOD from the list of opened servers. (defalias 'gnus-opened-servers-remove #[(method) "\n \" \"" [delq assoc method gnus-opened-servers] 4 (#$ . 7960)]) #@26 Force an open of SERVER. (defalias 'gnus-server-open-server #[(server) " ! \"\n\"\n! \" ! )" [gnus-server-to-method server 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 (#$ . 8134) (list (gnus-server-server-name))]) #@19 Open all servers. (defalias 'gnus-server-open-all-servers #[nil "  A@@!)" [gnus-inserted-opened-servers servers gnus-server-open-server] 3 (#$ . 8499) nil]) #@15 Close SERVER. (defalias 'gnus-server-close-server #[(server) " ! \"\n\"\n! ! )" [gnus-server-to-method server method error "No such server: %s" gnus-server-set-status closed gnus-close-server gnus-server-update-server gnus-server-position-point] 4 (#$ . 8675) (list (gnus-server-server-name))]) #@20 Close all servers. (defalias 'gnus-server-close-all-servers #[nil "  A@@!)" [gnus-inserted-opened-servers servers gnus-server-close-server] 3 (#$ . 8994) nil]) #@50 Make sure SERVER will never be attempted opened. (defalias 'gnus-server-deny-server #[(server) " ! \"\n\") ! ɇ" [gnus-server-to-method server method error "No such server: %s" gnus-server-set-status denied gnus-server-update-server gnus-server-position-point t] 4 (#$ . 9173) (list (gnus-server-server-name))]) #@46 Make all denied servers into closed servers. (defalias 'gnus-server-remove-denials #[nil " @A@= @Aà A) " [gnus-opened-servers servers denied closed gnus-server-list-servers] 3 (#$ . 9507) nil]) (defalias 'gnus-server-copy-server #[(from to) "!  Ę! \"# \"!.\"!!B\f \fAA \f B )" [from error "No server on current line" to "" "No name to copy to" assoc gnus-server-alist "%s already exists" gnus-server-to-method "%s: no such server" gnus-copy-sequence to-entry gnus-server-killed-servers 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) " \n!\fE B " [where gnus-server-alist error "Server with that name already defined" how gnus-server-killed-servers 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) "ed !$\fb )" [text-property-any gnus-server intern server to gnus-server-position-point] 7 (#$ . 10527) (list (completing-read "Goto server: " gnus-server-alist nil t))]) #@38 Edit the server on the current line. (defalias 'gnus-server-edit-server #[(server) "!\f\"!\f\"A!BBBBB#)" [server error "No server on current line" assoc gnus-server-alist "This server can't be edited" info 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 (#$ . 10784) (list (gnus-server-server-name))]) #@41 Request a scan from the current server. (defalias 'gnus-server-scan-server #[(server) " # !\" #" [gnus-message 3 "Scanning %s...done" server gnus-request-scan nil gnus-server-to-method] 4 (#$ . 11236) (list (gnus-server-server-name))]) #@18 Browse a server. (defalias 'gnus-server-read-server #[(server) "p !\"q ! *" [buf gnus-browse-foreign-server gnus-server-to-method server gnus-server-update-server gnus-server-server-name gnus-server-position-point] 3 (#$ . 11490) (list (gnus-server-server-name))]) (defalias 'gnus-server-pick-server #[(e) " ! !" [mouse-set-point e 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 (#$ . -11907)) (byte-code "! B! B#\f. \f!\"‡" [boundp gnus-browse-mode-hook nil current-load-list gnus-browse-mode-map put gnus-browse-mode mode-class special make-keymap suppress-keymap gnus-define-keys-1 (" " gnus-browse-read-group "=" gnus-browse-select-group "n" gnus-browse-next-group "p" gnus-browse-prev-group "" gnus-browse-prev-group [delete] gnus-browse-prev-group "N" gnus-browse-next-group "P" gnus-browse-prev-group "" gnus-browse-next-group "" 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 "!!?(! B#\n$!" [gnus-turn-off-edit-menu browse boundp gnus-browse-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-browse-mode-map ("Browse" ["Subscribe" gnus-browse-unsubscribe-current-group t] ["Read" gnus-browse-read-group t] ["Select" gnus-browse-read-group t] ["Next" gnus-browse-next-group t] ["Prev" gnus-browse-next-group t] ["Exit" gnus-browse-exit t]) run-hooks gnus-browse-menu-hook] 5]) (byte-code "! B! B!  B‡" [boundp gnus-browse-current-method nil current-load-list gnus-browse-return-buffer gnus-browse-buffer "*Gnus Browse Server*"] 2) #@27 Browse the server METHOD. (defalias 'gnus-browse-foreign-server #[(method &optional return-buffer) "\n; !ʼnA@#!3A@!$ł\"!\"O!#ł! `!!p! ) @A@#C\"#qp$eb%昄%!#͕b!$!T$!Z]BB*\"@A@#cA)p!eb A@#+" [method gnus-browse-current-method return-buffer gnus-browse-return-buffer gnus-server-to-method nil group groups gnus-select-method 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" get-buffer-create gnus-browse-buffer gnus-add-current-to-buffer-list gnus-carpal gnus-carpal-setup-buffer browse gnus-configure-windows buffer-disable-undo buffer-read-only erase-buffer gnus-browse-mode format "Gnus: %%b {%s:%s}" mode-line-buffer-identification nntp-server-buffer cur gnus-ignored-newsgroups "" delete-matching-lines re-search-forward "\\(^[^ ]+\\)[ ]+[0-9]+[ ]+[0-9]+" t match-string 0 read sort #[(l1 l2) "@ @" [l1 l2] 2] "K%7d: %s\n" switch-to-buffer gnus-group-position-point "Connecting to %s...done"] 7 (#$ . 13459)]) #@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 " \"    !p! !" [kill-all-local-variables gnus-visual-p browse-menu menu gnus-browse-make-menu-bar gnus-simplify-mode-line gnus-browse-mode major-mode "Browse Server" mode-name nil mode-line-process use-local-map gnus-browse-mode-map buffer-disable-undo t truncate-lines gnus-set-default-directory buffer-read-only run-hooks gnus-browse-mode-hook] 3 (#$ . 14713) nil]) #@38 Enter the group at the current line. (defalias 'gnus-browse-read-group #[(&optional no-article) "  \" ĕO )pB$?)\")" [gnus-browse-group-name gname string-match "^[^:]+:" 0 nil group gnus-group-read-ephemeral-group gnus-browse-current-method browse error "Couldn't enter %s"] 6 (#$ . 15583) nil]) #@27 Select the current group. (defalias 'gnus-browse-select-group #[nil "!" [gnus-browse-read-group no] 2 (#$ . 15912) nil]) #@23 Go to the next group. (defalias 'gnus-browse-next-group #[(n) "y " [n gnus-group-position-point] 2 (#$ . 16042) "p"]) #@23 Go to the next group. (defalias 'gnus-browse-prev-group #[(n) " [!" [gnus-browse-next-group n] 2 (#$ . 16170) "p"]) #@39 (Un)subscribe to the next ARG groups. (defalias 'gnus-browse-unsubscribe-current-group #[(arg) "m!\nWĂ\n!\nV8m8 8!U8\nS \nUF\"\n*" [error "No group at current line" arg 0 -1 1 abs ward gnus-browse-unsubscribe-group gnus-browse-next-group gnus-group-position-point gnus-message 7 "No more newsgroups"] 4 (#$ . 16294) "p"]) (defalias 'gnus-browse-group-name #[nil "y #!\"\n\")" [0 re-search-forward ": \\(.*\\)$" gnus-point-at-eol t gnus-group-prefixed-name format "%s" match-string 1 gnus-browse-current-method] 5]) #@64 Toggle subscription of the current group in the browse buffer. (defalias 'gnus-browse-unsubscribe-group #[nil "ygU  \"J\"! !! X A@@OA@@ \"J%cc #c,Ƈ" [nil group buffer-read-only sub 0 75 t intern-soft gnus-browse-group-name gnus-newsrc-hashtb error "Group already subscribed" gnus-kill-ephemeral-group delete-char 1 gnus-group-change-level gnus-level-default-subscribed gnus-browse-current-method gnus-level-killed gnus-newsrc-alist 32] 7 (#$ . 16879)]) #@47 Quit browsing and return to the group buffer. (defalias 'gnus-browse-exit #[nil "=\np! q!)\"\"" [major-mode gnus-browse-mode kill-buffer gnus-group-buffer gnus-group-list-groups nil gnus-browse-return-buffer gnus-configure-windows server force group] 3 (#$ . 17407) nil]) #@57 Give a one line description of the group mode commands. (defalias 'gnus-browse-describe-briefly #[nil "!\"" [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 (#$ . 17709) nil]) #@70 Issue a command to the server to regenerate all its data structures. (defalias 'gnus-server-regenerate-server #[nil "  ! !@ʏ*\"!E # !2! !@ #E #)" [gnus-server-server-name server error "No server on the current line" request-regenerate gnus-server-to-method group func G77671 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 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 (#$ . 18091) nil]) (provide (quote gnus-srvr))