* pgg-def.el (pgg-truncate-key-identifier): New macro.

diff --git a/pgg-def.el b/pgg-def.el
index 83507f3..9a7f6be 100644 (file)
--- a/pgg-def.el
+++ b/pgg-def.el
@@ -48,6 +48,9 @@
 (defvar pgg-scheme nil
   "Current scheme of PGP implementation")
 
+(defmacro pgg-truncate-key-identifier (key)
+  `(if (> (length ,key) 8) (substring ,key 8) ,key))
+
 (provide 'pgg-def)
 
 ;;; pgg-def.el ends here