From e188f08fcdbdca8fe7705097a052c0645952e26b Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Thu, 6 Jun 2019 15:50:46 +0200 Subject: [PATCH] lisp/gnus/message.el (message--fold-long-headers): Add docstring --- lisp/gnus/message.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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))) -- 2.39.2