comparison lisp/mail/sendmail.el @ 11866:77f73856e803

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

11865:5e83aee9e412

      nil)))

(defun mail-text ()
  "Move point to beginning of message text."
  (interactive)
  (goto-char (point-min))
  (search-forward (concat "\n" mail-header-separator "\n")))

(defun mail-signature (atpoint)
  "Sign letter with contents of the file `~/.signature'.

11866:77f73856e803

      nil)))

(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")))

(defun mail-signature (atpoint)
  "Sign letter with contents of the file `~/.signature'.