Fold too-long headers in Message automatically

* lisp/gnus/message.el (message--fold-long-headers): Header lines
should be no longer than 79 characters before folding
(bug#33313).  Previous comment about 998 octets is about maximum
allowed header field length.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 727bbabcb2400d445575c0cb6beca7e76b69d43e..db23217081d22e22392c466e55af9cd3bef7a6dc 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4643,11 +4643,11 @@ If you always want Gnus to send messages in one piece, set
 
 (defun message--fold-long-headers ()
   "Fold too-long header lines.
-They should be no longer than 998 octets long."
+Each line should be no more than 79 characters long."
   (goto-char (point-min))
   (while (not (eobp))
     (when (and (looking-at "[^:]+:")
-               (> (- (line-end-position) (point)) 998))
+               (> (- (line-end-position) (point)) 79))
       (mail-header-fold-field))
     (forward-line 1)))