Mercurial > emacs
diff lisp/gnus/gnus-srvr.el @ 59996:aac0a33f5772
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 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-srvr.el Tue Feb 08 23:51:31 2005 +0000 +++ b/lisp/gnus/gnus-srvr.el Wed Feb 09 15:50:47 2005 +0000 @@ -71,7 +71,7 @@ (defcustom gnus-server-browse-in-group-buffer nil "Whether server browsing should take place in the group buffer. If nil, a faster, but more primitive, buffer is used instead." - :version "21.4" + :version "22.1" :group 'gnus-server-visual :type 'boolean) @@ -205,31 +205,31 @@ (defcustom gnus-server-agent-face 'gnus-server-agent-face "Face name to use on AGENTIZED servers." - :version "21.4" + :version "22.1" :group 'gnus-server-visual :type 'face) (defcustom gnus-server-opened-face 'gnus-server-opened-face "Face name to use on OPENED servers." - :version "21.4" + :version "22.1" :group 'gnus-server-visual :type 'face) (defcustom gnus-server-closed-face 'gnus-server-closed-face "Face name to use on CLOSED servers." - :version "21.4" + :version "22.1" :group 'gnus-server-visual :type 'face) (defcustom gnus-server-denied-face 'gnus-server-denied-face "Face name to use on DENIED servers." - :version "21.4" + :version "22.1" :group 'gnus-server-visual :type 'face) (defcustom gnus-server-offline-face 'gnus-server-offline-face "Face name to use on OFFLINE servers." - :version "21.4" + :version "22.1" :group 'gnus-server-visual :type 'face) @@ -736,10 +736,10 @@ (if (eq (car method) 'nntp) (while (not (eobp)) (ignore-errors - (push (cons - (buffer-substring + (push (cons + (buffer-substring (point) - (progn + (progn (skip-chars-forward "^ \t") (point))) (let ((last (read cur))) @@ -903,7 +903,7 @@ (beginning-of-line) (let ((name (get-text-property (point) 'gnus-group))) (when (re-search-forward ": \\(.*\\)$" (gnus-point-at-eol) t) - (concat (gnus-method-to-server-name gnus-browse-current-method) ":" + (concat (gnus-method-to-server-name gnus-browse-current-method) ":" (or name (match-string-no-properties 1)))))))