X-Git-Url: https://the.earth.li/gitweb/?a=blobdiff_plain;f=autodns.pl;h=ddb237c06155656a9d7ad3314b0464f9f165ad37;hb=764aa0aa77e52fffb8d632760489b3b8cc61db4e;hp=67beb7a92a8f9c65cc003298d9bf0ae2915421ee;hpb=49728c2156cf9a8c6aed03c1484a6664c11283aa;p=autodns.git

diff --git a/autodns.pl b/autodns.pl
index 67beb7a..ddb237c 100755
--- a/autodns.pl
+++ b/autodns.pl
@@ -74,7 +74,7 @@ sub valid_domain($) {
 	my $domain = shift;
 	$domain = lc $domain;
 
-	if ($domain =~ /^(?:[a-z0-9-]+\.)+[a-z]{2,4}$/) {
+	if ($domain =~ /^(?:[a-z0-9-]+\.)+[a-z]{2,6}$/) {
 		return 1;
 	} elsif ($domain =~ /^(?:[0-9\/-]+\.)+in-addr.arpa$/) {
 		return 1;
@@ -252,7 +252,7 @@ if ($entity->parts) {
 } else {
 	# Clear text.
 
-	my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch");
+	my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch --verify");
 
 	# Feed it the mail.
 	print GPGIN $entity->bodyhandle->as_string;