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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b4feb60..44e267b 100644 (file)
--- 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 (file)
--- 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