org-persist-read: Check expiry

2022-01-25 23:22:07 +08:00 · 2022-01-25 23:22:07 +08:00 · 1bc8389871
parent f3bd1dcb77
commit 1bc8389871
1 changed files with 3 additions and 0 deletions
--- 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)