* password.el (password-cache-remove): Use clear-string to burn

password, if available.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9554e95..ef9313c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-28  Daiki Ueno  <ueno@unixuser.org>
+
+       * password.el (password-cache-remove): Use clear-string to burn
+       password, if available.
+
 2006-12-26  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-msg.el (gnus-message-citation-mode): Fix autoload.

diff --git a/lisp/password.el b/lisp/password.el
index 828cae9..52de64a 100644 (file)
--- a/lisp/password.el
+++ b/lisp/password.el
@@ -113,7 +113,9 @@ that a password is invalid, so that `password-read' query the
 user again."
   (let ((password (symbol-value (intern-soft key password-data))))
     (when password
-      (fillarray password ?_)
+      (if (fboundp 'clear-string)
+         (clear-string password)
+       (fillarray password ?_))
       (unintern key password-data))))
 
 (defun password-cache-add (key password)