From a7d4eb5e74d426a66f79cf038e354157fd66e949 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 7 Jun 1998 14:13:41 +0000 Subject: [PATCH] (mime-text-insert-decoded-body): Don't refer `mime-raw-buffer'. --- mime-text.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/mime-text.el b/mime-text.el index 8aedc41..8483630 100644 --- a/mime-text.el +++ b/mime-text.el @@ -36,15 +36,16 @@ It decodes MIME-encoding then code-converts as MIME-charset. MIME-encoding is value of field 'encoding of SITUATION. It must be 'nil or string. MIME-charset is value of field \"charset\" of SITUATION. It must be symbol." - (let ((presentation-type + (let* ((buffer (mime-entity-buffer entity)) + (presentation-type (save-excursion - (set-buffer mime-raw-buffer) + (set-buffer buffer) (or mime-raw-representation-type (cdr (or (assq major-mode mime-raw-representation-type-alist) (assq t mime-raw-representation-type-alist))) )))) (save-restriction - (insert-buffer-substring mime-raw-buffer + (insert-buffer-substring buffer (mime-entity-body-start entity) (mime-entity-body-end entity)) (let ((encoding (mime-entity-encoding entity))) -- 1.7.10.4