From ed65eb7fd9eb89e834074d4c8f78378372e3e085 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 15 Apr 2006 05:42:48 +0000 Subject: [PATCH] (message-point-in-header-p): Simplify definition. --- lisp/ChangeLog | 4 ++++ lisp/message.el | 8 ++------ 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c730e70e0..5affe9ec8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-04-15 Lars Magne Ingebrigtsen + + * message.el (message-point-in-header-p): Simplify definition. + 2006-04-14 Lars Magne Ingebrigtsen * nnagent.el (nnagent-request-set-mark): Silence log file diff --git a/lisp/message.el b/lisp/message.el index 07e358551..bd9246716 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3040,15 +3040,11 @@ Message buffers and is not meant to be called directly." (message-newline-and-reformat arg t)) t)) -;; Is it better to use `mail-header-end'? (defun message-point-in-header-p () "Return t if point is in the header." (save-excursion - (let ((p (point))) - (goto-char (point-min)) - (not (re-search-forward - (concat "^" (regexp-quote mail-header-separator) "\n") - p t))))) + (not (re-search-backward + (concat "^" (regexp-quote mail-header-separator) "\n") nil t)))) (defun message-do-auto-fill () "Like `do-auto-fill', but don't fill in message header." -- 2.34.1