diff options
| author | tv <tv@shackspace.de> | 2014-12-28 21:18:11 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2014-12-28 21:18:11 +0100 |
| commit | 471e376a3d4a0257a2f27fa067fcb4f707cc7e6d (patch) | |
| tree | ed0e072b5fbf0eb047b07315fc7dff572c53f55a | |
| parent | 7ade7aa2138b410d289e159408795ea74febf137 (diff) | |
add empty line between mail header and body
| -rw-r--r-- | TreeView.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/TreeView.hs b/TreeView.hs index 8a3aebb..ed91ce8 100644 --- a/TreeView.hs +++ b/TreeView.hs @@ -145,7 +145,7 @@ xconvPartContent :: Message -> MessagePart -> MessageContent -> Forest TreeView xconvPartContent m p = \case ContentText t -> - map (xconvLine m p) $ zip [0..] (T.lines t) + map (xconvLine m p) (zip [0..] ("" : T.lines t)) ContentMultipart parts -> map (xconvPart2 m) parts -- [Node (TVMessageLine m p 0 "ContentMultipart") []] |