From: yoichi <yoichi>
Date: Fri, 11 Jan 2002 15:24:33 +0000 (+0000)
Subject: * elmo-util.el (elmo-file-cache-delete): Return t if a cache file
X-Git-Tag: wl-2_9_5~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b5babdf0d8a3cf21dbcd8924f762bdbcb73bcadc;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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."