From ac5a65d8adc1d9a683327165057493d9cba6fdb8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Tue, 3 Sep 2013 10:16:07 -0300 Subject: Configurable header in Email mode --- Email.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Email.hs') 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 -- cgit v1.2.3