Don't clobber epa-mail-aliases

* lisp/epa-mail.el (epa-mail-default-recipients):
Copy elements of epa-mail-aliases; don't clobber them.

diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el
index ce71ed8f9e45396a81a390a5dbd422c058d5f484..1bb8d9bfde16ed7bde9a79e9ed41709ae9f8a08c 100644 (file)
--- 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)))
       )))