* 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 (file)
--- 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 (file)
--- 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)