[Emacs-diffs] /srv/bzr/emacs/trunk r105440: * lisp/gnus/gnus-score.el (gnus-all-score-files): Use copy-sequence instead of

[Andreas Schwab]

------------------------------------------------------------
revno: 105440
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Sat 2011-08-13 10:55:53 +0200
message:
  * lisp/gnus/gnus-score.el (gnus-all-score-files): Use copy-sequence instead of
  copy-list.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-score.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-08-12 18:52:40 +0000
+++ b/lisp/gnus/ChangeLog       2011-08-13 08:55:53 +0000
@@ -1,3 +1,8 @@
+2011-08-13  Andreas Schwab  <address@hidden>
+
+       * gnus-score.el (gnus-all-score-files): Use copy-sequence instead of
+       copy-list.
+
 2011-08-12  Sam Steingold  <address@hidden>
 
        * gnus-score.el (gnus-score-find-alist): Keep the score files already

=== modified file 'lisp/gnus/gnus-score.el'
--- a/lisp/gnus/gnus-score.el   2011-08-12 18:52:40 +0000
+++ b/lisp/gnus/gnus-score.el   2011-08-13 08:55:53 +0000
@@ -2864,7 +2864,7 @@
       (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