(nnimap-open-server): Check imap-state in IMAP server

buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e79990..01fa94c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-19  Simon Josefsson  <jas@extundo.com>
+
+       * nnimap.el (nnimap-open-server): Check imap-state in IMAP server
+       buffer.
+
 2002-10-18  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * gnus-spec.el (gnus-make-format-preserve-properties) 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 3baf0e4..4b22749 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -732,7 +732,8 @@ If EXAMINE is non-nil the group is selected read-only."
       (nnoo-change-server 'nnimap server defs))
     (or (and nnimap-server-buffer
             (imap-opened nnimap-server-buffer)
-            (if (memq imap-state '(auth select examine))
+            (if (with-current-buffer nnimap-server-buffer
+                  (memq imap-state '(auth select examine)))
                 t
               (imap-close nnimap-server-buffer)
               (nnimap-open-connection server)))