From: teranisi <teranisi>
Date: Wed, 6 Sep 2000 00:56:13 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-mark-set-on-msgs):
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cba9b987a2fcf3f872a9e23ea8aeecb073c376d0;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-mark-set-on-msgs):
Clear `elmo-imap4-fetch-callback' and `elmo-imap4-fetch-callback-data'
before STORE command.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 91bfa07..d9b2679 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2000-09-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-imap4-mark-set-on-msgs):
+	Clear `elmo-imap4-fetch-callback' and `elmo-imap4-fetch-callback-data'
+	before STORE command.
+
 2000-09-04  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo2.el (elmo-multi-folder-diff): Fixed problem of filter folder.
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 43915e7..50f34bf 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -912,6 +912,9 @@ If optional argument UNMARK is non-nil, unmark."
 				       (elmo-imap4-spec-mailbox spec))
     (setq set-list (elmo-imap4-make-number-set-list msgs))
     (when set-list
+      (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
        (format