From 4e9c8f038423892b287238c6cf347f8c066f9fe9 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 30 Nov 1999 12:50:24 +0000 Subject: [PATCH] * pgg.el (pgg-remove-passphrase-cache): Add checking if the passphrase has already been expired. --- ChangeLog | 5 +++++ pgg.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6b0ae03..11b372d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-11-30 Daiki Ueno + + * pgg.el (pgg-remove-passphrase-cache): Add checking whether + the passphrase has already been expired. + 1999-11-26 Daiki Ueno * mime-edit.el (mime-edit-pgp-user-id): New variable. diff --git a/pgg.el b/pgg.el index 5058c9c..fd6eaea 100644 --- a/pgg.el +++ b/pgg.el @@ -215,9 +215,10 @@ and END to the keyring.") key)) (defun pgg-remove-passphrase-cache (key) - (let ((passphrase (symbol-value (intern key pgg-passphrase-cache)))) - (fillarray passphrase ?_) - (unintern key pgg-passphrase-cache))) + (let ((passphrase (symbol-value (intern-soft key pgg-passphrase-cache)))) + (when passphrase + (fillarray passphrase ?_) + (unintern key pgg-passphrase-cache)))) (defmacro pgg-convert-lbt-region (start end lbt) `(let ((pgg-conversion-end (set-marker (make-marker) ,end))) -- 1.7.10.4