Re: gnus-group-highlight

[Steven L Baur <steve@miranova.com>]

>>>>> "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.