From 19be3e593725892f168149a9100904ef97130b90 Mon Sep 17 00:00:00 2001 From: Mark Triggs Date: Sat, 6 Aug 2011 12:51:59 +1000 Subject: [PATCH] Better error handling for NNML files that get deleted before we get to indexing them --- src/net/dishevelled/mailindex/backends/nnml.clj | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/src/net/dishevelled/mailindex/backends/nnml.clj b/src/net/dishevelled/mailindex/backends/nnml.clj index ef54cfe..dcaa12d 100644 --- a/src/net/dishevelled/mailindex/backends/nnml.clj +++ b/src/net/dishevelled/mailindex/backends/nnml.clj @@ -1,6 +1,6 @@ (ns net.dishevelled.mailindex.backends.nnml (:import (java.util Date) - (java.io FileInputStream)) + (java.io FileInputStream IOException)) (:require clojure.set) (:use clojure.java.io)) @@ -13,10 +13,13 @@ (defn- message-bytes "Return the bytes of a message." [^String msg] - (let [out (byte-array (.length (file msg)))] - (with-open [fis (FileInputStream. msg)] - (.read fis out)) - out)) + (try + (let [out (byte-array (.length (file msg)))] + (with-open [fis (FileInputStream. msg)] + (.read fis out)) + out) + (catch IOException _ + (byte-array 0)))) (defn- filename-to-id