Mercurial > emacs

changeset 2852:e80e6e533533

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-setup): Leave point before signature, not after.
author Richard M. Stallman <rms@gnu.org>
date Mon, 17 May 1993 23:18:47 +0000
parents 3b0a06fc7c4b
children 5f56b1f00c57
files lisp/mail/sendmail.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Mon May 17 22:18:34 1993 +0000
+++ b/lisp/mail/sendmail.el	Mon May 17 23:18:47 1993 +0000
@@ -150,7 +150,8 @@
     (if mail-archive-file-name
 	(insert "FCC: " mail-archive-file-name "\n"))
     (insert mail-header-separator "\n")
-    ;; Insert the signature.
+    ;; Insert the signature.  But remember the beginning of the message.
+    (if to (setq to (point)))
     (cond ((eq mail-signature t)
 	   (if (file-exists-p "~/.signature")
 	       (insert-file-contents "~/.signature")))
@@ -158,7 +159,7 @@
 	   (insert mail-signature)))
     (goto-char (point-max))
     (or (bolp) (newline)))
-  (if to (goto-char (point-max)))
+  (if to (goto-char to))
   (or to subject in-reply-to
       (set-buffer-modified-p nil))
   (run-hooks 'mail-setup-hook))