Use correct time offset for file age test.

diff --git a/src/imail/imail-imap.scm b/src/imail/imail-imap.scm
index d6f3d284ef350eb90522a1194b9fae5c1f7b71bc..ca3851346eb6f5e975e437111bd08db4e27b82e5 100644 (file)
--- 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)