Re: User agent highlighting in gnus

[Reiner Steib]

On Sun, Aug 19 2007, Hadron wrote:

> Could you explain this block. Not being a lisp programmer I can't really
> see how to set a nice "loud" face for all User-Agent or X-Newsreader with
> "Mutt" in and another font for either with "Gnus"  in and another for
> either with any other face again.

(add-to-list
 'gnus-header-face-alist
 (list (concat
        "^"
        (regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t)
        ":.*Mutt")
       nil your-mutt-face))

(add-to-list
 'gnus-header-face-alist
 (list (concat
        "^"
        (regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t)
        ":.*Gnus")
       nil your-gnus-face))

(add-to-list
 'gnus-header-face-alist
 (list (concat
        "^"
        (regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t)
        ":.*") ;; other
       nil your-other-reader-face))

You need to defface your-*-face.  I'm not sure if the order works in
this way.  You may have to change it or add the APPEND argument of
`add-to-list'.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/