(gnus-summary-move-article): Don't copy expirable marks if the destination

 group is not auto-expirable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ee7e90..295cfb0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-sum.el (gnus-summary-move-article): Don't copy expirable
+       marks if the destination group is not auto-expirable.
+
 2003-05-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * dgnushack.el (assq-delete-all): Removed the compiler macro.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 23d350a..bda263c 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8922,7 +8922,10 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
                                       (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)
+                            gnus-article-mark-lists
+                          (delete '(expirable . expire)
+                                  (copy-sequence gnus-article-mark-lists))))
                  (to-article (cdr art-group)))
 
              ;; Enter the article into the cache in the new group,