From: Asher Gordon <AsDaGo@posteo.net>
Date: Mon, 24 Aug 2020 01:37:10 +0000 (+0200)
Subject: Quote other suspicious characters in mml-insert-tag.
X-Git-Tag: emacs-28.0.90~6437
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=631c73b28010dd80c7c909a291d356ab91ea2eae;p=emacs.git

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
---

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)))))