Don't clobber epa-mail-aliases

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

1 files changed, 1 insertions, 1 deletions

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)))
       )))