mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-30 11:09:23 +00:00
Code Issues Releases Activity

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

Browse Source 
message.el (message-goto-body): Use it temporarily.
This commit is contained in:
Katsumi Yamaoka 2010-11-25 23:20:19 +00:00
parent a56a1cce92
commit 443ecb08cd
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -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.

14
lisp/gnus/message.el
View File

@ -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))