From 8b078ff1045b316bb8ce5f3d6b0a1cba2e751207 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Wed, 3 Nov 1999 09:39:51 +0000
Subject: [PATCH] * pgg-def.el (pgg-truncate-key-identifier): New macro.

---
 pgg-def.el |    3 +++
 1 file changed, 3 insertions(+)

diff --git a/pgg-def.el b/pgg-def.el
index 83507f3..9a7f6be 100644
--- 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
-- 
1.7.10.4