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