From a3039ac2bbde2508bd0f95c6e48c65778de6d56d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 18 Jan 1999 03:25:03 +0000 Subject: [PATCH] * (gnus-summary-move-article): Don't copy expirable marks if the destination group is not expirable. --- lisp/gnus-sum.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 543709b..d1efd5b 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -7015,6 +7015,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 -- 1.7.10.4