Re: archiving old mail

[Simon Josefsson <jas@extundo.com>]

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")))))