* 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 (file)
--- 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 (file)
--- 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)