Re: [flow-fill.el] Filling of quoted blank lines

[Ralf Angeli <dev.null@iwi.uni-sb.de>]

* Ralf Angeli (2003-12-03) writes:

> I will see if I can find the bug.

Okay, here is a new patch which works correctly AFAICS.  I know it is
not very elegant as I just copied and adapted the code for finding the
signature but I did not want to change too much of the existing code.

It would be nice if somebody could have a look at it and maybe check
it in if it is acceptable.

Regards,
Ralf

-- 
 Moo!
     `~~_.
______',,/______ No gnus is bad news.


--8<---------------cut here---------------start------------->8---
Index: flow-fill.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/flow-fill.el,v
retrieving revision 6.17
diff -u -r6.17 flow-fill.el
--- flow-fill.el	23 Oct 2003 05:52:49 -0000	6.17
+++ flow-fill.el	3 Dec 2003 21:43:13 -0000
@@ -112,7 +112,7 @@
 	      (beginning-of-line)
 	      (looking-at "^\\(>*\\)\\( ?\\)"))
 	(let ((quote (match-string 1))
-	      sig)
+	      except)
 	  (if (string= quote "")
 	      (setq quote nil))
 	  (when (and quote (string= (match-string 2) ""))
@@ -124,8 +124,12 @@
 	  ;; XXX slightly buggy handling of "-- "
 	  (while (and (save-excursion
 			(ignore-errors (backward-char 3))
-			(setq sig (looking-at "-- "))
+			(setq except (looking-at "-- "))
 			(looking-at "[^-][^-] "))
+                      (save-excursion
+			(ignore-errors (backward-char 2))
+			(setq except (or except (looking-at "> ")))
+			(looking-at "[^>] "))
 		      (save-excursion
 			(unless (eobp)
 			  (forward-char 1)
@@ -136,7 +140,7 @@
 				 "" "\\2")))
 	    (backward-delete-char -1)
 	    (end-of-line))
-	  (unless sig
+	  (unless except
 	    (condition-case nil
 		(let ((fill-prefix (when quote (concat quote " ")))
 		      (fill-column (eval fill-flowed-display-column))
--8<---------------cut here---------------end--------------->8---