From 9b61bb608610d16dc75bf75fa188b2c1d8cdd66c Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 2 Nov 1999 21:09:13 +0000 Subject: [PATCH] (pgg-read-passphrase): Use only four octets of the key. --- pgg.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pgg.el b/pgg.el index 148806f..dbd6bf1 100644 --- a/pgg.el +++ b/pgg.el @@ -227,7 +227,8 @@ and END to the keyring.") (setq pgg-read-passphrase 'read-passwd) (autoload 'ange-ftp-read-passwd "ange-ftp") (setq pgg-read-passphrase 'ange-ftp-read-passwd)))) - (or (and key (symbol-value (intern-soft key pgg-passphrase-cache))) + (or (and key (setq key (if (> (length key) 8) (substring key 8) key)) + (symbol-value (intern-soft key pgg-passphrase-cache))) (funcall pgg-read-passphrase prompt))) (defun pgg-add-passphrase-cache (key passphrase) -- 1.7.10.4