Allow underscore in dnslist lookups

[exim.git] / src / src / verify.c

diff --git a/src/src/verify.c b/src/src/verify.c
index 1ead3021671dbfe649158351e19c2143b15f2358..f653b6e0d27f8aef751d9afe04699de613f14a42 100644 (file)
--- a/src/src/verify.c
+++ b/src/src/verify.c
@@ -3038,7 +3038,7 @@ while ((domain = string_nextinlist(&list, &sep, buffer, sizeof(buffer))) != NULL
 
   for (s = domain; *s != 0; s++)
     {
 
   for (s = domain; *s != 0; s++)
     {

-    if (!isalnum(*s) && *s != '-' && *s != '.')
+    if (!isalnum(*s) && *s != '-' && *s != '.' && *s != '_')

       {
       log_write(0, LOG_MAIN, "dnslists domain \"%s\" contains "
         "strange characters - is this right?", domain);
       {
       log_write(0, LOG_MAIN, "dnslists domain \"%s\" contains "
         "strange characters - is this right?", domain);


@@ -3050,7 +3050,7 @@ while ((domain = string_nextinlist(&list, &sep, buffer, sizeof(buffer))) != NULL
 
   if (domain_txt != domain) for (s = domain_txt; *s != 0; s++)
     {
 
   if (domain_txt != domain) for (s = domain_txt; *s != 0; s++)
     {

-    if (!isalnum(*s) && *s != '-' && *s != '.')
+    if (!isalnum(*s) && *s != '-' && *s != '.' && *s != '_')

       {
       log_write(0, LOG_MAIN, "dnslists domain \"%s\" contains "
         "strange characters - is this right?", domain_txt);
       {
       log_write(0, LOG_MAIN, "dnslists domain \"%s\" contains "
         "strange characters - is this right?", domain_txt);