diff --git a/Changes b/Changes
index 147e17e..3267378 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+2002/01/26
+  Allow [1.2.3.4] for the hostname when checking if the dns resolves
+
 
 2002/01/21
   assorted fixes; getting dnsbl's to actually work
diff --git a/qpsmtpd b/qpsmtpd
index 1ce8be5..032aa9c 100755
--- a/qpsmtpd
+++ b/qpsmtpd
@@ -339,6 +339,9 @@ sub check_dnsbl {
 
 sub check_dns {
   my $host = shift;
+
+  return 1 if $host =~ m/^\[(\d{1,3}\.){3}\d{1,3}\]$/;
+
   my $res = new Net::DNS::Resolver;
   return 1 if mx($res, $host);
   my $query = $res->search($host);