* Group Highlighting ?
@ 2005-07-08 14:15 lance
2005-07-08 18:45 ` Johan Bockgård
0 siblings, 1 reply; 2+ messages in thread
From: lance @ 2005-07-08 14:15 UTC (permalink / raw)
In the INFO I came across this little snippit but it is difficult for this mere mortal
to understand. The first line is easy enough. Correct me if I am wrong but the second
line indicates that if the (level is < 3 and 0 unread articles). Line 3 is Level < 3, line
4 is 0 unread articles, line 5 all others get my-group-face-5? I want to add a line to this
that says if the group name includes "Listserv" make the color "my-group-face-4".
How do I do this?
Lance
; HIGHLIGHTING GROUPS
(cond (window-system
(setq custom-background-mode 'light)
(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")))
(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))
)
--
Lance Hoffmeyer
lance@augustmail.com
-------------------------------------------------------------------------------
The natural progress of things is for liberty to yield and
governments to gain ground.
-
Thomas Jefferson
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: Group Highlighting ?
2005-07-08 14:15 Group Highlighting ? lance
@ 2005-07-08 18:45 ` Johan Bockgård
0 siblings, 0 replies; 2+ messages in thread
From: Johan Bockgård @ 2005-07-08 18:45 UTC (permalink / raw)
lance <lance@mail.augustmail.com> writes:
> I want to add a line to this that says if the group name includes
> "Listserv" make the color "my-group-face-4".
> (setq gnus-group-highlight
> '(((> unread 200) . my-group-face-1)
> ((and (< level 3) (zerop unread)) . my-group-face-2)
[...]
You can add line like
((string-match "Listserv" group) . my-group-face-4)
--
Johan Bockgård
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2005-07-08 18:45 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2005-07-08 14:15 Group Highlighting ? lance
2005-07-08 18:45 ` Johan Bockgård
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).