plumb RemoteGitConfig through to setRemoteCredPair

Remote/External.hs

@@ -241,7 +241,8 @@ handleRequest' lck external req mp responsehandler
 		send $ VALUE value
 	handleRemoteRequest (SETCREDS setting login password) = do
 		c <- liftIO $ atomically $ readTMVar $ externalConfig external
-		c' <- setRemoteCredPair encryptionAlreadySetup c (credstorage setting) $
+		gc <- liftIO $ atomically $ readTMVar $ externalGitConfig external
+		c' <- setRemoteCredPair encryptionAlreadySetup c gc (credstorage setting) $
 			Just (login, password)
 		void $ liftIO $ atomically $ swapTMVar (externalConfig external) c'
 	handleRemoteRequest (GETCREDS setting) = do

Remote/Glacier.hs

@@ -85,7 +85,7 @@ glacierSetup mu mcreds c gc = do
 glacierSetup' :: Bool -> UUID -> Maybe CredPair -> RemoteConfig -> RemoteGitConfig -> Annex (RemoteConfig, UUID)
 glacierSetup' enabling u mcreds c gc = do
 	(c', encsetup) <- encryptionSetup c
-	c'' <- setRemoteCredPair encsetup c' (AWS.creds u) mcreds
+	c'' <- setRemoteCredPair encsetup c' gc (AWS.creds u) mcreds
 	let fullconfig = c'' `M.union` defaults
 	unless enabling $
 		genVault fullconfig gc u

Remote/S3.hs

@@ -124,7 +124,7 @@ s3Setup' new u mcreds c gc
 
 	defaulthost = do
 		(c', encsetup) <- encryptionSetup c
-		c'' <- setRemoteCredPair encsetup c' (AWS.creds u) mcreds
+		c'' <- setRemoteCredPair encsetup c' gc (AWS.creds u) mcreds
 		let fullconfig = c'' `M.union` defaults
 		when new $
 			genBucket fullconfig gc u
@@ -132,7 +132,7 @@ s3Setup' new u mcreds c gc
 
 	archiveorg = do
 		showNote "Internet Archive mode"
-		c' <- setRemoteCredPair noEncryptionUsed c (AWS.creds u) mcreds
+		c' <- setRemoteCredPair noEncryptionUsed c gc (AWS.creds u) mcreds
 		-- Ensure user enters a valid bucket name, since
 		-- this determines the name of the archive.org item.
 		let validbucket = replace " " "-" $

Remote/WebDAV.hs

@@ -91,7 +91,7 @@ webdavSetup mu mcreds c gc = do
 	creds <- maybe (getCreds c' gc u) (return . Just) mcreds
 	testDav url creds
 	gitConfigSpecialRemote u c' "webdav" "true"
-	c'' <- setRemoteCredPair encsetup c' (davCreds u) creds
+	c'' <- setRemoteCredPair encsetup c' gc (davCreds u) creds
 	return (c'', u)
 
 -- Opens a http connection to the DAV server, which will be reused