message-in-body-p: message-goto-body return points

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d03f8e0..67a0835 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2010-11-24  Julien Danjou  <julien@danjou.info>
 
        * message.el (message-goto-body): Use called-interactively-p.
+       (message-in-body-p): message-goto-body returns point.
 
 2010-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/message.el b/lisp/message.el
index 90f6332..25b5ae4 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3103,7 +3103,7 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
 
 (defun message-in-body-p ()
   "Return t if point is in the message body."
-  (let ((body (save-excursion (message-goto-body) (point))))
+  (let ((body (save-excursion (message-goto-body))))
     (>= (point) body)))
 
 (defun message-goto-eoh ()