message: use called-interactively-p

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e27c17f..d03f8e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-24  Julien Danjou  <julien@danjou.info>
+
+       * message.el (message-goto-body): Use called-interactively-p.
+
 2010-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * mm-util.el (mm-enable-multibyte): Use `to' instead of t.  This fixes

diff --git a/lisp/message.el b/lisp/message.el
index bff11b2..90f6332 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3091,10 +3091,10 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
   (interactive)
   (message-position-on-field "Summary" "Subject"))
 
-(defun message-goto-body (&optional interactivep)
+(defun message-goto-body ()
   "Move point to the beginning of the message body."
-  (interactive (list t))
-  (when (and interactivep
+  (interactive)
+  (when (and (called-interactively-p)
             (looking-at "[ \t]*\n"))
     (expand-abbrev))
   (goto-char (point-min))