From 2ac97df7c9e16986115242682b8d3555585df7a3 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 25 Sep 2001 08:56:58 +0000 Subject: [PATCH] * wl-message.el (wl-message-display-internal): Call `wl-highlight-message' after `elmo-mime-display-as-is'. --- wl/ChangeLog | 3 +++ wl/wl-message.el | 14 ++++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) 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 + * 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) -- 1.7.10.4