Make Gnus highlighting Lisp snippets ?

Make Gnus highlighting Lisp snippets ?

[Xavier Maillard]

Yo,

Is there a possibility (I am pretty sure there is one) to make
Gnus (No Gnus) highlighting code snippets for certain groups ?

In fact I am reading a lot of Lisp related usenet groups and
pretty often Lisp source are posted. My problem is I don't
really see how I can tell Gnus to detect Lisp code in messages.

So the idea would be to restrain this code detection on a set of
known Lisp groups and have a pattern to detect Lisp mixed with
text.

Any idea on how to do this ?

Thank you
-- 
No e-patents, pas de brevets logiciels
Pétition contre les brevets logiciels : http://petition.eurolinux.org

Re: Make Gnus highlighting Lisp snippets ?

[Hans-Peter Binder]

* Xavier Maillard <zedek@gnu-rox.org> writes:
> Yo,
>
> Is there a possibility (I am pretty sure there is one) to make
> Gnus (No Gnus) highlighting code snippets for certain groups ?
>
> In fact I am reading a lot of Lisp related usenet groups and
> pretty often Lisp source are posted. My problem is I don't
> really see how I can tell Gnus to detect Lisp code in messages.
>
> So the idea would be to restrain this code detection on a set of
> known Lisp groups and have a pattern to detect Lisp mixed with
> text.
>
> Any idea on how to do this ?

Maybe this one can help you.

;; fontlocking Lisp in News,
;; i.e. all groups with 'gnu' and 'emacs'

    (defvar egoge-emacs-lisp-ngs-regexp
      (regexp-opt
       '(
	 "gnu" "emacs"
	 )))

    (add-to-list 'mm-uu-type-alist
		 '(emacs-lisp "^(" ")\\s-*\\(\n\n\\|\n?\\'\\)"
			      mm-uu-emacs-sources-extract nil
			      egoge-mm-uu-emacs-lisp-test))

    (defun egoge-mm-uu-emacs-lisp-test ()
      (and gnus-newsgroup-name
	   (string-match egoge-emacs-lisp-ngs-regexp
			 gnus-newsgroup-name)))

    (mm-uu-configure)


Regards/Gruesse
Hans-Peter Binder
-- 
(coffee-mode -1)

Re: Make Gnus highlighting Lisp snippets ?

[Steinar Børmer]

Hans-Peter Binder wrote:

| * Steinar Børmer <s1726@ii.uib.no> writes:
|
| > I can't find these.  Not even the group gnus.test.  Which server
| > do you use?
| 
| news.gnus.org ;-)

Ah, thanks.

Now, with a

(require 'mm-uu)

the code you posted works for me as well.

-- 
SB

I am so smart, so smart - s-m-r-t!  I mean, s-m-A-r-t!
	         			- Homer Simpson