diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-15 01:09:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-15 01:09:19 +0000 |
| commit | 9171f37fd2a593cecac4ff71022d5527fbb7db65 (patch) | |
| tree | 7bca64cdecfc8b9d50b82a0a205211df6b60fbcb /lisp | |
| parent | 8851c1f036e2b666185f9e803498e24d4a62c148 (diff) | |
| download | emacs-9171f37fd2a593cecac4ff71022d5527fbb7db65.tar.gz | |
(mail-setup): Fill the in-reply-to field.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/sendmail.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 61c0de48613..52a9abefe65 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -213,7 +213,12 @@ actually occur.") (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)) |