From eb91c54cfc0be4305717bf666e202907e180c83f Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 31 Aug 2000 01:32:02 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-list): Don't call `elmo-imap4-commit'. (elmo-imap4-server-diff): Ditto. --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) 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 + + * elmo-imap4.el (elmo-imap4-list): Don't call `elmo-imap4-commit'. + (elmo-imap4-server-diff): Ditto. + 2000-08-30 Yuuichi Teranishi * 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 -- 1.7.10.4