From 1661f1443ec99039bf38ec9abe2206389c88bc72 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Sat, 19 Oct 2002 20:33:26 +0000 Subject: [PATCH] (nnimap-open-server): Check imap-state in IMAP server buffer. --- lisp/ChangeLog | 5 +++++ lisp/nnimap.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6e7999087..01fa94c89 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-10-19 Simon Josefsson + + * nnimap.el (nnimap-open-server): Check imap-state in IMAP server + buffer. + 2002-10-18 Kai Gro,A_(Bjohann * gnus-spec.el (gnus-make-format-preserve-properties) diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 3baf0e4f5..4b2274934 100644 --- 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))) -- 2.25.1