From b4cf73f08f42dd64d4e0ce8073b5379530529686 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 20 Jun 1998 17:23:29 +0000 Subject: [PATCH] (mime-text-insert-decoded-body): Delete unnecessary `save-restriction'. --- mime-text.el | 39 +++++++++++++++++++-------------------- 1 file changed, 19 insertions(+), 20 deletions(-) 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) ) -- 1.7.10.4