From: murata <murata>
Date: Sat, 20 May 2000 10:20:04 +0000 (+0000)
Subject: (wl-thread-cleanup-symbols): Fix delete entity from `wl-thread-entities'.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b2d661da69a6db99135b5701f6f40cc4c9de7ccd;p=elisp%2Fwanderlust.git

(wl-thread-cleanup-symbols): Fix delete entity from `wl-thread-entities'.
(wl-thread-delete-message): Fix remove top message from
`wl-thread-entity-list'.
---

diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 2da6be9..4e3eb4a 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -769,13 +769,13 @@ the closed parent will be opened."
 (defun wl-thread-cleanup-symbols (msgs)
   (let (sym)
     (while msgs
-      ;; free symbol.
-      (elmo-clear-hash-val (format "#%d" (car msgs))
-			   wl-thread-entity-hashtb)
       ;; delete entity.
       (setq wl-thread-entities 
 	    (delq (wl-thread-get-entity (car msgs))
 		  wl-thread-entities))
+      ;; free symbol.
+      (elmo-clear-hash-val (format "#%d" (car msgs))
+			   wl-thread-entity-hashtb)
       (setq msgs (cdr msgs)))))
 
 (defun wl-thread-delete-message (msg &optional deep update)
@@ -853,10 +853,10 @@ the closed parent will be opened."
 				entity nil))
 	  (setq younger-brothers (wl-thread-entity-get-younger-brothers
 				  entity nil))
-	  (and top-child
-	       (setq wl-thread-entity-list
-		     (append (append older-brothers (list top-child))
-			     younger-brothers)))))
+	  (setq wl-thread-entity-list
+		(append (append older-brothers
+				(and top-child (list top-child)))
+			younger-brothers))))
 
       (if deep
 	  ;; delete thread on buffer