email.clj

(defn get-emails
  "Gets emails from the server and pulls the Java out of them"
  [mfold]
  (let [store (.getStore (:session *session*) 
			 (:proto (:userinfo *session*)))]
    (.connect store 
	      (:in-host (:userinfo *session*)) 
	      (:name (:userinfo *session*)) 
	      (:pass (:userinfo *session*)))
    (let [folder (.getFolder store mfold)]
      (.open folder Folder/READ_ONLY)
      (let [messages (.getMessages folder)
	    mseq (map process-email (seq messages))]
	(.close folder false)
	(.close store)
	mseq))))