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"