Design was modified.

diff --git a/emh-face.el b/emh-face.el
index 3197e75..0eefd15 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.0 1997-03-04 20:17:52 morioka Exp $
+;; Version: $Id: emh-face.el,v 0.1 1997-03-05 13:50:05 morioka Exp $
 ;; Keywords: header, highlighting
 
 ;; This file is part of emh.
@@ -26,95 +26,77 @@
 
 ;;; Code:
 
+(require 'emu)
+
 (or (find-face 'from-field-body)
     (progn
       (make-face 'from-field-body)
-      (and (member "blue" (x-defined-colors))
-          (set-face-foreground 'from-field-body "blue")
-          )
-      ))
-(or (find-face 'from-field-name)
-    (progn
-      (copy-face 'from-field-body 'from-field-name)
-      (make-face-bold 'from-field-name nil 'no-error)
+      (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)
       ))
 
 (or (find-face 'subject-field-body)
     (progn
       (make-face 'subject-field-body)
-      (and (member "violet red" (x-defined-colors))
-          (set-face-foreground 'subject-field-body "violet red")
-          )
-      ))
-(or (find-face 'subject-field-name)
-    (progn
-      (copy-face 'subject-field-body 'subject-field-name)
-      (make-face-bold 'subject-field-name nil 'no-error)
+      (if (member "violet red" (x-defined-colors))
+         (set-face-foreground 'subject-field-body "violet red")
+       )
+      (make-face-bold 'subject-field-body nil 'no-error)
       ))
 
 (or (find-face 'to-field-body)
     (progn
       (make-face 'to-field-body)
-      (and (member "red" (x-defined-colors))
-          (set-face-foreground 'to-field-body "red")
-          )
-      ))
-(or (find-face 'to-field-name)
-    (progn
-      (copy-face 'to-field-body 'to-field-name)
-      (make-face-bold 'to-field-name nil 'no-error)
+      (if (member "red" (x-defined-colors))
+         (set-face-foreground 'to-field-body "red")
+       )
+      (make-face-bold 'to-field-body nil 'no-error)
       ))
 
 (or (find-face 'cc-field-body)
     (progn
       (make-face 'cc-field-body)
-      (and (member "pink" (x-defined-colors))
-          (set-face-foreground 'cc-field-body "pink")
-          )
+      (if (member "salmon" (x-defined-colors))
+         (set-face-foreground 'cc-field-body "salmon")
+       )
+      (make-face-bold 'cc-field-body nil 'no-error)
       ))
-(or (find-face 'cc-field-name)
+
+(or (find-face 'reply-to-field-body)
     (progn
-      (copy-face 'cc-field-body 'cc-field-name)
-      (make-face-bold 'cc-field-name nil 'no-error)
+      (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)
       ))
 
 (or (find-face '-to-field-body)
     (progn
       (make-face '-to-field-body)
-      (and (member "salmon" (x-defined-colors))
-          (set-face-foreground '-to-field-body "salmon")
-          )
-      ))
-(or (find-face '-to-field-name)
-    (progn
-      (copy-face '-to-field-body '-to-field-name)
-      (make-face-bold '-to-field-name nil 'no-error)
+      (if (member "red" (x-defined-colors))
+         (set-face-foreground '-to-field-body "red")
+       )
       ))
 
 (or (find-face 'date-field-body)
     (progn
       (make-face 'date-field-body)
-      (and (member "blue violet" (x-defined-colors))
-          (set-face-foreground 'date-field-body "blue violet")
-          )
-      ))
-(or (find-face 'date-field-name)
-    (progn
-      (copy-face 'date-field-body 'date-field-name)
-      (make-face-bold 'date-field-name nil 'no-error)
+      (if (member "blue violet" (x-defined-colors))
+         (set-face-foreground 'date-field-body "blue violet")
+       )
+      (make-face-bold 'date-field-body nil 'no-error)
       ))
 
 (or (find-face 'message-id-field-body)
     (progn
       (make-face 'message-id-field-body)
-      (and (member "royal blue" (x-defined-colors))
-          (set-face-foreground 'message-id-field-body "royal blue")
-          )
-      ))
-(or (find-face 'message-id-field-name)
-    (progn
-      (copy-face 'message-id-field-body 'message-id-field-name)
-      (make-face-bold 'message-id-field-name nil 'no-error)
+      (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)
       ))
 
 (or (find-face 'field-body)
@@ -125,6 +107,7 @@
           )
       (make-face-italic 'field-body nil 'no-error)
       ))
+
 (or (find-face 'field-name)
     (progn
       (make-face 'field-name)
@@ -135,14 +118,15 @@
       ))
 
 (defvar emh-header-face
-  '(("^From:"          from-field-name         from-field-body)
-    ("^Subject:"       subject-field-name      subject-field-body)
-    ("^To:"            to-field-name           to-field-body)
-    ("^cc:"            cc-field-name           cc-field-body)
-    ("^.+-To:"         -to-field-name          -to-field-body)
-    ("^Date:"          date-field-name         date-field-body)
-    ("^Message-Id:"    message-id-field-name   message-id-field-body)
-    (t                 field-name              field-body)
+  '(("^From:"          field-name      from-field-body)
+    ("^Subject:"       field-name      subject-field-body)
+    ("^To:"            field-name      to-field-body)
+    ("^cc:"            field-name      cc-field-body)
+    ("^Reply-To:"      field-name      reply-to-field-body)
+    ("^.+-To:"         field-name      -to-field-body)
+    ("^Date:"          field-name      date-field-body)
+    ("^Message-Id:"    field-name      message-id-field-body)
+    (t                 field-name      field-body)
     ))
 
 (defun emh-highlight-header ()