     (is (re-find #"User-Agent: Lorem Ipsum" (message->str m)))))
 
 (deftest test-bad-addrs
-  (let [m {:from "foo@bar.dom"
+  (let [m {:from "foo @bar.dom"
            :to "badddz@@@bar.dom"
            :subject "Test"
            :body "Bad recipient!"}]
-    (is (not (re-find #"badddz" (message->str m))))))
+    (is (not (re-find #"badddz" (message->str m))))
+    (is (not (re-find #"foo @bar" (message->str m))))))

      (str out))))

(defn add-recipient! [jmsg rtype addr]
  (try
    (doto jmsg (.addRecipient rtype (InternetAddress. addr)))
    (catch AddressException _)))

(defn add-recipients! [jmsg rtype addrs]
  (when addrs

         (add-recipients! Message$RecipientType/TO (:to msg))
         (add-recipients! Message$RecipientType/CC (:cc msg))
         (add-recipients! Message$RecipientType/BCC (:bcc msg))
         (.setFrom (make-address (:from msg)))
         (.setSubject (:subject msg))
         (.setSentDate (or (:date msg) (make-date)))
         (add-extra! (drop-keys msg standard))
         (add-body! (:body msg))))))

(defn make-fixture [from to & {:keys [tag]}]
