Mercurial > emacs
changeset 9536:ecaa7babab17
(mail-setup): Fill the in-reply-to field.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 15 Oct 1994 01:09:19 +0000 |
| parents | a2908d5da32a |
| children | f025140f7ff7 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Fri Oct 14 23:50:35 1994 +0000 +++ b/lisp/mail/sendmail.el Sat Oct 15 01:09:19 1994 +0000 @@ -213,7 +213,12 @@ (insert cc "\n") (fill-region-as-paragraph address-start (point-max)))) (if in-reply-to - (insert "In-reply-to: " in-reply-to "\n")) + (let ((fill-prefix "\t") + address-start) + (insert "In-reply-to: ") + (setq address-start (point)) + (insert in-reply-to "\n") + (fill-region-as-paragraph address-start (point-max)))) (insert "Subject: " (or subject "") "\n") (if mail-default-headers (insert mail-default-headers))