(gnus-article-setup-highlight-words): Use `copy-sequence' instead of

[elisp/gnus.git-] / lisp / gnus-art.el

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index b904596..5415f97 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2272,12 +2272,12 @@ This format is defined by the `gnus-article-time-format' variable."
               (while (setq elem (pop alist))
                 (when (and name (string-match (car elem) name))
                   (setq alist nil
-                        highlight (copy-list (cdr elem)))))
+                        highlight (copy-sequence (cdr elem)))))
               highlight)
-            (copy-list highlight-words)
+            (copy-sequence highlight-words)
             (if gnus-newsgroup-name
-                (copy-list (gnus-group-find-parameter
-                            gnus-newsgroup-name 'highlight-words t)))
+                (copy-sequence (gnus-group-find-parameter
+                                gnus-newsgroup-name 'highlight-words t)))
             gnus-emphasis-alist)))))
 
 (defvar gnus-summary-article-menu)