From 167538e78fcdbf093a727fc66acb0cdb6f6ae15b Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 29 Jun 2004 05:56:28 +0000 Subject: [PATCH] (mm-inline-render-with-function): Use multibyte buffer; decode html source by charset. --- lisp/ChangeLog | 3 +++ lisp/mm-view.el | 9 ++++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5bda3bac9..dc650eafc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2004-06-29 Katsumi Yamaoka + * mm-view.el (mm-inline-render-with-function): Use multibyte + buffer; decode html source by charset. + * mm-encode.el (mm-content-transfer-encoding-defaults): Doc fix. * mm-util.el (mm-mime-mule-charset-alist): Add the windows-1251 diff --git a/lisp/mm-view.el b/lisp/mm-view.el index 4a6d09695..869c19418 100644 --- a/lisp/mm-view.el +++ b/lisp/mm-view.el @@ -299,11 +299,14 @@ (buffer-string))))) (defun mm-inline-render-with-function (handle func &rest args) - (let ((source (mm-get-part handle))) + (let ((source (mm-get-part handle)) + (charset (mail-content-type-get (mm-handle-type handle) 'charset))) (mm-insert-inline handle - (mm-with-unibyte-buffer - (insert source) + (mm-with-multibyte-buffer + (insert (if charset + (mm-decode-string source charset) + source)) (apply func args) (buffer-string))))) -- 2.34.1