From f13669e342b136a3302e6e9db80866a75b29e222 Mon Sep 17 00:00:00 2001 From: murata Date: Sat, 27 May 2000 01:02:17 +0000 Subject: [PATCH] (wl-summary-delete-messages-on-buffer): Call `wl-thread-cleanup-symbols' when view mode is thread. --- wl/wl-summary.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index fa11d4d..0f57655 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -1936,8 +1936,8 @@ If optional argument is non-nil, checking is omitted." (setq msgs (cdr msgs))) (when (eq wl-summary-buffer-view 'thread) (wl-thread-update-line-msgs (elmo-uniq-list update-list) - (unless deleting-info 'no-msg))) - (wl-thread-cleanup-symbols msgs2) + (unless deleting-info 'no-msg)) + (wl-thread-cleanup-symbols msgs2)) (wl-summary-count-unread (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb)) (wl-summary-update-modeline) @@ -2288,10 +2288,8 @@ If optional argument is non-nil, checking is omitted." (cdr wl-summary-delayed-update)))) (when (and (eq wl-summary-buffer-view 'thread) update-top-list) - (message "Updating indent...") (wl-thread-update-indent-string-thread - (elmo-uniq-list update-top-list)) - (message "Updating indent...done.")) + (elmo-uniq-list update-top-list))) (message "Updating thread...done.") ;;(set-buffer cur-buf) )) @@ -2953,7 +2951,8 @@ If optional argument is non-nil, checking is omitted." (decode-mime-charset-region (point-min) (point-max) elmo-mime-charset) (when (eq mime-decode 'mime) - (eword-decode-region (point-min) (point-max)))))) + (eword-decode-region (point-min) (point-max)))) + (run-hooks 'wl-summary-insert-headers-hook))) (defun wl-summary-search-by-subject (entity overview) (let ((buf (get-buffer-create wl-summary-search-buf-name)) -- 1.7.10.4