From 88dcc76aa7eb09713bc525f6002d7f70f5d4a94a Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Mon, 24 Jul 2006 07:32:16 +0000 Subject: [PATCH] 2006-07-24 Daiki Ueno MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * pgg-def.el (pgg-truncate-key-identifier): Truncate the key ID to 8 letters from the end. Thanks to "David Smith" and andreas@altroot.de (Andreas V�e) --- lisp/ChangeLog | 6 ++++++ lisp/pgg-def.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * pgg-def.el (pgg-truncate-key-identifier): Truncate the key ID to 8 + letters from the end. Thanks to "David Smith" and + andreas@altroot.de (Andreas V,Av(Bgele) + 2006-07-23 Thien-Thi Nguyen * 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) -- 2.39.2