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