From 0927c021bf302fb7e8d9c464c8fc6401a6e94d93 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sun, 11 Jan 2004 11:25:32 +0000 Subject: [PATCH] (wl-summary-exec-action-refile-with-register): Fixed the last change. --- wl/ChangeLog | 8 +++++++- wl/wl-spam.el | 3 ++- 2 files changed, 9 insertions(+), 2 deletions(-) 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 + + * wl-spam.el (wl-summary-exec-action-refile-with-register): Fixed + the last change. + 2004-01-11 Kenichi Okada - * 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 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...") -- 1.7.10.4