瀏覽代碼

org-persist-read: Check expiry

Ihor Radchenko 3 年之前
父節點
當前提交
1bc8389871
共有 1 個文件被更改,包括 3 次插入0 次删除
  1. 3 0
      lisp/org-persist.el

+ 3 - 0
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)