Index: openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/Attic/incoming-mail-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl	17 Oct 2010 21:06:08 -0000	1.5
+++ openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl	30 Mar 2013 19:07:23 -0000	1.6
@@ -108,7 +108,7 @@
 	    }
 
             #let's delete the file now
-            if {[catch {ns_unlink $msg} errmsg]} {
+            if {[catch {file delete $msg} errmsg]} {
                 ns_log Error "load_mails: unable to delete queued message $msg: $errmsg"
             } else {
 		ns_log Debug "load_mails: deleted $msg"
@@ -172,8 +172,8 @@
 	    set stream [open $file]
 	    set content [read $stream]
 	    close $stream
-	    ns_log error "$content"
-	    ns_unlink $file
+	    ns_log error $content
+	    file delete $file
 	    return
 	}