From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/10607 Path: news.gmane.org!not-for-mail From: Bastien Newsgroups: gmane.emacs.gnus.user Subject: Re: Highlight words in the subject line? Date: Wed, 05 Mar 2008 23:17:27 +0000 Message-ID: <874pbkg3qw.fsf@bzg.ath.cx> References: <87hcfli6w3.fsf@bzg.ath.cx> <86lk4x6ivo.fsf@lifelogs.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1204759073 25310 80.91.229.12 (5 Mar 2008 23:17:53 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 5 Mar 2008 23:17:53 +0000 (UTC) Cc: info-gnus-english@gnu.org To: Ted Zlatanov Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Thu Mar 06 00:18:20 2008 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JX2sE-0007SF-PO for gegu-info-gnus-english@m.gmane.org; Thu, 06 Mar 2008 00:18:11 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JX2rh-0005AH-IR for gegu-info-gnus-english@m.gmane.org; Wed, 05 Mar 2008 18:17:37 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JX2rf-00059s-MM for info-gnus-english@gnu.org; Wed, 05 Mar 2008 18:17:35 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JX2rd-00059R-LT for info-gnus-english@gnu.org; Wed, 05 Mar 2008 18:17:34 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JX2rd-00059I-HI for info-gnus-english@gnu.org; Wed, 05 Mar 2008 18:17:33 -0500 Original-Received: from fk-out-0910.google.com ([209.85.128.187]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JX2rc-0001Wb-Un for info-gnus-english@gnu.org; Wed, 05 Mar 2008 18:17:33 -0500 Original-Received: by fk-out-0910.google.com with SMTP id 26so1697725fkx.10 for ; Wed, 05 Mar 2008 15:17:29 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=googlemail.com; s=gamma; h=domainkey-signature:received:received:received:from:to:cc:subject:in-reply-to:references:user-agent:date:message-id:mime-version:content-type:sender; bh=5LO48u2D1a6rLYF2FklTcJPDCXbESmL3xiOvTcs2cxA=; b=aS5Z8SPncnpm7FsNQPdUYaWnGgRXRHMScRj8PaVOKPmG2ctPLZ6kPlYF4caRAvfdrYx0A7RQKlo4bYvfW6ZaXookdRB5POxkaT3MvCP23gJHM67WMiu7wlNHfKREMiOGR0QcLhYmVQHfRnyBBIP778mZTsES6v2gfbe8bKHYP6k= DomainKey-Signature: a=rsa-sha1; c=nofws; d=googlemail.com; s=gamma; h=from:to:cc:subject:in-reply-to:references:user-agent:date:message-id:mime-version:content-type:sender; b=OuQ76o8w6fsphLwVP4BNBg+TrFMqVZ5sv1sOPHdTfN8cw/qRVQ+gdK/X3qHMRno3zCc9P4dQMhCDnrpWv8NZjKSjyC9ROhqixi93x7mhd35dnoyhrA9XpSCXLYFG21cxBKAFEpqGr3KyOuAYkylSqswXDd+uNsFeZEp6xzIaCw8= Original-Received: by 10.82.187.2 with SMTP id k2mr8754577buf.26.1204759049005; Wed, 05 Mar 2008 15:17:29 -0800 (PST) Original-Received: from bzg.ath.cx ( [81.99.213.34]) by mx.google.com with ESMTPS id z33sm2935208ikz.0.2008.03.05.15.17.27 (version=TLSv1/SSLv3 cipher=OTHER); Wed, 05 Mar 2008 15:17:28 -0800 (PST) Original-Received: by bzg.ath.cx (Postfix, from userid 1000) id 3C45A1575BD; Wed, 5 Mar 2008 23:17:27 +0000 (GMT) In-Reply-To: <86lk4x6ivo.fsf@lifelogs.com> (Ted Zlatanov's message of "Wed, 05 Mar 2008 14:00:43 -0600") User-Agent: Gnus/5.110007 (No Gnus v0.7) Emacs/23.0.60 (gnu/linux) X-detected-kernel: by monty-python.gnu.org: Linux 2.6 (newer, 2) X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.gnus.user:10607 Archived-At: Ted Zlatanov writes: > On Wed, 05 Mar 2008 15:53:41 +0000 Bastien wrote: > > B> In the meanwhile, how can I access the group parameters from the > B> prepared summary, and use the value of highlight-words instead of a > B> default regexp? > > (Gnus hacking digression) [...Great!...] > (end of digression) So finally the code is this: --8<---------------cut here---------------start------------->8--- (add-hook 'gnus-summary-prepared-hook 'bzg-gnus-hl-sum-words) (defun bzg-gnust-hl-sum-words nil "Highlight words in the summary buffer." (let* ((group gnus-newsgroup-name) (hl-words (gnus-group-fast-parameter group 'highlight-words t)) buffer-read-only hl-word) (dolist (hlw hl-words) (save-excursion (goto-char (point-min)) (while (re-search-forward (car hlw) nil t) (add-text-properties (match-beginning 0) (match-end 0) (list 'face (car (reverse hlw))))))) (setq buffer-read-only t))) --8<---------------cut here---------------end--------------->8--- So that I spot the important message in the summary buffer depending on the group parameter. Neat. Thanks again, -- Bastien