From 60410fc42810458f255b2fd52f0ee803186ebd5e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 9 Jun 2005 11:13:32 +0000 Subject: [PATCH] (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. --- ChangeLog | 7 +++++++ mime-view.el | 6 ++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 85378c6..df4a2c7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2005-06-09 Katsumi Yamaoka + + * 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 * 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))))) -- 1.7.10.4