   ([addr name-str]
      (try (InternetAddress. addr name-str)
           (catch Exception _))))
+
+(defn make-addresses [addresses]
+  (if (string? addresses)
+    (recur [addresses])
+    (into-array InternetAddress (map make-address addresses))))
 
 (defn message->str [msg]
   (with-open [out (java.io.ByteArrayOutputStream.)]

         (.setFrom (if-let [sender (:sender msg)]
                     (make-address (:from msg) sender)
                     (make-address (:from msg))))
         (.setSubject (:subject msg))
         (.setSentDate (or (:date msg) (make-date)))
         (add-extra! (drop-keys msg standard))

                         (Session/getInstance props)))]
       (make-jmessage msg session)))
  ([msg session]
     (let [standard [:from :reply-to :to :cc :bcc :date :subject :body]
           jmsg (MimeMessage. session)]
       (doto jmsg
         (add-recipients! Message$RecipientType/TO (:to msg))
