2006-07-24 Daiki Ueno <ueno@unixuser.org>

	* pgg-def.el (pgg-truncate-key-identifier): Truncate the key ID to 8
	letters from the end.  Thanks to "David Smith" <davidsmith@acm.org> and
	andreas@altroot.de (Andreas V�e)

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8bced1e0046..f5ebf1f1cec 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-07-24  Daiki Ueno  <ueno@unixuser.org>
+
+        * pgg-def.el (pgg-truncate-key-identifier): Truncate the key ID to 8
+        letters from the end.  Thanks to "David Smith" <davidsmith@acm.org> and
+        andreas@altroot.de (Andreas V,Av(Bgele)
+
 2006-07-23  Thien-Thi Nguyen  <ttn@gnu.org>
 
         * mouse.el (mouse-on-link-p): Doc fix.
diff --git a/lisp/pgg-def.el b/lisp/pgg-def.el
index 058dca4fa8f..6481a433423 100644
--- a/lisp/pgg-def.el
+++ b/lisp/pgg-def.el
@@ -87,7 +87,7 @@ Whether the passphrase is cached at all is controlled by
   "If t, inform the recipient that the input is text.")
 
 (defmacro pgg-truncate-key-identifier (key)
-  `(if (> (length ,key) 8) (substring ,key 8) ,key))
+  `(if (> (length ,key) 8) (substring ,key -8) ,key))
 
 (provide 'pgg-def)