From a3de63039e889b9f55fce42b6437d90cd16f8388 Mon Sep 17 00:00:00 2001 From: okazaki Date: Thu, 2 Oct 2003 14:32:02 +0000 Subject: [PATCH] (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. --- wl/wl-thread.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) 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 -- 1.7.10.4