diff options
| -rw-r--r-- | lisp/mail/sendmail.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 76c3baf4727..0d3eeecd8c8 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -955,7 +955,10 @@ the user from the mailer." | |||
| 955 | (error "Invalid header line (maybe a continuation line lacks initial whitespace)")) | 955 | (error "Invalid header line (maybe a continuation line lacks initial whitespace)")) |
| 956 | (forward-line 1))) | 956 | (forward-line 1))) |
| 957 | (goto-char opoint) | 957 | (goto-char opoint) |
| 958 | (when mail-encode-mml | 958 | (when (or mail-encode-mml |
| 959 | ;; When we have long lines, we have to MIME encode | ||
| 960 | ;; to get line folding. | ||
| 961 | (mm-long-lines-p 1000)) | ||
| 959 | (mml-to-mime) | 962 | (mml-to-mime) |
| 960 | (setq mail-encode-mml nil)) | 963 | (setq mail-encode-mml nil)) |
| 961 | (run-hooks 'mail-send-hook) | 964 | (run-hooks 'mail-send-hook) |