summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/KeyRing.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index fc21122..9c734fc 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -3121,7 +3121,9 @@ makeSig doDecrypt top fname subkey_p tags mbsig = do
3121 let mp' = mappedPacket fname new_sig 3121 let mp' = mappedPacket fname new_sig
3122 return $ KikiSuccess (mp', Map.empty) 3122 return $ KikiSuccess (mp', Map.empty)
3123 parsedkey = [packet subkey_p] 3123 parsedkey = [packet subkey_p]
3124 hashed0 = KeyFlagsPacket 3124 hashed0 | any isFlagsPacket tags = tags
3125 | otherwise
3126 = KeyFlagsPacket
3125 { certify_keys = False 3127 { certify_keys = False
3126 , sign_data = False 3128 , sign_data = False
3127 , encrypt_communication = False 3129 , encrypt_communication = False
@@ -3132,6 +3134,8 @@ makeSig doDecrypt top fname subkey_p tags mbsig = do
3132 : tags 3134 : tags
3133 -- implicitly added: 3135 -- implicitly added:
3134 -- , SignatureCreationTimePacket (fromIntegral timestamp) 3136 -- , SignatureCreationTimePacket (fromIntegral timestamp)
3137 isFlagsPacket (KeyFlagsPacket {}) = True
3138 isFlagsPacket _ = False
3135 subgrip = fingerprint (head parsedkey) 3139 subgrip = fingerprint (head parsedkey)
3136 3140
3137 back_sig <- pgpSign (Message parsedkey) 3141 back_sig <- pgpSign (Message parsedkey)