From xemacs-m  Mon Mar 24 09:38:59 1997
Received: from elc1.dina.kvl.dk (elc1.dina.kvl.dk [130.225.40.228])
	by xemacs.org (8.8.5/8.8.5) with SMTP id JAA12351
	for <xemacs-beta@xemacs.org>; Mon, 24 Mar 1997 09:38:58 -0600 (CST)
Received: from zuse.dina.kvl.dk (zuse.dina.kvl.dk [130.225.40.245]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id QAA00239; Mon, 24 Mar 1997 16:28:03 +0100
Received: (abraham@localhost) by zuse.dina.kvl.dk (8.6.12/8.6.4) id QAA14600; Mon, 24 Mar 1997 16:37:05 +0100
Sender: abraham@dina.kvl.dk
To: xemacs-beta@xemacs.org
Subject: Re: faces customization for VM
References: <199703221710.MAA08457@amber.vis-av.com> 	<kigrah7vnpp.fsf@jagor.srce.hr> 	<QQchzu20763.199703221830@crystal.WonderWorks.COM> 	<199703222011.PAA08853@amber.vis-av.com> <QQciab26428.199703222023@crystal.WonderWorks.COM>
Organization: The Church of Emacs
X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM<U{B+4e{k79.Ya{~':DblFPCg$
 @60,BfLv2@SKZ19cMWK0/C'v;tM:|6B'R}U1rp6CL&kN({9<zF/V{:JCg27yC)9oZjeqcQawzKfiNL
 t9}`vjmK["dRQC/qGFQq"%u|Q`:6{"Rz}b(dnl_"3$Jtqimi>|8MBp/
From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: 24 Mar 1997 16:37:05 +0100
In-Reply-To: Kyle Jones's message of Sat, 22 Mar 1997 15:23:52 -0500 (EST)
Message-ID: <rjend5qp26.fsf@zuse.dina.kvl.dk>
Lines: 95
X-Mailer: Gnus v5.4.26/Emacs 19.34
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit


Please try this patch:

Mon Mar 24 16:34:09 1997  Per Abrahamsen  <abraham@dina.kvl.dk>

	* utils/highlight-headers.el: Declare faces with `defface'.

cd /pack/xemacs/lib/xemacs-20.1-b8/lisp/utils/
diff -c highlight-headers.el~ highlight-headers.el
*** highlight-headers.el~	Wed Dec 18 23:43:00 1996
--- highlight-headers.el	Mon Mar 24 16:33:42 1997
***************
*** 39,86 ****
  ;; highlight-headers-citation-regexp		matches lines of quoted text
  ;; highlight-headers-citation-header-regexp	matches headers for quoted text
  
! (if (find-face 'message-headers)
!     nil
!   (make-face 'message-headers)
!   (or (face-differs-from-default-p 'message-headers)
!       (copy-face 'bold 'message-headers)))
  
! (if (find-face 'message-header-contents)
!     nil
!   (make-face 'message-header-contents)
!   (or (face-differs-from-default-p 'message-header-contents)
!       (copy-face 'italic 'message-header-contents)))
  
! (if (find-face 'message-highlighted-header-contents)
!     nil
!   (make-face 'message-highlighted-header-contents)
!   (or (face-differs-from-default-p 'message-highlighted-header-contents)
!       (progn
! 	(copy-face 'message-header-contents
! 		   'message-highlighted-header-contents)
! 	;; Most people seem not to like underlining, so change
! 	;; the font instead.
! 	;; (set-face-underline-p 'message-highlighted-header-contents t)
! 	(or (make-face-bold 'message-highlighted-header-contents)
! 	    (make-face-unbold 'message-highlighted-header-contents)
! 	    (make-face-italic 'message-highlighted-header-contents)
! 	    (make-face-unitalic 'message-highlighted-header-contents))
! 	)))
  
! (if (find-face 'message-cited-text)
!     nil
!   (make-face 'message-cited-text)
!   (or (face-differs-from-default-p 'message-cited-text)
!       (copy-face 'italic 'message-cited-text)))
  
! (if (find-face 'x-face)
!     nil
!   (make-face 'x-face)
!   (or (face-differs-from-default-p 'x-face)
!       (progn 
! 	(copy-face 'message-highlighted-header-contents 'x-face)
! 	(set-face-background 'x-face "white")
! 	(set-face-foreground 'x-face "black"))))
  
  ;;(condition-case nil
  ;;    (face-name 'message-addresses)
--- 39,69 ----
  ;; highlight-headers-citation-regexp		matches lines of quoted text
  ;; highlight-headers-citation-header-regexp	matches headers for quoted text
  
! (defgroup highlight-headers nil
!   "Fancify rfc822 documents."
!   :group 'faces
!   :group 'mail
!   :group 'news)
  
! (defface message-headers '((t (:bold t)))
!   "Face used for header part before colon."
!   :group 'highlight-headers)
  
! (defface message-header-contents '((t (:italic t)))
!   "Face used for header part after colon."
!   :group 'highlight-headers)
  
! (defface message-highlighted-header-contents '((t (:italic t :bold t)))
!   "Face used for contents of \"special\" headers."
!   :group 'highlight-headers)
  
! (defface message-cited-text '((t (:italic t)))
!   "Face used for cited text."
!   :group 'highlight-headers)
! 
! (defface x-face '((t (:background "white" :foreground "black")))
!   "Face used for X-Face icon."
!   :group 'highlight-headers)
  
  ;;(condition-case nil
  ;;    (face-name 'message-addresses)

Compilation exited abnormally with code 1 at Mon Mar 24 16:33:59

