Re: User agent highlighting in gnus

Re: User agent highlighting in gnus

[Reiner Steib]

On Sat, Aug 18 2007, Xavier Maillard wrote:

> highlights user-agent header according to three distinct lists of
> good, bad and unknown user-agents.

Using `gnus-header-face-alist' seems much more simple.  Something like
the following...

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

Bye, Reiner.

Crosspost & Followup-To: gnu.emacs.gnus
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: User agent highlighting in gnus

[Xavier Maillard]

Reiner Steib wrote:
> On Sat, Aug 18 2007, Xavier Maillard wrote:
> 
>> highlights user-agent header according to three distinct lists of
>> good, bad and unknown user-agents.
> 
> Using `gnus-header-face-alist' seems much more simple.  Something like
> the following...

Maybe you are right :) That's pretty old code so dunno if 
gnus-header-face-alist existed at that time.

Xavier

Re: User agent highlighting in gnus

[Reiner Steib]

On Sun, Aug 19 2007, Xavier Maillard wrote:

> That's pretty old code so dunno if gnus-header-face-alist existed at
> that time.

`gnus-header-face-alist' was changed from defvar to defcustom in
1997.  ;-)

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

Re: User agent highlighting in gnus

[Hadron]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> On Sat, Aug 18 2007, Xavier Maillard wrote:
>
>> highlights user-agent header according to three distinct lists of
>> good, bad and unknown user-agents.
>
> Using `gnus-header-face-alist' seems much more simple.  Something like
> the following...
>
> (add-to-list
>  'gnus-header-face-alist
>  (list (concat
> 	"^"
> 	(regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t)
> 	":.*"
> 	(regexp-opt '("Gnus" "Mutt") t))
>        nil font-lock-keyword-face))
>
> Bye, Reiner.
>
> Crosspost & Followup-To: gnu.emacs.gnus

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.

-- 
Perl combines all of the worst aspects of BASIC, C and line noise.
                -- Keith Packard

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/

Re: User agent highlighting in gnus

[Hadron]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> 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.

Just for google completion:

Other way around - here I hilite gnus and Outlook type and used quoting
for the face names available from list-faces-display from the facemenu+
library from drew adams.

,----
| (add-to-list
|  'gnus-header-face-alist
|  (list (concat
| 	"^"
| 	(regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t)
| 	":.*") ;; other
|        nil font-lock-comment-face))
| 
| (add-to-list
|  'gnus-header-face-alist
|  (list (concat
| 	"^"
| 	(regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t)
| 	":.*Outlook.*")
|        nil 'gnus-emphasis-highlight-words))
| 
| (add-to-list
|  'gnus-header-face-alist
|  (list (concat
| 	"^"
| 	(regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t)
| 	":.*Gnus.*")
|        nil 'gnus-server-opened))
| 
`----

Re: User agent highlighting in gnus

[Steffen Schwigon]

Hadron <hadronquark@googlemail.com> writes:
>
> ,----
> | 
> | ...
> | 
> `----

BTW, how do you generate those frame'd quotes? Is this a gnus or an
emacs feature or do you draw it manually? Sometimes also a variant of
this appears in this list, that contains a header like a section from
an info manual.

Steffen
-- 
Steffen Schwigon <schwigon@webit.de>
Dresden Perl Mongers <http://dresden-pm.org/>
Deutscher Perl-Workshop <http://www.perl-workshop.de/>

Re: User agent highlighting in gnus

[Simias]

Steffen Schwigon <schwigon@webit.de> writes:

> Hadron <hadronquark@googlemail.com> writes:
>>
>> ,----
>> | 
>> | ...
>> | 
>> `----
>
> BTW, how do you generate those frame'd quotes? Is this a gnus or an
> emacs feature or do you draw it manually? Sometimes also a variant of
> this appears in this list, that contains a header like a section from
> an info manual.
>
> Steffen

I think this is what you want:

,----
| http://www.davep.org/emacs/boxquote.el
`----

see? :)

-- 
Simias
rot13 for email

Re: User agent highlighting in gnus

[Hadron]

Steffen Schwigon <schwigon@webit.de> writes:

> Hadron <hadronquark@googlemail.com> writes:
>>
>> ,----
>> | 
>> | ...
>> | 
>> `----
>
> BTW, how do you generate those frame'd quotes? Is this a gnus or an
> emacs feature or do you draw it manually? Sometimes also a variant of
> this appears in this list, that contains a header like a section from
> an info manual.
>
> Steffen

boxquote-region

its in the debian emacs-goodies-el package but you can find the elisp
elsewhere too.

-- 
Please, Mother!  I'd rather do it myself!

Re: User agent highlighting in gnus

[Steffen Schwigon]

Simias <fvzvnf.a@tznvy.pbz> writes:
> I think this is what you want:
>
> ,----
> | http://www.davep.org/emacs/boxquote.el
> `----
>
> see? :)

Ah, nice.
Thanks. :-)

Steffen
-- 
,----
| Steffen Schwigon <schwigon@webit.de>
| Dresden Perl Mongers <http://dresden-pm.org/>
| Deutscher Perl-Workshop <http://www.perl-workshop.de/>
`----