From 2b86c1896a16642218c6668314f5d9117a33ce42 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 13 Apr 1999 04:36:04 +0000 Subject: [PATCH] * (gnus-summary-move-article): Bug fix - don't remove the element `(expirable . expire)' from `gnus-article-mark-lists'. --- lisp/gnus-sum.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index ac6c519..66ae5a6 100644 --- 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 -- 1.7.10.4