Mercurial > emacs
changeset 111716:f6563e4356cb
message.el (message-called-interactively-p): A temporary macro.
message.el (message-goto-body): Use it temporarily.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 25 Nov 2010 23:20:19 +0000 |
| parents | d00ba7ce3ef0 |
| children | 5b0bb82d5f67 |
| files | lisp/gnus/ChangeLog lisp/gnus/message.el |
| diffstat | 2 files changed, 18 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Nov 25 23:05:10 2010 +0000 +++ b/lisp/gnus/ChangeLog Thu Nov 25 23:20:19 2010 +0000 @@ -1,3 +1,8 @@ +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.
--- 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))