From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/5316 Path: news.gmane.org!not-for-mail From: lance Newsgroups: gmane.emacs.gnus.user Subject: Group Highlighting ? Date: Fri, 08 Jul 2005 09:15:38 -0500 Organization: Nationwide Internet Message-ID: <87fyupbcz9.fsf@mail.augustmail.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1138671060 26965 80.91.229.2 (31 Jan 2006 01:31:00 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 31 Jan 2006 01:31:00 +0000 (UTC) Original-X-From: nobody Tue Jan 17 17:35:06 2006 Original-Path: quimby.gnus.org!newsfeed.gazeta.pl!newsfeed.pionier.net.pl!news.glorb.com!newshosting.com!nx01.iad01.newshosting.com!nntp.nationwide.net!news.shreve.net!not-for-mail Original-Newsgroups: gnu.emacs.gnus User-Agent: Gnus/5.1007 (Gnus v5.10.7) XEmacs/21.4 (Jumbo Shrimp, linux) Cancel-Lock: sha1:Gfd8FBWagoRdrLaxFdI1fCPdqpk= Original-NNTP-Posting-Host: 932aa64f.news.nationwide.net Original-X-Trace: DXC=YTj6lbV_UFnU4>nG=h6E?]S6TdHmad[3<@6WFAY;cI31Z?QXdDNS97 Original-X-Complaints-To: abuse-usenet@ticon.net Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:5458 Original-Lines: 42 X-Gnus-Article-Number: 5458 Tue Jan 17 17:35:06 2006 Xref: news.gmane.org gmane.emacs.gnus.user:5316 Archived-At: 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