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