From df8649ac40be54cc3007241c4c1d5b1cb81c54dd Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 30 May 2018 23:30:11 +0000 Subject: [PATCH] * lisp/gnus/message.el (message-remove-header): Don't remove things not looking like header (bug#31651). --- lisp/gnus/message.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.5