Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-srvr.el @ 34:d620409f5eb8 r19-15b100

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b100
author cvs
date Mon, 13 Aug 2007 08:53:20 +0200
parents ec9a17fef872
children 8b8b7f3559a2
line wrap: on
line diff
--- a/lisp/gnus/gnus-srvr.el	Mon Aug 13 08:52:58 2007 +0200
+++ b/lisp/gnus/gnus-srvr.el	Mon Aug 13 08:53:20 2007 +0200
@@ -211,7 +211,9 @@
 	(push (cdar alist) done)
 	(cdr (setq server (pop alist)))
 	(when (and server (car server) (cdr server))
-	  (gnus-server-insert-server-line (car server) (cdr server)))))
+	  (gnus-server-insert-server-line (car server) (cdr server))))
+      (when (member (cdar alist) done)
+	(pop alist)))
     ;; Then we insert the list of servers that have been opened in
     ;; this session.
     (while opened