[bknr-cvs] hans changed trunk/projects/bos/m2/mail-generator.lisp

[BKNR Commits]

Revision: 4005
Author: hans
URL: http://bknr.net/trac/changeset/4005

Fix emailing for non-german contracts :(

U   trunk/projects/bos/m2/mail-generator.lisp

Modified: trunk/projects/bos/m2/mail-generator.lisp
===================================================================
--- trunk/projects/bos/m2/mail-generator.lisp	2008-10-16 19:46:41 UTC (rev 4004)
+++ trunk/projects/bos/m2/mail-generator.lisp	2008-10-16 20:13:37 UTC (rev 4005)
@@ -238,7 +238,7 @@
 
 (defun mail-contract-data (contract type mime-parts)
   (let ((parts mime-parts))
-    (unless (contract-download-only-p contract)
+    (when (probe-file (contract-pdf-pathname contract :print t))
       (setf parts (append parts
                           (list (make-instance 'mime
                                                :type "application"