From 1bca59fe757d359e3c36d3de1c8ec19ed90be49c Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 13 Aug 2011 10:55:53 +0200 Subject: [PATCH] * lisp/gnus/gnus-score.el (gnus-all-score-files): Use copy-sequence instead of copy-list. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-score.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 -- 2.39.2