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 -r1.18.2.1 --- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl 13 Jan 2005 13:55:28 -0000 1.18 +++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl 8 Jul 2005 10:19:19 -0000 1.18.2.1 @@ -520,7 +520,10 @@ set f [open "|$sendmail" "w"] puts $f "From: $from_addr\nTo: $pretty_to\n$msg" - close $f + set err2 {} + if { [catch {set err1 [close $f]} err2] } { + ns_log Error "Attempt to send From: $from_addr\nTo: $pretty_to\n$msg failed.\nError $err1 : $err2" + } } -finally { } } else {