master f0b4f2ee6b: Ensure that `mail-send' breaks too-long lines

[Lars Ingebrigtsen]

branch: master
commit f0b4f2ee6bbef2ea4596568703e1f267eb4a46aa
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/mail/sendmail.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 76c3baf472..0d3eeecd8c 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)