Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v diff -u -r1.90 -r1.90.2.1 --- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl 4 May 2011 10:27:40 -0000 1.90 +++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl 28 Aug 2013 22:53:44 -0000 1.90.2.1 @@ -312,10 +312,10 @@ -use_sender_p $use_sender_p } errMsg] if {$err} { - ns_log Error "Error while sending queued mail: $errMsg" - # release the lock - set locking_server "" - db_dml lock_queued_message {} + ns_log Error "Could not send queued mail (message $return_id): $errMsg" + # release the lock (MS not now) + # set locking_server "" + # db_dml lock_queued_message {} } else { # mail was sent, delete the queue entry db_dml delete_queue_entry {}