From a04548679472317f6ec7287c71a35982e168df15 Mon Sep 17 00:00:00 2001 From: vitaly Date: Thu, 26 Mar 2009 11:04:27 +0100 Subject: [PATCH] Remove stale entities Wl doesn't remove old entities which are not referenced by any live message any more. --- elmo/modb-standard.el | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/elmo/modb-standard.el b/elmo/modb-standard.el index 1ecfcd6..43c3562 100644 --- a/elmo/modb-standard.el +++ b/elmo/modb-standard.el @@ -247,6 +247,20 @@ entities)) (ignore-errors (delete-file filename))))) +(defun modb-standard-cleanup-stale-entities (modb path) + (message "Removing stale entities...") + (let ((entities (elmo-uniq-list + (mapcar + #'(lambda (x) (/ x modb-standard-divide-number)) + (modb-standard-number-list-internal modb)))) + (files (mapcar #'(lambda(x) + (when (string-match "^entity-\\([0-9]+\\)" x) + (string-to-int (match-string 1 x)))) + (directory-files path nil "^entity-")))) + (dolist (entity (car (elmo-list-diff-nonsortable files entities))) + (ignore-errors (delete-file (expand-file-name + (modb-standard-entity-filename entity) path)))))) + (defun modb-standard-save-entity (modb path) (let ((modified (modb-generic-message-modified-internal modb))) (cond ((listp modified) @@ -259,7 +273,8 @@ (dolist (section sections) (modb-standard-save-entity-1 modb path section)))) (modified - (modb-standard-save-entity-1 modb path))))) + (modb-standard-save-entity-1 modb path)))) + (modb-standard-cleanup-stale-entities modb path)) ;;; Implement ;; -- 2.11.4.GIT