From: morioka <morioka>
Date: Sun, 7 Jun 1998 14:13:41 +0000 (+0000)
Subject: (mime-text-insert-decoded-body): Don't refer `mime-raw-buffer'.
X-Git-Tag: semi-1_5_2~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a7d4eb5e74d426a66f79cf038e354157fd66e949;p=elisp%2Fsemi.git

(mime-text-insert-decoded-body): Don't refer `mime-raw-buffer'.
---

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)))