# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 760729917 0
# Node ID 8a2e912b29a5e86ac9a70fa0b609607660d8bbc0
# Parent  1322c4daeda2a8faceafd140006fb0c34a7f53c4
(mail-signature): Insert a `-- ' line.

diff -r 1322c4daeda2 -r 8a2e912b29a5 lisp/mail/sendmail.el
--- 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)