From 5a513470276f1f48ee44f4409a323ba526c18f4e Mon Sep 17 00:00:00 2001 From: Richard Stallman Date: Sun, 24 Feb 2019 08:45:41 -0800 Subject: [PATCH] Don't clobber epa-mail-aliases * lisp/epa-mail.el (epa-mail-default-recipients): Copy elements of epa-mail-aliases; don't clobber them. --- lisp/epa-mail.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el index ce71ed8f9e4..1bb8d9bfde1 100644 --- a/lisp/epa-mail.el +++ b/lisp/epa-mail.el @@ -150,7 +150,7 @@ If no one is selected, default secret key is used. " (mapcar (lambda (recipient) (let ((tem (assoc recipient epa-mail-aliases))) - (if tem (cdr tem) + (if tem (copy-sequence (cdr tem)) (list recipient)))) real-recipients))) ))) -- 2.39.2