diff options
| author | Chong Yidong | 2007-05-28 04:11:30 +0000 |
|---|---|---|
| committer | Chong Yidong | 2007-05-28 04:11:30 +0000 |
| commit | d05b3cfd6197df2ddcd71345db04bf926a5f62fd (patch) | |
| tree | 18072adf3051c6de5a7bc945419f4d491ee76eed | |
| parent | 3938661c207036c57c38ea9bb2c0f24460eb2210 (diff) | |
| download | emacs-d05b3cfd6197df2ddcd71345db04bf926a5f62fd.tar.gz emacs-d05b3cfd6197df2ddcd71345db04bf926a5f62fd.zip | |
(message-narrow-to-headers-or-head): Ignore mail-header-separator in
the body.
| -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 () |