Mercurial > emacs

comparison lisp/gnus/gnus-srvr.el @ 59996:aac0a33f5772

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
author Kim F. Storm <storm@cua.dk>
date Wed, 09 Feb 2005 15:50:47 +0000
parents df80d19d7a2e
children c0aa521e0ca7 3ebd9bdb4fe5
comparison
equal deleted inserted replaced
59995:8f4938738427 59996:aac0a33f5772
69 :type 'string) 69 :type 'string)
70 70
71 (defcustom gnus-server-browse-in-group-buffer nil 71 (defcustom gnus-server-browse-in-group-buffer nil
72 "Whether server browsing should take place in the group buffer. 72 "Whether server browsing should take place in the group buffer.
73 If nil, a faster, but more primitive, buffer is used instead." 73 If nil, a faster, but more primitive, buffer is used instead."
74 :version "21.4" 74 :version "22.1"
75 :group 'gnus-server-visual 75 :group 'gnus-server-visual
76 :type 'boolean) 76 :type 'boolean)
77 77
78 ;;; Internal variables. 78 ;;; Internal variables.
79 79
203 "Face used for displaying OFFLINE servers" 203 "Face used for displaying OFFLINE servers"
204 :group 'gnus-server-visual) 204 :group 'gnus-server-visual)
205 205
206 (defcustom gnus-server-agent-face 'gnus-server-agent-face 206 (defcustom gnus-server-agent-face 'gnus-server-agent-face
207 "Face name to use on AGENTIZED servers." 207 "Face name to use on AGENTIZED servers."
208 :version "21.4" 208 :version "22.1"
209 :group 'gnus-server-visual 209 :group 'gnus-server-visual
210 :type 'face) 210 :type 'face)
211 211
212 (defcustom gnus-server-opened-face 'gnus-server-opened-face 212 (defcustom gnus-server-opened-face 'gnus-server-opened-face
213 "Face name to use on OPENED servers." 213 "Face name to use on OPENED servers."
214 :version "21.4" 214 :version "22.1"
215 :group 'gnus-server-visual 215 :group 'gnus-server-visual
216 :type 'face) 216 :type 'face)
217 217
218 (defcustom gnus-server-closed-face 'gnus-server-closed-face 218 (defcustom gnus-server-closed-face 'gnus-server-closed-face
219 "Face name to use on CLOSED servers." 219 "Face name to use on CLOSED servers."
220 :version "21.4" 220 :version "22.1"
221 :group 'gnus-server-visual 221 :group 'gnus-server-visual
222 :type 'face) 222 :type 'face)
223 223
224 (defcustom gnus-server-denied-face 'gnus-server-denied-face 224 (defcustom gnus-server-denied-face 'gnus-server-denied-face
225 "Face name to use on DENIED servers." 225 "Face name to use on DENIED servers."
226 :version "21.4" 226 :version "22.1"
227 :group 'gnus-server-visual 227 :group 'gnus-server-visual
228 :type 'face) 228 :type 'face)
229 229
230 (defcustom gnus-server-offline-face 'gnus-server-offline-face 230 (defcustom gnus-server-offline-face 'gnus-server-offline-face
231 "Face name to use on OFFLINE servers." 231 "Face name to use on OFFLINE servers."
232 :version "21.4" 232 :version "22.1"
233 :group 'gnus-server-visual 233 :group 'gnus-server-visual
234 :type 'face) 234 :type 'face)
235 235
236 (defvar gnus-server-font-lock-keywords 236 (defvar gnus-server-font-lock-keywords
237 (list 237 (list
734 ;; garbage group names like `"foo' that appear in some badly 734 ;; garbage group names like `"foo' that appear in some badly
735 ;; managed active files. -jh. 735 ;; managed active files. -jh.
736 (if (eq (car method) 'nntp) 736 (if (eq (car method) 'nntp)
737 (while (not (eobp)) 737 (while (not (eobp))
738 (ignore-errors 738 (ignore-errors
739 (push (cons 739 (push (cons
740 (buffer-substring 740 (buffer-substring
741 (point) 741 (point)
742 (progn 742 (progn
743 (skip-chars-forward "^ \t") 743 (skip-chars-forward "^ \t")
744 (point))) 744 (point)))
745 (let ((last (read cur))) 745 (let ((last (read cur)))
746 (cons (read cur) last))) 746 (cons (read cur) last)))
747 groups)) 747 groups))
901 (defun gnus-browse-group-name () 901 (defun gnus-browse-group-name ()
902 (save-excursion 902 (save-excursion
903 (beginning-of-line) 903 (beginning-of-line)
904 (let ((name (get-text-property (point) 'gnus-group))) 904 (let ((name (get-text-property (point) 'gnus-group)))
905 (when (re-search-forward ": \\(.*\\)$" (gnus-point-at-eol) t) 905 (when (re-search-forward ": \\(.*\\)$" (gnus-point-at-eol) t)
906 (concat (gnus-method-to-server-name gnus-browse-current-method) ":" 906 (concat (gnus-method-to-server-name gnus-browse-current-method) ":"
907 (or name 907 (or name
908 (match-string-no-properties 1))))))) 908 (match-string-no-properties 1)))))))
909 909
910 (defun gnus-browse-describe-group (group) 910 (defun gnus-browse-describe-group (group)
911 "Describe the current group." 911 "Describe the current group."