From b2d661da69a6db99135b5701f6f40cc4c9de7ccd Mon Sep 17 00:00:00 2001 From: murata Date: Sat, 20 May 2000 10:20:04 +0000 Subject: [PATCH] (wl-thread-cleanup-symbols): Fix delete entity from `wl-thread-entities'. (wl-thread-delete-message): Fix remove top message from `wl-thread-entity-list'. --- wl/wl-thread.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/wl/wl-thread.el b/wl/wl-thread.el index 2da6be9..4e3eb4a 100644 --- a/wl/wl-thread.el +++ b/wl/wl-thread.el @@ -769,13 +769,13 @@ the closed parent will be opened." (defun wl-thread-cleanup-symbols (msgs) (let (sym) (while msgs - ;; free symbol. - (elmo-clear-hash-val (format "#%d" (car msgs)) - wl-thread-entity-hashtb) ;; delete entity. (setq wl-thread-entities (delq (wl-thread-get-entity (car msgs)) wl-thread-entities)) + ;; free symbol. + (elmo-clear-hash-val (format "#%d" (car msgs)) + wl-thread-entity-hashtb) (setq msgs (cdr msgs))))) (defun wl-thread-delete-message (msg &optional deep update) @@ -853,10 +853,10 @@ the closed parent will be opened." entity nil)) (setq younger-brothers (wl-thread-entity-get-younger-brothers entity nil)) - (and top-child - (setq wl-thread-entity-list - (append (append older-brothers (list top-child)) - younger-brothers))))) + (setq wl-thread-entity-list + (append (append older-brothers + (and top-child (list top-child))) + younger-brothers)))) (if deep ;; delete thread on buffer -- 1.7.10.4