Skip to content

Instantly share code, notes, and snippets.

@mmower
Created July 6, 2014 22:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mmower/301059faaead726285b5 to your computer and use it in GitHub Desktop.
Save mmower/301059faaead726285b5 to your computer and use it in GitHub Desktop.
(ns solr-mail.parsers.mbox
(:import [java.io FileInputSteam]
[org.apache.james.mime4j.parser MimeStreamParser AbstractContentHandler]
[org.apache.james.mime4j.stream MimeConfig]))
(defn mbox-parser
[]
(let [content-handler (proxy [org.apache.james.mime4j.parser.AbstractContentHandler] []
(field [f]
(println "A field! A field!")))
config (MimeConfig.)
parser (doto (MimeStreamParser. config)
(.setContentHandler parser content-handler))]
parser))
(defn parse-mbox
[file]
(let [parser (mbox-parser)]
(with-open [in-stream (FileInputStream. file)]
(.parse parser in-stream))))
;; Caused by: java.lang.ClassNotFoundException: java.io.FileInputSteam, compiling:(solr_mail/parsers/mbox.clj:1:1)
;; at clojure.lang.Compiler.load(Compiler.java:7142)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment