* lisp/gnus/message.el (message-remove-header): Don't remove things

not looking like header (bug#31651).

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 0eebbe299d28b2ee55e7d54abcec28ab6cf73657..461f61f144da76cec1210848fceb8974f3b332e2 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -2431,7 +2431,9 @@ Return the number of headers removed."
     (while (and (not (eobp))
                (not last))
       (if (if reverse
-             (not (looking-at regexp))
+             (and (not (looking-at regexp))
+                  ;; Don't remove things not looking like header.
+                  (looking-at "[!-9;-~]+:"))
            (looking-at regexp))
          (progn
            (incf number)