;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1997/3/4
-;; Version: $Id: emh-face.el,v 0.2 1997-03-14 05:30:33 morioka Exp $
+;; Version: $Id: emh-face.el,v 0.3 1997-03-14 05:41:55 morioka Exp $
;; Keywords: header, highlighting
;; This file is part of emh.
(error (message "Color `%s' is not found." color))
))
+(defsubst emh-make-face-bold (face)
+ (condition-case err
+ (make-face-bold face)
+ (error (message "Can not make bold face `%s'." face))
+ ))
+
+(defsubst emh-make-face-italic (face)
+ (condition-case err
+ (make-face-bold face)
+ (error (message "Can not make italic face `%s'." face))
+ ))
+
(or (find-face 'from-field-body)
(progn
(make-face 'from-field-body)
(emh-set-face-foreground 'from-field-body "dark slate blue")
- (make-face-bold 'from-field-body nil 'no-error)
+ (emh-make-face-bold 'from-field-body)
))
(or (find-face 'subject-field-body)
(progn
(make-face 'subject-field-body)
(emh-set-face-foreground 'subject-field-body "violet red")
- (make-face-bold 'subject-field-body nil 'no-error)
+ (emh-make-face-bold 'subject-field-body)
))
(or (find-face 'to-field-body)
(progn
(make-face 'to-field-body)
(emh-set-face-foreground 'to-field-body "red")
- (make-face-bold 'to-field-body nil 'no-error)
+ (emh-make-face-bold 'to-field-body)
))
(or (find-face 'cc-field-body)
(progn
(make-face 'cc-field-body)
(emh-set-face-foreground 'cc-field-body "salmon")
- (make-face-bold 'cc-field-body nil 'no-error)
+ (emh-make-face-bold 'cc-field-body)
))
(or (find-face 'reply-to-field-body)
(progn
(make-face 'reply-to-field-body)
(emh-set-face-foreground 'reply-to-field-body "salmon")
- (make-face-bold 'reply-to-field-body nil 'no-error)
+ (emh-make-face-bold 'reply-to-field-body)
))
(or (find-face '-to-field-body)
(progn
(make-face 'date-field-body)
(emh-set-face-foreground 'date-field-body "blue violet")
- (make-face-bold 'date-field-body nil 'no-error)
+ (emh-make-face-bold 'date-field-body)
))
(or (find-face 'message-id-field-body)
(progn
(make-face 'message-id-field-body)
(emh-set-face-foreground 'message-id-field-body "royal blue")
- (make-face-bold 'message-id-field-body nil 'no-error)
+ (emh-make-face-bold 'message-id-field-body)
))
(or (find-face 'field-body)
(progn
(make-face 'field-body)
(emh-set-face-foreground 'field-body "dark green")
- (make-face-italic 'field-body nil 'no-error)
+ (emh-make-face-italic 'field-body)
))
(or (find-face 'field-name)
(progn
(make-face 'field-name)
(emh-set-face-foreground 'field-name "dark green")
- (make-face-bold 'field-name nil 'no-error)
+ (emh-make-face-bold 'field-name)
))
(defvar emh-header-face