(wl-summary-exec-action-refile-with-register): Fixed

the last change.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7f4a439..2b4afcb 100644 (file)
--- 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 (file)
--- 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...")