Logging into squeaksource(3)

This snippet is very useful, but it would have to be reapplied when new repos are added:

        repos := (MCWorkingCopy allManagers gather: [:e | e repositoryGroup repositories]) asSet.
        squeaksourceRepos := repos select: [:each |
                (each isKindOf: MCHttpRepository) and: [
                each locationWithTrailingSlash beginsWith: 'http://www.squeaksource.com'] ].
        squeaksourceRepos do: [:each | each user: 'user'; password: 'password'].

I'm imagining an in-image mechanism to provide credentials to various online repos and then new http repos should automatically be fed those credentials.

anObject forReposAt: 'http://www.squeaksource.com' loginAs: 'user' withPassword: 'password'.
And then automatically add this info to new repos at that host.

Sean