From 0ed7a418d78996c8030279150e43bd304fd7e1bb Mon Sep 17 00:00:00 2001
From: okazaki <okazaki>
Date: Mon, 6 Nov 2006 22:55:43 +0000
Subject: [PATCH] (elmo-cache-expire-by-age): Add docstring.  Make it
 interactive.

---
 elmo/elmo-util.el |    3 +++
 1 file changed, 3 insertions(+)

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
-- 
1.7.10.4