From: yoichi <yoichi>
Date: Thu, 22 Jun 2006 23:34:09 +0000 (+0000)
Subject: * wl-thread.el (wl-thread-force-open): Arranged.
X-Git-Tag: wl-2_15_4~24
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4d67c85d447e8f3348d573ff7f9eb35821157ddb;p=elisp%2Fwanderlust.git

* wl-thread.el (wl-thread-force-open): Arranged.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index de3ee0e..3349c74 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2006-06-22  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-thread.el (wl-thread-force-open): Arranged.
+
 2006-06-19  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-folder.el (wl-folder-complete-filter-condition): Remove !
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index b6965bc..398c562 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -782,10 +782,9 @@ Message is inserted to the summary buffer."
 
 (defun wl-thread-force-open (&optional msg-num)
   "force open current folder"
-  (if msg-num
-      (wl-summary-jump-to-msg msg-num))
-  (let ((wl-thread-insert-force-opened t))
-    (wl-thread-open-close)))
+  (when msg-num
+    (wl-summary-jump-to-msg msg-num))
+  (wl-thread-open-close 'force-open))
 
 (defun wl-thread-entity-force-open (entity)
   (let ((wl-thread-insert-force-opened t)