From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/44400
Path: main.gmane.org!not-for-mail
From: Nicolas Kowalski <Nicolas.Kowalski_NOSPAM@imag.fr.invalid>
Newsgroups: gmane.emacs.gnus.general
Subject: Expiration, nnfolder
Date: Thu, 25 Apr 2002 18:37:42 +0200
Sender: owner-ding@hpc.uh.edu
Message-ID: <vqosn5jd99l.fsf@astazou.imag.fr>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1019752929 17070 127.0.0.1 (25 Apr 2002 16:42:09 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Thu, 25 Apr 2002 16:42:09 +0000 (UTC)
Return-path: <owner-ding@hpc.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 170mJt-0004RD-00
	for <ding-account@gmane.org>; Thu, 25 Apr 2002 18:42:09 +0200
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 170mFu-0007na-00; Thu, 25 Apr 2002 11:38:02 -0500
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 25 Apr 2002 11:38:13 -0500 (CDT)
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 LAA05539
	for <ding@hpc.uh.edu>; Thu, 25 Apr 2002 11:38:02 -0500 (CDT)
Original-Received: (qmail 10570 invoked by alias); 25 Apr 2002 16:37:45 -0000
Original-Received: (qmail 10565 invoked from network); 25 Apr 2002 16:37:44 -0000
Original-Received: from imag.imag.fr (129.88.30.1)
  by gnus.org with SMTP; 25 Apr 2002 16:37:44 -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 g3PGbgh18057
	for <ding@gnus.org>; Thu, 25 Apr 2002 18:37:42 +0200 (MEST)
Original-Received: from astazou.imag.fr.imag.fr (astazou [129.88.43.102])
          by ormelune.imag.fr (8.10.2+Sun/jtpda-5.3.3) with ESMTP id g3PGapG18351
          for <ding@gnus.org>; Thu, 25 Apr 2002 18:36:51 +0200 (MET DST)
Original-To: ding <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|
Original-Lines: 60
User-Agent: Gnus/5.090006 (Oort Gnus v0.06) XEmacs/21.1 (Cuyahoga Valley,
 i686-pc-linux)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:44400
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:44400


Hello.

I am trying to setup the archival of old articles into nnfolder
groups. Most of it works well, however I noticed that sometimes, the
folders that received old (expired) articles are not saved on disk
until I quit Gnus. Is this the normal behaviour ?

In addition to this, sometimes a to-be-archived article contains a
date field that is not recognized with `safe-date-to-time'. This makes
the expiration process fail on first try. The second try, this
works. Any tips to solve this ?

Thanks in advance,
Nicolas.


PS: some additional info...

My nnfolder setup just includes the following lines, for speeding up
things :

(defun turn-off-backup ()
  (set (make-local-variable 'backup-inhibited) t))

(add-hook 'nnfolder-save-buffer-hook 'turn-off-backup)




And my expiration process is run through :

(setq
 ;; groupes expirables : le mail
 gnus-auto-expirable-newsgroups "^mail."

 ;; l'expiration ne detruit pas les messages, elle les deplace dans le
 ;; groupe archive approprie
 nnmail-expiry-target 'niko-expiry-target-function
 )


;; Choix du groupe archive, creation si necessaire Tous les groupes de
;; mail (mail.XXX) sont archives en enlevant le prefixe 'mail.'

(defun niko-expiry-target-function (the-group)
  (let* ((msg-date (format-time-string "%Y-%m"
				       (safe-date-to-time 
					(message-fetch-field "Date"))))
	 (gname (concat "nnfolder:" (substring group 5) "." msg-date)))
	   
    (progn
      ;; group does not exist, create it, unsubscribed
      (when (not (gnus-gethash gname gnus-newsrc-hashtb))
	(progn 
	  (gnus-set-active gname (cons 1 0))
	  (gnus-request-create-group gname)))
      
      gname)))