From: yoichi <yoichi>
Date: Tue, 9 Apr 2002 01:37:03 +0000 (+0000)
Subject: Omit (current-time) for format-string.
X-Git-Tag: elmo-mark-root~214
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3677fe5670fab3c39a14ac0e0a96982b372409d0;p=elisp%2Fwanderlust.git

Omit (current-time) for format-string.
---

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 11a1813..a62e91a 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -170,7 +170,7 @@ File content is encoded with MIME-CHARSET."
 	       (concat field "(2) Search by") default)
 	      ")"))
      ((string-match "Since\\|Before" field)
-      (let ((default (format-time-string "%Y-%m-%d" (current-time))))
+      (let ((default (format-time-string "%Y-%m-%d")))
 	(setq value (completing-read
 		     (format "Value for '%s' [%s]: " field default)
 		     (mapcar (function