From: keiichi <keiichi>
Date: Tue, 9 Mar 1999 02:25:40 +0000 (+0000)
Subject: (mime-view-error-message-face): New face.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eba4daa6d5f1679c0ff633d9dcc72b49dc40d1bd;p=elisp%2Fsemi.git

(mime-view-error-message-face): New face.
---

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