Bootstrap fails.

[Lute Kamstra]

Hi Miles,

This change broke bootstrapping for me.

2005-06-17  Miles Bader  <address@hidden>

        * mh-customize.el (mh-folder-body, mh-folder-cur-msg)
        (mh-folder-cur-msg-number, mh-folder-date, mh-folder-followup)
        (mh-folder-msg-number, mh-folder-refiled, mh-folder-subject)
        (mh-folder-tick, mh-folder-to, mh-index-folder)
        (mh-letter-header-field, mh-show-cc, mh-show-date)
        (mh-show-header, mh-show-pgg-good, mh-show-pgg-unknown)
        (mh-show-pgg-bad, mh-show-signature, mh-show-to, mh-show-from)
        (mh-show-xface, mh-speedbar-folder, mh-speedbar-selected-folder)
        (mh-speedbar-folder-with-unseen-messages)
        (mh-speedbar-selected-folder-with-unseen-messages)
        (mh-folder-msg-number, mh-folder-subject, mh-folder-followup)
        (mh-folder-subject): Remove "-face" suffix from face names.
        (mh-folder-body, mh-folder-cur-msg, mh-folder-cur-msg-number)
        (mh-folder-date-face, mh-folder-followup-face)
        (mh-folder-msg-number-face, mh-folder-refiled-face)
        (mh-folder-subject-face, mh-folder-tick-face, mh-folder-to-face)
        (mh-index-folder-face, mh-letter-header-field-face)
        (mh-show-cc-face, mh-show-date-face, mh-show-header-face)
        (mh-show-pgg-good-face, mh-show-pgg-unknown-face)
        (mh-show-pgg-bad-face, mh-show-signature-face, mh-show-to-face)
        (mh-show-from-face, mh-show-xface-face, mh-speedbar-folder-face)
        (mh-speedbar-selected-folder-face)
        (mh-speedbar-folder-with-unseen-messages-face)
        (mh-speedbar-selected-folder-with-unseen-messages-face): 
        New backward-compatibility aliases for renamed faces.
        (mh-folder-body-face, mh-folder-cur-msg-face)
        (mh-folder-cur-msg-number-face, mh-folder-date-face)
        (mh-folder-followup-face, mh-folder-msg-number-face)
        (mh-folder-deleted-face, mh-folder-refiled-face)
        (mh-folder-subject-face, mh-folder-address-face)
        (mh-folder-scan-format-face, mh-folder-to-face)
        (mh-index-folder-face, mh-show-cc-face, mh-show-date-face)
        (mh-show-header-face, mh-show-pgg-good-face)
        (mh-show-pgg-unknown-face, mh-show-pgg-bad-face)
        (mh-show-to-face, mh-show-from-face, mh-show-subject-face)
        (mh-speedbar-folder-with-unseen-messages)
        (mh-speedbar-selected-folder-with-unseen-messages): 
        Use renamed MH-E faces.

The patch below gets bootstrap working again.  Can you confirm that
it's the right fix?

I tried to find information on the face-alias property, but couldn't
find anything.  It should probably be documented in the Lisp Manual.

Lute.


Index: lisp/mh-e/mh-customize.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-customize.el,v
retrieving revision 1.14
diff -c -r1.14 mh-customize.el
*** lisp/mh-e/mh-customize.el   17 Jun 2005 01:29:30 -0000      1.14
--- lisp/mh-e/mh-customize.el   17 Jun 2005 08:48:46 -0000
***************
*** 2156,2164 ****
    "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.")
--- 2156,2162 ----
    "Face used to highlight body text in MH-Folder buffers."
    :group 'mh-folder-faces)
  ;; 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.")
***************
*** 2175,2183 ****
    "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.")
--- 2173,2179 ----
    "Face used for the current message line in MH-Folder buffers."
    :group 'mh-folder-faces)
  ;; 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.")
***************
*** 2191,2199 ****
    "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.")
--- 2187,2193 ----
    "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 '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.")