From: Dave Love <fx@gnu.org>
Date: Wed, 8 Nov 2000 23:19:00 +0000 (+0000)
Subject: 2000-09-29 09:56:34  ShengHuo ZHU  <zsh@cs.rochester.edu>
X-Git-Tag: emacs-pretest-21.0.90~202
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e36fdceb36ef8dd0dca1132500f183a829eea40;p=emacs.git

2000-09-29 09:56:34  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* nndoc.el (nndoc-dissect-mime-parts-sub): Correctly mark body-begin.
---

diff --git a/lisp/gnus/nndoc.el b/lisp/gnus/nndoc.el
index 09d38aad7ed..a9824febc2c 100644
--- a/lisp/gnus/nndoc.el
+++ b/lisp/gnus/nndoc.el
@@ -701,7 +701,8 @@ PARENT is the message-ID of the parent summary line, or nil for none."
 	subject content-type type subtype boundary-regexp)
     ;; Gracefully handle a missing body.
     (goto-char head-begin)
-    (if (search-forward "\n\n" body-end t)
+    (if (or (and (eq (char-after) ?\n) (or (forward-char 1) t))
+	    (search-forward "\n\n" body-end t))
 	(setq head-end (1- (point))
 	      body-begin (point))
       (setq head-end body-end