From: teranisi <teranisi>
Date: Wed, 16 Jul 2003 05:07:19 +0000 (+0000)
Subject: * elmo.el (elmo-folder-move-messages): Don't display any message.
X-Git-Tag: elmo-mark-restart~48
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=08140f27c99d85086d682763a91aebf7364fc5af;p=elisp%2Fwanderlust.git

* 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.
---

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  <teranisi@gohome.org>
+
+	* 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  <teranisi@gohome.org>
 
 	* 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.")