Commit 443ecb08 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

message.el (message-called-interactively-p): A temporary macro.

message.el (message-goto-body): Use it temporarily.
parent a56a1cce
2010-11-25 Katsumi Yamaoka <>
* message.el (message-called-interactively-p): A temporary macro.
(message-goto-body): Use it temporarily.
2010-11-25 Lars Magne Ingebrigtsen <>
* nnimap.el (nnimap-unfold-quoted-lines): Refactor out.
......@@ -3047,10 +3047,22 @@ M-RET `message-newline-and-reformat' (break the line and reformat)."
(message-position-on-field "Summary" "Subject"))
(defmacro message-called-interactively-p (kind)
(condition-case nil
(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."
(when (and (called-interactively-p 'any)
(when (and (message-called-interactively-p 'any)
(looking-at "[ \t]*\n"))
(goto-char (point-min))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment