[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-27 821760f 1/2: Don't let a code literal get modified in mml parsi
From: |
Noam Postavsky |
Subject: |
emacs-27 821760f 1/2: Don't let a code literal get modified in mml parsing (Bug#39884) |
Date: |
Sat, 25 Apr 2020 09:58:11 -0400 (EDT) |
branch: emacs-27
commit 821760fdc439214f57212708e23d5c87088d34ee
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>
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 cdd8f3d..556cf08 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))