From: ueno <ueno>
Date: Tue, 2 Nov 1999 21:04:23 +0000 (+0000)
Subject: (pgg-add-passphrase-cache): Use only four octets of the key.
X-Git-Tag: emiko-1_13_7~104
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5f18508a86b15d5142080628a31907cf9fe86618;p=elisp%2Fsemi.git

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

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