From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/40768
Path: main.gmane.org!not-for-mail
From: Nicolas Kowalski <Nicolas.Kowalski@imag.fr>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: archiving old mail
Date: Fri, 07 Dec 2001 18:23:14 +0100
Sender: owner-ding@hpc.uh.edu
Message-ID: <vqo7krzvta5.fsf@anie.imag.fr>
References: <vqo4rn3t4r0.fsf@olan.imag.fr>
	<vxksnankozq.fsf@cinnamon.vanillaknot.com>
	<iluelm7kmmi.fsf@dhcp128.extundo.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035176267 2656 80.91.224.250 (21 Oct 2002 04:57:47 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 04:57:47 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: (qmail 17240 invoked from network); 7 Dec 2001 17:24:13 -0000
Original-Received: from malifon.math.uh.edu (mail@129.7.128.13)
  by mastaler.com with SMTP; 7 Dec 2001 17:24:13 -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 16COis-0005E9-00; Fri, 07 Dec 2001 11:23:42 -0600
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 07 Dec 2001 11:23:24 -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 LAA15737
	for <ding@hpc.uh.edu>; Fri, 7 Dec 2001 11:23:07 -0600 (CST)
Original-Received: (qmail 17205 invoked by alias); 7 Dec 2001 17:23:15 -0000
Original-Received: (qmail 17200 invoked from network); 7 Dec 2001 17:23:15 -0000
Original-Received: from imag.imag.fr (129.88.30.1)
  by gnus.org with SMTP; 7 Dec 2001 17:23:15 -0000
Original-Received: from ormelune.imag.fr (ormelune.imag.fr [129.88.43.35])
	by imag.imag.fr (8.11.6/8.11.6) with ESMTP id fB7HNDf09134
	for <ding@gnus.org>; Fri, 7 Dec 2001 18:23:13 +0100 (MET)
Original-Received: from anie.imag.fr.imag.fr (anie [129.88.43.111])
          by ormelune.imag.fr (8.9.1b+Sun/jtpda-5.3.3) with SMTP id SAA13303
          for <ding@gnus.org>; Fri, 7 Dec 2001 18:22:49 +0100 (MET)
Original-To: Gnus <ding@gnus.org>
X-Face: #v^9{p"~.e3TDs~r\<SxBL^%CaX6JVh~g8kd]c1y~!tL!)!{yD-.A&Y`}cu/!,)VC}~|dz*
 K-zyyNbl2jh9zemO~-g'nTpXO32]$z~+a_6dp#b=(B"+20axb1%udr5eDqyDNCIxK`QkX;A^<#Tr""
 j@HC^4U;mGLScG4ZcSy;GgUmZ5i%B$/P|
In-Reply-To: <iluelm7kmmi.fsf@dhcp128.extundo.com> (Simon Josefsson's
 message of "Fri, 07 Dec 2001 17:42:29 +0100")
Original-Lines: 31
User-Agent: Gnus/5.090004 (Oort Gnus v0.04) XEmacs/21.1 (Capitol Reef,
 i386-debian-linux)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:40768
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:40768

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.

May somebody help ?

Thanks.
Nicolas.