From: okazaki <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/cgi-bin/gitweb.cgi?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))