(gnus-server-prepare): Remove spurious call to `cdr'.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 0673b44bc1ef57bf2df56b4c627ca68748ab65ce..dc39720f79b03a85c811e5da56c08df25de8e16c 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2004-03-27  Juanma Barranquero  <lektu@terra.es>
+
+       * gnus-srvr.el (gnus-server-prepare): Remove spurious call to `cdr'.
+
 2004-03-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * gnus-art.el: Use inhibit-read-only instead of buffer-read-only.

diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index 31ad693a544ffdacaedaa0887bd232fb84d75419..4015916a6747604f005d8d418e77bf31cd002a54 100644 (file)
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -219,7 +219,7 @@ The following commands are available:
     (while alist
       (unless (member (cdar alist) done)
        (push (cdar alist) done)
-       (cdr (setq server (pop alist)))
+       (setq server (pop alist))
        (when (and server (car server) (cdr server))
          (gnus-server-insert-server-line (car server) (cdr server))))
       (when (member (cdar alist) done)