Re: Highlight words in the subject line?

[Bastien]

Ted Zlatanov <tzz@lifelogs.com> writes:

> On Wed, 05 Mar 2008 15:53:41 +0000 Bastien <bzg@altern.org> 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