* elmo-cache.el (elmo-cache-expire-by-size): Count
authorokazaki <okazaki>
Thu, 1 Feb 2001 03:42:12 +0000 (03:42 +0000)
committerokazaki <okazaki>
Thu, 1 Feb 2001 03:42:12 +0000 (03:42 +0000)
a disk usage for a cache file entry in KB even when
its kind is a directory.

elmo/elmo-cache.el

index e6ec563..01ee8f8 100644 (file)
@@ -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))