master ac79d73: Fix problem with unprintable characters in Message headers

[Lars Ingebrigtsen]

branch: master
commit ac79d73760c6789ec8b47f7795b1a8040758647a
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 d4b057f..0fd490b 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)))))