From 81963310fe6da6c1fdfd33dfd05e50c3f8f69d46 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 24 May 1999 13:04:27 +0000 Subject: [PATCH] (mime-parse-multipart): Refer body-start instead of header-end. --- mmbuffer.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/mmbuffer.el b/mmbuffer.el index 0533956..d5868dc 100644 --- a/mmbuffer.el +++ b/mmbuffer.el @@ -97,16 +97,18 @@ (make-mime-content-type 'message 'rfc822) (make-mime-content-type 'text 'plain) )) - (header-end (mime-buffer-entity-header-end-internal entity)) + (body-start (mime-buffer-entity-body-start-internal entity)) (body-end (mime-buffer-entity-body-end-internal entity))) (save-restriction (goto-char body-end) - (narrow-to-region header-end + (narrow-to-region body-start (if (re-search-backward close-delimiter nil t) (match-beginning 0) body-end)) - (goto-char header-end) - (if (re-search-forward rsep nil t) + (goto-char body-start) + (if (re-search-forward + (concat "^" (regexp-quote dash-boundary) "[ \t]*\n") + nil t) (let ((cb (match-end 0)) ce ncb ret children (node-id (mime-entity-node-id-internal entity)) -- 1.7.10.4