From 08140f27c99d85086d682763a91aebf7364fc5af Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 16 Jul 2003 05:07:19 +0000 Subject: [PATCH] * elmo.el (elmo-folder-move-messages): Don't display any message. * elmo-imap4.el (elmo-imap4-send-command): Accept process output when parsing. (elmo-imap4-session-check): Don't wait CHECK response. (elmo-folder-delete-messages-plugged): Don't wait EXPUNGE response. --- elmo/ChangeLog | 9 +++++++++ elmo/elmo-imap4.el | 11 +++++++---- elmo/elmo.el | 12 ++++++------ 3 files changed, 22 insertions(+), 10 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index dffb966..3795bc1 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,12 @@ +2003-07-16 Yuuichi Teranishi + + * elmo.el (elmo-folder-move-messages): Don't display any message. + + * elmo-imap4.el (elmo-imap4-send-command): Accept process output when + parsing. + (elmo-imap4-session-check): Don't wait CHECK response. + (elmo-folder-delete-messages-plugged): Don't wait EXPUNGE response. + 2003-07-13 Yuuichi Teranishi * elmo.el (elmo-folder-synchronize): Fixed bug when sync-all. diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 92bdef0..bf8865d 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -291,8 +291,11 @@ Returns a TAG string which is assigned to the COMMAND." (when (elmo-imap4-response-bye-p elmo-imap4-current-response) (elmo-imap4-process-bye session)) (setq elmo-imap4-current-response nil) - (if elmo-imap4-parsing - (error "IMAP process is running. Please wait (or plug again)")) + (when elmo-imap4-parsing + (message "Waiting for IMAP response...") + (accept-process-output (elmo-network-session-process-internal + session)) + (message "Waiting for IMAP response...done")) (setq elmo-imap4-parsing t) (elmo-imap4-debug "<-(%s)- %s" tag command) (while (setq token (car command-args)) @@ -474,7 +477,7 @@ If response is not `OK' response, causes error with IMAP response text." (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 "check")) + (elmo-imap4-send-command session "check")) (defun elmo-imap4-atom-p (string) "Return t if STRING is an atom defined in rfc2060." @@ -2085,7 +2088,7 @@ If optional argument REMOVE is non-nil, remove FLAG." ((folder elmo-imap4-folder) numbers) (let ((session (elmo-imap4-get-session folder))) (elmo-imap4-set-flag folder numbers "\\Deleted") - (elmo-imap4-send-command-wait session "expunge"))) + (elmo-imap4-send-command session "expunge"))) (defmacro elmo-imap4-detect-search-charset (string) (` (with-temp-buffer diff --git a/elmo/elmo.el b/elmo/elmo.el index 5bb15c7..d7be5bd 100644 --- a/elmo/elmo.el +++ b/elmo/elmo.el @@ -1092,8 +1092,8 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).") (elmo-folder-close dst-folder))) (if (and (not no-delete) succeeds) (progn - (if (not no-delete-info) - (message "Cleaning up src folder...")) + ;;(if (not no-delete-info) + ;;(message "Cleaning up src folder...")) (if (and (elmo-folder-delete-messages src-folder succeeds) (elmo-msgdb-delete-msgs (elmo-folder-msgdb src-folder) succeeds)) @@ -1101,13 +1101,13 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).") (message "move: delete messages from %s failed." (elmo-folder-name-internal src-folder)) (setq result nil)) - (if (and result - (not no-delete-info)) - (message "Cleaning up src folder...done")) + ;;(if (and result + ;;(not no-delete-info)) + ;;(message "Cleaning up src folder...done")) result) (if no-delete (progn - (message "Copying messages...done") + ;; (message "Copying messages...done") t) (if (eq len 0) (message "No message was moved.") -- 1.7.10.4