From fbe35d4b1fde95bcb1bd074236cfd25f9c645a96 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sun, 21 Jun 1998 12:12:08 +0000
Subject: [PATCH] (mime-text-insert-decoded-body): Use `mime-entity-content'.

---
 mime-text.el |   25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

diff --git a/mime-text.el b/mime-text.el
index bcfb209..666bb74 100644
--- a/mime-text.el
+++ b/mime-text.el
@@ -44,19 +44,18 @@ SITUATION.  It must be symbol."
 		(cdr (or (assq major-mode mime-raw-representation-type-alist)
 			 (assq t mime-raw-representation-type-alist)))
 		))))
-    (insert-buffer-substring buffer
-			     (mime-entity-body-start entity)
-			     (mime-entity-body-end entity))
-    (let ((encoding (mime-entity-encoding entity)))
-      (mime-decode-region (point-min) (point-max) encoding)
-      (if (or (eq presentation-type 'binary)
-	      (not (member encoding '(nil "7bit" "8bit" "binary"))))
-	  (decode-mime-charset-region (point-min)(point-max)
-				      (or (mime-content-type-parameter
-					   (mime-entity-content-type entity)
-					   "charset")
-					  default-mime-charset))
-	)))
+    (let ((str (mime-entity-content entity)))
+      (insert
+       (if (or (eq presentation-type 'binary)
+	       (not (member (mime-entity-encoding entity)
+			    '(nil "7bit" "8bit" "binary"))))
+	   (decode-mime-charset-string
+	    str
+	    (or (mime-content-type-parameter
+		 (mime-entity-content-type entity) "charset")
+		default-mime-charset))
+	 str))
+      ))
   (run-hooks 'mime-text-decode-hook)
   )
 
-- 
1.7.10.4