diff options
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index ed223976507..4325ce4950f 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -643,7 +643,7 @@ the user from the mailer." | |||
| 643 | (search-forward (concat "\n" mail-header-separator "\n"))) | 643 | (search-forward (concat "\n" mail-header-separator "\n"))) |
| 644 | 644 | ||
| 645 | (defun mail-signature (atpoint) | 645 | (defun mail-signature (atpoint) |
| 646 | "Sign letter with contents of `mail-signature-file'. | 646 | "Sign letter with contents of the file `~/.signature'. |
| 647 | Prefix arg means put contents at point." | 647 | Prefix arg means put contents at point." |
| 648 | (interactive "P") | 648 | (interactive "P") |
| 649 | (save-excursion | 649 | (save-excursion |
| @@ -653,7 +653,7 @@ Prefix arg means put contents at point." | |||
| 653 | (end-of-line) | 653 | (end-of-line) |
| 654 | (or atpoint | 654 | (or atpoint |
| 655 | (delete-region (point) (point-max))) | 655 | (delete-region (point) (point-max))) |
| 656 | (insert "\n\n") | 656 | (insert "\n\n-- \n") |
| 657 | (insert-file-contents (expand-file-name "~/.signature")))) | 657 | (insert-file-contents (expand-file-name "~/.signature")))) |
| 658 | 658 | ||
| 659 | (defun mail-fill-yanked-message (&optional justifyp) | 659 | (defun mail-fill-yanked-message (&optional justifyp) |