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)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8bced1e00462aa14afed8bcb22436ad5e5f1205a..f5ebf1f1cec1b67c9076b5e72e24734a59efe532 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-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 058dca4fa8f63732b692263ee4131f66c2a7fdc4..6481a433423d1d43919972c260513ecb740f9c8e 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)