* elmo-util.el (elmo-file-cache-delete): Return t if a cache file

is deleted (reported by MIZUHARA Bun in WL:9030).

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4374a77..161e5d3 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-util.el (elmo-file-cache-delete): Return t if a cache file
+       is deleted.
+
 2002-01-07  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-net.el (elmo-folder-list-messages-plugged): Changed default

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index cbb199c..dcdbd5c 100644 (file)
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -1578,7 +1578,7 @@ SECTION is the section string."
              (delete-file (car files))
              (setq files (cdr files)))
            (delete-directory path))
-       (delete-file path)))))
+       (progn (delete-file path) t)))))
 
 (defun elmo-file-cache-exists-p (msgid)
   "Returns 'section or 'entire if a cache which corresponds to MSGID exists."