--- util/exiqsumm.orig	Thu Nov 12 17:54:17 1998
+++ util/exiqsumm	Thu Nov 12 17:55:39 1998
@@ -83,5 +83,5 @@
 # pick off the first domain.
 
-elsif (/^\s+[^@]*\@([\w\d\.\-]*)/)
+elsif (/^\s+[^@]*\@([\w\.\-]+|\[(\d+\.){3}\d+\])/)
   {
   $domain = "\L$1";
