2001-11-15 Per Abrahamsen <abraham@dina.kvl.dk>

	* gnus-art.el (gnus-article-wash-status-strings): Use
	`copy-sequence', not `copy-seq'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58bcfef..129103c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2001-11-15  Per Abrahamsen  <abraham@dina.kvl.dk>
 
+       * gnus-art.el (gnus-article-wash-status-strings): Use
+       `copy-sequence', not `copy-seq'.
+
+2001-11-15  Per Abrahamsen  <abraham@dina.kvl.dk>
+       
        * gnus-art.el (gnus-article-wash-status-strings): New constant.
        (gnus-gnus-article-wash-status-entry): New function.
        (gnus-article-wash-status): Use it.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 5a9a26e..3cedb09 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4107,9 +4107,9 @@ If no internal viewer is available, use an external viewer."
        result)
     (dolist (entry alist result)
       (let ((key (nth 0 entry))
-           (on (copy-seq (nth 1 entry)))
+           (on (copy-sequence (nth 1 entry)))
            (on-help (nth 2 entry))
-           (off (copy-seq (nth 3 entry)))
+           (off (copy-sequence (nth 3 entry)))
            (off-help (nth 4 entry)))
        (put-text-property 0 1 'help-echo on-help on)
        (put-text-property 0 1 'help-echo off-help off)