From 939152a9fddc05a105ab22ecc1ee7571a832a9aa Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Mon, 22 Jun 1998 15:30:11 +0000 Subject: [PATCH] (mime-parse-message): Would error if empty body. --- mime-parse.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/mime-parse.el b/mime-parse.el index 38b7f00..69e91b4 100644 --- a/mime-parse.el +++ b/mime-parse.el @@ -215,10 +215,11 @@ mime-{parse|read}-Content-Type." (goto-char header-start) (if (re-search-forward "^$" nil t) (setq header-end (match-end 0) - body-start (1+ header-end)) + body-start (if (= header-end body-end) + body-end + (1+ header-end))) (setq header-end (point-min) - body-start (point-min)) - ) + body-start (point-min))) (save-restriction (narrow-to-region header-start header-end) (setq content-type (or (let ((str (std11-fetch-field "Content-Type"))) -- 1.7.10.4