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.10 -r1.11
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	3 Dec 2006 13:23:24 -0000	1.10
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	22 Dec 2006 07:57:43 -0000	1.11
@@ -131,50 +131,3 @@
     }
 }
 
-ad_proc -public -callback subsite::parameter_changed -impl acs-mail-lite {
-    -package_id:required
-    -parameter:required
-    -value:required
-} {
-    Implementation of subsite::parameter_changed for acs-mail-lite.
-    All packages that implement the callback acs_mail_lite::incoming_email require to provide
-    a package parameter called EnvelopePrefix. As soon as a site admin sets this parameter
-    this callback here is called to put that information in the mapping table acs_mail_lite_reply_tokens.
-    This table allows acs-mail-lite to inform the implementation directly.
-    
-    In order to allow packages listening to mails sent out by notifications we also listen to the parameter
-    ProcessNotificationRepliesP.
-    
-    @author Nima Mazloumi (nima.mazloumi@gmx.de)
-    @creation-date 2005-08-17
-    
-    @param package_id the package_id of the package the parameter was changed for
-    @param parameter  the parameter name
-    @param value      the new value
-    
-} {
-    ns_log Debug "subsite::parameter_changed -impl acs-mail-lite called for $parameter"
-    
-    set empty_p [empty_string_p $value]
-    
-    set package_key [apm_package_key_from_id $package_id]
-    
-    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"
-		db_dml remove_entry {}
-	    } else {
-		ns_log Notice "subsite::parameter_changed -impl acs-mail-lite prefix: changing prefix $prefix to $value"
-		db_dml update_entry {}
-	    }
-	} else {
-	    if {!$empty_p} {
-		ns_log Notice "subsite::parameter_changed -impl acs-mail-lite prefix: creating new prefix $value for package_id $package_id"
-		db_dml insert_entry {}
-	    }
-	}
-    } else {
-	ns_log Debug "subsite::parameter_changed -impl acs-mail-lite don't care about $parameter"
-    }
-}