From: yamaoka <yamaoka>
Date: Thu, 9 Jun 2005 11:13:24 +0000 (+0000)
Subject: (mime-display-text/richtext): Turn off adaptive-fill-mode while executing
X-Git-Tag: semi-1_14-wl-root~27
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1dc398f11cf935a529b21fadca5ee8b391925edc;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 490c8da..16f2e98 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.
+
 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
--- 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)
-    (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))
       )))
@@ -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)
-    (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))
       )))