From: hmurata <hmurata>
Date: Sun, 11 Jan 2004 11:25:32 +0000 (+0000)
Subject: (wl-summary-exec-action-refile-with-register): Fixed
X-Git-Tag: wl-2_11_23~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0927c021bf302fb7e8d9c464c8fc6401a6e94d93;p=elisp%2Fwanderlust.git

(wl-summary-exec-action-refile-with-register): Fixed
the last change.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7f4a439..2b4afcb 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,6 +1,12 @@
+2004-01-11  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-spam.el (wl-summary-exec-action-refile-with-register): Fixed
+	the last change.
+
 2004-01-11  Kenichi Okada  <okada@opaopa.org>
 
-	* wl-spam.el (wl-summary-exec-action-refile-with-register): Specify "spam" or "good".
+	* wl-spam.el (wl-summary-exec-action-refile-with-register):
+	Specify "spam" or "good".
 
 2004-01-11  Yuuichi Teranishi  <teranisi@gohome.org>
 
diff --git a/wl/wl-spam.el b/wl/wl-spam.el
index 9fd31ad..fdaf248 100644
--- a/wl/wl-spam.el
+++ b/wl/wl-spam.el
@@ -293,8 +293,8 @@ 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)
-	(setq total (+ (length spam-list) (length good-list)))
 	(when spam-list
+	  (setq total (length spam-list))
 	  (message "Registering spam...")
 	  (elmo-with-progress-display (> total elmo-display-progress-threshold)
 	      (elmo-spam-register total "Registering spam...")
@@ -302,6 +302,7 @@ See `wl-summary-mark-action-list' for the detail of element."
 					      (eq domain 'good)))
 	  (message "Registering spam...done"))
 	(when good-list
+	  (setq total (length good-list))
 	  (message "Registering good...")
 	  (elmo-with-progress-display (> total elmo-display-progress-threshold)
 	      (elmo-spam-register total "Registering good...")