`mime-charset/decode-buffer' -> `mime-text-decode-buffer'.

[elisp/emh.git] / emh-face.el

diff --git a/emh-face.el b/emh-face.el
index 0eefd15..ec9db7f 100644 (file)
--- a/emh-face.el
+++ b/emh-face.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1997/3/4
-;; Version: $Id: emh-face.el,v 0.1 1997-03-05 13:50:05 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.
@@ -28,93 +28,91 @@
 
 (require 'emu)
 
+(defsubst emh-set-face-foreground (face color)
+  (condition-case err
+      (set-face-foreground face color)
+    (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)
-      (if (member "dark slate blue" (x-defined-colors))
-         (set-face-foreground 'from-field-body "dark slate blue")
-       )
-      (make-face-bold 'from-field-body nil 'no-error)
+      (emh-set-face-foreground 'from-field-body "dark slate blue")
+      (emh-make-face-bold 'from-field-body)
       ))
 
 (or (find-face 'subject-field-body)
     (progn
       (make-face 'subject-field-body)
-      (if (member "violet red" (x-defined-colors))
-         (set-face-foreground 'subject-field-body "violet red")
-       )
-      (make-face-bold 'subject-field-body nil 'no-error)
+      (emh-set-face-foreground 'subject-field-body "violet red")
+      (emh-make-face-bold 'subject-field-body)
       ))
 
 (or (find-face 'to-field-body)
     (progn
       (make-face 'to-field-body)
-      (if (member "red" (x-defined-colors))
-         (set-face-foreground 'to-field-body "red")
-       )
-      (make-face-bold 'to-field-body nil 'no-error)
+      (emh-set-face-foreground 'to-field-body "red")
+      (emh-make-face-bold 'to-field-body)
       ))
 
 (or (find-face 'cc-field-body)
     (progn
       (make-face 'cc-field-body)
-      (if (member "salmon" (x-defined-colors))
-         (set-face-foreground 'cc-field-body "salmon")
-       )
-      (make-face-bold 'cc-field-body nil 'no-error)
+      (emh-set-face-foreground 'cc-field-body "salmon")
+      (emh-make-face-bold 'cc-field-body)
       ))
 
 (or (find-face 'reply-to-field-body)
     (progn
       (make-face 'reply-to-field-body)
-      (if (member "salmon" (x-defined-colors))
-         (set-face-foreground 'reply-to-field-body "salmon")
-       )
-      (make-face-bold 'reply-to-field-body nil 'no-error)
+      (emh-set-face-foreground 'reply-to-field-body "salmon")
+      (emh-make-face-bold 'reply-to-field-body)
       ))
 
 (or (find-face '-to-field-body)
     (progn
       (make-face '-to-field-body)
-      (if (member "red" (x-defined-colors))
-         (set-face-foreground '-to-field-body "red")
-       )
+      (emh-set-face-foreground '-to-field-body "red")
       ))
 
 (or (find-face 'date-field-body)
     (progn
       (make-face 'date-field-body)
-      (if (member "blue violet" (x-defined-colors))
-         (set-face-foreground 'date-field-body "blue violet")
-       )
-      (make-face-bold 'date-field-body nil 'no-error)
+      (emh-set-face-foreground 'date-field-body "blue violet")
+      (emh-make-face-bold 'date-field-body)
       ))
 
 (or (find-face 'message-id-field-body)
     (progn
       (make-face 'message-id-field-body)
-      (if (member "cadet blue" (x-defined-colors))
-         (set-face-foreground 'message-id-field-body "royal blue")
-       )
-      (make-face-bold 'message-id-field-body nil 'no-error)
+      (emh-set-face-foreground 'message-id-field-body "royal blue")
+      (emh-make-face-bold 'message-id-field-body)
       ))
 
 (or (find-face 'field-body)
     (progn
       (make-face 'field-body)
-      (and (member "dark green" (x-defined-colors))
-          (set-face-foreground 'field-body "dark green")
-          )
-      (make-face-italic 'field-body nil 'no-error)
+      (emh-set-face-foreground 'field-body "dark green")
+      (emh-make-face-italic 'field-body)
       ))
 
 (or (find-face 'field-name)
     (progn
       (make-face 'field-name)
-      (and (member "dark green" (x-defined-colors))
-          (set-face-foreground 'field-name "dark green")
-          )
-      (make-face-bold 'field-name nil 'no-error)
+      (emh-set-face-foreground 'field-name "dark green")
+      (emh-make-face-bold 'field-name)
       ))
 
 (defvar emh-header-face