apply provider settings when provider is set

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/network/connection.pm b/lib/network/connection.pm
index 5467d6f..dccbefe 100644
--- a/lib/network/connection.pm
+++ b/lib/network/connection.pm
@@ -172,9 +172,16 @@ sub set_provider {
     if ($self->{provider_name} ne N("Unlisted - edit manually")) {
         my @providers_data = $self->get_providers;
         $self->{provider} = $providers_data[0]{$self->{provider_name}};
+        $self->apply_provider_settings($net);
     }
 }
 
+sub apply_provider_settings {
+    my ($self, $net) = @_;
+    $self->guess_protocol($net) if $self->can('guess_protocol');
+    $self->guess_access_settings if $self->can('guess_access_settings');
+}
+
 #- check that $self->can('get_providers') first
 sub get_provider_settings {
     my ($self) = @_;