From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 10 Jul 2019 13:03:12 +0000 (+0200)
Subject: Fold too-long headers in Message automatically
X-Git-Tag: emacs-27.0.90~2016
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08f0b0b98c53c4d5cf92b6dc57463e5b356043c4;p=emacs.git

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 727bbabcb24..db23217081d 100644
--- 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)))