From de7e306a7fedc4ba6a2578a2253dba12dfdbc563 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 5 Mar 1997 13:50:05 +0000 Subject: [PATCH] Design was modified. --- emh-face.el | 110 +++++++++++++++++++++++++---------------------------------- 1 file changed, 47 insertions(+), 63 deletions(-) diff --git a/emh-face.el b/emh-face.el index 3197e75..0eefd15 100644 --- a/emh-face.el +++ b/emh-face.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; 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 () -- 1.7.10.4