From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 30 May 2018 23:30:11 +0000 (+0000)
Subject: * lisp/gnus/message.el (message-remove-header): Don't remove things
X-Git-Tag: emacs-26.1.90~431
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df8649a;p=emacs.git

* 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 0eebbe299d2..461f61f144d 100644
--- 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)