From: teranisi <teranisi>
Date: Fri, 18 Jul 2003 13:57:23 +0000 (+0000)
Subject: (wl-thread-delete-message): Always update wl-summary-buffer-number-list.
X-Git-Tag: elmo-mark-restart~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a9a57b1a3b2497ae813d66d01be6f55054997e1a;p=elisp%2Fwanderlust.git

(wl-thread-delete-message): Always update wl-summary-buffer-number-list.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b4feb60..44e267b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2003-07-18  Yuuichi Teranishi  <teranisi@ns.templewest.net>
 
+	* wl-thread.el (wl-thread-delete-message): Always update
+	wl-summary-buffer-number-list.
+
 	* wl-action.el (wl-summary-print-destination): 
 	Do nothing when folder is nil.
 
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 1ba4ab4..b2d2cc5 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -514,6 +514,8 @@ ENTITY is returned."
     (let* ((entity (wl-thread-get-entity msg))
 	   children older-brothers younger-brothers top-child ;;grandchildren
 	   top-entity parent update-msgs beg invisible-top)
+      (setq wl-summary-buffer-number-list
+	    (delq msg wl-summary-buffer-number-list))	      
       (when entity
 	(setq parent (wl-thread-entity-get-parent-entity entity))
 	(if parent
@@ -568,8 +570,6 @@ ENTITY is returned."
 	      (wl-thread-reparent-children children top-child)
 	      (wl-append update-msgs children)))
 	  ;; delete myself from top list.
-	  (setq wl-summary-buffer-number-list
-		(delq msg wl-summary-buffer-number-list))
 	  (setq older-brothers (wl-thread-entity-get-older-brothers
 				entity nil))
 	  (setq younger-brothers (wl-thread-entity-get-younger-brothers