From 821760fdc439214f57212708e23d5c87088d34ee Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Thu, 16 Apr 2020 20:24:26 -0400 Subject: [PATCH] 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. --- 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 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)) -- 2.39.2