From 17040b8df3d2a97ec74029b708250679ae1947db Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 26 Jan 2005 23:06:49 +0000 Subject: [PATCH] Synch to No Gnus 200501262303. --- lisp/ChangeLog | 5 +++++ lisp/password.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9b1a2d6..45e8b3d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-01-27 Simon Josefsson + + * password.el (password-cache-add): Only start one timer per key. + Reported by Derek Atkins . + 2005-01-26 Steve Youngs * run-at-time.el: Removed. It is no longer needed as diff --git a/lisp/password.el b/lisp/password.el index 5e64808..00defc2 100644 --- a/lisp/password.el +++ b/lisp/password.el @@ -115,11 +115,11 @@ user again." "Add password to cache. The password is removed by a timer after `password-cache-expiry' seconds." - (set (intern key password-data) password) - (when password-cache-expiry + (when (and password-cache-expiry (null (intern-soft key password-data))) (run-at-time password-cache-expiry nil #'password-cache-remove key)) + (set (intern key password-data) password) nil) (provide 'password) -- 1.7.10.4