(mail-setup): Insert -- line before .signature file.

a5282b8f · Richard M. Stallman · 8eb6c7da · a5282b8f
Commit a5282b8f authored Jul 12, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/mail/sendmail.el lisp/mail/sendmail.el +3 -1

No files found.
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -198,7 +198,9 @@ actually occur.")
    (if to (setq to (point)))
    (cond ((eq mail-signature t)
 	   (if (file-exists-p "~/.signature")
-	       (insert-file-contents "~/.signature")))
+	       (progn
+		 (insert "\n\n-- \n")
+		 (insert-file-contents "~/.signature"))))
 	  (mail-signature
 	   (insert mail-signature)))
    (goto-char (point-max))