change default algo

Ezmlm-Gpg/trunk/Gpg.pm

@@ -562,9 +562,9 @@ sub generate_private_key {
 	my $gpgoption = "--gen-key";
 	my $gpgcommand = $gpg->gpgbin() . " " . $gpg->gpgopts() . " $gpgoption";
 	my $pid = open(INPUT, "| $gpgcommand");
-	print INPUT "Key-Type: default\n";
+	print INPUT "Key-Type: RSA\n";
 	print INPUT "Key-Length: 4096\n";
-	print INPUT "Subkey-Type: default\n";
+	print INPUT "Subkey-Type: RSA\n";
 	print INPUT "Subkey-Length: $keysize\n";
 	print INPUT "Name-Real: $name\n";
 	print INPUT "Name-Comment: $comment\n" if ($comment);