From 93d9dce7cf94200aeec86174563b54ab6449cc84 Mon Sep 17 00:00:00 2001 From: okazaki Date: Tue, 1 Feb 2005 12:01:28 +0000 Subject: [PATCH] (wl-thread-entity-get-descendant): Change `defsubst' to `defun'. Use `nconc' instead of `append' to collect descendant message numbers. --- wl/wl-thread.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/wl/wl-thread.el b/wl/wl-thread.el index 0979da1..655407a 100644 --- a/wl/wl-thread.el +++ b/wl/wl-thread.el @@ -223,7 +223,7 @@ (setq entity (wl-thread-get-entity (car msgs)))) ret-val)) -(defsubst wl-thread-entity-get-descendant (entity) +(defun wl-thread-entity-get-descendant (entity) (let (children ret-val msgs-stack (msgs (list (car entity)))) @@ -233,7 +233,7 @@ (if (null children) (while (and (null msgs) msgs-stack) (setq msgs (wl-pop msgs-stack))) - (setq ret-val (append ret-val (copy-sequence children))) + (setq ret-val (nconc ret-val (copy-sequence children))) (wl-push msgs msgs-stack) (setq msgs children)) (setq entity (wl-thread-get-entity (car msgs)))) -- 1.7.10.4