diff options
| author | Richard M. Stallman | 1994-11-18 16:41:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-11-18 16:41:07 +0000 |
| commit | 58cabff0518a237897d9f8e343b91b87cb15eafe (patch) | |
| tree | 4140a47892be1a77be6836981dd384dcc082f4e9 | |
| parent | 626a097ccf2a122f0e39a8801ef2cf98b6d11f55 (diff) | |
| download | emacs-58cabff0518a237897d9f8e343b91b87cb15eafe.tar.gz emacs-58cabff0518a237897d9f8e343b91b87cb15eafe.zip | |
(mail-setup): Make fill-column wide for the in-reply-to.
| -rw-r--r-- | lisp/mail/sendmail.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index aeea64a9a9a..9d0f998df18 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -216,6 +216,7 @@ 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 | (fill-column 78) | ||
| 219 | (address-start (point))) | 220 | (address-start (point))) |
| 220 | (insert "In-reply-to: " in-reply-to "\n") | 221 | (insert "In-reply-to: " in-reply-to "\n") |
| 221 | (fill-region-as-paragraph address-start (point-max)))) | 222 | (fill-region-as-paragraph address-start (point-max)))) |