[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master e188f08 1/3: lisp/gnus/message.el (message--fold-lo
From: |
Oleh Krehel |
Subject: |
[Emacs-diffs] master e188f08 1/3: lisp/gnus/message.el (message--fold-long-headers): Add docstring |
Date: |
Thu, 6 Jun 2019 10:10:01 -0400 (EDT) |
branch: master
commit e188f08fcdbdca8fe7705097a052c0645952e26b
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
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 d3f6ec3..4da5565 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)))