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.23 -r1.24
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	21 Jun 2005 17:33:26 -0000	1.23
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	21 Jun 2005 23:24:56 -0000	1.24
@@ -520,9 +520,11 @@
                     # substitute all "\r\n" with "\n", because piped text should only contain "\n"
                     regsub -all "\r\n" $msg "\n" msg
 
-		    set f [open "|$sendmail" "w"]
+		    if {[catch {set f [open "|$sendmail" "w"]
 		    puts $f "From: $from_addr\nTo: $pretty_to\n$msg"
-		    close $f
+			close $f}]} {
+			ns_log Notice "Mail Not Send $from_addr .... $pretty_to"
+		    } 
 		} -finally {
 		}
 	    } else {