Quote other suspicious characters in mml-insert-tag.

* lisp/gnus/mml.el (mml-insert-tag): Ensure that the characters
"[]<>=" are quoted correctly (bug#43009).
Copyright-paperwork-exempt: yes
This commit is contained in:
Asher Gordon 2020-08-24 03:37:10 +02:00 committed by Lars Ingebrigtsen
parent df589d3681
commit 631c73b280

View file

@ -1360,7 +1360,7 @@ If not set, `default-directory' will be used."
(value (pop plist)))
(when value
;; Quote VALUE if it contains suspicious characters.
(when (string-match "[\"'\\~/*;() \t\n[:multibyte:]]" value)
(when (string-match "[][\"'\\~/*;()<>= \t\n[:multibyte:]]" value)
(setq value (with-output-to-string
(let (print-escape-nonascii)
(prin1 value)))))