a bit more cleanup on the UI

diff --git a/Crypt/Monkeysphere/MSVA/MarginalUI.pm b/Crypt/Monkeysphere/MSVA/MarginalUI.pm
index a57a71d10b96eef16d8fde060c2279c31d5e3dd8..a8500387e7f0c11b31bf17a2c44da111a3b5a18d 100755 (executable)
--- a/Crypt/Monkeysphere/MSVA/MarginalUI.pm
+++ b/Crypt/Monkeysphere/MSVA/MarginalUI.pm
@@ -102,12 +102,12 @@
                                                           $_->{key_id},
                                                          ) } @valid_certifiers);
             my $msg = sprintf("The matching key for [%s] is not %svalid.
-----------
+
 The certificate is certified by:
 
 %s
 
-Would you like to temporarily accept this certification?",
+Would you like to temporarily accept this certificate for this peer?",
                               $uid,
                               ('m' == $keyfpr->{val} ? 'fully ' : ''),
                               $certifier_list,
@@ -188,6 +188,8 @@ GnuPG calculated validity: %s",
     $dialog->set_default_icon_from_file($icon_file)
       if (-r $icon_file);
     $dialog->set_default_response('cancel');
+    # set initial kbd input focus on "No" also:
+    ($dialog->get_action_area()->get_children())[1]->grab_focus();
 
     my $response = $dialog->run();
     if ($response eq 'ok') {