From: Juanma Barranquero <lekktu@gmail.com>
Date: Sat, 27 Mar 2004 00:08:57 +0000 (+0000)
Subject: (gnus-server-prepare): Remove spurious call to `cdr'.
X-Git-Tag: ttn-vms-21-2-B4~7074
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df9a602c9df6fa6ee09260f53ea61f51c614a421;p=emacs.git

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

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)