 (ns postal.message
   (:use [clojure.set :only [difference]]
+        [clojure.java.io :only [file]]
         [postal.date :only [make-date]]
         [postal.support :only [do-when make-props]])
   (:import [java.util UUID]

        (add-recipient! jmsg rtype addr))))
  jmsg)

(defn- fileize [x]
  (if (instance? java.io.File x) x (java.io.File. x)))

(declare eval-bodypart eval-multipart)

(defprotocol PartEval (eval-part [part]))

  (condp (fn [test type] (some #(= % type) test)) (:type part)
    [:inline :attachment]
    (let [attachment-part (doto (javax.mail.internet.MimeBodyPart.)
                            (.attachFile (file (:content part)))
                            (.setDisposition (name (:type part))))]
      
      (when (:content-type part)
