From: yamaoka <yamaoka>
Date: Thu, 9 Jun 2005 11:13:32 +0000 (+0000)
Subject: (mime-display-text/richtext): Turn off adaptive-fill-mode while executing
X-Git-Tag: emiko-1_14-epg-branchpoint~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=60410fc42810458f255b2fd52f0ee803186ebd5e;p=elisp%2Fsemi.git

(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
--- 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
--- 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)))))