diff options
| author | Richard M. Stallman | 1994-10-23 05:02:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-10-23 05:02:00 +0000 |
| commit | 34046d66f0ff4ecca3c74f87ebd173fd3daf0f5a (patch) | |
| tree | df37a2e4ba2d7115f9dff77780c066d3485709c4 | |
| parent | 13d9a3a96f21d3feff3e18f8b0321f6a13160cba (diff) | |
| download | emacs-34046d66f0ff4ecca3c74f87ebd173fd3daf0f5a.tar.gz emacs-34046d66f0ff4ecca3c74f87ebd173fd3daf0f5a.zip | |
(mail-setup): Fill in-reply-to field properly.
| -rw-r--r-- | lisp/mail/sendmail.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 0ef55c4603a..aeea64a9a9a 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -216,10 +216,8 @@ actually occur.") | |||
| 216 | (fill-region-as-paragraph address-start (point-max)))) | 216 | (fill-region-as-paragraph address-start (point-max)))) |
| 217 | (if in-reply-to | 217 | (if in-reply-to |
| 218 | (let ((fill-prefix "\t") | 218 | (let ((fill-prefix "\t") |
| 219 | address-start) | 219 | (address-start (point))) |
| 220 | (insert "In-reply-to: ") | 220 | (insert "In-reply-to: " in-reply-to "\n") |
| 221 | (setq address-start (point)) | ||
| 222 | (insert in-reply-to "\n") | ||
| 223 | (fill-region-as-paragraph address-start (point-max)))) | 221 | (fill-region-as-paragraph address-start (point-max)))) |
| 224 | (insert "Subject: " (or subject "") "\n") | 222 | (insert "Subject: " (or subject "") "\n") |
| 225 | (if mail-default-headers | 223 | (if mail-default-headers |