org-map-entries方法

Org-mode
,
1

请问 如果一个org文件太大了，也就是

* a1
* a2
...

* a1000
...

反正很多 org-map-entries方法是不是会出现一次加载不了那么多的情况，

我给自己写一个给anki.org，已经push过的entry archive插件，然后用到了这个org-map-entries，但是执行下来发现总是没有一次性清理干净

(defun anki/archive-all-pushed ()
  (interactive)
  (org-map-entries 'anki/do-archive))


(defun anki/do-archive ()
  (let* ((pa (org-entry-properties nil "ANKI_NOTE_ID"))
	 (pa-id (cdar pa)))
    (unless (null pa-id)
      (org-archive-subtree-default))))

要执行好几次