--- gnus-sum.el~	2003-05-13 22:58:57 +0000
+++ gnus-sum.el	2003-05-16 07:24:10 +0000
@@ -8793,6 +8793,9 @@
 		 (crosspost "Crosspost" "Crossposting")))
 	(copy-buf (save-excursion
 		    (nnheader-set-temp-buffer " *copy article*")))
+	(default-marks gnus-article-mark-lists)
+	(no-expire-marks (delete '(expirable . expire)
+				 (copy-sequence gnus-article-mark-lists)))
 	art-group to-method new-xref article to-groups)
     (unless (assq action names)
       (error "Unknown action %s" action))
@@ -8922,7 +8925,9 @@
 				       (list (cdr art-group)))))
 
 	    ;; See whether the article is to be put in the cache.
-	    (let ((marks gnus-article-mark-lists)
+	    (let ((marks (if (gnus-group-auto-expirable-p to-group)
+			     default-marks
+			   no-expire-marks))
 		  (to-article (cdr art-group)))
 
 	      ;; Enter the article into the cache in the new group,