(wl-thread-delete-message): Delete descendant

numbers from `wl-summary-buffer-number-list' if `deep' is non-nil.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 77a95fb..ac80afa 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-thread.el (wl-thread-delete-message): Delete descendant
+       numbers from `wl-summary-buffer-number-list' if `deep' is non-nil.
+
 2005-04-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-xmas.el (wl-folder-internal-icon-list): Fix last change.

diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 0d48474..f397240 100644 (file)
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -505,6 +505,12 @@ ENTITY is returned."
       (setq wl-summary-buffer-number-list
            (delq msg wl-summary-buffer-number-list))
       (when entity
+       (when deep
+         (setq wl-summary-buffer-number-list
+               (elmo-list-delete
+                (wl-thread-entity-get-descendant entity)
+                wl-summary-buffer-number-list
+                #'delq)))
        (let ((parent (wl-thread-entity-get-parent-entity entity)))
          (if parent
              ;; has parent.