Mercurial > emacs

changeset 679:046f1a6867e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Wed, 03 Jun 1992 17:50:56 +0000
parents 8cff3b3bd089
children f99c8512cd41
files lisp/mail/sendmail.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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"))))