(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 490c8da..16f2e98 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.
+

 2005-03-29  Nakagawa, Makoto  <Makoto.Nakagawa@hp.com>
 
        * pgg-pgp.el (pgg-scheme-sign-region): Manually convert line
 2005-03-29  Nakagawa, Makoto  <Makoto.Nakagawa@hp.com>
 
        * pgg-pgp.el (pgg-scheme-sign-region): Manually convert line

diff --git a/mime-view.el b/mime-view.el
index 6155b60..31b8979 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -805,7 +805,8 @@ Each elements are regexp of field-name.")
     (narrow-to-region (point-max)(point-max))
     (mime-insert-text-content entity)
     (run-hooks 'mime-text-decode-hook)
     (narrow-to-region (point-max)(point-max))
     (mime-insert-text-content entity)
     (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))
       )))
       (remove-text-properties beg (point-max) '(face nil))
       (richtext-decode beg (point-max))
       )))

@@ -815,7 +816,8 @@ Each elements are regexp of field-name.")
     (narrow-to-region (point-max)(point-max))
     (mime-insert-text-content entity)
     (run-hooks 'mime-text-decode-hook)
     (narrow-to-region (point-max)(point-max))
     (mime-insert-text-content entity)
     (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))
       )))
       (remove-text-properties beg (point-max) '(face nil))
       (enriched-decode beg (point-max))
       )))