From: ueno <ueno>
Date: Tue, 30 Nov 1999 12:50:24 +0000 (+0000)
Subject: * pgg.el (pgg-remove-passphrase-cache): Add checking if
X-Git-Tag: emiko-1_13_8~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4e9c8f038423892b287238c6cf347f8c066f9fe9;p=elisp%2Fsemi.git

* pgg.el (pgg-remove-passphrase-cache): Add checking if
the passphrase has already been expired.
---

diff --git a/ChangeLog b/ChangeLog
index 6b0ae03..11b372d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-11-30   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
+
+	* pgg.el (pgg-remove-passphrase-cache): Add checking whether
+	the passphrase has already been expired.
+
 1999-11-26   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
 
 	* 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)))