From: yamaoka <yamaoka>
Date: Tue, 13 Apr 1999 04:33:48 +0000 (+0000)
Subject: * gnus.el (gnus-revision-number): Increment to 09.
X-Git-Tag: t-gnus-6_10_062-09~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6488abb57f2415c25c59eb4385cd7764eb83de08;p=elisp%2Fgnus.git-

* gnus.el (gnus-revision-number): Increment to 09.
* gnus-sum.el (gnus-summary-move-article): Bug fix - don't remove the element
`(expirable . expire)' from `gnus-article-mark-lists'.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 3f60b0e..25b5e3a 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7196,7 +7196,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
diff --git a/lisp/gnus.el b/lisp/gnus.el
index e432303..ebc3340 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -268,7 +268,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.10.062"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "08"
+(defconst gnus-revision-number "09"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.80"