From eba4daa6d5f1679c0ff633d9dcc72b49dc40d1bd Mon Sep 17 00:00:00 2001 From: keiichi Date: Tue, 9 Mar 1999 02:25:40 +0000 Subject: [PATCH] (mime-view-error-message-face): New face. --- mime-view.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/mime-view.el b/mime-view.el index 5f5c344..af107c3 100644 --- a/mime-view.el +++ b/mime-view.el @@ -119,6 +119,14 @@ message/partial, it is called `mother-buffer'.") "Window-configuration before mime-view-mode is called.") (make-variable-buffer-local 'mime-preview-original-window-configuration) +(defface mime-view-error-message-face '((((class color)) + (:foreground "Red")) + (t + (:underline t))) + "Error message face in MIME-View mode." + :group 'mime-view + :group 'face) + (defun mime-preview-original-major-mode (&optional recursive) "Return major-mode of original buffer. If optional argument RECURSIVE is non-nil and current buffer has @@ -782,8 +790,9 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t. t means default." If you'd like to debug this error. Please set non-nil to `debug-on-error'.\n\n" err)) - (put-text-property start (point) - 'face 'font-lock-warning-face) + (put-text-property + start (point) + 'face 'mime-view-error-message-face) )))) ) (t -- 1.7.10.4