* gnus-cite.el (gnus-message-highlight-citation): Move to gnus-msg.el.

[gnus] / lisp / pgg-def.el

diff --git a/lisp/pgg-def.el b/lisp/pgg-def.el
index 058dca4..6481a43 100644 (file)
--- 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)