From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/361
Path: news.gmane.org!not-for-mail
From: rendhalver@xemacs.org (Rendhalver [Peter Brown])
Newsgroups: gmane.emacs.gnus.user
Subject: Re: Setting font faces
Date: Thu, 25 Apr 2002 11:00:37 +1000
Organization: OzEmail Ltd, Australia
Message-ID: <87wuuwbnii.fsf@ulthwe.dyndns.org>
References: <hem2h1c9.fsf@morpheus.demon.co.uk>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138667367 6576 80.91.229.2 (31 Jan 2006 00:29:27 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:29:27 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:27:28 2006
Original-Path: quimby.gnus.org!lackawana.kippona.com!out.nntp.be!propagator-SanJose!in.nntp.be!xmission!news-out.spamkiller.net!propagator2-maxim!propagator-maxim!news-in.spamkiller.net!snewsf0.syd.ops.aspac.uu.net!ozemail.com.au!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
User-Agent: Gnus/5.090006 (Oort Gnus v0.06) XEmacs/21.5 (beets,
 i386-unknown-freebsd4.5)
X-Attribution: PB
X-Face: "_{_#i8P_X(rWxx$NIpE"|ZMimRR1Ov!R{'
 =?Ep2PCy9`U%8;1LMP.w?{2P-9vC.:sbq'.S
 J_0>!*7+yI}R'(}p0'4`cdgTUu$e]vY'yevDnUt2==AR]U4peAE:LQ`$S-#*3D;aRVeY:wAbvemGaA
 zqoS
Cancel-Lock: sha1:n3snCsWz82NiI3DEE4nNOR7NPCk=
Original-NNTP-Posting-Host: 1cust218.tnt12.bne1.da.uu.net
Original-X-Trace: ozemail.com.au 1019696207 63.12.141.218 (Thu, 25 Apr 2002 10:56:47 EST)
Original-NNTP-Posting-Date: Thu, 25 Apr 2002 10:56:47 EST
Original-Distribution: world
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:501
Original-Lines: 88
X-Gnus-Article-Number: 501   Tue Jan 17 17:27:28 2006
Xref: news.gmane.org gmane.emacs.gnus.user:361
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/361>

>>>>> "Paul" == Paul Moore <gustav@morpheus.demon.co.uk> writes:

    Paul> I'm trying to customise fonts in Gnus (just for the fun of
    Paul> it, mainly) and it's harder than the manual implies. If I
    Paul> use the Customize interface to change, say, the font of
    Paul> gnus-group-news-3-face (the one used in the group buffer)
    Paul> the change doesn't seem to "take".

    Paul> If I use (set-face-font 'gnus-group-news-3-face "Comic Sans
    Paul> MS:Regular:10::Western")

    Paul> that works fine.

hey paul 
i have this in my .gnus file

it works for me :)
you might want to change the colours and the frame-background-mode tho 
im not sure of the options to change the font
but it will be in the docs for the defface function

;; face customisation
;; group face customisation

(cond (window-system
       (setq frame-background-mode 'dark)
       (defface my-group-face-1
     	 '((t (:foreground "Red" :bold t)))
            "First group face")
       (defface my-group-face-2
     	 '((t (:foreground "DarkSeaGreen4" :bold t)))
            "Second group face")
       (defface my-group-face-3
     	 '((t (:foreground "Green4" :bold t)))
            "Third group face")
       (defface my-group-face-4
     	 '((t (:foreground "SteelBlue" :bold t)))
            "Fourth group face")
       (defface my-group-face-5
     	 '((t (:foreground "Blue" :bold t)))
            "Fifth group face")
       (defface my-head-to-face
	 '((t (:foreground "green" t)))
            "To header face")
       (defface my-head-to-cont-face
	 '((t (:foreground "green" :bold t)))
            "To header content face")
       (defface my-head-from-face
	 '((t (:foreground "red" t)))
            "From header face")
       (defface my-head-from-cont-face
	 '((t (:foreground "red" :bold t)))
            "From content header face")
       (defface my-head-subj-face
	 '((t (:foreground "white" t)))
            "Subject header face")
       (defface my-head-subj-cont-face
	 '((t (:foreground "white" :bold t)))
         "Subject content header face")
       (defface my-head-gen-face
	 '((t (:foreground "lightblue" t)))
            "General header face")
       (defface my-head-gen-cont-face
	 '((t (:foreground "lightblue" :bold t)))
            "General content header face")))

(setq gnus-group-highlight
      '(((> unread 200) . my-group-face-1)
	((and (< level 3) (zerop unread)) . my-group-face-2)
	((< level 3) . my-group-face-3)
	((zerop unread) . my-group-face-4)
	(t . my-group-face-5)))

(setq gnus-header-face-alist
      (list
       '("To:\\|Cc:" my-head-to-face my-head-to-cont-face)
       '("From:\\|Sender:" my-head-from-face my-head-from-cont-face)
       '("Subject:" my-head-subj-face my-head-subj-cont-face)
       '(".*" my-head-gen-face my-head-gen-cont-face)
       ))



-- 
 XEmacs Advocate | I've seen things you people wouldnt believe.
 FreeBSD Devote  | Attack ships on fire of the shores of orion ...
 Perl Hacker     | All those moments will be lost in time, 
 Apache God      | like tears in the rain. Time to die.. roy batty - bladerunner