From: okazaki <okazaki>
Date: Thu, 2 Oct 2003 14:32:02 +0000 (+0000)
Subject: (wl-thread-delete-message): Omit redundant nil parameter from calling
X-Git-Tag: wl-2_11_19~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a3de63039e889b9f55fce42b6437d90cd16f8388;p=elisp%2Fwanderlust.git

(wl-thread-delete-message): Omit redundant nil parameter from calling
 `wl-thread-entity-get-older-brothers' and `wl-thread-entity-get-younger-brothers'.
Replace nested `append' with a single one.
---

diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 585dbd2..30e3cc5 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -567,13 +567,11 @@ ENTITY is returned."
 		  (wl-thread-reparent-children children top-child)
 		  (wl-append update-msgs children))))
 	    ;; delete myself from top list.
-	    (let ((older-brothers (wl-thread-entity-get-older-brothers
-				   entity nil))
-		  (younger-brothers (wl-thread-entity-get-younger-brothers
-				     entity nil)))
+	    (let ((older-brothers (wl-thread-entity-get-older-brothers entity))
+		  (younger-brothers (wl-thread-entity-get-younger-brothers entity)))
 	      (setq wl-thread-entity-list
-		    (append (append older-brothers
-				    (and top-child (list top-child)))
+		    (append older-brothers
+			    (and top-child (list top-child))
 			    younger-brothers))))))
       ;;
       (if deep