(fill-column (max (+ 1 (current-left-margin)
(string-width fill-prefix))
(current-fill-column)))
- (pat (concat fill-prefix "\n")))
+ (pat (concat fill-prefix "\n"))
+ filladapt-mode)
(goto-char (point-min))
(while (search-forward pat nil t)
(let ((b (match-beginning 0))