* lisp/gnus/gnus-score.el (gnus-all-score-files): Use copy-sequence instead of

copy-list.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8fc250d1dcbc03fc9f980a7182d00c03e900c560..660bc8966e77e0e292291e07f8e5122c71f83973 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-08-13  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * gnus-score.el (gnus-all-score-files): Use copy-sequence instead of
+       copy-list.
+
 2011-08-12  Sam Steingold  <sds@gnu.org>
 
        * gnus-score.el (gnus-score-find-alist): Keep the score files already

diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index 099d06d6439d69b1e038d57e415dd039b623ba8a..eb7234a811e8b142ff1046f516db618d0f86ca99 100644 (file)
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -2864,7 +2864,7 @@ The list is determined from the variable `gnus-score-file-alist'."
       (when gnus-score-use-all-scores
        ;; Get the initial score files for this group.
        (when funcs
-         (setq score-files (copy-list (gnus-score-find-alist group))))
+         (setq score-files (copy-sequence (gnus-score-find-alist group))))
        ;; Add any home adapt files.
        (let ((home (gnus-home-score-file group t)))
          (when home