From: yoichi <yoichi>
Date: Mon, 25 Sep 2006 12:17:02 +0000 (+0000)
Subject: * wl-action.el (wl-summary-set-mark): If the cursor is on folded
X-Git-Tag: wl-2_15_5~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d887a72aa31328468e2d8bb5bcd285b21418c2dc;p=elisp%2Fwanderlust.git

* wl-action.el (wl-summary-set-mark): If the cursor is on folded
thread, open it (suggested by Greg A. Woods [wl-en:1861]).
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 215e4c2..4d33206 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-25  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-action.el (wl-summary-set-mark): If the cursor is on folded
+	thread, open it (suggested by Greg A. Woods [wl-en:1861]).
+
 2006-09-22  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-summary.el (wl-summary-cleanup-temp-marks): Cleanup correctly
diff --git a/wl/wl-action.el b/wl/wl-action.el
index ada04ce..19b3c41 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -102,6 +102,9 @@ Return number if put mark succeed"
 	      (when data
 		(wl-summary-print-argument number data)))
 	    (set-buffer-modified-p nil)
+	    (when (and (eq wl-summary-buffer-view 'thread)
+		       interactive)
+	      (wl-thread-open-close 'force-open))
 	    ;; Return value.
 	    number))
       ;; Move the cursor.