Re: Messages Expire Even in Non-Expiry Group

[Katsumi Yamaoka <yamaoka@jpl.org>]

[-- Attachment #1: Type: text/plain, Size: 659 bytes --]

Hi,

>>>>> In <84k7crxvlw.fsf@lucy.is.informatik.uni-duisburg.de>
>>>>>	kai.grossjohann@gmx.net (Kai Großjohann) wrote:

> Messages marked `E' are supposed to be expired, *except* if
> nnmail-expiry-wait or nnmail-expiry-target say something else.

> So, actually, Gnus seems to have had a bug before that was now
> fixed...

I've made the following change in T-gnus (based on Gnus, using
SEMI and FLIM for MIME functions):

1999-01-18  Katsumi Yamaoka  <yamaoka@jpl.org>

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

Here's a patch for the recent Gnus.  How is it?


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 874 bytes --]

--- gnus-sum.el~	2003-05-13 22:58:57 +0000
+++ gnus-sum.el	2003-05-16 07:24:10 +0000
@@ -8793,6 +8793,9 @@
 		 (crosspost "Crosspost" "Crossposting")))
 	(copy-buf (save-excursion
 		    (nnheader-set-temp-buffer " *copy article*")))
+	(default-marks gnus-article-mark-lists)
+	(no-expire-marks (delete '(expirable . expire)
+				 (copy-sequence gnus-article-mark-lists)))
 	art-group to-method new-xref article to-groups)
     (unless (assq action names)
       (error "Unknown action %s" action))
@@ -8922,7 +8925,9 @@
 				       (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)
+			     default-marks
+			   no-expire-marks))
 		  (to-article (cdr art-group)))
 
 	      ;; Enter the article into the cache in the new group,