From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/7961
Path: main.gmane.org!not-for-mail
From: Colin Rafferty <craffert@spspme.ml.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: "external" expire?
Date: 20 Sep 1996 09:46:42 -0400
Message-ID: <ocrohj1ti2l.fsf@spssunp.spspme.ml.com>
References: <xe1wwxp6ace.fsf@maneki-neko.cygnus.com>
Reply-To: Colin Rafferty <craffert@ml.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035148199 9321 80.91.224.250 (20 Oct 2002 21:09:59 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:09:59 +0000 (UTC)
Cc: Mark Eichin <eichin@cygnus.com>
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.6/8.6.9) with SMTP id HAA16102 for <steve@miranova.com>; Fri, 20 Sep 1996 07:31:35 -0700
Original-Received: from mlfire.ml.com (mlfire.ml.com [192.246.100.1]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <PAA27094@ifi.uio.no> for <ding@ifi.uio.no> ; Fri, 20 Sep 1996 15:48:17 +0200
Original-Received: from commpost.ml.com ([146.125.4.24]) by mlfire.ml.com (8.7.5/8.7.3/MLgw-2.07) with SMTP id JAA02630; Fri, 20 Sep 1996 09:49:02 -0400 (EDT)
Original-Received: from spssunp.spspme.ml.com (spssunp.spspme.ml.com [192.168.111.13]) by commpost.ml.com (8.6.12/8.6.12) with ESMTP id JAA21281; Fri, 20 Sep 1996 09:47:53 -0400
Original-Received: by spssunp.spspme.ml.com (SMI-8.6/SMI-4.1)
	id JAA21795; Fri, 20 Sep 1996 09:46:43 -0400
Original-To: (chutney) GNUS Mailing List <ding@ifi.uio.no>
X-Face: y,o:AU/bfCrS+zS/W"^puB!rT!G7?U1Mvp1Hd{6h^>X4@Xp5,|g+rG>4gv/iy^&x9`k#s!]X~{]Js>@A4c}4Z"Ct7=#1nPS:?mrWH8c#>$)>/Wc5yuX_OFO1(4cZM{LvsKWVQSl~/i>!n[-B*i-alq[/m\bsdy;W4p(_ic;$BE.oG@eJf@sr#x#}FT<=H8Ozu%g;JpVz:v_~vt[>ef/MeNeo3~D^R]]*bB7{HB|E1$wfMzw
X-Y-Zippy: I'd like MY data-base JULIENNED and stir-fried!
In-Reply-To: Mark Eichin's message of 20 Sep 1996 01:09:53 -0400
Original-Lines: 28
X-Mailer: Gnus v5.2.25/XEmacs 19.14
Xref: main.gmane.org gmane.emacs.gnus.general:7961
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:7961

Mark Eichin writes:

> Has anyone attempted to either "instrument" expire, so that the files
> that would be expired can be handed off to a backup system instead, or
> alternately come up with a way of doing the expiration outside of
> gnus?

I imagine that doing a defadvice to capture the `delete-file' function
would probably be the simplest.  The following would probably work for
nnmail-related backends (nnml, mh):

(defadvice nnml-request-expire-articles (around instrument activate)
  "Advised to do a different kind of delete."
  (let ((nnmail-delete-file-function me:instrument-expire-function))
    ad-do-it))

;; example function
(defvar me:instrument-expire-function
  '(lambda (article)
     (message "deleting %s" article)
     (delete-file article))
  "Instrumentation of expire-article.")

Look at the code to `nnml-request-expire-articles' in nnml.el for a
concept of what I am doing.

-- 
Colin