From e4e32a9f8fe871412f3c9db3ba5899644bdc521c Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Mon, 24 Jul 2006 00:54:44 +0000 Subject: [PATCH] =?utf8?q?*=20pgg-def.el=20(pgg-truncate-key-identifier):?= =?utf8?q?=20Truncate=20the=20key=20ID=20to=208=20letters=20from=20the=20e?= =?utf8?q?nd.=20=20Thanks=20to=20"David=20Smith"=20=20?= =?utf8?q?and=20andreas@altroot.de=20(Andreas=20V=C3=B6gele)?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/ChangeLog | 6 ++++++ lisp/pgg-def.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b05c4ef25..ac650a37e 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-19 Katsumi Yamaoka * gnus-sum.el (gnus-select-newsgroup): Setup the article buffer diff --git a/lisp/pgg-def.el b/lisp/pgg-def.el index 058dca4fa..6481a4334 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.25.1