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 -N -r1.3 -r1.4
--- openacs-4/packages/notifications/tcl/notification-email-procs.tcl	29 Jun 2002 00:21:11 -0000	1.3
+++ openacs-4/packages/notifications/tcl/notification-email-procs.tcl	1 Jul 2002 19:35:30 -0000	1.4
@@ -26,7 +26,11 @@
         {-object_id:required}
         {-type_id:required}
     } {
-        return "notification-$object_id-$type_id@[address_domain]"
+        if {[empty_string_p $object_id] || [empty_string_p $type_id]} {
+            return "notification"
+        } else {
+            return "notification-$object_id-$type_id@[address_domain]"
+        }
     }
 
     ad_proc -public parse_reply_address {