(mm-inline-text): Turn off adaptive-fill-mode while executing enriched-decode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58833b0..f66b366 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-06-09  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mm-view.el (mm-inline-text): Turn off adaptive-fill-mode while
+       executing enriched-decode.
+
 2005-06-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mm-util.el (mm-find-buffer-file-coding-system): Don't examine

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 8d03600..2a200dc 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -366,7 +366,10 @@
       (when (or (equal type "enriched")
                (equal type "richtext"))
        (ignore-errors
-         (enriched-decode (point-min) (point-max))))
+         ;; Turn off `adaptive-fill-mode' that may cause an error
+         ;; as the case may be.
+         (let ((adaptive-fill-mode nil))
+           (enriched-decode (point-min) (point-max)))))
       (mm-handle-set-undisplayer
        handle
        `(lambda ()