diff options
| -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." | |||
| 701 | subject content-type type subtype boundary-regexp) | 701 | subject content-type type subtype boundary-regexp) |
| 702 | ;; Gracefully handle a missing body. | 702 | ;; Gracefully handle a missing body. |
| 703 | (goto-char head-begin) | 703 | (goto-char head-begin) |
| 704 | (if (search-forward "\n\n" body-end t) | 704 | (if (or (and (eq (char-after) ?\n) (or (forward-char 1) t)) |
| 705 | (search-forward "\n\n" body-end t)) | ||
| 705 | (setq head-end (1- (point)) | 706 | (setq head-end (1- (point)) |
| 706 | body-begin (point)) | 707 | body-begin (point)) |
| 707 | (setq head-end body-end | 708 | (setq head-end body-end |