[Emacs-diffs] emacs-26 df8649a: * lisp/gnus/message.el (message-remove-header): Don't remove things

[Katsumi Yamaoka]

branch: emacs-26
commit df8649ac40be54cc3007241c4c1d5b1cb81c54dd
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    * 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 0eebbe2..461f61f 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)