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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index de3ee0e..3349c74 100644 (file)
--- 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 (file)
--- 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)