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

[gnus] / lisp / message.el

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 ()