From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6501
Path: main.gmane.org!not-for-mail
From: Steven L Baur <steve@miranova.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: gnus-group-highlight
Date: 03 Jun 1996 12:09:53 -0700
Sender: steve@miranova.com
Message-ID: <m2ivd8bt6m.fsf@deanna.miranova.com>
References: <x67mtpauxx.fsf@eyesore.no>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0 (generated by tm-edit 7.66)
Content-Type: text/plain; charset=US-ASCII
X-Trace: main.gmane.org 1035146946 3817 80.91.224.250 (20 Oct 2002 20:49:06 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:49:06 +0000 (UTC)
Cc: ding@ifi.uio.no
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id MAA28262 for <steve@miranova.com>; Mon, 3 Jun 1996 12:46:48 -0700
Original-Received: from deanna.miranova.com (steve@deanna.miranova.com [206.190.83.1]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <VAA29099@ifi.uio.no> ; Mon, 3 Jun 1996 21:10:29 +0200
Original-Received: (from steve@localhost) by deanna.miranova.com (8.7.5/8.6.9) id MAA27550; Mon, 3 Jun 1996 12:09:55 -0700
Original-To: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
In-Reply-To: Lars Magne Ingebrigtsen's message of 03 Jun 1996 06:17:14 -0700
Original-Lines: 51
X-Mailer: Gnus v5.2.5/XEmacs 19.14
Xref: main.gmane.org gmane.emacs.gnus.general:6501
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6501

>>>>> "Lars" == Lars Magne Ingebrigtsen <larsi@ifi.uio.no> writes:

Lars> I've now moved the definition of this variable to gnus-cus.el so that
Lars> you can use custom to, uhm, customize it.
...
Lars> Does anybody have a nicer value for this that they'd like to
Lars> contribute?  The variables you have to play with include:

I'm currently using a scheme based on subscription levels with
relative shading indicating the level and distinct colors between mail
& Usenet groups.  It looks like this: (against XEmacs 19.14 beta).
	http://www.miranova.com/~steve/gnus-topics.gif

These are probably not optimum colors, but it has ``fruit salad''
coloring, which I like.

(setq gnus-group-highlight
      (cond 
       ((not (eq gnus-display-type 'color))
	'((mailp . bold)
	  ((= unread 0) . italic)))
       ((eq gnus-background-mode 'dark)
	`(((not mailp) .
	   ,(custom-face-lookup "ForestGreen" nil nil t nil nil))
	  ((zerop unread) .
	   ,(custom-face-lookup "Blue" nil nil t nil nil))))
       (t
	`(
	  ((and (not mailp) (<= level 3)) .
	   ,(custom-face-lookup "ForestGreen" nil nil t nil nil))
	  ((and (not mailp) (eq level 4)) .
	   ,(custom-face-lookup "DarkGreen" nil nil t nil nil))
	  ((and (not mailp) (eq level 5)) .
	   ,(custom-face-lookup "Red" nil nil t nil nil))
	  ((and (eq (car method) 'nnml) (eq level 1)) .
	   ,(custom-face-lookup "DeepPink3" nil nil t nil nil))
	  ((and (eq (car method) 'nnml) (eq level 2)) .
	   ,(custom-face-lookup "HotPink3" nil nil t nil nil))
	  ((and (eq (car method) 'nnml) (eq level 3)) .
	   ,(custom-face-lookup "dark magenta" nil nil t nil nil))
	  ((and (eq (car method) 'nnml) (eq level 4)) .
	   ,(custom-face-lookup "DeepPink4" nil nil t nil nil))
	  ((and (eq (car method) 'nnml) (> level 4)) .
	   ,(custom-face-lookup "DarkOrchid4" nil nil t nil nil))
))))

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be proofread for $250/hour.
Andrea Seastrand: For your vote on the Telecom bill, I will vote for anyone
except you in November.