* 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ögele)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b05c4ef..ac650a3 100644 (file)
--- 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\e,Av\e(Bgele)
+
 2006-07-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-sum.el (gnus-select-newsgroup): Setup the article buffer

diff --git a/lisp/pgg-def.el b/lisp/pgg-def.el
index 058dca4..6481a43 100644 (file)
--- 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)