Re: Fix fill-flowed for large or nil values of fill-flowed-display-column

[Matthias Schmitt]

The previous patch broke `fill-flow` for quoted text a 
`beginning-of-line` call fixes that.


--- #<buffer flow-fill.el.gz>
+++ #<buffer flow-fill.buffer>
@@ -140,11 +140,11 @@
              ;; next line.
              (delete-region (point) (match-end 1))
              (ignore-errors
-                 (let ((fill-prefix (concat prefix " "))
-                       adaptive-fill-mode)
-                   (fill-region (line-beginning-position)
-                                 (line-end-position)
-                                'left 'nosqueeze))))))
+                (let ((fill-prefix (concat prefix " "))
+                      adaptive-fill-mode)
+                  (fill-region (line-beginning-position)
+                               (line-end-position)
+                               'left 'nosqueeze))))))
         (t
          ;; Delete the newline.
          (when (eq (following-char) ?\s)
@@ -157,11 +157,13 @@
              (delete-char -1))
            (delete-char 1)
            (ignore-errors
-               (let ((fill-prefix ""))
-                 (fill-region (line-beginning-position)
-                               (line-end-position)
-                              'left 'nosqueeze))))))
-        (forward-line 1)))))
+              (let ((fill-prefix ""))
+                (fill-region (line-beginning-position)
+                             (line-end-position)
+                             'left 'nosqueeze))))))
+        (unless (eq (char-before (line-end-position)) ?\s)
+          (forward-line 1))
+        (beginning-of-line)))))

(make-obsolete-variable 'fill-flowed-encode-tests nil "27.1")
(defvar fill-flowed-encode-tests)