diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2018-05-30 23:30:11 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2018-05-30 23:30:11 +0000 |
| commit | df8649ac40be54cc3007241c4c1d5b1cb81c54dd (patch) | |
| tree | 53d17f64229d0882c7b9e4a50c90ade53e788f02 | |
| parent | b682a7e5bc644d88ca4e08a9b69e82ac799527c5 (diff) | |
| download | emacs-df8649ac40be54cc3007241c4c1d5b1cb81c54dd.tar.gz | |
* lisp/gnus/message.el (message-remove-header): Don't remove things
not looking like header (bug#31651).
| -rw-r--r-- | lisp/gnus/message.el | 4 |
1 files changed, 3 insertions, 1 deletions
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) |