diff options
| author | Karl Heuer | 1995-05-22 19:41:25 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-22 19:41:25 +0000 |
| commit | e3b671fc68334ee4607f2516e99eaa404009059a (patch) | |
| tree | 0a3e8bcbe95c60116d8e38a12897c0e26f814bb3 | |
| parent | c2e1680ae1f00140d35bf3684494771697aca07b (diff) | |
| download | emacs-e3b671fc68334ee4607f2516e99eaa404009059a.tar.gz emacs-e3b671fc68334ee4607f2516e99eaa404009059a.zip | |
(mail-text): Expand abbrev before moving point.
| -rw-r--r-- | lisp/mail/sendmail.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index b2e5c480e49..8fa16eefa1c 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -772,6 +772,7 @@ the user from the mailer." | |||
| 772 | (defun mail-text () | 772 | (defun mail-text () |
| 773 | "Move point to beginning of message text." | 773 | "Move point to beginning of message text." |
| 774 | (interactive) | 774 | (interactive) |
| 775 | (expand-abbrev) | ||
| 775 | (goto-char (point-min)) | 776 | (goto-char (point-min)) |
| 776 | (search-forward (concat "\n" mail-header-separator "\n"))) | 777 | (search-forward (concat "\n" mail-header-separator "\n"))) |
| 777 | 778 | ||