From: okazaki <okazaki>
Date: Fri, 3 Oct 2003 13:34:40 +0000 (+0000)
Subject: * wl-thread.el (wl-thread-delete-message): Rewrite the procedure for updating
X-Git-Tag: wl-2_11_19~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e50fdd9d41b5b610637330de541087748c07e604;p=elisp%2Fwanderlust.git

* wl-thread.el (wl-thread-delete-message): Rewrite the procedure for updating
 `wl-thread-entity-list'.
---

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