Mercurial > emacs
changeset 33325:0ca2ddcb4da5
2000-09-29 09:56:34 ShengHuo ZHU <zsh@cs.rochester.edu>
* nndoc.el (nndoc-dissect-mime-parts-sub): Correctly mark body-begin.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 08 Nov 2000 23:19:00 +0000 |
| parents | c7b4f314fff8 |
| children | bea963b6e539 |
| files | lisp/gnus/nndoc.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/nndoc.el Wed Nov 08 21:18:50 2000 +0000 +++ b/lisp/gnus/nndoc.el Wed Nov 08 23:19:00 2000 +0000 @@ -701,7 +701,8 @@ 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