From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Thu, 9 Jun 2005 11:13:10 +0000 (+0000)
Subject: (mm-inline-text): Turn off adaptive-fill-mode while executing enriched-decode.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=fb7f8f3d37b12173b63229b355f32247210016d4;p=gnus

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58833b0d9..f66b366f3 100644
--- 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 8d03600f1..2a200dc78 100644
--- 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 ()