Re: Make Gnus highlighting Lisp snippets ?

[Hans-Peter Binder <hpb@appledomain.de>]

* 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)