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

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 0673b44bc1e..dc39720f79b 100644
--- 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 31ad693a544..4015916a674 100644
--- 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)