From e6f6bf48952006111dff0903937ee2cfe411b2ee Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Thu, 7 Oct 2010 00:30:25 -0400
Subject: [PATCH] a bit more cleanup on the UI

---
 Crypt/Monkeysphere/MSVA/MarginalUI.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Crypt/Monkeysphere/MSVA/MarginalUI.pm b/Crypt/Monkeysphere/MSVA/MarginalUI.pm
index a57a71d..a850038 100755
--- 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') {
-- 
2.26.2