[elpa] externals/org 1bc8389871 21/31: org-persist-read: Check expiry

[ELPA Syncer]

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

    org-persist-read: Check expiry
---
 lisp/org-persist.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index 5c3858959e..bff1a094ee 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -743,6 +743,9 @@ When LOAD? is non-nil, load the data instead of reading."
          (data nil))
     (when (and collection
                (file-exists-p persist-file)
+               (or (not (plist-get collection :expiry)) ; current session
+                   (not (org-persist--gc-expired-p
+                       (plist-get collection :expiry) collection)))
                (or (not hash-must-match)
                    (and (plist-get associated :hash)
                         (equal (plist-get associated :hash)