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:
parent
df589d3681
commit
631c73b280
1 changed files with 1 additions and 1 deletions
|
@ -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)))))
|
||||
|
|
Loading…
Add table
Reference in a new issue