(setq pgg-read-passphrase 'read-passwd)
(autoload 'ange-ftp-read-passwd "ange-ftp")
(setq pgg-read-passphrase 'ange-ftp-read-passwd))))
- (or (and key (setq key (pgg-truncate-key-identifier key))
+ (or (and pgg-cache-passphrase
+ key (setq key (pgg-truncate-key-identifier key))
(symbol-value (intern-soft key pgg-passphrase-cache)))
(funcall pgg-read-passphrase prompt)))
(defun pgg-remove-passphrase-cache (key)
(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)