2006-04-12 Ralf Angeli <angeli@iwi.uni-sb.de>

	* flow-fill.el (fill-flowed): Remove trailing space from blank
	quoted lines.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8437821..970b591 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-12  Ralf Angeli  <angeli@iwi.uni-sb.de>
+
+       * flow-fill.el (fill-flowed): Remove trailing space from blank
+       quoted lines.
+
 2006-04-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * smiley.el (smiley-style): Move definition later to avoid a

diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el
index e54100a..0d099b3 100644 (file)
--- a/lisp/flow-fill.el
+++ b/lisp/flow-fill.el
@@ -103,7 +103,7 @@ RFC 2646 suggests 66 characters for readability."
     (set-buffer (or (current-buffer) buffer))
     (goto-char (point-min))
     ;; Remove space stuffing.
-    (while (re-search-forward "^ " nil t)
+    (while (re-search-forward "^\\( \\|>+ $\\)" nil t)
       (delete-char -1)
       (forward-line 1))
     (goto-char (point-min))