From 1f20cd5ebccc87cbc38ece1a534cae45f28ab04e Mon Sep 17 00:00:00 2001 From: okazaki Date: Tue, 25 Jul 2006 23:12:19 +0000 Subject: [PATCH] (wl-thread-test-spam): New function. (wl-spam-setup): Bind "tkc". --- wl/ChangeLog | 5 +++++ wl/wl-spam.el | 6 ++++++ 2 files changed, 11 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index 4f603d7..2c40414 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2006-07-26 Tetsurou Okazaki + + * wl-spam.el (wl-thread-test-spam): New function. + (wl-spam-setup): Bind "tkc". + 2006-07-24 Hiroya Murata * wl-expire.el (wl-folder-expire-entity): Rewite without diff --git a/wl/wl-spam.el b/wl/wl-spam.el index dbff5e8..35a8db0 100644 --- a/wl/wl-spam.el +++ b/wl/wl-spam.el @@ -243,6 +243,10 @@ See `wl-summary-mark-action-list' for the detail of element." ((interactive-p) (message "No message to test."))))) +(defun wl-thread-test-spam (&optional arg) + (interactive "P") + (wl-thread-call-region-func 'wl-summary-test-spam-region arg)) + (defun wl-summary-mark-spam (&optional all) "Set spam mark to messages which is spam classification." (interactive "P") @@ -403,6 +407,8 @@ See `wl-summary-mark-action-list' for the detail of element." (define-key wl-summary-mode-map "rkc" 'wl-summary-test-spam-region) (define-key + wl-summary-mode-map "tkc" 'wl-thread-test-spam) + (define-key wl-summary-mode-map "mk" 'wl-summary-target-mark-spam) (define-key wl-summary-mode-map "ms" 'wl-summary-target-mark-register-as-spam) -- 1.7.10.4