From: okazaki <okazaki>
Date: Tue, 7 Dec 2004 09:38:07 +0000 (+0000)
Subject: (wl-summary-exec-action-refile): Display a done message when actions succeeded.
X-Git-Tag: wl-2_12-root~21
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b288ce7884afd82b347ea33a5a6e1b4121092b4d;p=elisp%2Fwanderlust.git

(wl-summary-exec-action-refile): Display a done message when actions succeeded.
(wl-summary-exec-action-copy): Likewise.
---

diff --git a/wl/wl-action.el b/wl/wl-action.el
index 4e0e21a..0d213cd 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -478,6 +478,8 @@ Return number if put mark succeed"
 		(+ failures (length (cdr (car dst-msgs))))))
 	(setq dst-msgs (cdr dst-msgs)))
       (elmo-progress-clear 'elmo-folder-move-messages)
+      (if (<= failures 0)
+	  (message "Refiling messages...done"))
       failures)))
 
 ;; Copy action
@@ -519,6 +521,8 @@ Return number if put mark succeed"
 		(+ failures (length (cdr (car dst-msgs))))))
 	(setq dst-msgs (cdr dst-msgs)))
       (elmo-progress-clear 'elmo-folder-move-messages)
+      (if (<= failures 0)
+	  (message "Copying messages...done"))
       failures)))
 
 ;; Prefetch.