From: teranisi <teranisi>
Date: Tue, 25 Sep 2001 08:56:58 +0000 (+0000)
Subject: * wl-message.el (wl-message-display-internal): Call `wl-highlight-message'
X-Git-Tag: wl-2_7_5~48
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2ac97df7c9e16986115242682b8d3555585df7a3;p=elisp%2Fwanderlust.git

* wl-message.el (wl-message-display-internal): Call `wl-highlight-message'
 after `elmo-mime-display-as-is'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 033e853..988cb0a 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2001-09-25  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-message.el (wl-message-display-internal): Call
+	`wl-highlight-message' after `elmo-mime-display-as-is'.
+
 	* wl-mime.el (wl-mime-display-text/plain): New function.
 	(wl-mime-display-header): Ditto.
 	(wl-mime-setup): Register `wl-mime-display-text/plain' as a
diff --git a/wl/wl-message.el b/wl/wl-message.el
index 5c4093f..3a4f5f2 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -462,12 +462,14 @@ Returns non-nil if bottom of message."
     (prog1 
 	(if (eq flag 'as-is)
 	    (let (wl-highlight-x-face-function)
-	      (elmo-mime-display-as-is folder number
-				       (current-buffer)
-				       (wl-message-get-original-buffer)
-				       'wl-original-message-mode
-				       force-reload
-				       unread))
+	      (prog1 (elmo-mime-display-as-is folder number
+					      (current-buffer)
+					      (wl-message-get-original-buffer)
+					      'wl-original-message-mode
+					      force-reload
+					      unread)
+		(let (buffer-read-only)
+		  (wl-highlight-message (point-min) (point-max) t))))
 	  (elmo-mime-message-display folder number
 				     (current-buffer)
 				     (wl-message-get-original-buffer)