From b288ce7884afd82b347ea33a5a6e1b4121092b4d Mon Sep 17 00:00:00 2001 From: okazaki Date: Tue, 7 Dec 2004 09:38:07 +0000 Subject: [PATCH] (wl-summary-exec-action-refile): Display a done message when actions succeeded. (wl-summary-exec-action-copy): Likewise. --- wl/wl-action.el | 4 ++++ 1 file changed, 4 insertions(+) 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. -- 1.7.10.4