From: Noam Postavsky <npostavs@gmail.com>
Date: Fri, 17 Apr 2020 00:24:26 +0000 (-0400)
Subject: Don't let a code literal get modified in mml parsing (Bug#39884)
X-Git-Tag: emacs-27.1-rc1~184
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=821760fdc439214f57212708e23d5c87088d34ee;p=emacs.git

Don't let a code literal get modified in mml parsing (Bug#39884)

* lisp/gnus/mml.el (mml-parse-1): Make a fresh cons for the tag type,
because 'mml-generate-mime' destructively modifies it.
---

diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index cdd8f3d3a50..556cf0804a5 100644
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -281,7 +281,7 @@ part.  This is for the internal use, you should never modify the value.")
 	    (setq tag (mml-read-tag)
 		  no-markup-p nil
 		  warn nil)
-	  (setq tag (list 'part '(type . "text/plain"))
+	  (setq tag (list 'part (cons 'type "text/plain"))
 		no-markup-p t
 		warn t))
 	(setq raw (cdr (assq 'raw tag))