Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	28 Oct 2005 18:54:34 -0000	1.6
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	30 Oct 2005 11:53:15 -0000	1.7
@@ -144,10 +144,7 @@
     
     set package_key [apm_package_key_from_id $package_id]
     
-    if {0} {
-	# The stuff below does not work
-	#    if {[string equal "EnvelopePrefix" $parameter] || [string equal "EmailReplyAddressPrefix" $parameter]} {
-	# }
+    if {[string equal "EnvelopePrefix" $parameter] || [string equal "EmailReplyAddressPrefix" $parameter]} {
 	if {[db_0or1row entry_exists {}]} {
 	    if { $empty_p } {
 		ns_log Notice "subsite::parameter_changed -impl acs-mail-lite prefix: removing prefix $prefix"