* (gnus-summary-move-article): Bug fix - don't remove the element

`(expirable . expire)' from `gnus-article-mark-lists'.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index ac6c519..66ae5a6 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7006,7 +7006,8 @@ and `request-accept' functions."
            (let ((marks gnus-article-mark-lists)
                  (to-article (cdr art-group)))
              (unless (gnus-group-auto-expirable-p to-group)
-               (setq marks (delete '(expirable . expire) marks)))
+               (setq marks (delete '(expirable . expire)
+                                   (copy-sequence marks))))
 
              ;; See whether the article is to be put in the cache.
              (when gnus-use-cache