From: okazaki Date: Thu, 1 Feb 2001 03:42:12 +0000 (+0000) Subject: * elmo-cache.el (elmo-cache-expire-by-size): Count X-Git-Tag: wl-2_6-root~131 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bae6f4929a2e3f9e678c4bb0dcf054fdc34ee327;p=elisp%2Fwanderlust.git * elmo-cache.el (elmo-cache-expire-by-size): Count a disk usage for a cache file entry in KB even when its kind is a directory. --- diff --git a/elmo/elmo-cache.el b/elmo/elmo-cache.el index e6ec563..01ee8f8 100644 --- a/elmo/elmo-cache.el +++ b/elmo/elmo-cache.el @@ -141,11 +141,7 @@ If KBYTES is kilo bytes (This value must be float)." (while (and (<= size total) (setq oldest (elmo-cache-get-oldest-cache-file-entity cfl))) (setq cur-file (expand-file-name (car (cdr oldest)) (car oldest))) - (if (file-directory-p cur-file) - (setq cur-size (elmo-disk-usage cur-file)) - (setq cur-size - (/ (float (nth 7 (file-attributes cur-file))) - Kbytes))) + (setq cur-size (/ (elmo-disk-usage cur-file) Kbytes)) (when (elmo-cache-force-delete cur-file locked) (setq count (+ count 1)) (message "%d cache(s) are expired." count))