[bknr-cvs] r2379 - branches/bos/projects/bos/m2

[hhubner at common-lisp.net]

Author: hhubner
Date: Mon Jan 21 11:18:10 2008
New Revision: 2379

Modified:
   branches/bos/projects/bos/m2/mail-generator.lisp
Log:
Ignore errors while deleting print certificate.


Modified: branches/bos/projects/bos/m2/mail-generator.lisp
==============================================================================
--- branches/bos/projects/bos/m2/mail-generator.lisp	(original)
+++ branches/bos/projects/bos/m2/mail-generator.lisp	Mon Jan 21 11:18:10 2008
@@ -222,7 +222,7 @@
 							 :subtype "mixed"
 							 :content parts)
 					  t t))))
-  (when (contract-pdf-pathname contract :print t)
+  (ignore-errors
     (delete-file (contract-pdf-pathname contract :print t))))
 
 (defun mail-print-pdf (contract)
@@ -248,7 +248,8 @@
 				   :encoding :base64
 				   :content (file-contents (contract-pdf-pathname contract :print t)))))
 		       t t)))
-  (delete-file (contract-pdf-pathname contract :print t)))
+  (ignore-errors
+    (delete-file (contract-pdf-pathname contract :print t))))
 
 (defun mail-backoffice-sponsor-data (contract req)
   (with-query-params (req numsqm country email name address date language)