diff options
| -rw-r--r-- | lisp/gnus/message.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 8a7ed4fffbe..9460710a477 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -3524,12 +3524,12 @@ Message buffers and is not meant to be called directly." | |||
| 3524 | (defun message-point-in-header-p () | 3524 | (defun message-point-in-header-p () |
| 3525 | "Return t if point is in the header." | 3525 | "Return t if point is in the header." |
| 3526 | (save-excursion | 3526 | (save-excursion |
| 3527 | (and | 3527 | (save-restriction |
| 3528 | (not | 3528 | (widen) |
| 3529 | (re-search-backward | 3529 | (let ((bound (+ (point-at-eol) 1)) case-fold-search) |
| 3530 | (concat "^" (regexp-quote mail-header-separator) "\n") nil t)) | 3530 | (goto-char (point-min)) |
| 3531 | (re-search-forward | 3531 | (not (search-forward (concat "\n" mail-header-separator "\n") |
| 3532 | (concat "^" (regexp-quote mail-header-separator) "\n") nil t)))) | 3532 | bound t)))))) |
| 3533 | 3533 | ||
| 3534 | (defun message-do-auto-fill () | 3534 | (defun message-do-auto-fill () |
| 3535 | "Like `do-auto-fill', but don't fill in message header." | 3535 | "Like `do-auto-fill', but don't fill in message header." |