[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-customize.el

[Miles Bader]

Index: emacs/lisp/mh-e/mh-customize.el
diff -c emacs/lisp/mh-e/mh-customize.el:1.13 
emacs/lisp/mh-e/mh-customize.el:1.14
*** emacs/lisp/mh-e/mh-customize.el:1.13        Sat May 28 22:04:54 2005
--- emacs/lisp/mh-e/mh-customize.el     Fri Jun 17 01:29:30 2005
***************
*** 2144,2152 ****
  
  ;;; Faces Used in Scan Listing (:group 'mh-folder-faces)
  
! (defvar mh-folder-body-face 'mh-folder-body-face
    "Face used to highlight body text in MH-Folder buffers.")
! (defface mh-folder-body-face
    '((((type tty) (class color)) (:foreground "green"))
      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
      (((class grayscale) (background dark)) (:foreground "LightGray" :italic 
t))
--- 2144,2152 ----
  
  ;;; Faces Used in Scan Listing (:group 'mh-folder-faces)
  
! (defvar mh-folder-body-face 'mh-folder-body
    "Face used to highlight body text in MH-Folder buffers.")
! (defface mh-folder-body
    '((((type tty) (class color)) (:foreground "green"))
      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
      (((class grayscale) (background dark)) (:foreground "LightGray" :italic 
t))
***************
*** 2155,2164 ****
      (t (:italic t)))
    "Face used to highlight body text in MH-Folder buffers."
    :group 'mh-folder-faces)
  
! (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg-face
    "Face used for the current message line in MH-Folder buffers.")
! (defface mh-folder-cur-msg-face
    '((((type tty pc) (class color))
       (:background "LightGreen"))
      (((class color) (background light))
--- 2155,2168 ----
      (t (:italic t)))
    "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)
  
! (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg
    "Face used for the current message line in MH-Folder buffers.")
! (defface mh-folder-cur-msg
    '((((type tty pc) (class color))
       (:background "LightGreen"))
      (((class color) (background light))
***************
*** 2170,2179 ****
      (t (:underline t)))
    "Face used for the current message line in MH-Folder buffers."
    :group 'mh-folder-faces)
  
! (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number-face
    "Face used to highlight the current message in MH-Folder buffers.")
! (defface mh-folder-cur-msg-number-face
    '((((type tty) (class color)) (:foreground "cyan" :weight bold))
      (((class grayscale) (background light)) (:foreground "LightGray" :bold t))
      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
--- 2174,2187 ----
      (t (:underline t)))
    "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)
  
! (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number
    "Face used to highlight the current message in MH-Folder buffers.")
! (defface mh-folder-cur-msg-number
    '((((type tty) (class color)) (:foreground "cyan" :weight bold))
      (((class grayscale) (background light)) (:foreground "LightGray" :bold t))
      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
***************
*** 2182,2191 ****
      (t (:bold t)))
    "Face used to highlight the current message in MH-Folder buffers."
    :group 'mh-folder-faces)
  
! (defvar mh-folder-date-face 'mh-folder-date-face
    "Face used to highlight the date in MH-Folder buffers.")
! (defface mh-folder-date-face
    '((((class color) (background light))
       (:foreground "snow4"))
      (((class color) (background dark))
--- 2190,2203 ----
      (t (:bold t)))
    "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)
  
! (defvar mh-folder-date-face 'mh-folder-date
    "Face used to highlight the date in MH-Folder buffers.")
! (defface mh-folder-date
    '((((class color) (background light))
       (:foreground "snow4"))
      (((class color) (background dark))
***************
*** 2194,2203 ****
       (:bold t)))
    "Face used to highlight the date in MH-Folder buffers."
    :group 'mh-folder-faces)
  
! (defvar mh-folder-followup-face 'mh-folder-followup-face
    "Face used to highlight Re: subject text in MH-Folder buffers.")
! (defface mh-folder-followup-face
    '((((class color) (background light))
       (:foreground "blue3"))
      (((class color) (background dark))
--- 2206,2217 ----
       (:bold t)))
    "Face used to highlight the date in MH-Folder buffers."
    :group 'mh-folder-faces)
+ ;; backward-compatibility alias
+ (put 'mh-folder-date-face 'face-alias 'mh-folder-date)
  
! (defvar mh-folder-followup-face 'mh-folder-followup
    "Face used to highlight Re: subject text in MH-Folder buffers.")
! (defface mh-folder-followup
    '((((class color) (background light))
       (:foreground "blue3"))
      (((class color) (background dark))
***************
*** 2206,2215 ****
       (:bold t)))
    "Face used to highlight Re: subject text in MH-Folder buffers."
    :group 'mh-folder-faces)
  
! (defvar mh-folder-msg-number-face 'mh-folder-msg-number-face
    "Face used to highlight the message number in MH-Folder buffers.")
! (defface mh-folder-msg-number-face
    '((((class color) (background light))
       (:foreground "snow4"))
      (((class color) (background dark))
--- 2220,2231 ----
       (:bold t)))
    "Face used to highlight Re: subject text in MH-Folder buffers."
    :group 'mh-folder-faces)
+ ;; backward-compatibility alias
+ (put 'mh-folder-followup-face 'face-alias 'mh-folder-followup)
  
! (defvar mh-folder-msg-number-face 'mh-folder-msg-number
    "Face used to highlight the message number in MH-Folder buffers.")
! (defface mh-folder-msg-number
    '((((class color) (background light))
       (:foreground "snow4"))
      (((class color) (background dark))
***************
*** 2218,2231 ****
       (:bold t)))
    "Face used to highlight the message number in MH-Folder buffers."
    :group 'mh-folder-faces)
  
! (defvar mh-folder-deleted-face 'mh-folder-deleted-face
    "Face used to highlight deleted messages in MH-Folder buffers.")
! (copy-face 'mh-folder-msg-number-face 'mh-folder-deleted-face)
  
! (defvar mh-folder-refiled-face 'mh-folder-refiled-face
    "Face used to highlight refiled messages in MH-Folder buffers.")
! (defface mh-folder-refiled-face
    '((((type tty) (class color)) (:foreground "yellow" :weight light))
      (((class grayscale) (background light))
       (:foreground "Gray90" :bold t :italic t))
--- 2234,2249 ----
       (:bold t)))
    "Face used to highlight the message number in MH-Folder buffers."
    :group 'mh-folder-faces)
