Signed-off-by: Julien Danjou <julien@danjou.info>
2010-11-24 Julien Danjou <julien@danjou.info>
* message.el (message-goto-body): Use called-interactively-p.
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>
2010-11-24 Lars Magne Ingebrigtsen <larsi@gnus.org>
(defun message-in-body-p ()
"Return t if point is in the message body."
(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 ()
(>= (point) body)))
(defun message-goto-eoh ()