* lisp/gnus/message.el (message-remove-header): Don't remove things
not looking like header (bug#31651).
This commit is contained in:
parent
b682a7e5bc
commit
df8649ac40
1 changed files with 3 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue