Configurable header in Email mode

1 files changed, 1 insertions, 1 deletions

diff --git a/Email.hs b/Email.hs
index 4d310c4..659d96b 100644
--- a/Email.hs
+++ b/Email.hs
@@ -17,7 +17,7 @@ getBody msg =
     Single c -> c
     Multi mvs -> case firstTextPart mvs of
       Just mv -> unwrapContent . mime_val_content $ mv
-      Nothing -> "Buggity Buggity Buggity!"
+      Nothing -> "This email has no displayable content."
   where
     unwrapContent (Single c) = c