Index: openacs-4/packages/acs-mail-lite/acs-mail-lite.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/acs-mail-lite.info,v diff -u -r1.14 -r1.15 --- openacs-4/packages/acs-mail-lite/acs-mail-lite.info 19 Oct 2005 17:00:30 -0000 1.14 +++ openacs-4/packages/acs-mail-lite/acs-mail-lite.info 30 Oct 2005 11:53:15 -0000 1.15 @@ -7,15 +7,15 @@ f t - + Eric Lorenzo Timo Hentschel Simplified reliable email transmission with bounce management. 2005-10-19 This package provides a simple ns_sendmail-like interface for sending messages, but queues messages in the database to ensure reliable sending and make sending a message 'transactional'. Prefered over acs-messaging or acs-mail. 0 - + Index: openacs-4/packages/acs-mail-lite/sql/postgresql/acs-mail-lite-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/sql/postgresql/acs-mail-lite-create.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-mail-lite/sql/postgresql/acs-mail-lite-create.sql 14 Jan 2004 15:31:40 -0000 1.2 +++ openacs-4/packages/acs-mail-lite/sql/postgresql/acs-mail-lite-create.sql 30 Oct 2005 11:53:15 -0000 1.3 @@ -55,3 +55,10 @@ notification_time timestamptz default current_timestamp, notification_count integer default 0 ); + +CREATE TABLE acs_mail_lite_reply_prefixes +( + prefix varchar(100) NOT NULL, + package_id int4 NOT NULL, + impl_name varchar(100) NOT NULL +) ; \ No newline at end of file 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 -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"