Correctly mark body-begin.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46dd848..7bcf3b2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-29 09:56:34  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nndoc.el (nndoc-dissect-mime-parts-sub): Correctly mark body-begin.
+
 2000-09-29 09:14:08  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-sum.el (gnus-summary-enter-digest-group): Decode to-address.

diff --git a/lisp/nndoc.el b/lisp/nndoc.el
index 09d38aa..a9824fe 100644 (file)
--- a/lisp/nndoc.el
+++ b/lisp/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