changeset 54589:3227aa4e7994

(gnus-server-prepare): Remove spurious call to `cdr'.
author Juanma Barranquero <lekktu@gmail.com>
date Sat, 27 Mar 2004 00:06:30 +0000
parents 3a4518b4fa64
children 70182fa217a2
files lisp/gnus/gnus-srvr.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)