+2003-05-01 Vasily Korytov <deskpot@despammed.com>
+
+ * gpg.el (gpg-passphrase-forget): Check that gpg-passphrase is
+ set.
+
2003-04-17 Steve Youngs <youngs@xemacs.org>
* hashcash.el (hashcash-point-at-bol): Move the fbound test
;; Keywords: crypto
;; Created: 2000-04-15
-;; $Id: gpg.el,v 1.17 2001/12/26 15:23:03 fw Exp $
+;; $Id: gpg.el,v 1.18 2002/01/25 18:00:44 huber Exp $
;; This file is NOT (yet?) part of GNU Emacs.
(defun gpg-passphrase-forget ()
"Forget stored passphrase."
(interactive)
- (cancel-timer gpg-passphrase-timer)
- (setq gpg-passphrase-timer nil)
- (gpg-passphrase-clear-string gpg-passphrase)
- (setq gpg-passphrase nil))
+ (when gpg-passphrase
+ (cancel-timer gpg-passphrase-timer)
+ (setq gpg-passphrase-timer nil)
+ (gpg-passphrase-clear-string gpg-passphrase)
+ (setq gpg-passphrase nil)))
(defun gpg-passphrase-store (passphrase)
"Store PASSPHRASE in cache.