*** empty log message ***

[gnus] / lisp / gnus-srvr.el

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index a3c4150..51e10ff 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -207,16 +207,16 @@ The following commands are available:
     (setq gnus-inserted-opened-servers nil)
     ;; First we do the real list of servers.
     (while alist
-      (unless (member (caar alist) done)
-       (push (caar alist) done)
+      (unless (member (cdar alist) done)
+       (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)))))
     ;; Then we insert the list of servers that have been opened in
     ;; this session.
     (while opened 
-      (unless (member (cadaar opened) done)
-       (push (cadaar opened) done)
+      (unless (member (caar opened) done)
+       (push (caar opened) done)
        (gnus-server-insert-server-line 
         (setq op-ser (format "%s:%s" (caaar opened) (nth 1 (caar opened))))
         (caar opened))