(pgg-read-passphrase): Use only four octets of the key.

diff --git a/pgg.el b/pgg.el
index 148806f..dbd6bf1 100644 (file)
--- 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)