 
 (defn set-date [msg date]
   (.setSentDate (get-message msg) date))
+
+(defn get-from [msg]
+  (.getFrom (get-message msg)))
 
 (defn get-subject [msg]
   (.getSubject (get-message msg)))

      (add-recipient msg rtype addr)))
  msg)

(defn set-subject [msg subj]
  (.setSubject (get-message msg) subj))



(deftest all
  (let [date (make-date "yyyy-MM-dd" "2009-01-01")
        msg (make-message {:host "smtp.comcast.net"
                           :from "fee@bar.dom"
                           :to "Foo Bar <foo@bar.dom>"
                           :cc ["baz@bar.dom" "quux@bar.dom"]
                           :date date
                           :subject "Test"
