1 files changed, 1 insertions, 1 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index b6cdd75..4973aa4 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -1333,7 +1333,7 @@ runKeyRing operation = do
                                         sigr <- pgpSign (Message [wkun]) sigOver SHA1 (fingerprint wkun)
                                         let f ::([SigAndTrust],OriginMap) -> ([SigAndTrust],OriginMap)
                                             f x = ( map ( (,Map.empty) . toMappedPacket om) (additional sigr) ++ fst x
-                                                  , error "todo")
+                                                  , om `Map.union` snd x )
                                             om = Map.singleton "--autosign" (origin p (-1)) where p = UserIDPacket uid
                                             toMappedPacket om p = (mappedPacket "" p) {locations=om}
                                             selfsigs = filter (\(sig,v,whosign) -> isJust (v >> Just wkun >>= guard