From 5f5de499763147348ffe381d4e852691aa2a46df Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 8 Jul 2015 04:41:31 +0000 Subject: [PATCH] Use correct time offset for file age test. --- src/imail/imail-imap.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/imail/imail-imap.scm b/src/imail/imail-imap.scm index d6f3d284e..ca3851346 100644 --- a/src/imail/imail-imap.scm +++ b/src/imail/imail-imap.scm @@ -1803,7 +1803,7 @@ USA. (define (clean-temporary-directory directory) (if (file-directory? directory) (for-each - (let* ((now (get-universal-time)) + (let* ((now (- (get-universal-time) epoch)) (then (- now temporary-file-expiration-time))) (lambda (pathname) (catch-file-errors (lambda (condition) condition #f) -- 2.25.1