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)