From: yamaoka <yamaoka>
Date: Wed, 24 Nov 1999 13:37:19 +0000 (+0000)
Subject: (gnus-article-setup-highlight-words): Use `copy-sequence' instead of
X-Git-Tag: t-gnus-6_13_3-05~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2d84475c47dad00c513976838ca667f1e8c2b662;p=elisp%2Fgnus.git-

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

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index b904596..5415f97 100644
--- 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)