From b5babdf0d8a3cf21dbcd8924f762bdbcb73bcadc Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 11 Jan 2002 15:24:33 +0000 Subject: [PATCH] * elmo-util.el (elmo-file-cache-delete): Return t if a cache file is deleted (reported by MIZUHARA Bun in WL:9030). --- elmo/ChangeLog | 5 +++++ elmo/elmo-util.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * elmo-util.el (elmo-file-cache-delete): Return t if a cache file + is deleted. + 2002-01-07 Hiroya Murata * 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." -- 1.7.10.4