diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-02-20 13:41:57 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-02-20 13:41:57 +0100 |
| commit | f0b4f2ee6bbef2ea4596568703e1f267eb4a46aa (patch) | |
| tree | aa94a85eeaa0d5030faff4bf462dce8d9ee3bb34 /lisp/mail/sendmail.el | |
| parent | 06b7c53927b983764a7174b7edbb51832b21fbc8 (diff) | |
| download | emacs-f0b4f2ee6bbef2ea4596568703e1f267eb4a46aa.tar.gz | |
Ensure that `mail-send' breaks too-long lines
* lisp/mail/sendmail.el (mail-send): Ensure that we fold too-long
lines when using `sendmail-user-agent' (bug#53412).
Diffstat (limited to 'lisp/mail/sendmail.el')
| -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." (error "Invalid header line (maybe a continuation line lacks initial whitespace)")) (forward-line 1))) (goto-char opoint) - (when mail-encode-mml + (when (or mail-encode-mml + ;; When we have long lines, we have to MIME encode + ;; to get line folding. + (mm-long-lines-p 1000)) (mml-to-mime) (setq mail-encode-mml nil)) (run-hooks 'mail-send-hook) |