org-e-ascii: Fix justification for lines looking like a fill-prefix

* contrib/lisp/org-e-ascii.el (org-e-ascii--justify-string): Fill
  justification for lines looking-like a fill-prefix.

diff --git a/contrib/lisp/org-e-ascii.el b/contrib/lisp/org-e-ascii.el
index 7bfc4c2..c137fd7 100644 (file)
--- a/contrib/lisp/org-e-ascii.el
+++ b/contrib/lisp/org-e-ascii.el
@@ -434,7 +434,10 @@ HOW determines the type of justification: it can be `left',
   (with-temp-buffer
     (insert s)
     (goto-char (point-min))
-    (let ((fill-column text-width))
+    (let ((fill-column text-width)
+         ;; Disable `adaptive-fill-mode' so it doesn't prevent
+         ;; filling lines matching `adaptive-fill-regexp'.
+         (adaptive-fill-mode nil))
       (while (< (point) (point-max))
        (justify-current-line how)
        (forward-line)))