From 1d855715b298101f7f0024d947d09c7eacea837c Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 17 Jun 1998 19:27:29 +0000 Subject: [PATCH] (mime-entity-fetch-field): Fixed. --- mime-lib.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) 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)) ) -- 1.7.10.4