Mercurial > emacs
comparison lisp/mail/sendmail.el @ 2633:c703d66d09c2
* sendmail.el (mail-setup): Don't insert "--\n" before the
signature. If they want it, they can put it in their .signature
file.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 03 May 1993 03:40:10 +0000 |
| parents | 551af54fb173 |
| children | 277a358b5204 |
comparison
equal
deleted
inserted
replaced
| 2632:f63bcaae7cd0 | 2633:c703d66d09c2 |
|---|---|
| 151 (insert "FCC: " mail-archive-file-name "\n")) | 151 (insert "FCC: " mail-archive-file-name "\n")) |
| 152 (insert mail-header-separator "\n") | 152 (insert mail-header-separator "\n") |
| 153 ;; Insert the signature. | 153 ;; Insert the signature. |
| 154 (cond ((eq mail-signature t) | 154 (cond ((eq mail-signature t) |
| 155 (if (file-exists-p "~/.signature") | 155 (if (file-exists-p "~/.signature") |
| 156 (progn | 156 (insert-file-contents "~/.signature"))) |
| 157 (insert "--\n") | |
| 158 (insert-file-contents "~/.signature")))) | |
| 159 (mail-signature | 157 (mail-signature |
| 160 (insert mail-signature))) | 158 (insert mail-signature))) |
| 161 (goto-char (point-max)) | 159 (goto-char (point-max)) |
| 162 (or (bolp) (newline))) | 160 (or (bolp) (newline))) |
| 163 (if to (goto-char (point-max))) | 161 (if to (goto-char (point-max))) |