cache remote.log

Unlikely to speed up any of the existing uses much, but I want to use it
in a message that might be displayed many times.

Remote/GCrypt.hs

@@ -109,7 +109,7 @@ gen baser u rc gc rs = do
 	-- correctly.
 	resetup gcryptid r = do
 		let u' = genUUIDInNameSpace gCryptNameSpace gcryptid
-		v <- M.lookup u' <$> readRemoteLog
+		v <- M.lookup u' <$> remoteConfigMap
 		case (Git.remoteName baser, v) of
 			(Just remotename, Just rc') -> do
 				pc <- parsedRemoteConfig remote rc'