From 9768a600b150508da55d770f4290d7230d2723be Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 15 Nov 2003 10:24:05 +0000 Subject: [PATCH] (wl-summary-mark-spam): Show message only if call interactively. --- wl/ChangeLog | 3 +++ wl/wl-spam.el | 11 ++++++----- 2 files changed, 9 insertions(+), 5 deletions(-) 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 + * 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) -- 1.7.10.4