From: kaoru <kaoru>
Date: Mon, 24 May 2004 14:29:11 +0000 (+0000)
Subject: Backport change:
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0289073aa945efe731b8eee729d36e2ac240273c;p=elisp%2Fwanderlust.git

Backport change:
2002-05-05  David Smith <ultrasoul@ultrasoul.com>

        * elmo-imap4.el (elmo-imap4-folder-diff-plugged):
        Use SELECT when elmo-imap4-use-select-to-update-status is t.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 2bd89cc..a16b217 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-05  David Smith <ultrasoul@ultrasoul.com>
+
+	* elmo-imap4.el (elmo-imap4-folder-diff-plugged):
+	Use SELECT when elmo-imap4-use-select-to-update-status is t.
+
 2003-07-05  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 2.10.1 is released.
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 47b4668..4f48f7a 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2324,6 +2324,10 @@ If optional argument REMOVE is non-nil, remove FLAG."
     (with-current-buffer (elmo-network-session-buffer session)
       (setq elmo-imap4-status-callback nil)
       (setq elmo-imap4-status-callback-data nil))
+    (if elmo-imap4-use-select-to-update-status
+	(elmo-imap4-session-select-mailbox
+	 session
+	 (elmo-imap4-folder-mailbox-internal folder)))
     (setq response
 	  (elmo-imap4-send-command-wait session
 					(list