From: okazaki <okazaki>
Date: Fri, 8 Dec 2006 04:51:38 +0000 (+0000)
Subject: (wl-spam-setup): Bind "rkm" to wl-summary-spam-region and "tkm" to wl-thread-spam.
X-Git-Tag: wl-2_15_6-fixes~102
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9ac8d992962e6570745b4bc036b29ecd3406cfa1;p=elisp%2Fwanderlust.git

(wl-spam-setup): Bind "rkm" to wl-summary-spam-region and "tkm" to wl-thread-spam.
---

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index 5451e86..497b56e 100644
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -7102,20 +7102,6 @@ non-spam としての学習に加えて、spam に行なった学習を削除します。
 カーソル行のメッセージをテストし、spam と判定された場合に spam マークを
 付けます。
 
-@item r k c
-@kindex r k c (Summary)
-@findex wl-summary-test-spam-region
-指定リージョンにあるメッセージをテストし、spam と判定された場合に spam マークを
-付けます。
-
-@item t k c
-@kindex t k c (Summary)
-@findex wl-thread-test-spam
-カーソル行があるメッセージを先頭とするスレッドのメッセージをテストし、
-spam と判定された場合に spam マークを付けます。
-prefix argument つきならばカーソル行があるメッセージを含むスレッド全てに
-適用します。
-
 @item k C
 @kindex k C (Summary)
 @findex wl-summary-mark-spam
@@ -7144,6 +7130,32 @@ spam かどうかのテストを行います。spam と判定されたメッセージには、sp
 @findex wl-summary-register-as-good-all
 フォルダ内の全てのメッセージを non-spam として登録します。
 
+@item r k m
+@kindex r k m (Summary)
+@findex wl-summary-spam-region
+指定リージョンにあるメッセージに spam マークを付けます。
+
+@item r k c
+@kindex r k c (Summary)
+@findex wl-summary-test-spam-region
+指定リージョンにあるメッセージをテストし、spam と判定された場合に spam マークを
+付けます。
+
+@item t k m
+@kindex t k m (Summary)
+@findex wl-thread-spam
+カーソル行があるメッセージを先頭とするスレッドのメッセージに spam マークを付けます。
+prefix argument つきならばカーソル行があるメッセージを含むスレッド全てに
+適用します。
+
+@item t k c
+@kindex t k c (Summary)
+@findex wl-thread-test-spam
+カーソル行があるメッセージを先頭とするスレッドのメッセージをテストし、
+spam と判定された場合に spam マークを付けます。
+prefix argument つきならばカーソル行があるメッセージを含むスレッド全てに
+適用します。
+
 @item m k
 @kindex m k (Summary)
 @findex wl-summary-target-mark-spam
diff --git a/doc/wl.texi b/doc/wl.texi
index b4f9a65..5dcf056 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -7159,18 +7159,6 @@ Put spam mark (@samp{s}) on current message.
 @findex wl-summary-test-spam
 Test current message and put spam mark if judged as spam.
 
-@item r k c
-@kindex r k c (Summary)
-@findex wl-summary-test-spam-region
-Test messages in the specified region and put spam mark if judged as spam.
-
-@item t k c
-@kindex t k c (Summary)
-@findex wl-thread-test-spam
-Test messages which are the descendant of the current thread and put spam mark
-if judged as spam.  With prefix argument, it affects on the all messages in
-the thread tree.
-
 @item k C
 @kindex k C (Summary)
 @findex wl-summary-mark-spam
@@ -7198,6 +7186,29 @@ Register current message as non-spam.
 @findex wl-summary-register-as-good-all
 Register all messages in the folder as non-spam.
 
+@item r k m
+@kindex r k m (Summary)
+@findex wl-summary-spam-region
+Put spam mark on messages in the specified region.
+
+@item r k c
+@kindex r k c (Summary)
+@findex wl-summary-test-spam-region
+Test messages in the specified region and put spam mark if judged as spam.
+
+@item t k m
+@kindex t k m (Summary)
+@findex wl-thread-spam
+Put spam mark on messages which are the descendant of the current thread.
+With prefix argument, it affects on the all messages in the thread tree.
+
+@item t k c
+@kindex t k c (Summary)
+@findex wl-thread-test-spam
+Test messages which are the descendant of the current thread and put spam mark
+if judged as spam.  With prefix argument, it affects on the all messages in
+the thread tree.
+
 @item m k
 @kindex m k (Summary)
 @findex wl-summary-target-mark-spam
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5c92e21..98f63e5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-08  Tetsurou Okazaki  <okazaki@be.to>
+
+	* wl-spam.el (wl-spam-setup): Bind "rkm" to wl-summary-spam-region and
+	"tkm" to wl-thread-spam.
+
 2006-12-02  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-thread.el (wl-thread-entity-insert-as-children): Use
diff --git a/wl/wl-spam.el b/wl/wl-spam.el
index 972bd74..8c94de0 100644
--- a/wl/wl-spam.el
+++ b/wl/wl-spam.el
@@ -393,8 +393,12 @@ See `wl-summary-mark-action-list' for the detail of element."
 		  wl-summary-skip-mark-list))))
   (define-key wl-summary-mode-map "k" wl-summary-spam-map)
   (define-key
+    wl-summary-mode-map "rkm" 'wl-summary-spam-region)
+  (define-key
     wl-summary-mode-map "rkc" 'wl-summary-test-spam-region)
   (define-key
+    wl-summary-mode-map "tkm" 'wl-thread-spam)
+  (define-key
     wl-summary-mode-map "tkc" 'wl-thread-test-spam)
   (define-key
     wl-summary-mode-map "mk" 'wl-summary-target-mark-spam)