From 1dc398f11cf935a529b21fadca5ee8b391925edc Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 9 Jun 2005 11:13:24 +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 490c8da..16f2e98 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. + 2005-03-29 Nakagawa, Makoto * 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)) ))) -- 1.7.10.4