From: teranisi <teranisi>
Date: Wed, 24 Jul 2002 15:59:21 +0000 (+0000)
Subject: * wl-thread.el (wl-thread-insert-message): Return parent number if exists.
X-Git-Tag: elmo-mark-root~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=479c271366f43b52ceee5a390abb6f2ade383ff2;p=elisp%2Fwanderlust.git

* wl-thread.el (wl-thread-insert-message): Return parent number if exists.
(wl-thread-update-indent-string-region): Use
 wl-thread-update-line-on-buffer-sub instead of
 wl-thread-update-line-on-buffer.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a102825..544cecd 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2002-07-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-thread.el (wl-thread-insert-message): Return parent number if
+	exists.
+	(wl-thread-update-indent-string-region): Use
+	wl-thread-update-line-on-buffer-sub instead of
+	wl-thread-update-line-on-buffer.
+
 2002-07-23  KAMO Tomoyuki  <kamo@i-manage.co.jp>
 
 	* wl-folder.el (wl-folder-open-all): Call wl-highlight-folder-path.
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index fe8c722..2839ee7 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -681,10 +681,9 @@ Message is inserted to the summary buffer."
 		parent-msg (wl-summary-buffer-msgdb)))
 	      (when parent
 		;; use thread structure.
-		(wl-thread-entity-get-nearly-older-brother
-		 child-entity parent))) ; return value
-;;; 		(wl-thread-entity-get-number
-;;; 		 (wl-thread-entity-get-top-entity parent)))) ; return value;
+		;;(wl-thread-entity-get-nearly-older-brother
+		;; child-entity parent))) ; return value
+ 		(wl-thread-entity-get-number parent))) ; return value
 ;;; 	      (setq beg (point))
 ;;; 	      (wl-thread-goto-bottom-of-sub-thread)
 ;;; 	      (wl-thread-update-indent-string-region beg (point)))
@@ -1103,8 +1102,8 @@ Message is inserted to the summary buffer."
   (save-excursion
     (goto-char beg)
     (while (< (point) end)
-      ;(wl-thread-update-indent-string)
-      (wl-thread-update-line-on-buffer)
+      (save-excursion
+	(wl-thread-update-line-on-buffer-sub nil (wl-summary-message-number)))
       (forward-line 1))))
 
 (defsubst wl-thread-make-indent-string (entity)