diff --git a/g10/delkey.c b/g10/delkey.c
--- a/g10/delkey.c
+++ b/g10/delkey.c
@@ -86,14 +86,20 @@
   yes = cpr_get_answer_is_yes (secret? "delete_key.secret.okay": "delete_key.okay",
                                _("Delete this key from the keyring? (y/N) "));
 
-  if (!cpr_enabled() && secret && yes)
+  if (!cpr_enabled() && secret)
     {
       /* I think it is not required to check a passphrase; if the
        * user is so stupid as to let others access his secret
        * keyring (and has no backup) - it is up him to read some
        * very basic texts about security.  */
-      yes = cpr_get_answer_is_yes ("delete_key.secret.okay",
-                                   _("This is a secret key! - really delete? (y/N) "));
+      if (yes)
+        yes = cpr_get_answer_is_yes ("delete_key.secret.okay",
+                                     _("This is a secret key! - really delete? (y/N) "));
+
+      /* Extra confirmation before deleting the user's primary key. */
+      if (yes && pkt->pkttype != PKT_PUBLIC_SUBKEY)
+        yes = cpr_get_answer_is_yes ("delete_key.secret.primary.okay",
+                                     _("This is the primary key! - really delete? (y/N) "));
     }
 
   return yes;
diff --git a/po/pt.po b/po/pt.po
--- a/po/pt.po
+++ b/po/pt.po
@@ -1660,6 +1660,10 @@
 msgid "This is a secret key! - really delete? (y/N) "
 msgstr "Esta chave é secreta! - apagar de qualquer modo? "
 
+#, fuzzy
+msgid "This is the primary key! - really delete? (y/N) "
+msgstr "Esta chave é primária! - apagar de qualquer modo? "
+
 #, fuzzy, c-format
 msgid "deleting secret %s failed: %s\n"
 msgstr "remoção do bloco de chave falhou: %s\n"