From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/52713 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: Messages Expire Even in Non-Expiry Group Date: Fri, 16 May 2003 16:25:30 +0900 Organization: Emacsen advocacy group Sender: ding-owner@lists.math.uh.edu Message-ID: References: <76wugsc7ea.fsf@newjersey.ppllc.com> <84k7crxvlw.fsf@lucy.is.informatik.uni-duisburg.de> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1053069840 10970 80.91.224.249 (16 May 2003 07:24:00 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 16 May 2003 07:24:00 +0000 (UTC) Original-X-From: ding-owner+M1257@lists.math.uh.edu Fri May 16 09:23:58 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19GZZO-0002qg-00 for ; Fri, 16 May 2003 09:23:58 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19GZau-0008Bj-00; Fri, 16 May 2003 02:25:32 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19GZao-0008Be-00 for ding@lists.math.uh.edu; Fri, 16 May 2003 02:25:26 -0500 Original-Received: (qmail 19852 invoked by alias); 16 May 2003 07:25:26 -0000 Original-Received: (qmail 19846 invoked from network); 16 May 2003 07:25:26 -0000 Original-Received: from unknown (HELO washington.hostforweb.net) (139.81.176.2) by sclp3.sclp.com with SMTP; 16 May 2003 07:25:26 -0000 Original-Received: from yamaoka by washington.hostforweb.net with local (Exim 3.36 #1) id 19GZak-0003ze-00 for ding@gnus.org; Fri, 16 May 2003 03:25:23 -0400 Original-To: ding@gnus.org X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.1003 (Gnus v5.10.3) XEmacs/21.4 (Portable Code, linux) Cancel-Lock: sha1:0yih/QVYTb38ENC9EiQBjaax/WM= X-Virus-Scanned-By: Amavis with CLAM Anti Virus on washington.hostforweb.net X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - washington.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [32041 32041] / [32041 32041] X-AntiAbuse: Sender Address Domain - washington.hostforweb.net Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:52713 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:52713 --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Hi, >>>>> In <84k7crxvlw.fsf@lucy.is.informatik.uni-duisburg.de> >>>>> kai.grossjohann@gmx.net (Kai Gro=DFjohann) 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 * 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? --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- 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, --=-=-=--