Mercurial > emacs

diff lisp/gnus/flow-fill.el @ 69135:12d289b6e5de

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-118 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 38-39) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 24 Feb 2006 05:02:12 +0000
parents 1077b8039c32
children 477ba8c8d22c 34c8b755296d
line wrap: on
line diff
--- a/lisp/gnus/flow-fill.el	Thu Feb 23 23:16:12 2006 +0000
+++ b/lisp/gnus/flow-fill.el	Fri Feb 24 05:02:12 2006 +0000
@@ -113,10 +113,15 @@
   (save-excursion
     (set-buffer (or (current-buffer) buffer))
     (goto-char (point-min))
+    ;; Remove space stuffing.
+    (while (re-search-forward "^ " nil t)
+      (delete-char -1)
+      (forward-line 1))
+    (goto-char (point-min))
     (while (re-search-forward " $" nil t)
       (when (save-excursion
 	      (beginning-of-line)
-	      (looking-at "^\\(>*\\)\\( ?\\)"))
+	      (looking-at "^\\(>+\\)\\( ?\\)"))
 	(let ((quote (match-string 1))
 	      sig)
 	  (if (string= quote "")
@@ -146,7 +151,8 @@
 	    (condition-case nil
 		(let ((fill-prefix (when quote (concat quote " ")))
 		      (fill-column (eval fill-flowed-display-column))
-		      filladapt-mode)
+		      filladapt-mode
+		      adaptive-fill-mode)
 		  (fill-region (fill-flowed-point-at-bol)
 			       (min (1+ (fill-flowed-point-at-eol))
 				    (point-max))