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 -N -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 {
 		}
 	    }