diff options
| author | Asher Gordon | 2020-08-24 03:37:10 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2020-08-24 03:37:10 +0200 |
| commit | 631c73b28010dd80c7c909a291d356ab91ea2eae (patch) | |
| tree | 2c4815c2c5bf89e5b61eea5b4ef7d50d52251c68 | |
| parent | df589d36817a8804d67f133890b2f453aefdf3c1 (diff) | |
| download | emacs-631c73b28010dd80c7c909a291d356ab91ea2eae.tar.gz emacs-631c73b28010dd80c7c909a291d356ab91ea2eae.zip | |
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." | |||
| 1360 | (value (pop plist))) | 1360 | (value (pop plist))) |
| 1361 | (when value | 1361 | (when value |
| 1362 | ;; Quote VALUE if it contains suspicious characters. | 1362 | ;; Quote VALUE if it contains suspicious characters. |
| 1363 | (when (string-match "[\"'\\~/*;() \t\n[:multibyte:]]" value) | 1363 | (when (string-match "[][\"'\\~/*;()<>= \t\n[:multibyte:]]" value) |
| 1364 | (setq value (with-output-to-string | 1364 | (setq value (with-output-to-string |
| 1365 | (let (print-escape-nonascii) | 1365 | (let (print-escape-nonascii) |
| 1366 | (prin1 value))))) | 1366 | (prin1 value))))) |