Mercurial > emacs

changeset 5847:8a2e912b29a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-signature): Insert a `-- ' line.
author Richard M. Stallman <rms@gnu.org>
date Tue, 08 Feb 1994 17:51:57 +0000
parents 1322c4daeda2
children 07a4626166d4
files lisp/mail/sendmail.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Tue Feb 08 07:26:28 1994 +0000
+++ b/lisp/mail/sendmail.el	Tue Feb 08 17:51:57 1994 +0000
@@ -643,7 +643,7 @@
   (search-forward (concat "\n" mail-header-separator "\n")))
 
 (defun mail-signature (atpoint)
-  "Sign letter with contents of `mail-signature-file'.
+  "Sign letter with contents of the file `~/.signature'.
 Prefix arg means put contents at point."
   (interactive "P")
   (save-excursion
@@ -653,7 +653,7 @@
     (end-of-line)
     (or atpoint
 	(delete-region (point) (point-max)))
-    (insert "\n\n")
+    (insert "\n\n-- \n")
     (insert-file-contents (expand-file-name "~/.signature"))))
 
 (defun mail-fill-yanked-message (&optional justifyp)