From f93f0b4f085f00b9bdb7607871c2d6db48e31261 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 2 Dec 2006 17:26:32 +0000 Subject: [PATCH] * wl-thread.el (wl-thread-entity-insert-as-children): Use wl-thread-entity-set-children. --- wl/ChangeLog | 5 +++++ wl/wl-thread.el | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) 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 + + * wl-thread.el (wl-thread-entity-insert-as-children): Use + wl-thread-entity-set-children. + 2006-11-23 Hiroya Murata * 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))) -- 1.7.10.4