From 479c271366f43b52ceee5a390abb6f2ade383ff2 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 24 Jul 2002 15:59:21 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 8 ++++++++ wl/wl-thread.el | 11 +++++------ 2 files changed, 13 insertions(+), 6 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4