(elmo-imap4-parse-namespace): Copy `elmo-imap4-extra-namespace-alist'.

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index ccb7773..462e743 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1788,7 +1788,7 @@ Return nil if no complete line has arrived."
 (defun elmo-imap4-parse-namespace ()
   (list 'namespace
        (nconc
-        elmo-imap4-extra-namespace-alist
+        (copy-sequence elmo-imap4-extra-namespace-alist)
         (elmo-imap4-parse-namespace-subr       
          (elmo-imap4-read (concat "(" (buffer-substring
                             (point) (point-max))