From 7871a72ce552f9523f5252ff513ee78cebd51b2a Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Wed, 7 Sep 2005 13:34:07 +0000 Subject: [PATCH] 2005-09-07 TSUCHIYA Masatoshi * gnus-art.el (gnus-mime-display-single): Revert 2004-10-07 change. Decode text/* parts content before displaying. --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 9 ++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3b02f727d..16edeb6be 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-09-07 TSUCHIYA Masatoshi + + * gnus-art.el (gnus-mime-display-single): Revert 2004-10-07 + change. Decode text/* parts content before displaying. + 2005-09-06 Katsumi Yamaoka * mm-view.el (mm-display-inline-fontify): Disable support modes. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 36d43ae84..3ddc89cea 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -4969,7 +4969,14 @@ If displaying \"text/html\" is discouraged \(see (forward-line -1) (setq beg (point))) (gnus-article-insert-newline) - (mm-display-inline handle) + (mm-insert-inline handle + (let ((charset + (mail-content-type-get + (mm-handle-type handle) 'charset))) + (if (eq charset 'gnus-decoded) + (mm-get-part handle) + (mm-decode-string (mm-get-part handle) + charset)))) (goto-char (point-max)))) ;; Do highlighting. (save-excursion -- 2.25.1