mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Oleh Krehel 2019-06-06 15:50:46 +02:00
parent c8123b45f7
commit e188f08fcd
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/message.el
View file

@ -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)))