explicitly open/close folder when appending messages

nakkaya · Aug 18, 2012 · f1c2d23 · f1c2d23
1 parent 0172d68
commit f1c2d23
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/inbox_feed/core.clj b/src/inbox_feed/core.clj
@@ -75,7 +75,9 @@
 
   (defn append-messages [folder messages]
     (when (not (empty? messages))
-      (.appendMessages folder (into-array messages)))))
+      (.open folder javax.mail.Folder/READ_WRITE)
+      (.appendMessages folder (into-array messages))
+      (.close folder false))))
 
 (defn schedule-work
   ([f rate]