[elpa] externals/org 1c79af13df 04/31: org-persist-gc: Fix when expiry is days and data is freshly created

[ELPA Syncer]

branch: externals/org
commit 1c79af13df9d3a611e4b773d395633e9095d367b
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-persist-gc: Fix when expiry is days and data is freshly created
---
 lisp/org-persist.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index 7ac6940b0b..243e2b22c5 100644
--- a/lisp/org-persist.el
+++ b/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.