info-gnus-english
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Group Highlighting ?


From: lance
Subject: Group Highlighting ?
Date: Fri, 08 Jul 2005 09:15:38 -0500
User-agent: Gnus/5.1007 (Gnus v5.10.7) XEmacs/21.4 (Jumbo Shrimp, linux)



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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]