diff options
| -rw-r--r-- | lisp/gnus/message.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 1ef0fa7757d..eef854f4fb7 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -2225,14 +2225,12 @@ Point is left at the beginning of the narrowed-to region." | |||
| 2225 | (widen) | 2225 | (widen) |
| 2226 | (narrow-to-region | 2226 | (narrow-to-region |
| 2227 | (goto-char (point-min)) | 2227 | (goto-char (point-min)) |
| 2228 | (cond | 2228 | (if (re-search-forward (concat "\\(\n\\)\n\\|^\\(" |
| 2229 | ((re-search-forward | 2229 | (regexp-quote mail-header-separator) |
| 2230 | (concat "^" (regexp-quote mail-header-separator) "\n") nil t) | 2230 | "\n\\)") |
| 2231 | (match-beginning 0)) | 2231 | nil t) |
| 2232 | ((search-forward "\n\n" nil t) | 2232 | (or (match-end 1) (match-beginning 2)) |
| 2233 | (1- (point))) | 2233 | (point-max))) |
| 2234 | (t | ||
| 2235 | (point-max)))) | ||
| 2236 | (goto-char (point-min))) | 2234 | (goto-char (point-min))) |
| 2237 | 2235 | ||
| 2238 | (defun message-news-p () | 2236 | (defun message-news-p () |