From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/12536
Path: main.gmane.org!not-for-mail
From: Per Abrahamsen <abraham@dina.kvl.dk>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Quassia Gnus v0.12 is released
Date: 06 Oct 1997 20:18:48 +0200
Organization: The Church of Emacs
Message-ID: <rjoh527o1j.fsf@zuse.dina.kvl.dk>
References: <m2zpoq30rp.fsf@proletcult.slip.ifi.uio.no> <m2ra9yyg8h.fsf@haruspex.demon.co.uk>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
X-Trace: main.gmane.org 1035152055 4305 80.91.224.250 (20 Oct 2002 22:14:15 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 22:14:15 +0000 (UTC)
Return-Path: <ding-request@ifi.uio.no>
Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16])
	by altair.xemacs.org (8.8.7/8.8.7) with ESMTP id MAA16184
	for <steve@altair.xemacs.org>; Mon, 6 Oct 1997 12:52:58 -0700
Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2])
	by xemacs.org (8.8.5/8.8.5) with SMTP id OAA21141
	for <steve@xemacs.org>; Mon, 6 Oct 1997 14:45:29 -0500 (CDT)
Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) 
	id <UAA21928@ifi.uio.no> for <ding@ifi.uio.no> ; Mon, 6 Oct 1997 20:19:00 +0200
Original-Received: (qmail 9189 invoked by uid 504); 6 Oct 1997 18:18:58 -0000
Original-Received: (qmail 9186 invoked from network); 6 Oct 1997 18:18:57 -0000
Original-Received: from elc1.dina.kvl.dk (130.225.40.228)
  by claymore.vcinet.com with SMTP; 6 Oct 1997 18:18:56 -0000
Original-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 UAA04227; Mon, 6 Oct 1997 20:12:26 +0200
Original-Received: (abraham@localhost) by zuse.dina.kvl.dk (8.6.12/8.6.4) id UAA15259; Mon, 6 Oct 1997 20:18:48 +0200
Original-To: ding@gnus.org
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/
In-Reply-To: Leonard Blanks's message of "06 Oct 1997 17:05:18 +0000"
Original-Lines: 29
X-Mailer: Gnus v5.4.64/Emacs 19.34
Xref: main.gmane.org gmane.emacs.gnus.general:12536
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:12536


Leonard Blanks <ltb@haruspex.demon.co.uk> writes:

> | (setq gnus-group-highlight
> | 	`(((> unread 200) . 
> | 	   ,(custom-face-lookup "Red" nil nil t nil nil))
> | 	  ((and (< level 3) (zerop unread)) . 
> | 	   ,(custom-face-lookup "SeaGreen" nil nil t nil nil))
> | 	  ((< level 3) . 
> | 	   ,(custom-face-lookup "SpringGreen" nil nil t nil nil))
> | 	  ((zerop unread) . 
> | 	   ,(custom-face-lookup "SteelBlue" nil nil t nil nil))
> | 	  (t . 
> | 	   ,(custom-face-lookup "SkyBlue" nil nil t nil nil))))

Here is an -- mostly untested -- translation to `face-spec-set':

(face-spec-set 'my-group-face-1 '((t (:foreground "Red" :bold t))))
(face-spec-set 'my-group-face-2 '((t (:foreground "SeaGreen" :bold t))))
(face-spec-set 'my-group-face-3 '((t (:foreground "SpringGreen" :bold t))))
(face-spec-set 'my-group-face-4 '((t (:foreground "SteelBlue" :bold t))))
(face-spec-set 'my-group-face-5 '((t (:foreground "SkyBlue" :bold t))))

(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)))