Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-srvr.el @ 112:48d667d6f17f r20-1b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b8
author cvs
date Mon, 13 Aug 2007 09:20:48 +0200
parents 360340f9fd5f
children 9f59509498e1
line wrap: on
line diff
--- a/lisp/gnus/gnus-srvr.el	Mon Aug 13 09:19:47 2007 +0200
+++ b/lisp/gnus/gnus-srvr.el	Mon Aug 13 09:20:48 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