From c301e9f65e1ae6b94fd81815d7e955424b3ac4db Mon Sep 17 00:00:00 2001 From: hmurata Date: Sun, 3 Apr 2005 16:26:36 +0000 Subject: [PATCH] (wl-thread-delete-message): Delete descendant numbers from `wl-summary-buffer-number-list' if `deep' is non-nil. --- wl/ChangeLog | 5 +++++ wl/wl-thread.el | 6 ++++++ 2 files changed, 11 insertions(+) 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 + + * 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 * 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. -- 1.7.10.4