(message-goto-body): called-interactively-p needs a parameter, so use `any'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 80d2244..8867afe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * message.el (message-goto-body): called-interactively-p needs a
+       parameter, so use `any'.
+
        * nnimap.el (nnimap-request-move-article): It's no longer necessary to
        clear marks before moving, since they're synced from the Gnus side
        first.

diff --git a/lisp/message.el b/lisp/message.el
index 25b5ae4..1134b68 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3094,7 +3094,7 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
 (defun message-goto-body ()
   "Move point to the beginning of the message body."
   (interactive)
-  (when (and (called-interactively-p)
+  (when (and (called-interactively-p 'any)
             (looking-at "[ \t]*\n"))
     (expand-abbrev))
   (goto-char (point-min))