From: teranisi <teranisi>
Date: Thu, 31 Aug 2000 01:32:02 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-list): Don't call `elmo-imap4-commit'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eb91c54cfc0be4305717bf666e202907e180c83f;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-list): Don't call `elmo-imap4-commit'.
(elmo-imap4-server-diff): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 388a22f..df8d632 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-31  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-imap4-list): Don't call `elmo-imap4-commit'.
+	(elmo-imap4-server-diff): Ditto.
+
 2000-08-30  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-imap4.el (elmo-imap4-folder-exists-p): Don't cause an error when
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 9e36dde..d6c4ac2 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -674,7 +674,6 @@ BUFFER must be a single-byte buffer."
 
 (defun elmo-imap4-list (spec flag)
   (let ((session (elmo-imap4-get-session spec)))
-    (elmo-imap4-commit spec)
     (elmo-imap4-session-select-mailbox session
 				       (elmo-imap4-spec-mailbox spec))
     (elmo-imap4-response-value
@@ -1349,7 +1348,7 @@ If optional argument UNMARK is non-nil, unmark."
   "Get server status"
   (let (response)
     ;; commit.
-    (elmo-imap4-commit spec)
+;    (elmo-imap4-commit spec)
     (setq response
 	  (elmo-imap4-send-command-wait (elmo-imap4-get-session spec)
 					(list