From: Oleh Krehel <ohwoeowho@gmail.com>
Date: Thu, 6 Jun 2019 13:50:46 +0000 (+0200)
Subject: lisp/gnus/message.el (message--fold-long-headers): Add docstring
X-Git-Tag: emacs-27.0.90~2684
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e188f08fcdbdca8fe7705097a052c0645952e26b;p=emacs.git

lisp/gnus/message.el (message--fold-long-headers): Add docstring
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index d3f6ec3c34e..4da5565a523 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4536,8 +4536,6 @@ This function could be useful in `message-setup-hook'."
 	    (forward-line 1)
 	    (unless (y-or-n-p "Send anyway? ")
 	      (error "Failed to send the message")))))
-      ;; Fold too-long header lines.  They should be no longer than
-      ;; 998 octets long.
       (message--fold-long-headers)
       ;; Let the user do all of the above.
       (run-hooks 'message-header-hook))
@@ -4637,10 +4635,12 @@ If you always want Gnus to send messages in one piece, set
     (push 'mail message-sent-message-via)))
 
 (defun message--fold-long-headers ()
+  "Fold too-long header lines.
+They should be no longer than 998 octets long."
   (goto-char (point-min))
   (while (not (eobp))
     (when (and (looking-at "[^:]+:")
-	       (> (- (line-end-position) (point)) 998))
+               (> (- (line-end-position) (point)) 998))
       (mail-header-fold-field))
     (forward-line 1)))