* wl-thread.el (wl-thread-entity-insert-as-children): Use

wl-thread-entity-set-children.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4ad0bf1..7d5769d 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-02  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-thread.el (wl-thread-entity-insert-as-children): Use
+       wl-thread-entity-set-children.
+
 2006-11-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-mime.el (wl-epg-progress-callback): New function.

diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index c959030..de8b8c7 100644 (file)
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -198,8 +198,7 @@
                                      (nth (- (length curc) 1)
                                           curc))))
                        (wl-thread-entity-get-number curp)))
-    (setcar (cddr to) (wl-append children
-                                (list (car entity))))
+    (wl-thread-entity-set-children to (wl-append children (list (car entity))))
     (setq wl-thread-entities (cons entity wl-thread-entities))
     (elmo-set-hash-val (format "#%d" (car entity)) entity
                       wl-thread-entity-hashtb)))