From: ueno <ueno>
Date: Tue, 2 Nov 1999 21:09:13 +0000 (+0000)
Subject: (pgg-read-passphrase): Use only four octets of the key.
X-Git-Tag: emiko-1_13_7~101
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9b61bb608610d16dc75bf75fa188b2c1d8cdd66c;p=elisp%2Fsemi.git

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

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)