From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 20 Aug 2020 14:33:29 +0000 (+0200)
Subject: Fix problem with unprintable characters in Message headers
X-Git-Tag: emacs-28.0.90~6494
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac79d73760c6789ec8b47f7795b1a8040758647a;p=emacs.git

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

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