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

[elisp/wanderlust.git] / wl / wl-action.el

diff --git a/wl/wl-action.el b/wl/wl-action.el
index 5a21d1c..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
@@ -512,13 +514,15 @@ Return number if put mark succeed"
              ;; update buffer.
              (wl-summary-delete-copy-marks-on-buffer (cdr (car dst-msgs)))
              (setq wl-summary-buffer-temp-mark-list
-                   (wl-delete-associations 
+                   (wl-delete-associations
                     (cdr (car dst-msgs))
                     wl-summary-buffer-temp-mark-list)))
          (setq failures
                (+ 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.
@@ -543,7 +547,7 @@ Return number if put mark succeed"
 ;; Resend.
 (defun wl-summary-get-resend-address (action number)
   "Decide resend address."
-  (completing-read "Resend message to: " 'wl-complete-address))
+  (wl-address-read-from-minibuffer "Resend message to: "))
 
 (defun wl-summary-exec-action-resend (mark-list)
   (let ((failure 0))
@@ -660,7 +664,7 @@ Return number if put mark succeed"
   (let ((failures 0)
        collected pair action modified)
     (dolist (action wl-summary-mark-action-list)
-      (setq collected (cons (cons 
+      (setq collected (cons (cons
                             (wl-summary-action-mark action)
                             nil) collected)))
     (dolist (mark-info wl-summary-buffer-temp-mark-list)