+ ;; backward-compatibility alias
+ (put 'mh-folder-msg-number-face 'face-alias 'mh-folder-msg-number)
  
! (defvar mh-folder-deleted-face 'mh-folder-deleted
    "Face used to highlight deleted messages in MH-Folder buffers.")
! (copy-face 'mh-folder-msg-number 'mh-folder-deleted)
  
! (defvar mh-folder-refiled-face 'mh-folder-refiled
    "Face used to highlight refiled messages in MH-Folder buffers.")
! (defface mh-folder-refiled
    '((((type tty) (class color)) (:foreground "yellow" :weight light))
      (((class grayscale) (background light))
       (:foreground "Gray90" :bold t :italic t))
***************
*** 2236,2247 ****
      (t (:bold t :italic t)))
    "Face used to highlight refiled messages in MH-Folder buffers."
    :group 'mh-folder-faces)
  
! (defvar mh-folder-subject-face 'mh-folder-subject-face
    "Face used to highlight subject text in MH-Folder buffers.")
  (if (boundp 'facemenu-unlisted-faces)
      (add-to-list 'facemenu-unlisted-faces "^mh-folder"))
! (defface mh-folder-subject-face
    '((((class color) (background light))
       (:foreground "blue4"))
      (((class color) (background dark))
--- 2254,2267 ----
      (t (:bold t :italic t)))
    "Face used to highlight refiled messages in MH-Folder buffers."
    :group 'mh-folder-faces)
+ ;; backward-compatibility alias
+ (put 'mh-folder-refiled-face 'face-alias 'mh-folder-refiled)
  
! (defvar mh-folder-subject-face 'mh-folder-subject
    "Face used to highlight subject text in MH-Folder buffers.")
  (if (boundp 'facemenu-unlisted-faces)
      (add-to-list 'facemenu-unlisted-faces "^mh-folder"))
! (defface mh-folder-subject
    '((((class color) (background light))
       (:foreground "blue4"))
      (((class color) (background dark))
***************
*** 2250,2274 ****
       (:bold t)))
    "Face used to highlight subject text in MH-Folder buffers."
    :group 'mh-folder-faces)
  
! (defface mh-folder-tick-face
    '((((class color) (background dark)) (:background "#dddf7e"))
      (((class color) (background light)) (:background "#dddf7e"))
      (t (:underline t)))
    "Face used to show ticked messages."
    :group 'mh-folder-faces)
  
! (defvar mh-folder-address-face 'mh-folder-address-face
    "Face used to highlight the address in MH-Folder buffers.")
! (copy-face 'mh-folder-subject-face 'mh-folder-address-face)
  
! (defvar mh-folder-scan-format-face 'mh-folder-scan-format-face
    "Face used to highlight `mh-scan-format-regexp' matches in MH-Folder 
buffers.")
! (copy-face 'mh-folder-followup-face 'mh-folder-scan-format-face)
  
! (defvar mh-folder-to-face 'mh-folder-to-face
    "Face used to highlight the To: string in MH-Folder buffers.")
! (defface mh-folder-to-face
    '((((type tty) (class color)) (:foreground "green"))
      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
      (((class grayscale) (background dark)) (:foreground "LightGray" :italic 
t))
--- 2270,2298 ----
       (:bold t)))
    "Face used to highlight subject text in MH-Folder buffers."
    :group 'mh-folder-faces)
+ ;; backward-compatibility alias
+ (put 'mh-folder-subject-face 'face-alias 'mh-folder-subject)
  
! (defface mh-folder-tick
    '((((class color) (background dark)) (:background "#dddf7e"))
      (((class color) (background light)) (:background "#dddf7e"))
      (t (:underline t)))
    "Face used to show ticked messages."
    :group 'mh-folder-faces)
+ ;; backward-compatibility alias
+ (put 'mh-folder-tick-face 'face-alias 'mh-folder-tick)
  
! (defvar mh-folder-address-face 'mh-folder-address
    "Face used to highlight the address in MH-Folder buffers.")
! (copy-face 'mh-folder-subject 'mh-folder-address)
  
! (defvar mh-folder-scan-format-face 'mh-folder-scan-format
    "Face used to highlight `mh-scan-format-regexp' matches in MH-Folder 
buffers.")
! (copy-face 'mh-folder-followup 'mh-folder-scan-format)
  
! (defvar mh-folder-to-face 'mh-folder-to
    "Face used to highlight the To: string in MH-Folder buffers.")
! (defface mh-folder-to
    '((((type tty) (class color)) (:foreground "green"))
      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
      (((class grayscale) (background dark)) (:foreground "LightGray" :italic 
t))
***************
*** 2277,2290 ****
      (t (:italic t)))
    "Face used to highlight the To: string in MH-Folder buffers."
    :group 'mh-folder-faces)
  
  
  
  ;;; Faces Used in Searching (:group 'mh-index-faces)
  
! (defvar mh-index-folder-face 'mh-index-folder-face
    "Face used to highlight folders in MH-Index buffers.")
! (defface mh-index-folder-face
    '((((class color) (background light))
       (:foreground "dark green" :bold t))
      (((class color) (background dark))
--- 2301,2316 ----
      (t (:italic t)))
    "Face used to highlight the To: string in MH-Folder buffers."
    :group 'mh-folder-faces)
+ ;; backward-compatibility alias
+ (put 'mh-folder-to-face 'face-alias 'mh-folder-to)
  
  
  
  ;;; Faces Used in Searching (:group 'mh-index-faces)
  
! (defvar mh-index-folder-face 'mh-index-folder
    "Face used to highlight folders in MH-Index buffers.")
! (defface mh-index-folder
    '((((class color) (background light))
       (:foreground "dark green" :bold t))
      (((class color) (background dark))
***************
*** 2293,2304 ****
       (:bold t)))
    "Face used to highlight folders in MH-Index buffers."
    :group 'mh-index-faces)
  
  
  
  ;;; Faces Used in Message Drafts (:group 'mh-letter-faces)
  
! (defface mh-letter-header-field-face
    '((((class color) (background light))
       (:background "gray90"))
      (((class color) (background dark))
--- 2319,2332 ----
       (:bold t)))
    "Face used to highlight folders in MH-Index buffers."
    :group 'mh-index-faces)
+ ;; backward-compatibility alias
+ (put 'mh-index-folder-face 'face-alias 'mh-index-folder)
  
  
  
  ;;; Faces Used in Message Drafts (:group 'mh-letter-faces)
  
! (defface mh-letter-header-field
    '((((class color) (background light))
       (:background "gray90"))
      (((class color) (background dark))
***************
*** 2306,2319 ****
      (t (:bold t)))
    "Face used to display header fields in draft buffers."
    :group 'mh-letter-faces)
  
  
  
  ;;; Faces Used in Message Display (:group 'mh-show-faces)
  
! (defvar mh-show-cc-face 'mh-show-cc-face
    "Face used to highlight cc: header fields.")
! (defface mh-show-cc-face
    '((((type tty) (class color)) (:foreground "yellow" :weight light))
      (((class grayscale) (background light))
       (:foreground "Gray90" :bold t :italic t))
--- 2334,2349 ----
      (t (:bold t)))
    "Face used to display header fields in draft buffers."
    :group 'mh-letter-faces)
+ ;; backward-compatibility alias
+ (put 'mh-letter-header-field-face 'face-alias 'mh-letter-header-field)
  
  
  
  ;;; Faces Used in Message Display (:group 'mh-show-faces)
  
! (defvar mh-show-cc-face 'mh-show-cc
    "Face used to highlight cc: header fields.")
! (defface mh-show-cc
    '((((type tty) (class color)) (:foreground "yellow" :weight light))
      (((class grayscale) (background light))
       (:foreground "Gray90" :bold t :italic t))
***************
*** 2324,2333 ****
      (t (:bold t :italic t)))
    "Face used to highlight cc: header fields."
    :group 'mh-show-faces)
  
! (defvar mh-show-date-face 'mh-show-date-face
    "Face used to highlight the Date: header field.")
! (defface mh-show-date-face
    '((((type tty) (class color)) (:foreground "green"))
      (((class grayscale) (background light)) (:foreground "Gray90" :bold t))
      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
--- 2354,2365 ----
      (t (:bold t :italic t)))
    "Face used to highlight cc: header fields."
    :group 'mh-show-faces)
+ ;; backward-compatibility alias
+ (put 'mh-show-cc-face 'face-alias 'mh-show-cc)
  
! (defvar mh-show-date-face 'mh-show-date
    "Face used to highlight the Date: header field.")
! (defface mh-show-date
    '((((type tty) (class color)) (:foreground "green"))
      (((class grayscale) (background light)) (:foreground "Gray90" :bold t))
      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
***************
*** 2336,2345 ****
      (t (:bold t :underline t)))
    "Face used to highlight the Date: header field."
    :group 'mh-show-faces)
  
! (defvar mh-show-header-face 'mh-show-header-face
    "Face used to deemphasize unspecified header fields.")
! (defface mh-show-header-face
    '((((type tty) (class color)) (:foreground "green"))
      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
      (((class grayscale) (background dark)) (:foreground "LightGray" :italic 
t))
--- 2368,2379 ----
      (t (:bold t :underline t)))
    "Face used to highlight the Date: header field."
    :group 'mh-show-faces)
+ ;; backward-compatibility alias
+ (put 'mh-show-date-face 'face-alias 'mh-show-date)
  
! (defvar mh-show-header-face 'mh-show-header
    "Face used to deemphasize unspecified header fields.")
! (defface mh-show-header
    '((((type tty) (class color)) (:foreground "green"))
      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
      (((class grayscale) (background dark)) (:foreground "LightGray" :italic 
t))
***************
*** 2348,2387 ****
      (t (:italic t)))
    "Face used to deemphasize unspecified header fields."
    :group 'mh-show-faces)
  
! (defvar mh-show-pgg-good-face 'mh-show-pgg-good-face
    "Face used to highlight a good PGG signature.")
! (defface mh-show-pgg-good-face
    '((t (:bold t :foreground "LimeGreen")))
    "Face used to highlight a good PGG signature."
    :group 'mh-show-faces)
  
! (defvar mh-show-pgg-unknown-face 'mh-show-pgg-unknown-face
    "Face used to highlight a PGG signature whose status is unknown.
  This face is also used for a signature when the signer is untrusted.")
! (defface mh-show-pgg-unknown-face
    '((t (:bold t :foreground "DarkGoldenrod2")))
    "Face used to highlight a PGG signature whose status is unknown.
  This face is also used for a signature when the signer is untrusted."
    :group 'mh-show-faces)
  
! (defvar mh-show-pgg-bad-face 'mh-show-pgg-bad-face
    "Face used to highlight a bad PGG signature.")
! (defface mh-show-pgg-bad-face
    '((t (:bold t :foreground "DeepPink1")))
    "Face used to highlight a bad PGG signature."
    :group 'mh-show-faces)
  
! (defface mh-show-signature-face
    '((t (:italic t)))
    "Face used to highlight the message signature."
    :group 'mh-show-faces)
  
! (defvar mh-show-to-face 'mh-show-to-face
    "Face used to highlight the To: header field.")
  (if (boundp 'facemenu-unlisted-faces)
      (add-to-list 'facemenu-unlisted-faces "^mh-show"))
! (defface mh-show-to-face
    '((((class grayscale) (background light))
       (:foreground "DimGray" :underline t))
      (((class grayscale) (background dark))
--- 2382,2431 ----
      (t (:italic t)))
    "Face used to deemphasize unspecified header fields."
    :group 'mh-show-faces)
+ ;; backward-compatibility alias
+ (put 'mh-show-header-face 'face-alias 'mh-show-header)
  
! (defvar mh-show-pgg-good-face 'mh-show-pgg-good
    "Face used to highlight a good PGG signature.")
! (defface mh-show-pgg-good
    '((t (:bold t :foreground "LimeGreen")))
    "Face used to highlight a good PGG signature."
    :group 'mh-show-faces)
+ ;; backward-compatibility alias
+ (put 'mh-show-pgg-good-face 'face-alias 'mh-show-pgg-good)
  
! (defvar mh-show-pgg-unknown-face 'mh-show-pgg-unknown
    "Face used to highlight a PGG signature whose status is unknown.
  This face is also used for a signature when the signer is untrusted.")
! (defface mh-show-pgg-unknown
    '((t (:bold t :foreground "DarkGoldenrod2")))
    "Face used to highlight a PGG signature whose status is unknown.
  This face is also used for a signature when the signer is untrusted."
    :group 'mh-show-faces)
+ ;; backward-compatibility alias
+ (put 'mh-show-pgg-unknown-face 'face-alias 'mh-show-pgg-unknown)
  
! (defvar mh-show-pgg-bad-face 'mh-show-pgg-bad
    "Face used to highlight a bad PGG signature.")
! (defface mh-show-pgg-bad
    '((t (:bold t :foreground "DeepPink1")))
    "Face used to highlight a bad PGG signature."
    :group 'mh-show-faces)
+ ;; backward-compatibility alias
+ (put 'mh-show-pgg-bad-face 'face-alias 'mh-show-pgg-bad)
  
! (defface mh-show-signature
    '((t (:italic t)))
    "Face used to highlight the message signature."
    :group 'mh-show-faces)
+ ;; backward-compatibility alias
+ (put 'mh-show-signature-face 'face-alias 'mh-show-signature)
  
! (defvar mh-show-to-face 'mh-show-to
    "Face used to highlight the To: header field.")
  (if (boundp 'facemenu-unlisted-faces)
      (add-to-list 'facemenu-unlisted-faces "^mh-show"))
! (defface mh-show-to
    '((((class grayscale) (background light))
       (:foreground "DimGray" :underline t))
      (((class grayscale) (background dark))
***************
*** 2391,2400 ****
      (t (:underline t)))
    "Face used to highlight the To: header field."
    :group 'mh-show-faces)
  
! (defvar mh-show-from-face 'mh-show-from-face
    "Face used to highlight the From: header field.")
! (defface mh-show-from-face
    '((((class color) (background light))
       (:foreground "red3"))
      (((class color) (background dark))
--- 2435,2446 ----
      (t (:underline t)))
    "Face used to highlight the To: header field."
    :group 'mh-show-faces)
+ ;; backward-compatibility alias
+ (put 'mh-show-to-face 'face-alias 'mh-show-to)
  
! (defvar mh-show-from-face 'mh-show-from
    "Face used to highlight the From: header field.")
! (defface mh-show-from
    '((((class color) (background light))
       (:foreground "red3"))
      (((class color) (background dark))
***************
*** 2403,2432 ****
       (:bold t)))
    "Face used to highlight the From: header field."
    :group 'mh-show-faces)
  
! (defface mh-show-xface-face
    '((t (:foreground "black" :background "white")))
    "Face used to display the X-Face image.
  The background and foreground is used in the image."
    :group 'mh-show-faces)
  
! (defvar mh-show-subject-face 'mh-show-subject-face
    "Face used to highlight the Subject: header field.")
! (copy-face 'mh-folder-subject-face 'mh-show-subject-face)
  
  
  
  ;;; Faces Used in Speedbar (:group 'mh-speed-faces)
  
! (defface mh-speedbar-folder-face
    '((((class color) (background light))
       (:foreground "blue4"))
      (((class color) (background dark))
       (:foreground "light blue")))
    "Face used for folders in the speedbar buffer."
    :group 'mh-speed-faces)
  
! (defface mh-speedbar-selected-folder-face
    '((((class color) (background light))
       (:foreground "red1" :underline t))
      (((class color) (background dark))
--- 2449,2484 ----
       (:bold t)))
    "Face used to highlight the From: header field."
    :group 'mh-show-faces)
+ ;; backward-compatibility alias
+ (put 'mh-show-from-face 'face-alias 'mh-show-from)
  
! (defface mh-show-xface
    '((t (:foreground "black" :background "white")))
    "Face used to display the X-Face image.
  The background and foreground is used in the image."
    :group 'mh-show-faces)
+ ;; backward-compatibility alias
+ (put 'mh-show-xface-face 'face-alias 'mh-show-xface)
  
! (defvar mh-show-subject-face 'mh-show-subject
    "Face used to highlight the Subject: header field.")
! (copy-face 'mh-folder-subject 'mh-show-subject)
  
  
  
  ;;; Faces Used in Speedbar (:group 'mh-speed-faces)
  
! (defface mh-speedbar-folder
    '((((class color) (background light))
       (:foreground "blue4"))
      (((class color) (background dark))
       (:foreground "light blue")))
    "Face used for folders in the speedbar buffer."
    :group 'mh-speed-faces)
+ ;; backward-compatibility alias
+ (put 'mh-speedbar-folder-face 'face-alias 'mh-speedbar-folder)
  
! (defface mh-speedbar-selected-folder
    '((((class color) (background light))
       (:foreground "red1" :underline t))
      (((class color) (background dark))
***************
*** 2434,2449 ****
      (t (:underline t)))
    "Face used for the current folder."
    :group 'mh-speed-faces)
  
! (defface mh-speedbar-folder-with-unseen-messages-face
!   '((t (:inherit mh-speedbar-folder-face :bold t)))
    "Face used for folders in the speedbar buffer which have unread messages."
    :group 'mh-speed-faces)
  
! (defface mh-speedbar-selected-folder-with-unseen-messages-face
!   '((t (:inherit mh-speedbar-selected-folder-face :bold t)))
    "Face used for the current folder when it has unread messages."
    :group 'mh-speed-faces)
  
  ;;; Local Variables:
  ;;; indent-tabs-mode: nil
--- 2486,2507 ----
      (t (:underline t)))
    "Face used for the current folder."
    :group 'mh-speed-faces)
+ ;; backward-compatibility alias
+ (put 'mh-speedbar-selected-folder-face 'face-alias 
'mh-speedbar-selected-folder)
  
! (defface mh-speedbar-folder-with-unseen-messages
!   '((t (:inherit mh-speedbar-folder :bold t)))
    "Face used for folders in the speedbar buffer which have unread messages."
    :group 'mh-speed-faces)
+ ;; backward-compatibility alias
+ (put 'mh-speedbar-folder-with-unseen-messages-face 'face-alias 
'mh-speedbar-folder-with-unseen-messages)
  
! (defface mh-speedbar-selected-folder-with-unseen-messages
!   '((t (:inherit mh-speedbar-selected-folder :bold t)))
    "Face used for the current folder when it has unread messages."
    :group 'mh-speed-faces)
+ ;; backward-compatibility alias
+ (put 'mh-speedbar-selected-folder-with-unseen-messages-face 'face-alias 
'mh-speedbar-selected-folder-with-unseen-messages)
  
  ;;; Local Variables:
  ;;; indent-tabs-mode: nil