From: yoichi <yoichi>
Date: Sat, 2 Dec 2006 17:26:32 +0000 (+0000)
Subject: * wl-thread.el (wl-thread-entity-insert-as-children): Use
X-Git-Tag: wl-2_15_6-fixes~105
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f93f0b4f085f00b9bdb7607871c2d6db48e31261;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)))