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

interactively.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a4eac85..1208a4c 100644 (file)
--- 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 (file)
--- 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)