* elmo-imap4.el (elmo-imap4-session-check):

Clear `elmo-imap4-fetch-callback' and `elmo-imap4-fetch-callback-data'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8d419eb..f7b2f6f 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-imap4.el (elmo-imap4-session-check):
+       Clear `elmo-imap4-fetch-callback' and `elmo-imap4-fetch-callback-data'.
+
 2000-12-29  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * elmo2.el (toplevel): Move `product-provide' declare.

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 24a290b..84ed240 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -362,6 +362,9 @@ If response is not `OK' response, causes error with IMAP response text."
 ;;;
 
 (defun elmo-imap4-session-check (session)
+  (with-current-buffer (elmo-network-session-buffer session)
+    (setq elmo-imap4-fetch-callback nil)
+    (setq elmo-imap4-fetch-callback-data nil))
   (elmo-imap4-send-command-wait session "check"))
 
 (defun elmo-imap4-atom-p (string)