(fill-flowed): Bind adaptive-fill-mode to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7074bd..31a0969 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * flow-fill.el (fill-flowed): Bind adaptive-fill-mode to nil. 
+
 2005-11-16  Boris Samorodov <bsam@ipt.ru>  (tiny patch)
 
        * imap.el (imap-kerberos4-open): Ignore SSL stuff.

diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el
index a61e54e..7355dbd 100644 (file)
--- a/lisp/flow-fill.el
+++ b/lisp/flow-fill.el
@@ -140,7 +140,8 @@ RFC 2646 suggests 66 characters for readability."
            (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 (point-at-bol)
                               (min (1+ (point-at-eol))
                                    (point-max))