From: hmurata <hmurata>
Date: Sun, 26 Oct 2003 12:30:22 +0000 (+0000)
Subject: * wl-spam.el (wl-summary-exec-action-spam): Fixed.
X-Git-Tag: wl-2_11_21~38
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6c36001856f867c11b8f29ea3a37bfa037f5a68f;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fec4663..bd14dc0 100644
--- 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
--- 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))