Set-User wipes out email address!

Issue appears to be introduced with #1025.

Example that creates the problem:

```powershell
$user = Get-User -Id "sitecore\test"
$profile = $user.Profile
$identity = $profile.Username
Set-User -Identity $identity -CustomProperties @{ }
```