From: Andreas Schwab Date: Sat, 13 Aug 2011 08:55:53 +0000 (+0200) Subject: * lisp/gnus/gnus-score.el (gnus-all-score-files): Use copy-sequence instead of X-Git-Tag: emacs-pretest-24.0.90~104^2~124^2~62^2~1 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1bca59fe757d359e3c36d3de1c8ec19ed90be49c;p=emacs.git * 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 8fc250d1dcb..660bc8966e7 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-08-13 Andreas Schwab + + * gnus-score.el (gnus-all-score-files): Use copy-sequence instead of + copy-list. + 2011-08-12 Sam Steingold * 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