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

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

(mh-folder-body-face, mh-folder-cur-msg-face)
(mh-folder-cur-msg-number-face): New backward-compatibility aliases for renamed faces.
06266fbb · Lute Kamstra · fa735daa · 06266fbb · 06266fbb
Commit 06266fbb authored Jun 17, 2005 by Lute Kamstra
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 9 deletions

lisp/mh-e/ChangeLog lisp/mh-e/ChangeLog +6 -0

lisp/mh-e/mh-customize.el lisp/mh-e/mh-customize.el +3 -9

No files found.
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
+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)

--- 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.")