(mail-text): Expand abbrev before moving point.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index b2e5c480e4910aefca6aacb94e0414ab13ec703e..8fa16eefa1c540ca3b5d0d4f450d86f7e1d67ca1 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -772,6 +772,7 @@ the user from the mailer."
 (defun mail-text ()
   "Move point to beginning of message text."
   (interactive)
+  (expand-abbrev)
   (goto-char (point-min))
   (search-forward (concat "\n" mail-header-separator "\n")))
 \f