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/
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
