From 4c6c115414eb31a27e2850cd854341f643161ee0 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Tue, 10 Jul 2007 03:09:00 +0000
Subject: [PATCH] * epa.el: Removed -face suffix from face names; removed face
 symbol vars.

---
 ChangeLog |    3 ++-
 epa.el    |    8 --------
 2 files changed, 2 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index be809c8..628d15c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2007-07-10  Daiki Ueno  <ueno@unixuser.org>
 
-	* epa.el: Removed -face suffix from face names.
+	* epa.el: Removed -face suffix from face names;
+	removed face symbol vars.
 
 2007-05-29  Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/epa.el b/epa.el
index 18614af..a53db29 100644
--- a/epa.el
+++ b/epa.el
@@ -55,7 +55,6 @@ the separate window."
      (:bold t)))
   "Face used for displaying the high validity."
   :group 'epa-faces)
-(defvar epa-validity-high 'epa-validity-high)
 
 (defface epa-validity-medium
   '((((class color) (background dark))
@@ -64,21 +63,18 @@ the separate window."
      ()))
   "Face used for displaying the medium validity."
   :group 'epa-faces)
-(defvar epa-validity-medium 'epa-validity-medium)
 
 (defface epa-validity-low
   '((t
      (:italic t)))
   "Face used for displaying the low validity."
   :group 'epa-faces)
-(defvar epa-validity-low 'epa-validity-low)
 
 (defface epa-validity-disabled
   '((t
      (:italic t :inverse-video t)))
   "Face used for displaying the disabled validity."
   :group 'epa-faces)
-(defvar epa-validity-disabled 'epa-validity-disabled)
 
 (defface epa-string
   '((((class color)
@@ -91,7 +87,6 @@ the separate window."
      ()))
   "Face used for displaying the string."
   :group 'epa-faces)
-(defvar epa-string 'epa-string)
 
 (defface epa-mark
   '((((class color) (background dark))
@@ -100,7 +95,6 @@ the separate window."
      (:foreground "red" :bold t)))
   "Face used for displaying the high validity."
   :group 'epa-faces)
-(defvar epa-mark 'epa-mark)
 
 (defface epa-field-name
   '((((class color) (background dark))
@@ -108,7 +102,6 @@ the separate window."
     (t (:bold t)))
   "Face for the name of the attribute field."
   :group 'epa)
-(defvar epa-field-name 'epa-field-name)
 
 (defface epa-field-body
   '((((class color) (background dark))
@@ -116,7 +109,6 @@ the separate window."
     (t (:italic t)))
   "Face for the body of the attribute field."
   :group 'epa)
-(defvar epa-field-body 'epa-field-body)
 
 (defcustom epa-validity-face-alist
   '((unknown . epa-validity-disabled)
-- 
1.7.10.4