From 631c73b28010dd80c7c909a291d356ab91ea2eae Mon Sep 17 00:00:00 2001 From: Asher Gordon Date: Mon, 24 Aug 2020 03:37:10 +0200 Subject: [PATCH] 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 --- lisp/gnus/mml.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))))) -- 2.39.2