From e50fdd9d41b5b610637330de541087748c07e604 Mon Sep 17 00:00:00 2001 From: okazaki Date: Fri, 3 Oct 2003 13:34:40 +0000 Subject: [PATCH] * wl-thread.el (wl-thread-delete-message): Rewrite the procedure for updating `wl-thread-entity-list'. --- wl/wl-thread.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/wl/wl-thread.el b/wl/wl-thread.el index 30e3cc5..effdbec 100644 --- a/wl/wl-thread.el +++ b/wl/wl-thread.el @@ -567,12 +567,12 @@ 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)) - (younger-brothers (wl-thread-entity-get-younger-brothers entity))) - (setq wl-thread-entity-list - (append older-brothers - (and top-child (list top-child)) - younger-brothers)))))) + (let ((match (memq msg wl-thread-entity-list))) + (when match + (if top-child + (setcar match top-child) + (setq wl-thread-entity-list + (delq msg wl-thread-entity-list)))))))) ;; (if deep ;; delete thread on buffer -- 1.7.10.4