From: okada <okada>
Date: Sun, 11 Jan 2004 11:11:22 +0000 (+0000)
Subject: * wl-spam.el (wl-summary-exec-action-refile-with-register): Specify "spam" or "good".
X-Git-Tag: wl-2_11_23~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ce777dd8a4a5f1fd88eb208749d6db203a10c0fd;p=elisp%2Fwanderlust.git

* wl-spam.el (wl-summary-exec-action-refile-with-register): Specify "spam" or "good".
---

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  <okada@opaopa.org>
+
+	* wl-spam.el (wl-summary-exec-action-refile-with-register): Specify "spam" or "good".
+
 2004-01-11  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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)))