[Emacs-diffs] Changes to emacs/lisp/gnus/flow-fill.el

[Miles Bader]

Index: emacs/lisp/gnus/flow-fill.el
diff -u emacs/lisp/gnus/flow-fill.el:1.13 emacs/lisp/gnus/flow-fill.el:1.14
--- emacs/lisp/gnus/flow-fill.el:1.13   Sun Feb  5 13:56:44 2006
+++ emacs/lisp/gnus/flow-fill.el        Fri Feb 24 05:02:12 2006
@@ -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))