From: morioka <morioka>
Date: Wed, 17 Jun 1998 19:27:29 +0000 (+0000)
Subject: (mime-entity-fetch-field): Fixed.
X-Git-Tag: chao-1_3_0_9~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1d855715b298101f7f0024d947d09c7eacea837c;p=elisp%2Fflim.git

(mime-entity-fetch-field): Fixed.
---

diff --git a/mime-lib.el b/mime-lib.el
index 6255f70..955b53f 100644
--- a/mime-lib.el
+++ b/mime-lib.el
@@ -35,13 +35,15 @@
   (let* ((header (mime-entity-original-header entity))
 	 (field-body (cdr (assq field-name header))))
     (or field-body
-	(save-excursion
-	  (if (save-restriction
+	(progn
+	  (if (save-excursion
 		(set-buffer (mime-entity-buffer entity))
-		(narrow-to-region (mime-entity-header-start entity)
-				  (mime-entity-header-end entity))
-		(setq field-body (std11-fetch-field (symbol-name field-name)))
-		)
+		(save-restriction
+		  (narrow-to-region (mime-entity-header-start entity)
+				    (mime-entity-header-end entity))
+		  (setq field-body
+			(std11-fetch-field (symbol-name field-name)))
+		  ))
 	      (mime-entity-set-original-header
 	       entity (put-alist field-name field-body header))
 	    )