From: okazaki <okazaki>
Date: Tue, 1 Feb 2005 12:01:28 +0000 (+0000)
Subject: (wl-thread-entity-get-descendant): Change `defsubst' to `defun'.
X-Git-Tag: wl-2_14-root~65
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=93d9dce7cf94200aeec86174563b54ab6449cc84;p=elisp%2Fwanderlust.git

(wl-thread-entity-get-descendant): Change `defsubst' to `defun'.
  Use `nconc' instead of `append' to collect descendant message numbers.
---

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