--- /usr/src/gnus/lisp/flow-fill.el.~7.15.~	2006-02-22 15:51:58 +0100
+++ /usr/src/gnus/lisp/flow-fill.el	2006-02-24 10:20:04 +0100
@@ -103,7 +103,7 @@
     (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))