From: okazaki <okazaki>
Date: Tue, 25 Jul 2006 23:12:19 +0000 (+0000)
Subject: (wl-thread-test-spam): New function.
X-Git-Tag: wl-2_15_4~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1f20cd5ebccc87cbc38ece1a534cae45f28ab04e;p=elisp%2Fwanderlust.git

(wl-thread-test-spam): New function.
(wl-spam-setup): Bind "tkc".
---

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  <okazaki@be.to>
+
+	* wl-spam.el (wl-thread-test-spam): New function.
+	(wl-spam-setup): Bind "tkc".
+
 2006-07-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* 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)