From ce777dd8a4a5f1fd88eb208749d6db203a10c0fd Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 11 Jan 2004 11:11:22 +0000 Subject: [PATCH] * wl-spam.el (wl-summary-exec-action-refile-with-register): Specify "spam" or "good". --- wl/ChangeLog | 4 ++++ wl/wl-spam.el | 18 +++++++++++------- 2 files changed, 15 insertions(+), 7 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 6dad58e..7f4a439 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2004-01-11 Kenichi Okada + + * wl-spam.el (wl-summary-exec-action-refile-with-register): Specify "spam" or "good". + 2004-01-11 Yuuichi Teranishi * wl-spam.el (wl-summary-exec-action-spam): Call diff --git a/wl/wl-spam.el b/wl/wl-spam.el index 255aeda..9fd31ad 100644 --- a/wl/wl-spam.el +++ b/wl/wl-spam.el @@ -293,17 +293,21 @@ See `wl-summary-mark-action-list' for the detail of element." (spam (setq spam-list nil)) (good (setq good-list nil))) (when (or spam-list good-list) - (message "Registering spam...") (setq total (+ (length spam-list) (length good-list))) - (elmo-with-progress-display (> total elmo-display-progress-threshold) - (elmo-spam-register total "Registering spam...") - (when spam-list + (when spam-list + (message "Registering spam...") + (elmo-with-progress-display (> total elmo-display-progress-threshold) + (elmo-spam-register total "Registering spam...") (elmo-spam-register-spam-messages processor folder spam-list (eq domain 'good))) - (when good-list + (message "Registering spam...done")) + (when good-list + (message "Registering good...") + (elmo-with-progress-display (> total elmo-display-progress-threshold) + (elmo-spam-register total "Registering good...") (elmo-spam-register-good-messages processor folder good-list - (eq domain 'spam)))) - (message "Registering spam...done"))) + (eq domain 'spam))) + (message "Registering good...done")))) ;; execute refile messages (wl-summary-exec-action-refile mark-list))) -- 1.7.10.4