From: okazaki <okazaki>
Date: Mon, 6 Nov 2006 22:55:43 +0000 (+0000)
Subject: (elmo-cache-expire-by-age): Add docstring.  Make it interactive.
X-Git-Tag: wl-2_15_6-fixes~123
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0ed7a418d78996c8030279150e43bd304fd7e1bb;p=elisp%2Fwanderlust.git

(elmo-cache-expire-by-age): Add docstring.  Make it interactive.
---

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 8817170..981930f 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -2075,6 +2075,9 @@ If KBYTES is kilo bytes (This value must be float)."
     ret-val))
 
 (defun elmo-cache-expire-by-age (&optional days)
+  "Expire cache file by age.
+Optional argument DAYS specifies the days to expire caches."
+  (interactive)
   (let ((age (or (and days (int-to-string days))
 		 (and (interactive-p)
 		      (read-from-minibuffer