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