From: shuhei-k <shuhei-k>
Date: Mon, 22 Jun 1998 15:30:11 +0000 (+0000)
Subject: (mime-parse-message): Would error if empty body.
X-Git-Tag: flim-1_6_0~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=939152a9fddc05a105ab22ecc1ee7571a832a9aa;p=elisp%2Fflim.git

(mime-parse-message): Would error if empty body.
---

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")))