(gnus-server-close-all-servers): Close servers not only in

 gnus-inserted-opened-servers but also in gnus-server-alist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c0e1a4e..0cf2723 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-07-31  Ted Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-srvr.el (gnus-server-close-all-servers): Close servers not only
+       in gnus-inserted-opened-servers but also in gnus-server-alist (Katsumi
+       Yamaoka slightly modified the code).
+
 2007-07-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * nnmail.el (nnmail-group-names-not-encoded-p): New variable.

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 2b6f12e..395000b 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -517,6 +517,8 @@ The following commands are available:
   "Close all servers."
   (interactive)
   (dolist (server gnus-inserted-opened-servers)
+    (gnus-server-close-server (car server)))
+  (dolist (server gnus-server-alist)
     (gnus-server-close-server (car server))))
 
 (defun gnus-server-deny-server (server)