diff options
author | Dave Love <fx@gnu.org> | 2000-11-08 23:19:00 +0000 |
---|---|---|
committer | Dave Love <fx@gnu.org> | 2000-11-08 23:19:00 +0000 |
commit | 2e36fdceb36ef8dd0dca1132500f183a829eea40 (patch) | |
tree | 1c46435f6d072111433802f62c2ed79790ff26f3 /lisp/gnus/nndoc.el | |
parent | 18a84b0f9f3c68a7bf7de14b6c3a0a01d23f5b39 (diff) | |
download | emacs-2e36fdceb36ef8dd0dca1132500f183a829eea40.tar.gz |
2000-09-29 09:56:34 ShengHuo ZHU <zsh@cs.rochester.edu>
* nndoc.el (nndoc-dissect-mime-parts-sub): Correctly mark body-begin.
Diffstat (limited to 'lisp/gnus/nndoc.el')
-rw-r--r-- | lisp/gnus/nndoc.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |