From: yamaoka Date: Tue, 14 Jun 2005 01:38:03 +0000 (+0000) Subject: (mime-display-text/richtext): Withdraw the last change. X-Git-Tag: semi-1_14-wl-root~26 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8f3f83b0416d2be41c70e9c593888fb71be99768;p=elisp%2Fsemi.git (mime-display-text/richtext): Withdraw the last change. (mime-display-text/enriched): Ditto. --- diff --git a/ChangeLog b/ChangeLog index 16f2e98..99d0ea5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,12 @@ +2005-06-14 Katsumi Yamaoka + + * mime-view.el (mime-display-text/richtext): Withdraw the last + change. + (mime-display-text/enriched): Ditto. + 2005-06-09 Katsumi Yamaoka - * mm-view.el (mime-display-text/richtext): Turn off + * mime-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. diff --git a/mime-view.el b/mime-view.el index 31b8979..6155b60 100644 --- a/mime-view.el +++ b/mime-view.el @@ -805,8 +805,7 @@ 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)) - (adaptive-fill-mode nil)) + (let ((beg (point-min))) (remove-text-properties beg (point-max) '(face nil)) (richtext-decode beg (point-max)) ))) @@ -816,8 +815,7 @@ 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)) - (adaptive-fill-mode nil)) + (let ((beg (point-min))) (remove-text-properties beg (point-max) '(face nil)) (enriched-decode beg (point-max)) )))