* 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 8fc250d..660bc89 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 099d06d..eb7234a 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