(mh-folder-body-face, mh-folder-cur-msg-face)

(mh-folder-cur-msg-number-face): New backward-compatibility aliases
for renamed faces.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index aad03a3..91d9e05 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,9 @@
+2005-06-17  Lute Kamstra  <lute@gnu.org>
+
+       * mh-customize.el (mh-folder-body-face, mh-folder-cur-msg-face)
+       (mh-folder-cur-msg-number-face): New backward-compatibility
+       aliases for renamed faces.
+
 2005-06-17  Miles Bader  <miles@gnu.org>
 
        * mh-customize.el (mh-folder-body, mh-folder-cur-msg)

diff --git a/lisp/mh-e/mh-customize.el b/lisp/mh-e/mh-customize.el
index 7aad079..5c13e8d 100644 (file)
--- a/lisp/mh-e/mh-customize.el
+++ b/lisp/mh-e/mh-customize.el
@@ -2156,9 +2156,7 @@ will be removed from the unseen sequence."
   "Face used to highlight body text in MH-Folder buffers."
   :group 'mh-folder-faces)
 ;; backward-compatibility alias
-(put 'mh-folder-body 'face-alias 'mh-folder-body)
-;; backward-compatibility alias
-(put ''mh-folder-body-face 'face-alias ''mh-folder-body)
+(put 'mh-folder-body-face 'face-alias 'mh-folder-body)
 
 (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg
   "Face used for the current message line in MH-Folder buffers.")
@@ -2175,9 +2173,7 @@ will be removed from the unseen sequence."
   "Face used for the current message line in MH-Folder buffers."
   :group 'mh-folder-faces)
 ;; backward-compatibility alias
-(put 'mh-folder-cur-msg 'face-alias 'mh-folder-cur-msg)
-;; backward-compatibility alias
-(put ''mh-folder-cur-msg-face 'face-alias ''mh-folder-cur-msg)
+(put 'mh-folder-cur-msg-face 'face-alias 'mh-folder-cur-msg)
 
 (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number
   "Face used to highlight the current message in MH-Folder buffers.")
@@ -2191,9 +2187,7 @@ will be removed from the unseen sequence."
   "Face used to highlight the current message in MH-Folder buffers."
   :group 'mh-folder-faces)
 ;; backward-compatibility alias
-(put 'mh-folder-cur-msg-number 'face-alias 'mh-folder-cur-msg-number)
-;; backward-compatibility alias
-(put ''mh-folder-cur-msg-number-face 'face-alias ''mh-folder-cur-msg-number)
+(put 'mh-folder-cur-msg-number-face 'face-alias 'mh-folder-cur-msg-number)
 
 (defvar mh-folder-date-face 'mh-folder-date
   "Face used to highlight the date in MH-Folder buffers.")