* wl-spam.el (wl-summary-exec-action-spam): Fixed.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fec4663..bd14dc0 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,7 @@
 2003-10-26  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * wl-spam.el (wl-summary-exec-action-spam): Fixed.
+
        * wl-vars.el (wl-summary-mark-action-list): Fixed type spec.
 
        * wl-spam.el (toplevel): Require wl-highlight.

diff --git a/wl/wl-spam.el b/wl/wl-spam.el
index 66922b2..7e2224c 100644 (file)
--- a/wl/wl-spam.el
+++ b/wl/wl-spam.el
@@ -267,10 +267,10 @@ See `wl-summary-mark-action-list' for the detail of element."
        (elmo-spam-register-spam-messages (elmo-spam-processor)
                                          folder
                                          (mapcar #'car mark-list)))
-      (message "Registering spam...done")
-      (wl-summary-move-mark-list-messages mark-list
-                                         wl-spam-folder-name
-                                         "Refiling spam..."))))
+      (message "Registering spam...done"))
+    (wl-summary-move-mark-list-messages mark-list
+                                       wl-spam-folder-name
+                                       "Refiling spam...")))
 
 (defun wl-summary-exec-action-refile-with-register (mark-list)
   (let ((processor (elmo-spam-processor))