From b7576f169f0962524fda526726fb52d1e58e35a6 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 8 Jun 1998 03:50:08 +0000 Subject: [PATCH] (mime-parse-multipart): fixed. --- mime-parse.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/mime-parse.el b/mime-parse.el index 67c03b7..5ea30dd 100644 --- a/mime-parse.el +++ b/mime-parse.el @@ -229,12 +229,12 @@ If is is not found, return DEFAULT-ENCODING." (make-mime-content-type 'text 'plain) )) cb ce ret ncb children (i 0)) - (goto-char body-end) - (if (re-search-backward close-delimiter nil t) - (setq body-end (match-beginning 0)) - ) (save-restriction - (narrow-to-region header-end body-end) + (goto-char body-end) + (narrow-to-region header-end + (if (re-search-backward close-delimiter nil t) + (match-beginning 0) + body-end)) (goto-char header-start) (re-search-forward rsep nil t) (setq cb (match-end 0)) -- 1.7.10.4