From ac79d73760c6789ec8b47f7795b1a8040758647a Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 20 Aug 2020 16:33:29 +0200 Subject: [PATCH] Fix problem with unprintable characters in Message headers * lisp/gnus/message.el (message-fix-before-sending): Remove unprintable characters from the entire buffer, not just the body (bug#38955). --- 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 d4b057f593c..0fd490be5c0 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -4430,7 +4430,7 @@ conformance." (error "Invisible text found and made visible"))))) (message-check 'illegible-text (let (char found choice nul-chars) - (message-goto-body) + (goto-char (point-min)) (setq nul-chars (save-excursion (search-forward "\000" nil t))) (while (progn @@ -4470,7 +4470,7 @@ conformance." (?e "edit" "Continue editing"))))) (if (eq choice ?e) (error "Non-printable characters")) - (message-goto-body) + (goto-char (point-min)) (skip-chars-forward mm-7bit-chars) (while (not (eobp)) (when (let ((char (char-after))) @@ -4811,7 +4811,7 @@ If you always want Gnus to send messages in one piece, set message-courtesy-message))) ;; If this was set, `sendmail-program' takes care of encoding. (unless message-inhibit-body-encoding - ;; Let's make sure we encoded all the body. + ;; Let's make sure we encoded everything in the buffer. (cl-assert (save-excursion (goto-char (point-min)) (not (re-search-forward "[^\000-\377]" nil t))))) -- 2.39.2