added exception catching for badly formatted to email addresses

zippy · Oct 29, 2011 · 8b53976 · 8b53976
1 parent 0505e3f
commit 8b53976
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/anansi/streamscapes/channels/email_bridge_in.clj b/src/anansi/streamscapes/channels/email_bridge_in.clj
@@ -44,7 +44,9 @@
         ids (get-scape ss :id)
         da (s-> address->resolve ids id)]
     (if (empty? da)
-      (let [recipients (.getRecipients message javax.mail.Message$RecipientType/TO)
+      (let [recipients (try (.getRecipients message javax.mail.Message$RecipientType/TO)
+                            (catch Exception e [(javax.mail.internet.InternetAddress. (str "\"" e "\" <_err_@unknown.err>"))])
+                            )
             [to to-name] (parseInternetAddress (first recipients))
             [from from-name] (parseInternetAddress
                       (first (try (.getFrom message)