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

copy-list.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8fc250d1dcb..660bc8966e7 100644
--- 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 099d06d6439..eb7234a811e 100644
--- 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