Index: openacs-4/packages/notifications/tcl/notification-reply-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-reply-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/notifications/tcl/notification-reply-procs.tcl	3 Jun 2002 08:13:18 -0000	1.1
+++ openacs-4/packages/notifications/tcl/notification-reply-procs.tcl	25 Jun 2002 18:58:06 -0000	1.2
@@ -10,30 +10,6 @@
 
 namespace eval notification::reply {
 
-    ad_proc -public reply_address_domain {} {
-        return "openforce.net"
-    }
-
-    ad_proc -public reply_address {
-        {-object_id:required}
-        {-type_id:required}
-    } {
-        return "notification-$object_id-$type_id@[reply_address_domain]"
-    }
-
-    ad_proc -public parse_reply_address {
-        {-reply_address:required}
-    } {
-        This takes a reply address, checks it for consistency, and returns a list of object_id and type_id
-    } {
-        # Check the format and extract type_id and object_id at the same time
-        if {![regexp {^notification-([0-9]*)-([0-9]*)@} $reply_address all object_id type_id]} {
-            return ""
-        }
-
-        return [list $object_id $type_id]
-    }
-
     ad_proc -public new {
         {-reply_id ""}
         {-object_id:required}