# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 707593856 0
# Node ID 046f1a6867e7228916388efb1546dbfa24ad4ed3
# Parent  8cff3b3bd08938685f46eef6842c72007e91a0d4
*** empty log message ***

diff -r 8cff3b3bd089 -r 046f1a6867e7 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Wed Jun 03 06:44:38 1992 +0000
+++ b/lisp/mail/sendmail.el	Wed Jun 03 17:50:56 1992 +0000
@@ -470,14 +470,16 @@
   (goto-char (point-min))
   (search-forward (concat "\n" mail-header-separator "\n")))
 
-(defun mail-signature ()
+(defun mail-signature (atpoint)
   "Sign letter with contents of ~/.signature file."
-  (interactive)
+  (interactive "P")
   (save-excursion
-    (goto-char (point-max))
+    (or atpoint
+	(goto-char (point-max)))
     (skip-chars-backward " \t\n")
     (end-of-line)
-    (delete-region (point) (point-max))
+    (or atpoint
+	(delete-region (point) (point-max)))
     (insert "\n\n--\n")
     (insert-file-contents (expand-file-name "~/.signature"))))