Index: openacs-4/packages/notifications/tcl/notification-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-email-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/notifications/tcl/notification-email-procs.tcl	28 Aug 2003 09:41:58 -0000	1.13
+++ openacs-4/packages/notifications/tcl/notification-email-procs.tcl	22 Sep 2003 19:25:18 -0000	1.14
@@ -28,7 +28,9 @@
             # This may not find anything, but at least it's worth a try
             if { ![regexp {^(https?://)?(www\.)?([^/]*)} [ad_url] match ignore ignore domain] } {
                 ns_log Warning "notification::email::address_domain: Couldn't find an email domain for notifications."
-            }
+            } else {
+		regsub -nocase {(.*):.*} $domain "\\1" domain
+	    }
         }
         return $domain
     }