Jelajahi Sumber

org-persist-gc: Fix when expiry is days and data is freshly created

Ihor Radchenko 3 tahun lalu
induk
melakukan
1c79af13df
1 mengubah file dengan 3 tambahan dan 2 penghapusan
  1. 3 2
      lisp/org-persist.el

+ 3 - 2
lisp/org-persist.el

@@ -756,10 +756,11 @@ Do nothing in an indirect buffer."
      (`nil t)
      (`never nil)
      ((pred numberp)
-      (<= (float-time) (+ (plist-get ,collection :access-time) (* ,cnd 24 60 60))))
+      (when (plist-get ,collection :access-time)
+        (<= (float-time) (+ (plist-get ,collection :access-time) (* ,cnd 24 60 60)))))
      ((pred functionp)
       (funcall ,cnd ,collection))
-     (_ (error "org-persist: Unsupported expiry type %S" cnd))))
+     (_ (error "org-persist: Unsupported expiry type %S" ,cnd))))
 
 (defun org-persist-gc ()
   "Remove expired or unregisted containers.