(mime-display-text/richtext): Turn off adaptive-fill-mode while executing

 richtext-decode.
(mime-display-text/enriched): Turn off adaptive-fill-mode while executing
 enriched-decode.

diff --git a/ChangeLog b/ChangeLog
index 85378c6..df4a2c7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2005-06-09  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mm-view.el (mime-display-text/richtext): Turn off
+       adaptive-fill-mode while executing richtext-decode.
+       (mime-display-text/enriched): Turn off adaptive-fill-mode while
+       executing enriched-decode.
+
 2004-10-21  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mime-view.el (mime-view-insert-fontified-text-content): Inhibit

diff --git a/mime-view.el b/mime-view.el
index 8c5d0eb..890cbaf 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -790,7 +790,8 @@ Each elements are regexp of field-name.")
     (narrow-to-region (point-max)(point-max))
     (mime-view-insert-text-content entity situation)
     (run-hooks 'mime-text-decode-hook)
-    (let ((beg (point-min)))
+    (let ((beg (point-min))
+         (adaptive-fill-mode nil))
       (remove-text-properties beg (point-max) '(face nil))
       (richtext-decode beg (point-max)))))
 
@@ -799,7 +800,8 @@ Each elements are regexp of field-name.")
     (narrow-to-region (point-max)(point-max))
     (mime-view-insert-text-content entity situation)
     (run-hooks 'mime-text-decode-hook)
-    (let ((beg (point-min)))
+    (let ((beg (point-min))
+         (adaptive-fill-mode nil))
       (remove-text-properties beg (point-max) '(face nil))
       (enriched-decode beg (point-max)))))