# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 737680727 0
# Node ID e80e6e533533b2c9919ee212e0139123ed8f4d2a
# Parent  3b0a06fc7c4b86e315d7a8414d9a7744d28969e1
(mail-setup): Leave point before signature, not after.

diff -r 3b0a06fc7c4b -r e80e6e533533 lisp/mail/sendmail.el
--- 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))