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

diff --git a/pgg.el b/pgg.el
index 1cc96c6..148806f 100644 (file)
--- a/pgg.el
+++ b/pgg.el
@@ -231,6 +231,7 @@ and END to the keyring.")
       (funcall pgg-read-passphrase prompt)))
 
 (defun pgg-add-passphrase-cache (key passphrase)
+  (setq key (if (> (length key) 8) (substring key 8) key))
   (set (intern key pgg-passphrase-cache)
        passphrase)
   (run-at-time pgg-passphrase-cache-expiry nil