diff lisp/gnus/message.el @ 111716:f6563e4356cb

message.el (message-called-interactively-p): A temporary macro. message.el (message-goto-body): Use it temporarily.

--- a/lisp/gnus/message.el	Thu Nov 25 23:05:10 2010 +0000
+++ b/lisp/gnus/message.el	Thu Nov 25 23:20:19 2010 +0000
@@ -3047,10 +3047,22 @@
   (interactive)
   (message-position-on-field "Summary" "Subject"))
 
+(eval-when-compile
+  (defmacro message-called-interactively-p (kind)
+    (condition-case nil
+	(progn
+	  (eval '(called-interactively-p 'any))
+	  ;; Emacs >=23.2
+	  `(called-interactively-p ,kind))
+      ;; Emacs <23.2
+      (wrong-number-of-arguments '(called-interactively-p))
+      ;; XEmacs
+      (void-function '(interactive-p)))))
+
 (defun message-goto-body ()
   "Move point to the beginning of the message body."
   (interactive)
-  (when (and (called-interactively-p 'any)
+  (when (and (message-called-interactively-p 'any)
 	     (looking-at "[ \t]*\n"))
     (expand-abbrev))
   (goto-char (point-min))