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.18.2.6 -r1.18.2.6.4.1 --- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl 16 Mar 2006 09:45:39 -0000 1.18.2.6 +++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl 14 Jun 2007 12:24:30 -0000 1.18.2.6.4.1 @@ -910,12 +910,14 @@ with_finally -code { db_foreach get_queued_messages {} { with_finally -code { - deliver_mail -to_addr $to_addr -from_addr $from_addr \ + if { [catch {deliver_mail -to_addr $to_addr -from_addr $from_addr \ -subject $subject -body $body -extraheaders $extra_headers \ -bcc $bcc -valid_email_p $valid_email_p \ - -package_id $package_id - - db_dml delete_queue_entry {} + -package_id $package_id} errmsg] } { + ns_log Error "acs_mail_lite::sweeper error sending to $to_addr:\n $errmsg\n" + } else { + db_dml delete_queue_entry {} + } } -finally { } }