# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1080345990 0
# Node ID 3227aa4e7994bda5e3d90c2f340fbd7335ef22b5
# Parent  3a4518b4fa64249257ea99bc821db17e1e186e1a
(gnus-server-prepare): Remove spurious call to `cdr'.

diff -r 3a4518b4fa64 -r 3227aa4e7994 lisp/gnus/gnus-srvr.el
--- a/lisp/gnus/gnus-srvr.el	Fri Mar 26 16:21:03 2004 +0000
+++ b/lisp/gnus/gnus-srvr.el	Sat Mar 27 00:06:30 2004 +0000
@@ -219,7 +219,7 @@
     (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)