[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-srvr.el

[Kim F . Storm]

Index: emacs/lisp/gnus/gnus-srvr.el
diff -c emacs/lisp/gnus/gnus-srvr.el:1.15 emacs/lisp/gnus/gnus-srvr.el:1.16
*** emacs/lisp/gnus/gnus-srvr.el:1.15   Mon Nov  1 23:06:34 2004
--- emacs/lisp/gnus/gnus-srvr.el        Wed Feb  9 15:50:38 2005
***************
*** 71,77 ****
  (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"
    :group 'gnus-server-visual
    :type 'boolean)
  
--- 71,77 ----
  (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 "22.1"
    :group 'gnus-server-visual
    :type 'boolean)
  
***************
*** 205,235 ****
  
  (defcustom gnus-server-agent-face 'gnus-server-agent-face
    "Face name to use on AGENTIZED servers."
!   :version "21.4"
    :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"
    :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"
    :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"
    :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"
    :group 'gnus-server-visual
    :type 'face)
  
--- 205,235 ----
  
  (defcustom gnus-server-agent-face 'gnus-server-agent-face
    "Face name to use on AGENTIZED servers."
!   :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 "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 "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 "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 "22.1"
    :group 'gnus-server-visual
    :type 'face)
  
***************
*** 736,745 ****
          (if (eq (car method) 'nntp)
              (while (not (eobp))
                (ignore-errors
!                 (push (cons 
!                        (buffer-substring 
                          (point)
!                         (progn 
                            (skip-chars-forward "^ \t")
                            (point)))
                         (let ((last (read cur)))
--- 736,745 ----
          (if (eq (car method) 'nntp)
              (while (not (eobp))
                (ignore-errors
!                 (push (cons
!                        (buffer-substring
                          (point)
!                         (progn
                            (skip-chars-forward "^ \t")
                            (point)))
                         (let ((last (read cur)))
***************
*** 903,909 ****
      (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) ":" 
                (or name
                    (match-string-no-properties 1)))))))
  
--- 903,909 ----
      (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) ":"
                (or name
                    (match-string-no-properties 1)))))))