From: morioka <morioka>
Date: Sat, 20 Jun 1998 17:23:29 +0000 (+0000)
Subject: (mime-text-insert-decoded-body): Delete unnecessary
X-Git-Tag: semi-1_7_1~24
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b4cf73f08f42dd64d4e0ce8073b5379530529686;p=elisp%2Fsemi.git

(mime-text-insert-decoded-body): Delete unnecessary
`save-restriction'.
---

diff --git a/mime-text.el b/mime-text.el
index c18b296..bcfb209 100644
--- a/mime-text.el
+++ b/mime-text.el
@@ -38,26 +38,25 @@ MIME-encoding is value of field 'encoding of SITUATION.  It must be
 SITUATION.  It must be symbol."
   (let* ((buffer (mime-entity-buffer entity))
 	 (presentation-type
-	 (save-excursion
-	   (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 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))
-	  ))))
+	  (save-excursion
+	    (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)))
+		))))
+    (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))
+	)))
   (run-hooks 'mime-text-decode-hook)
   )