From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/39002 Path: main.gmane.org!not-for-mail From: Daniel Pittman Newsgroups: gmane.emacs.gnus.general Subject: Re: coloring process-marked articles Date: Fri, 28 Sep 2001 14:16:45 +1000 Organization: Not today, thank you, Mother. Sender: owner-ding@hpc.uh.edu Message-ID: <87d74chrv6.fsf@inanna.rimspace.net> References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035174780 25547 80.91.224.250 (21 Oct 2002 04:33:00 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:33:00 +0000 (UTC) Return-Path: Original-Received: (qmail 10912 invoked from network); 28 Sep 2001 04:19:04 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 28 Sep 2001 04:19:04 -0000 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 15mp6C-0006tk-00; Thu, 27 Sep 2001 23:18:04 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 27 Sep 2001 23:17:37 -0500 (CDT) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id XAA06378 for ; Thu, 27 Sep 2001 23:17:24 -0500 (CDT) Original-Received: (qmail 10893 invoked by alias); 28 Sep 2001 04:17:41 -0000 Original-Received: (qmail 10888 invoked from network); 28 Sep 2001 04:17:39 -0000 Original-Received: from melancholia.rimspace.net (HELO melancholia.danann.net) (203.36.211.210) by gnus.org with SMTP; 28 Sep 2001 04:17:39 -0000 Original-Received: from localhost (melancholia.rimspace.net [203.36.211.210]) by melancholia.danann.net (Postfix) with ESMTP id C38F92A82D for ; Fri, 28 Sep 2001 14:17:21 +1000 (EST) Original-Received: by localhost (Postfix, from userid 1000) id 6E5F6821A0; Fri, 28 Sep 2001 14:16:45 +1000 (EST) Original-To: ding@gnus.org In-Reply-To: ("Bill White"'s message of "Thu, 27 Sep 2001 23:04:42 -0500") X-Homepage: http://danann.net/ Original-Lines: 52 User-Agent: Gnus/5.090004 (Oort Gnus v0.04) XEmacs/21.5 (asparagus) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:39002 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:39002 On Thu, 27 Sep 2001, Bill White wrote: > I was thinking today that it would be nice to colorize process-marked > articles in the summary buffer. Here's a way to do it by customizing > gnus-summary-highlight, but this way I'll miss the nifty things that > are occasionally added to gnus-summary-highlight. Is there a better > way to do it? > > ,----[ ~/.gnus ] > | (defface gnus-summary-process-face > | '((((class color)) > | (:foreground "deeppink" :background "black"))) > | "Face used for process-marked articles.") > `---- > > ,----[ C-h v gnus-summary-highlight RET ] > | gnus-summary-highlight's value is shown below. > | > | [...] > | > | Value: > | (((= mark gnus-canceled-mark) > | . gnus-summary-cancelled-face) > => | ((memq > => | (gnus-summary-article-number) > => | gnus-newsgroup-processable) > => | . gnus-summary-process-face) > | > | [...] > | > `---- Presumably you set this by putting a complete copy of `gnus-summary-highlight' in your .gnus, right? Otherwise you wouldn't be asking. So, it's basically an alist of values; try: (require 'gnus-sum) (require 'cl) (pushnew '((memq (gnus-summary-article-number) gnus-newsgroup-processable) . gnus-summary-process-face) gnus-summary-highlight :test equal) That should do what you want and be safe from multiple evaluations. Daniel -- It is always possible to aglutenate multiple separate problems into a single complex interdependent solution. In most cases this is a bad idea. -- RFC 1925