Source

sks-keyserver-patches / Use Long KeyID

Full commit
# HG changeset patch
# Parent e2d4ec6c214703fed821847dea84349edeabf48b

diff -r e2d4ec6c2147 mRindex.ml
--- a/mRindex.ml	Fri Aug 10 20:50:24 2012 +0200
+++ b/mRindex.ml	Tue Aug 14 22:13:02 2012 +0200
@@ -99,7 +99,7 @@
 
 let key_to_lines key =
   let full_keyid = Fingerprint.keyid_from_key ~short:false key in
-  let keyid = Fingerprint.keyid_to_string ~short:true full_keyid in
+  let keyid = Fingerprint.keyid_to_string ~short:false full_keyid in
   let pkey = KeyMerge.key_to_pkey key in
   let key_packet = pkey.KeyMerge.key in
   let pki = ParsePGP.parse_pubkey_info key_packet in