From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 8 Jul 2015 04:41:31 +0000 (+0000)
Subject: Use correct time offset for file age test.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~81
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5f5de499763147348ffe381d4e852691aa2a46df;p=mit-scheme.git

Use correct time offset for file age test.
---

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)