Index: openacs-4/packages/project-manager/tcl/project-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-manager-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/project-manager/tcl/project-manager-procs.tcl	19 Dec 2005 20:06:26 -0000	1.8
+++ openacs-4/packages/project-manager/tcl/project-manager-procs.tcl	28 Dec 2005 18:22:59 -0000	1.9
@@ -868,16 +868,3 @@
 	return "${prefix}-${project_id}@[parameter::get_from_package_key -package_key acs-mail-lite -parameter BounceDomain]"
     }
 }
-
-ad_proc -public pm::util::parse_reply_address {
-    {-reply_address:required}
-} {
-    set prefix [parameter::get -parameter "EnvelopePrefix"]
-    set prefix "p"
-    set regexp_str "^${prefix}-(\[0-9\]+)\@"
-    if {![regexp $regexp_str $reply_address all project_id]} {
-	    ns_log Notice "MYPACKAGE: invalid reply_address"
-            return ""
-    }
-    return $project_id
-}
\ No newline at end of file