diff options
| author | Asher Gordon <AsDaGo@posteo.net> | 2020-08-24 03:37:10 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-24 03:37:10 +0200 |
| commit | 631c73b28010dd80c7c909a291d356ab91ea2eae (patch) | |
| tree | 2c4815c2c5bf89e5b61eea5b4ef7d50d52251c68 | |
| parent | df589d36817a8804d67f133890b2f453aefdf3c1 (diff) | |
| download | emacs-631c73b28010dd80c7c909a291d356ab91ea2eae.tar.gz | |
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
| -rw-r--r-- | lisp/gnus/mml.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index ef8aa6ac019..067396fc2a6 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -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))))) |