From: hmurata <hmurata>
Date: Fri, 24 Sep 2004 17:37:04 +0000 (+0000)
Subject: (wl-thread-set-parent): If parent is a message
X-Git-Tag: wl-2_12-root~80
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=278e6ebb278fa51ff5621b52df7b9c12143f2e4c;p=elisp%2Fwanderlust.git

(wl-thread-set-parent): If parent is a message
which is identified by references, set linked as nil.
---

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  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* 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  <teranisi@gohome.org>
 
 	* 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))