From: teranisi <teranisi>
Date: Tue, 9 Jan 2001 04:23:20 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-session-check):
X-Git-Tag: wl-2_4_1pre~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=95fbb69998984c503486e1bf4a0de28356c242dc;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)