Group Highlighting ?

Group Highlighting ?

[lance]

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

Re: Group Highlighting ?

[Johan Bockgård]

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