From: hmurata <hmurata>
Date: Sat, 15 Nov 2003 10:24:05 +0000 (+0000)
Subject: (wl-summary-mark-spam): Show message only if call
X-Git-Tag: wl-2_11_21~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9768a600b150508da55d770f4290d7230d2723be;p=elisp%2Fwanderlust.git

(wl-summary-mark-spam): Show message only if call
interactively.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a4eac85..1208a4c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2003-11-15  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* wl-spam.el (wl-summary-mark-spam): Show message only if call
+	interactively.
+
 	* wl-summary.el (wl-summary-mark-as-important-internal): New
 	internal function.
 	(wl-summary-mark-as-important): Use it.
diff --git a/wl/wl-spam.el b/wl/wl-spam.el
index 3cabb9b..f397b79 100644
--- a/wl/wl-spam.el
+++ b/wl/wl-spam.el
@@ -197,11 +197,12 @@ See `wl-summary-mark-action-list' for the detail of element."
 	(when (wl-spam-auto-check-message-p wl-summary-buffer-elmo-folder
 					    number)
 	  (setq numbers (cons number numbers)))))
-    (if numbers
-	(wl-spam-map-spam-messages wl-summary-buffer-elmo-folder
-				   numbers
-				   #'wl-summary-spam)
-      (message "No message to test."))))
+    (cond (numbers
+	   (wl-spam-map-spam-messages wl-summary-buffer-elmo-folder
+				      numbers
+				      #'wl-summary-spam))
+	  ((interactive-p)
+	   (message "No message to test.")))))
 
 (defun wl-summary-register-as-spam ()
   (interactive)