From: murata <murata>
Date: Sat, 27 May 2000 01:02:17 +0000 (+0000)
Subject: (wl-summary-delete-messages-on-buffer): Call `wl-thread-cleanup-symbols'
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f13669e342b136a3302e6e9db80866a75b29e222;p=elisp%2Fwanderlust.git

(wl-summary-delete-messages-on-buffer): Call `wl-thread-cleanup-symbols'
when view mode is thread.
---

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))