From: ueno <ueno>
Date: Sat, 20 Nov 1999 10:18:17 +0000 (+0000)
Subject: * pgg.el (pgg-remove-passphrase-cache): Fill cached passphrase
X-Git-Tag: emiko-1_13_7~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=607d646b2ea042784fc95eb25db88c483dbfb71e;p=elisp%2Fsemi.git

* pgg.el (pgg-remove-passphrase-cache): Fill cached passphrase
with `_'.
---

diff --git a/pgg.el b/pgg.el
index 5fa1f80..e2e1123 100644
--- a/pgg.el
+++ b/pgg.el
@@ -214,7 +214,11 @@ and END to the keyring.")
 	       key))
 
 (defun pgg-remove-passphrase-cache (key)
-  (unintern key pgg-passphrase-cache))
+  (let ((passphrase (symbol-value (intern key pgg-passphrase-cache))))
+    (fillarray passphrase ?_)
+    (let ((obarray pgg-passphrase-cache))
+      (makunbound key))
+    (unintern key pgg-passphrase-cache)))
 
 (defmacro pgg-convert-lbt-region (start end lbt)
   `(let ((pgg-conversion-end (set-marker (make-marker) ,end)))