New function for expanding target mark to the whole thread.

ChangeLog

@@ -1,3 +1,8 @@
+2015-12-28  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
+
+	* doc/wl.texi, doc/wl-ja.texi: Describe
+	wl-summary-target-mark-threads.
+
 2015-10-03  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
 
 	* doc/wl.texi: Minor fix.

doc/wl-ja.texi

@@ -4059,6 +4059,12 @@ prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%IA4BN$rJ]B8$
 @findex wl-summary-target-mark-thread
 (@code{wl-summary-target-mark-thread})
 
+@item m T
+@kindex m T (Summary)
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$r!"8=:_%^!<%/$5$l$?%a%C%;!<%8$r4^$`%9%l%C%IA4BN$K3HBg$7$^$9!#(B
+@findex wl-summary-target-mark-threads
+(@code{wl-summary-target-mark-threads})
+
 @item m r
 @kindex m r (Summary)
 @findex wl-summary-target-mark-region

doc/wl.texi

@@ -4089,6 +4089,13 @@ Put target mark @samp{*} on the messages in the current thread.
 @findex wl-summary-target-mark-thread
 (@code{wl-summary-target-mark-thread})
 
+@item m T
+@kindex m T (Summary)
+Put target mark @samp{*} on all the messages of the threads which
+contain already target marked message.
+@findex wl-summary-target-mark-threads
+(@code{wl-summary-target-mark-threads})
+
 @item m r
 @kindex m r (Summary)
 @findex wl-summary-target-mark-region

wl/ChangeLog

@@ -1,3 +1,8 @@
+2015-12-28  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
+
+	* wl-summary.el (wl-summary-target-mark-threads): New function.
+	(wl-summary-mode-map): Assign "mT" to it.
+
 2015-11-19  Yasushi SHOJI
 
 	* wl-folder.el (wl-folder-goto-folder-subr): Let-bind this-command

wl/wl-summary.el

@@ -522,6 +522,7 @@ See also variable `wl-use-petname'."
   (define-key wl-summary-mode-map "mU"   'wl-summary-target-mark-uudecode)
   (define-key wl-summary-mode-map "ma"   'wl-summary-target-mark-all)
   (define-key wl-summary-mode-map "mt"   'wl-summary-target-mark-thread)
+  (define-key wl-summary-mode-map "mT"   'wl-summary-target-mark-threads)
   (define-key wl-summary-mode-map "mA"   'wl-summary-target-mark-reply-with-citation)
   (define-key wl-summary-mode-map "mf"   'wl-summary-target-mark-forward)
   (define-key wl-summary-mode-map "m?"   'wl-summary-target-mark-pick)
@@ -3134,6 +3135,23 @@ The mark is decided according to the FOLDER and STATUS."
   (wl-summary-check-target-mark)
   (wl-summary-pick wl-summary-buffer-target-mark-list 'delete))
 
+(defun wl-summary-target-mark-threads ()
+  "Put target mark on all the messages of the threads which contain already target marked message."
+  (interactive)
+  (if wl-summary-buffer-target-mark-list
+      (let ((length (length wl-summary-buffer-target-mark-list))
+	    (mark-list wl-summary-buffer-target-mark-list))
+	(save-excursion
+	  (dolist (number mark-list)
+	    (wl-summary-jump-to-msg number)
+	    (wl-summary-target-mark-thread)))
+	(if (eq length (length wl-summary-buffer-target-mark-list))
+	    ;; No newly marked message.
+	    (when (y-or-n-p "Do you want to mark this thread?")
+	      (wl-summary-target-mark-thread))))
+    ;; No message is marked.  Mark thread at current point.
+    (wl-summary-target-mark-thread)))
+
 (defun wl-summary-update-persistent-mark (&optional number)
   "Synch up persistent mark of current line with msgdb's.
 Return non-nil if the mark is updated"