From: hmurata <hmurata>
Date: Sun, 3 Apr 2005 16:26:36 +0000 (+0000)
Subject: (wl-thread-delete-message): Delete descendant
X-Git-Tag: wl-2_15_3~95
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c301e9f65e1ae6b94fd81815d7e955424b3ac4db;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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.