Mercurial > emacs

diff lisp/pgg-def.el @ 72081:1c3567a03964

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)
author Reiner Steib <Reiner.Steib@gmx.de>
date Mon, 24 Jul 2006 07:32:16 +0000
parents 970bf6e6463b
children 2f8ec29373d1
line wrap: on
line diff
--- a/lisp/pgg-def.el	Sun Jul 23 21:21:37 2006 +0000
+++ b/lisp/pgg-def.el	Mon Jul 24 07:32:16 2006 +0000
@@ -87,7 +87,7 @@
   "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)