diff options
| author | Richard M. Stallman | 1994-07-12 02:47:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-12 02:47:27 +0000 |
| commit | a5282b8fe221cd4f84444d41d2b2b1db1d0562d5 (patch) | |
| tree | 8378dc65e40ec62b358d46c5e18991917e65b5b3 | |
| parent | 8eb6c7da6ba209c2ff031297e55ef54a6b256e16 (diff) | |
| download | emacs-a5282b8fe221cd4f84444d41d2b2b1db1d0562d5.tar.gz emacs-a5282b8fe221cd4f84444d41d2b2b1db1d0562d5.zip | |
(mail-setup): Insert -- line before .signature file.
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 13bc43e8300..58c5f298fa9 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -198,7 +198,9 @@ actually occur.") | |||
| 198 | (if to (setq to (point))) | 198 | (if to (setq to (point))) |
| 199 | (cond ((eq mail-signature t) | 199 | (cond ((eq mail-signature t) |
| 200 | (if (file-exists-p "~/.signature") | 200 | (if (file-exists-p "~/.signature") |
| 201 | (insert-file-contents "~/.signature"))) | 201 | (progn |
| 202 | (insert "\n\n-- \n") | ||
| 203 | (insert-file-contents "~/.signature")))) | ||
| 202 | (mail-signature | 204 | (mail-signature |
| 203 | (insert mail-signature))) | 205 | (insert mail-signature))) |
| 204 | (goto-char (point-max)) | 206 | (goto-char (point-max)) |