(message-point-in-header-p): Simplify definition.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c730e70..5affe9e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-04-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-point-in-header-p): Simplify definition.
+
 2006-04-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nnagent.el (nnagent-request-set-mark): Silence log file

diff --git a/lisp/message.el b/lisp/message.el
index 07e3585..bd92467 100644 (file)
--- 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."