[PATCH] adaptive-fill-regexp

[PATCH] adaptive-fill-regexp

[Didier Verna]

        Hi!

        I propose the following patch to message.el which lets Gnus fill
properly paragraphs with double (or more) citations apearing like in the
following example:

> > This is an example
> > of a double citation.


1999-09-01  Didier Verna  <verna@inf.enst.fr>

	* message.el (message-mode): allows whitespaces between multiple
	instances of the fill character ">".


--- /infres/metheny/lib/xemacs/pgnus-0.95/lisp/message.el	Fri Jul  9 21:16:22 1999
+++ /infres/metheny/lib/xemacs/site-packages/lisp/gnus/message.el	Wed Sep  1 15:07:00 1999
@@ -1432,12 +1432,12 @@
 	 '(message-font-lock-keywords t)))
   (make-local-variable 'adaptive-fill-regexp)
   (setq adaptive-fill-regexp
-	(concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp))
+	(concat "[ \t]*[-a-z0-9A-Z]*\\(>[ \t]*\\)+[ \t]*\\|" adaptive-fill-regexp))
   (unless (boundp 'adaptive-fill-first-line-regexp)
     (setq adaptive-fill-first-line-regexp nil))
   (make-local-variable 'adaptive-fill-first-line-regexp)
   (setq adaptive-fill-first-line-regexp
-	(concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|"
+	(concat "[ \t]*[-a-z0-9A-Z]*\\(>[ \t]*\\)+[ \t]*\\|"
 		adaptive-fill-first-line-regexp))
   (mm-enable-multibyte)
   (make-local-variable 'indent-tabs-mode) ;Turn off tabs for indentation.


-- 
    /     /   _   _       Didier Verna        http://www.inf.enst.fr/~verna/
 - / / - / / /_/ /     ENST, INFRES C201.1       mailto:verna@inf.enst.fr
/_/ / /_/ / /__ /        46 rue Barrault        Tel.   +33 (1) 45 81 73 46
                       75013 Paris, France      Fax.   +33 (1) 45 81 31 19