From: morioka <morioka>
Date: Sun, 21 Jun 1998 12:12:08 +0000 (+0000)
Subject: (mime-text-insert-decoded-body): Use `mime-entity-content'.
X-Git-Tag: semi-1_7_1~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fbe35d4b1fde95bcb1bd074236cfd25f9c645a96;p=elisp%2Fsemi.git

(mime-text-insert-decoded-body): Use `mime-entity-content'.
---

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