From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/49789 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.gnus.general Subject: Re: Saving some read IMAP messages to a local folder Date: Mon, 03 Feb 2003 10:47:21 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: <87d6mdtk8x.fsf@logicacmg.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1044286093 20960 80.91.224.249 (3 Feb 2003 15:28:13 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 3 Feb 2003 15:28:13 +0000 (UTC) Cc: tiarnan.ocorrain@logicacmg.com (=?iso-8859-1?q?Tiarn=E1n_=D3_Corr=E1in?=), ding@gnus.org 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 18fiVw-0005R2-00 for ; Mon, 03 Feb 2003 16:28:04 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18fiX6-00025n-00; Mon, 03 Feb 2003 09:29:16 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 03 Feb 2003 09:30:14 -0600 (CST) Original-Received: from epithumia.math.uh.edu (epithumia.math.uh.edu [129.7.128.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id JAA12324 for ; Mon, 3 Feb 2003 09:30:07 -0600 (CST) Original-Received: (from tibbs@localhost) by epithumia.math.uh.edu (8.11.2/8.11.1) id h13FT5b30213 for ding@hpc.uh.edu; Mon, 3 Feb 2003 09:29:05 -0600 Original-Received: from sclp3.sclp.com (sclp3.sclp.com [66.230.238.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id DAA11792 for ; Mon, 3 Feb 2003 03:48:32 -0600 (CST) Original-Received: (qmail 9988 invoked by alias); 3 Feb 2003 09:47:31 -0000 Original-Received: (qmail 9983 invoked from network); 3 Feb 2003 09:47:30 -0000 Original-Received: from 178.230.13.217.in-addr.dgcsystems.net (HELO yxa.extundo.com) (217.13.230.178) by 66.230.238.6 with SMTP; 3 Feb 2003 09:47:30 -0000 Original-Received: from latte.josefsson.org (yxa.extundo.com [217.13.230.178]) (authenticated bits=0) by yxa.extundo.com (8.12.6/8.12.6) with ESMTP id h139lMeE012739 (version=TLSv1/SSLv3 cipher=EDH-RSA-DES-CBC3-SHA bits=168 verify=NO); Mon, 3 Feb 2003 10:47:22 +0100 Original-To: Niklas Morberg Mail-Copies-To: nobody X-Payment: hashcash 1.1 0:030203:niklas.morberg@axis.com:b17dbc846390bf3a X-Hashcash: 0:030203:niklas.morberg@axis.com:b17dbc846390bf3a X-Payment: hashcash 1.1 0:030203:tiarnan.ocorrain@logicacmg.com:ef09052c35b33b5b X-Hashcash: 0:030203:tiarnan.ocorrain@logicacmg.com:ef09052c35b33b5b X-Payment: hashcash 1.1 0:030203:ding@gnus.org:efca292359c71b01 X-Hashcash: 0:030203:ding@gnus.org:efca292359c71b01 In-Reply-To: (Niklas Morberg's message of "Mon, 03 Feb 2003 10:12:32 +0100") User-Agent: Gnus/5.090015 (Oort Gnus v0.15) Emacs/21.2 (i386-debian-linux-gnu) X-Face: FmU60_S;07.b/mq$mN4i[hYDH,9?'f\&F~>ROKqqN6'k$rh#oKV}|(Ol8$)L4`#XB"b|Tnu J"{VKSYBqieg/2&a.0pI2[7A\9*s+=%Zq\^> writes: > (setq gnus-agent-expire-days 36500) ... > When I first tried this a couple of weeks ago, I missed > setting the gnus-agent-expire days to a large number and my > local articles got deleted as well. Is the default for g-a-e-d (7) a good one? It goes against the principle that Gnus never expire or delete any articles unless you configure it to do so. I think articles in the agent should not be expired by default. Disk is cheap compared to accidently losing mail. Patch below is untested. --- gnus-agent.el.~6.136.~ Thu Jan 30 05:42:20 2003 +++ gnus-agent.el Mon Feb 3 10:45:54 2003 @@ -1,5 +1,5 @@ ;;; gnus-agent.el --- unplugged support for Gnus -;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002 +;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -59,12 +59,14 @@ :group 'gnus-agent :type 'integer) -(defcustom gnus-agent-expire-days 7 +(defcustom gnus-agent-expire-days nil "Read articles older than this will be expired. -This can also be a list of regexp/day pairs. The regexps will -be matched against group names." +This can also be a list of regexp/day pairs. The regexps will be +matched against group names. If nil, articles in the agent cache are +never expired." :group 'gnus-agent - :type 'integer) + :type '(choice (number :tag "days") + (const :tag "never" nil))) (defcustom gnus-agent-expire-all nil "If non-nil, also expire unread, ticked and dormant articles. @@ -2124,8 +2126,11 @@ FORCE is equivalent to setting gnus-agent-expire-days to zero(0)." (interactive) - (if (or (not (eq articles t)) - (yes-or-no-p (concat "Are you sure that you want to expire all articles in " (if group group "every agentized group") "."))) + (if (and (not gnus-agent-expire-days) + (or (not (eq articles t)) + (yes-or-no-p (concat "Are you sure that you want to expire all " + "articles in " (if group group + "every agentized group") ".")))) (let ((methods (if group (list (gnus-find-method-for-group group)) gnus-agent-covered-methods))