Re: archiving old mail

[Nicolas Kowalski <Nicolas.Kowalski@imag.fr>]

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.