From b7b2b1558307ba282be6ae2f3c2698742ceff380 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sat, 7 Feb 2004 13:44:59 +0000 Subject: [PATCH] * elmo-util.el (elmo-cache-expire): Completion require match "age" or "size". --- elmo/ChangeLog | 5 +++++ elmo/elmo-util.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index fe6a321..97b9cc7 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2004-02-07 TAKAHASHI Kaoru + + * elmo-util.el (elmo-cache-expire): Completion require match "age" + or "size". + 2004-01-28 Hiroya Murata * elmo-util.el (elmo-get-hash-val): Check symbol is bound if diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el index 3cb5140..f07b296 100644 --- a/elmo/elmo-util.el +++ b/elmo/elmo-util.el @@ -1761,9 +1761,10 @@ associated with SECTION." (method (completing-read (format "Expire by (%s): " elmo-cache-expire-default-method) '(("size" . "size") - ("age" . "age"))))) - (if (string= method "") - (setq method elmo-cache-expire-default-method)) + ("age" . "age")) + nil t))) + (when (string= method "") + (setq method elmo-cache-expire-default-method)) (funcall (intern (concat "elmo-cache-expire-by-" method))))) (defun elmo-read-float-value-from-minibuffer (prompt &optional initial) -- 1.7.10.4