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 <yamaoka@jpl.org>
* message.el (message-called-interactively-p): A temporary macro.
(message-goto-body): Use it temporarily.
2010-11-25 Lars Magne Ingebrigtsen <larsi@gnus.org>
 
* nnimap.el (nnimap-unfold-quoted-lines): Refactor out.
......
......@@ -3047,10 +3047,22 @@ M-RET `message-newline-and-reformat' (break the line and reformat)."
(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))
......
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