Mercurial > emacs

diff lisp/gnus/flow-fill.el @ 70044:027c07dcdee5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-225 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 84-85) - Merge from emacs--devo--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Mon, 17 Apr 2006 08:36:28 +0000
parents 477ba8c8d22c
children e3694f1cb928 c156f6a9e7b5
line wrap: on
line diff
--- a/lisp/gnus/flow-fill.el	Mon Apr 17 03:51:30 2006 +0000
+++ b/lisp/gnus/flow-fill.el	Mon Apr 17 08:36:28 2006 +0000
@@ -114,7 +114,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))