From: yamaoka <yamaoka>
Date: Mon, 18 Jan 1999 03:26:06 +0000 (+0000)
Subject: * (gnus-summary-move-article): Don't copy expirable marks if the destination
X-Git-Tag: pgnus-ichikawa-199901181900~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ea58f8919bab25dd124cf697a9621a2461f12720;p=elisp%2Fgnus.git-

* (gnus-summary-move-article): Don't copy expirable marks if the destination
group is not expirable.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index dc987c3..ee75685 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7196,6 +7196,8 @@ and `request-accept' functions."
 	    ;; Copy any marks over to the new group.
 	    (let ((marks gnus-article-mark-lists)
 		  (to-article (cdr art-group)))
+	      (unless (gnus-group-auto-expirable-p to-newsgroup)
+		(setq marks (delete '(expirable . expire) marks)))
 
 	      ;; See whether the article is to be put in the cache.
 	      (when gnus-use-cache