From 5f18508a86b15d5142080628a31907cf9fe86618 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 2 Nov 1999 21:04:23 +0000 Subject: [PATCH] (pgg-add-passphrase-cache): Use only four octets of the key. --- pgg.el | 1 + 1 file changed, 1 insertion(+) diff --git a/pgg.el b/pgg.el index 1cc96c6..148806f 100644 --- 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 -- 1.7.10.4