From: kaoru <kaoru>
Date: Sat, 16 Feb 2008 15:04:43 +0000 (+0000)
Subject: * elmo-util.el (elmo-get-passwd): Fix typo.
X-Git-Tag: wl-2_15_6-fixes~48
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=201f3eaf202d812a05ce2a932c7db5a26a9e1c9f;p=elisp%2Fwanderlust.git

* elmo-util.el (elmo-get-passwd): Fix typo.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 9ccacf2..0148bfc 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2008-02-16  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* elmo-util.el (elmo-get-passwd): Fix typo.
+
 	* elmo-nntp.el (elmo-nntp-get-server-command)
 	(elmo-nntp-set-server-command, elmo-nntp-xover-p)
 	(elmo-nntp-listgroup-p, elmo-nntp-set-listgroup)
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index d99b47a..87e9eaa 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -591,7 +591,7 @@ Return value is a cons cell of (STRUCTURE . REST)"
 				(elmo-base64-encode-string pass)))))
       (if elmo-passwd-life-time
 	  (run-with-timer elmo-passwd-life-time nil
-			  `(lambda nil (elmo-remove-passwd ,key))))
+			  `(lambda () (elmo-remove-passwd ,key))))
       pass)))
 
 (defun elmo-remove-passwd (key)