From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/40771
Path: main.gmane.org!not-for-mail
From: Simon Josefsson <jas@extundo.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: archiving old mail
Date: Fri, 07 Dec 2001 20:16:43 +0100
Sender: owner-ding@hpc.uh.edu
Message-ID: <ilu4rn2lu1w.fsf@dhcp128.extundo.com>
References: <vqo4rn3t4r0.fsf@olan.imag.fr>
	<vxksnankozq.fsf@cinnamon.vanillaknot.com>
	<iluelm7kmmi.fsf@dhcp128.extundo.com> <vqo7krzvta5.fsf@anie.imag.fr>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035176270 2666 80.91.224.250 (21 Oct 2002 04:57:50 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 04:57:50 +0000 (UTC)
Cc: Gnus <ding@gnus.org>
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: (qmail 19866 invoked from network); 7 Dec 2001 19:21:01 -0000
Original-Received: from malifon.math.uh.edu (mail@129.7.128.13)
  by mastaler.com with SMTP; 7 Dec 2001 19:21:01 -0000
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 16CQWc-0005tG-00; Fri, 07 Dec 2001 13:19:10 -0600
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 07 Dec 2001 13:18:56 -0600 (CST)
Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id NAA16184
	for <ding@hpc.uh.edu>; Fri, 7 Dec 2001 13:18:45 -0600 (CST)
Original-Received: (qmail 19759 invoked by alias); 7 Dec 2001 19:18:53 -0000
Original-Received: (qmail 19754 invoked from network); 7 Dec 2001 19:18:52 -0000
Original-Received: from unknown (HELO dolk.extundo.com) (195.42.214.242)
  by gnus.org with SMTP; 7 Dec 2001 19:18:52 -0000
Original-Received: from dhcp128.extundo.com (slipsten.extundo.com [195.42.214.241])
	(authenticated bits=0)
	by dolk.extundo.com (8.12.1/8.12.1) with ESMTP id fB7JI2sX031522;
	Fri, 7 Dec 2001 20:18:08 +0100
Original-To: Nicolas Kowalski <Nicolas.Kowalski@imag.fr>
In-Reply-To: <vqo7krzvta5.fsf@anie.imag.fr> (Nicolas Kowalski's message of
 "Fri, 07 Dec 2001 18:23:14 +0100")
Mail-Copies-To: nobody
Original-Lines: 39
User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.1 (i686-pc-linux-gnu)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:40771
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:40771

Nicolas Kowalski <Nicolas.Kowalski@imag.fr> writes:

> Simon Josefsson <jas@extundo.com> writes:
>
>>>
>>> expiry-target is new in Oort.  Your challenge is to find a way to make
>>> the value of expiry-target into an eval -- I don't know if that's
>>> possible or not in the current scheme.
>>
>> `expiry-target' can be a function, it will be called narrowed to the
>> message in question.
>
>
> (Please, be comprehensive : I am a lisp newbie)
>  
> So, I could use something like :
>
> (defun gnus-user-expiry-target-function (group)
>   "Return the archive group filename"
>   (concat "archive." group "." 
>     (format-time-string "%Y.%m" 
> 		       (safe-date-to-time 
> 			(mail-header-date the-message))))
>     )                   
>                                           ^^^^^^^^^^^
>
> My problem is that I do not known how to get `the-message' with the
> current buffer.

Perhaps the following works?

(expiry-target . my-expiry-target-function)

(defun my-expiry-target-function (group)
  "Return the archive group filename"
  (concat "archive." group "." 
	  (format-time-string "%Y.%m" 
			      (safe-date-to-time 
			       (message-fetch-field "Date")))))