From 278e6ebb278fa51ff5621b52df7b9c12143f2e4c Mon Sep 17 00:00:00 2001 From: hmurata Date: Fri, 24 Sep 2004 17:37:04 +0000 Subject: [PATCH] (wl-thread-set-parent): If parent is a message which is identified by references, set linked as nil. --- wl/ChangeLog | 5 +++++ wl/wl-thread.el | 10 +++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 751042a..6829992 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2004-09-24 Hiroya Murata + + * wl-thread.el (wl-thread-set-parent): If parent is a message + which is identified by references, set linked as nil. + 2004-09-24 Yuuichi Teranishi * wl-vars.el (wl-summary-mode-line-format-spec-alist): Added spec "m". diff --git a/wl/wl-thread.el b/wl/wl-thread.el index 2b72c67..ad69175 100644 --- a/wl/wl-thread.el +++ b/wl/wl-thread.el @@ -1144,7 +1144,15 @@ Message is inserted to the summary buffer." (wl-thread-entity-set-children dst-parent-entity (append children (list number))) - (wl-thread-entity-set-linked entity t)) + (wl-thread-entity-set-linked + entity + (let ((parent (elmo-message-entity-parent + wl-summary-buffer-elmo-folder + (elmo-message-entity + wl-summary-buffer-elmo-folder + number)))) + (or (null parent) + (/= parent-number (elmo-message-entity-number parent)))))) ;; insert as top (wl-append wl-thread-entity-list (list number)) (wl-thread-entity-set-linked entity nil)) -- 1.7.10.4