<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<!-- Generated by HsColour, http://code.haskell.org/~malcolm/hscolour/ -->
<title>src/Darcs/Email.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>{-# LANGUAGE CPP #-}</span>
<a name="line-2"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Email</span> <span class='hs-layout'>(</span> <span class='hs-varid'>makeEmail</span><span class='hs-layout'>,</span> <span class='hs-varid'>readEmail</span><span class='hs-layout'>,</span> <span class='hs-varid'>formatHeader</span> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-3"></a>
<a name="line-4"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Char</span> <span class='hs-layout'>(</span> <span class='hs-varid'>digitToInt</span><span class='hs-layout'>,</span> <span class='hs-varid'>isHexDigit</span><span class='hs-layout'>,</span> <span class='hs-varid'>ord</span><span class='hs-layout'>,</span> <span class='hs-varid'>intToDigit</span><span class='hs-layout'>,</span> <span class='hs-varid'>isPrint</span><span class='hs-layout'>,</span> <span class='hs-varid'>toUpper</span> <span class='hs-layout'>)</span>
<a name="line-5"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>List</span> <span class='hs-layout'>(</span> <span class='hs-varid'>isInfixOf</span> <span class='hs-layout'>)</span>
<a name="line-6"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Printer</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Doc</span><span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-varop'>$$</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-varop'><+></span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-varop'><></span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>text</span><span class='hs-layout'>,</span> <span class='hs-varid'>empty</span><span class='hs-layout'>,</span> <span class='hs-varid'>packedString</span><span class='hs-layout'>,</span> <span class='hs-varid'>renderPS</span><span class='hs-layout'>)</span>
<a name="line-7"></a>
<a name="line-8"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>ByteStringUtils</span> <span class='hs-layout'>(</span> <span class='hs-varid'>packStringToUTF8</span><span class='hs-layout'>,</span> <span class='hs-varid'>dropSpace</span><span class='hs-layout'>,</span> <span class='hs-varid'>linesPS</span><span class='hs-layout'>,</span> <span class='hs-varid'>betweenLinesPS</span> <span class='hs-layout'>)</span>
<a name="line-9"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>B</span> <span class='hs-layout'>(</span><span class='hs-conid'>ByteString</span><span class='hs-layout'>,</span> <span class='hs-varid'>length</span><span class='hs-layout'>,</span> <span class='hs-varid'>null</span><span class='hs-layout'>,</span> <span class='hs-varid'>tail</span>
<a name="line-10"></a> <span class='hs-layout'>,</span><span class='hs-varid'>drop</span><span class='hs-layout'>,</span> <span class='hs-varid'>head</span><span class='hs-layout'>,</span> <span class='hs-varid'>concat</span><span class='hs-layout'>,</span> <span class='hs-varid'>singleton</span>
<a name="line-11"></a> <span class='hs-layout'>,</span><span class='hs-varid'>pack</span><span class='hs-layout'>,</span> <span class='hs-varid'>append</span><span class='hs-layout'>,</span> <span class='hs-varid'>empty</span><span class='hs-layout'>,</span> <span class='hs-varid'>unpack</span>
<a name="line-12"></a> <span class='hs-layout'>)</span>
<a name="line-13"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-varop'>.</span><span class='hs-conid'>Char8</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>BC</span> <span class='hs-layout'>(</span><span class='hs-varid'>index</span><span class='hs-layout'>,</span> <span class='hs-varid'>head</span><span class='hs-layout'>,</span> <span class='hs-varid'>pack</span><span class='hs-layout'>)</span>
<a name="line-14"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-varop'>.</span><span class='hs-conid'>Internal</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>B</span> <span class='hs-layout'>(</span><span class='hs-varid'>c2w</span><span class='hs-layout'>,</span> <span class='hs-varid'>createAndTrim</span><span class='hs-layout'>)</span>
<a name="line-15"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>IO</span><span class='hs-varop'>.</span><span class='hs-conid'>Unsafe</span> <span class='hs-layout'>(</span> <span class='hs-varid'>unsafePerformIO</span> <span class='hs-layout'>)</span>
<a name="line-16"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span><span class='hs-varop'>.</span><span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Ptr</span><span class='hs-layout'>,</span> <span class='hs-varid'>plusPtr</span> <span class='hs-layout'>)</span>
<a name="line-17"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span><span class='hs-varop'>.</span><span class='hs-conid'>Storable</span> <span class='hs-layout'>(</span> <span class='hs-varid'>poke</span> <span class='hs-layout'>)</span>
<a name="line-18"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Word</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Word8</span> <span class='hs-layout'>)</span>
<a name="line-19"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span> <span class='hs-varid'>fromMaybe</span> <span class='hs-layout'>)</span>
<a name="line-20"></a>
<a name="line-21"></a><a name="lineMax"></a><span class='hs-comment'>-- lineMax is maximum number of characters in an e-mail line excluding the CRLF</span>
<a name="line-22"></a><span class='hs-comment'>-- at the end. qlineMax is the number of characters in a q-encoded or</span>
<a name="line-23"></a><span class='hs-comment'>-- quoted-printable-encoded line.</span>
<a name="line-24"></a><span class='hs-definition'>lineMax</span><span class='hs-layout'>,</span> <span class='hs-varid'>qlineMax</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span>
<a name="line-25"></a><span class='hs-definition'>lineMax</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>78</span>
<a name="line-26"></a><a name="qlineMax"></a><span class='hs-definition'>qlineMax</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>75</span>
<a name="line-27"></a>
<a name="line-28"></a><a name="formatHeader"></a><span class='hs-comment'>-- | Formats an e-mail header by encoding any non-ascii characters using UTF-8</span>
<a name="line-29"></a><span class='hs-comment'>-- and Q-encoding, and folding lines at appropriate points. It doesn't do</span>
<a name="line-30"></a><span class='hs-comment'>-- more than that, so the header name and header value should be</span>
<a name="line-31"></a><span class='hs-comment'>-- well-formatted give or take line length and encoding. So no non-ASCII</span>
<a name="line-32"></a><span class='hs-comment'>-- characters within quoted-string, quoted-pair, or atom; no semantically</span>
<a name="line-33"></a><span class='hs-comment'>-- meaningful signs in names; no non-ASCII characters in the header name;</span>
<a name="line-34"></a><span class='hs-comment'>-- etcetera.</span>
<a name="line-35"></a><span class='hs-definition'>formatHeader</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>
<a name="line-36"></a><span class='hs-definition'>formatHeader</span> <span class='hs-varid'>headerName</span> <span class='hs-varid'>headerValue</span> <span class='hs-keyglyph'>=</span>
<a name="line-37"></a> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>append</span> <span class='hs-varid'>nameColon</span> <span class='hs-varid'>encodedValue</span>
<a name="line-38"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>nameColon</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-layout'>(</span><span class='hs-varid'>headerName</span> <span class='hs-varop'>++</span> <span class='hs-str'>":"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- space for folding</span>
<a name="line-39"></a> <span class='hs-varid'>encodedValue</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>foldAndEncode</span> <span class='hs-layout'>(</span><span class='hs-chr'>' '</span><span class='hs-conop'>:</span><span class='hs-varid'>headerValue</span><span class='hs-layout'>)</span>
<a name="line-40"></a> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>nameColon</span><span class='hs-layout'>)</span> <span class='hs-conid'>False</span> <span class='hs-conid'>False</span>
<a name="line-41"></a>
<a name="line-42"></a><a name="foldAndEncode"></a><span class='hs-comment'>-- run through a string and encode non-ascii words and fold where appropriate.</span>
<a name="line-43"></a><span class='hs-comment'>-- the integer argument is the current position in the current line.</span>
<a name="line-44"></a><span class='hs-comment'>-- the string in the first argument must begin with whitespace, or be empty.</span>
<a name="line-45"></a><span class='hs-definition'>foldAndEncode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>
<a name="line-46"></a><span class='hs-definition'>foldAndEncode</span> <span class='hs-conid'>[]</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span>
<a name="line-47"></a><span class='hs-definition'>foldAndEncode</span> <span class='hs-varid'>s</span> <span class='hs-varid'>p</span> <span class='hs-varid'>lastWordEncoded</span> <span class='hs-varid'>inMidWord</span> <span class='hs-keyglyph'>=</span>
<a name="line-48"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>newline</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>singleton</span> <span class='hs-num'>10</span>
<a name="line-49"></a> <span class='hs-varid'>space</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>singleton</span> <span class='hs-num'>32</span>
<a name="line-50"></a> <span class='hs-varid'>s2bs</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-varop'>.</span> <span class='hs-varid'>map</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span>
<a name="line-51"></a> <span class='hs-comment'>-- the twelve there is the max number of ASCII chars to encode a single</span>
<a name="line-52"></a> <span class='hs-comment'>-- character: 4 * 3, 4 UTF-8 bytes times 3 ASCII chars per byte</span>
<a name="line-53"></a> <span class='hs-varid'>safeEncChunkLength</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>qlineMax</span> <span class='hs-comment'>-</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>encodedWordStart</span>
<a name="line-54"></a> <span class='hs-comment'>-</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>encodedWordEnd</span><span class='hs-layout'>)</span> <span class='hs-varop'>`div`</span> <span class='hs-num'>12</span>
<a name="line-55"></a> <span class='hs-layout'>(</span><span class='hs-varid'>curSpace</span><span class='hs-layout'>,</span> <span class='hs-varid'>afterCurSpace</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>span</span> <span class='hs-layout'>(</span><span class='hs-varop'>==</span> <span class='hs-chr'>' '</span><span class='hs-layout'>)</span> <span class='hs-varid'>s</span>
<a name="line-56"></a> <span class='hs-layout'>(</span><span class='hs-varid'>curWord</span><span class='hs-layout'>,</span> <span class='hs-varid'>afterCurWord</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>break</span> <span class='hs-layout'>(</span><span class='hs-varop'>==</span> <span class='hs-chr'>' '</span><span class='hs-layout'>)</span> <span class='hs-varid'>afterCurSpace</span>
<a name="line-57"></a> <span class='hs-varid'>qEncWord</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>lastWordEncoded</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>qEncode</span> <span class='hs-layout'>(</span><span class='hs-varid'>curSpace</span> <span class='hs-varop'>++</span> <span class='hs-varid'>curWord</span><span class='hs-layout'>)</span>
<a name="line-58"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>qEncode</span> <span class='hs-varid'>curWord</span>
<a name="line-59"></a> <span class='hs-varid'>mustEncode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>inMidWord</span>
<a name="line-60"></a> <span class='hs-varop'>||</span> <span class='hs-varid'>any</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>c</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>isPrint</span> <span class='hs-varid'>c</span><span class='hs-layout'>)</span> <span class='hs-varop'>||</span> <span class='hs-layout'>(</span><span class='hs-varid'>ord</span> <span class='hs-varid'>c</span><span class='hs-layout'>)</span> <span class='hs-varop'>></span> <span class='hs-num'>127</span><span class='hs-layout'>)</span> <span class='hs-varid'>curWord</span>
<a name="line-61"></a> <span class='hs-varop'>||</span> <span class='hs-varid'>length</span> <span class='hs-varid'>curWord</span> <span class='hs-varop'>></span> <span class='hs-varid'>lineMax</span> <span class='hs-comment'>-</span> <span class='hs-num'>1</span>
<a name="line-62"></a> <span class='hs-varop'>||</span> <span class='hs-varid'>isInfixOf</span> <span class='hs-str'>"=?"</span> <span class='hs-varid'>curWord</span>
<a name="line-63"></a> <span class='hs-varid'>mustFold</span>
<a name="line-64"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>mustEncode</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>lastWordEncoded</span>
<a name="line-65"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>p</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span> <span class='hs-varop'>+</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>qEncWord</span> <span class='hs-varop'>></span> <span class='hs-varid'>lineMax</span>
<a name="line-66"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>mustEncode</span>
<a name="line-67"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>p</span> <span class='hs-varop'>+</span> <span class='hs-varid'>length</span> <span class='hs-varid'>curSpace</span> <span class='hs-varop'>+</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>qEncWord</span> <span class='hs-varop'>></span> <span class='hs-varid'>lineMax</span>
<a name="line-68"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span>
<a name="line-69"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>p</span> <span class='hs-varop'>+</span> <span class='hs-varid'>length</span> <span class='hs-varid'>curSpace</span> <span class='hs-varop'>+</span> <span class='hs-varid'>length</span> <span class='hs-varid'>curWord</span> <span class='hs-varop'>></span> <span class='hs-varid'>lineMax</span>
<a name="line-70"></a> <span class='hs-varid'>mustSplit</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>qEncWord</span> <span class='hs-varop'>></span> <span class='hs-varid'>qlineMax</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>mustEncode</span><span class='hs-layout'>)</span>
<a name="line-71"></a> <span class='hs-varop'>||</span> <span class='hs-varid'>length</span> <span class='hs-varid'>curWord</span> <span class='hs-varop'>></span> <span class='hs-varid'>lineMax</span> <span class='hs-comment'>-</span> <span class='hs-num'>1</span>
<a name="line-72"></a> <span class='hs-varid'>spaceToInsert</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>mustEncode</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>lastWordEncoded</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>space</span>
<a name="line-73"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>s2bs</span> <span class='hs-varid'>curSpace</span>
<a name="line-74"></a> <span class='hs-varid'>wordToInsert</span>
<a name="line-75"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>mustEncode</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>mustSplit</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>qEncode</span> <span class='hs-layout'>(</span><span class='hs-varid'>take</span> <span class='hs-varid'>safeEncChunkLength</span> <span class='hs-varid'>curWord</span><span class='hs-layout'>)</span>
<a name="line-76"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>mustEncode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>qEncWord</span>
<a name="line-77"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>s2bs</span> <span class='hs-varid'>curWord</span>
<a name="line-78"></a> <span class='hs-varid'>doneChunk</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>mustFold</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>concat</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>newline</span><span class='hs-layout'>,</span> <span class='hs-varid'>spaceToInsert</span><span class='hs-layout'>,</span> <span class='hs-varid'>wordToInsert</span><span class='hs-keyglyph'>]</span>
<a name="line-79"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>concat</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>spaceToInsert</span><span class='hs-layout'>,</span> <span class='hs-varid'>wordToInsert</span><span class='hs-keyglyph'>]</span>
<a name="line-80"></a> <span class='hs-layout'>(</span><span class='hs-varid'>rest</span><span class='hs-layout'>,</span> <span class='hs-varid'>nextP</span><span class='hs-layout'>)</span>
<a name="line-81"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>mustSplit</span>
<a name="line-82"></a> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>drop</span> <span class='hs-varid'>safeEncChunkLength</span> <span class='hs-varid'>curWord</span> <span class='hs-varop'>++</span> <span class='hs-varid'>afterCurWord</span><span class='hs-layout'>,</span> <span class='hs-varid'>qlineMax</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span><span class='hs-layout'>)</span>
<a name="line-83"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>mustEncode</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>mustFold</span>
<a name="line-84"></a> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>afterCurWord</span><span class='hs-layout'>,</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>spaceToInsert</span> <span class='hs-varop'>+</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>wordToInsert</span><span class='hs-layout'>)</span>
<a name="line-85"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span>
<a name="line-86"></a> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>afterCurWord</span><span class='hs-layout'>,</span> <span class='hs-varid'>p</span> <span class='hs-varop'>+</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>doneChunk</span><span class='hs-layout'>)</span>
<a name="line-87"></a> <span class='hs-keyword'>in</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>append</span> <span class='hs-varid'>doneChunk</span> <span class='hs-layout'>(</span><span class='hs-varid'>foldAndEncode</span> <span class='hs-varid'>rest</span> <span class='hs-varid'>nextP</span> <span class='hs-varid'>mustEncode</span> <span class='hs-varid'>mustSplit</span><span class='hs-layout'>)</span>
<a name="line-88"></a>
<a name="line-89"></a><a name="qEncode"></a><span class='hs-comment'>-- | Turns a piece of string into a q-encoded block</span>
<a name="line-90"></a><span class='hs-comment'>-- Applies q-encoding, for use in e-mail header values, as defined in RFC 2047.</span>
<a name="line-91"></a><span class='hs-comment'>-- It just takes a string and builds an encoded-word from it, it does not check</span>
<a name="line-92"></a><span class='hs-comment'>-- length or necessity.</span>
<a name="line-93"></a><span class='hs-definition'>qEncode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>
<a name="line-94"></a><span class='hs-definition'>qEncode</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>concat</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>encodedWordStart</span><span class='hs-layout'>,</span>
<a name="line-95"></a> <span class='hs-varid'>encodedString</span><span class='hs-layout'>,</span>
<a name="line-96"></a> <span class='hs-varid'>encodedWordEnd</span><span class='hs-keyglyph'>]</span>
<a name="line-97"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>encodedString</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>concat</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>qEncodeChar</span> <span class='hs-varid'>s</span><span class='hs-layout'>)</span>
<a name="line-98"></a>
<a name="line-99"></a><a name="encodedWordStart"></a><span class='hs-definition'>encodedWordStart</span><span class='hs-layout'>,</span> <span class='hs-varid'>encodedWordEnd</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>
<a name="line-100"></a><span class='hs-definition'>encodedWordStart</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-str'>"=?UTF-8?Q?"</span><span class='hs-layout'>)</span>
<a name="line-101"></a><a name="encodedWordEnd"></a><span class='hs-definition'>encodedWordEnd</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-str'>"?="</span><span class='hs-layout'>)</span>
<a name="line-102"></a>
<a name="line-103"></a><a name="qEncodeChar"></a><span class='hs-comment'>-- turns a character into its q-encoded bytestring value. For most printable</span>
<a name="line-104"></a><span class='hs-comment'>-- ASCII characters, that's just the singleton bytestring with that char.</span>
<a name="line-105"></a><span class='hs-definition'>qEncodeChar</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Char</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>
<a name="line-106"></a><span class='hs-definition'>qEncodeChar</span> <span class='hs-varid'>c</span>
<a name="line-107"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>c</span> <span class='hs-varop'>==</span> <span class='hs-chr'>' '</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>c2bs</span> <span class='hs-chr'>'_'</span>
<a name="line-108"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isPrint</span> <span class='hs-varid'>c</span>
<a name="line-109"></a> <span class='hs-varop'>&&</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>c</span> <span class='hs-varop'>`elem`</span> <span class='hs-keyglyph'>[</span><span class='hs-chr'>'?'</span><span class='hs-layout'>,</span> <span class='hs-chr'>'='</span><span class='hs-layout'>,</span> <span class='hs-chr'>'_'</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-110"></a> <span class='hs-varop'>&&</span> <span class='hs-varid'>ord</span> <span class='hs-varid'>c</span> <span class='hs-varop'><</span> <span class='hs-num'>128</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>c2bs</span> <span class='hs-varid'>c</span>
<a name="line-111"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>concat</span>
<a name="line-112"></a> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>qbyte</span>
<a name="line-113"></a> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>unpack</span>
<a name="line-114"></a> <span class='hs-layout'>(</span><span class='hs-varid'>packStringToUTF8</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>c</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-115"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>c2bs</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>singleton</span> <span class='hs-varop'>.</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span>
<a name="line-116"></a> <span class='hs-comment'>-- qbyte turns a byte into its q-encoded "=hh" representation</span>
<a name="line-117"></a> <span class='hs-varid'>qbyte</span> <span class='hs-varid'>b</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-keyglyph'>[</span><span class='hs-chr'>'='</span>
<a name="line-118"></a> <span class='hs-layout'>,</span><span class='hs-varid'>word8ToUDigit</span> <span class='hs-layout'>(</span><span class='hs-varid'>b</span> <span class='hs-varop'>`div`</span> <span class='hs-num'>16</span><span class='hs-layout'>)</span>
<a name="line-119"></a> <span class='hs-layout'>,</span><span class='hs-varid'>word8ToUDigit</span> <span class='hs-layout'>(</span><span class='hs-varid'>b</span> <span class='hs-varop'>`mod`</span> <span class='hs-num'>16</span><span class='hs-layout'>)</span>
<a name="line-120"></a> <span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-121"></a> <span class='hs-varid'>word8ToUDigit</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word8</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Char</span>
<a name="line-122"></a> <span class='hs-varid'>word8ToUDigit</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toUpper</span> <span class='hs-varop'>.</span> <span class='hs-varid'>intToDigit</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fromIntegral</span>
<a name="line-123"></a>
<a name="line-124"></a><a name="qpencode"></a><span class='hs-comment'>-- TODO is this doing mime encoding??</span>
<a name="line-125"></a><span class='hs-definition'>qpencode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>
<a name="line-126"></a><span class='hs-definition'>qpencode</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unsafePerformIO</span>
<a name="line-127"></a> <span class='hs-comment'>-- Really only (3 + 2/75) * length or something in the worst case</span>
<a name="line-128"></a> <span class='hs-varop'>$</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>createAndTrim</span> <span class='hs-layout'>(</span><span class='hs-num'>4</span> <span class='hs-varop'>*</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>s</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>buf</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>encode</span> <span class='hs-varid'>s</span> <span class='hs-varid'>qlineMax</span> <span class='hs-varid'>buf</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span>
<a name="line-129"></a>
<a name="line-130"></a><a name="encode"></a><span class='hs-definition'>encode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>Word8</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span>
<a name="line-131"></a><span class='hs-definition'>encode</span> <span class='hs-varid'>ps</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>bufi</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>null</span> <span class='hs-varid'>ps</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-varid'>bufi</span>
<a name="line-132"></a><span class='hs-definition'>encode</span> <span class='hs-varid'>ps</span> <span class='hs-varid'>n</span> <span class='hs-varid'>buf</span> <span class='hs-varid'>bufi</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>head</span> <span class='hs-varid'>ps</span> <span class='hs-keyword'>of</span>
<a name="line-133"></a> <span class='hs-varid'>c</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>c</span> <span class='hs-varop'>==</span> <span class='hs-varid'>newline</span> <span class='hs-keyglyph'>-></span>
<a name="line-134"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-varid'>bufi</span><span class='hs-layout'>)</span> <span class='hs-varid'>newline</span>
<a name="line-135"></a> <span class='hs-varid'>encode</span> <span class='hs-varid'>ps'</span> <span class='hs-varid'>qlineMax</span> <span class='hs-varid'>buf</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span>
<a name="line-136"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>n</span> <span class='hs-varop'>==</span> <span class='hs-num'>0</span> <span class='hs-varop'>&&</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>ps</span> <span class='hs-varop'>></span> <span class='hs-num'>1</span> <span class='hs-keyglyph'>-></span>
<a name="line-137"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-varid'>bufi</span><span class='hs-layout'>)</span> <span class='hs-varid'>equals</span>
<a name="line-138"></a> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>newline</span>
<a name="line-139"></a> <span class='hs-varid'>encode</span> <span class='hs-varid'>ps</span> <span class='hs-varid'>qlineMax</span> <span class='hs-varid'>buf</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span><span class='hs-layout'>)</span>
<a name="line-140"></a> <span class='hs-keyglyph'>|</span> <span class='hs-layout'>(</span><span class='hs-varid'>c</span> <span class='hs-varop'>==</span> <span class='hs-varid'>tab</span> <span class='hs-varop'>||</span> <span class='hs-varid'>c</span> <span class='hs-varop'>==</span> <span class='hs-varid'>space</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span>
<a name="line-141"></a> <span class='hs-keyword'>if</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>null</span> <span class='hs-varid'>ps'</span> <span class='hs-varop'>||</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>head</span> <span class='hs-varid'>ps'</span> <span class='hs-varop'>==</span> <span class='hs-varid'>newline</span>
<a name="line-142"></a> <span class='hs-keyword'>then</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-varid'>bufi</span><span class='hs-layout'>)</span> <span class='hs-varid'>c</span>
<a name="line-143"></a> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>equals</span>
<a name="line-144"></a> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span><span class='hs-varop'>+</span><span class='hs-num'>2</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>newline</span>
<a name="line-145"></a> <span class='hs-varid'>encode</span> <span class='hs-varid'>ps'</span> <span class='hs-varid'>qlineMax</span> <span class='hs-varid'>buf</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span> <span class='hs-varop'>+</span> <span class='hs-num'>3</span><span class='hs-layout'>)</span>
<a name="line-146"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-varid'>bufi</span><span class='hs-layout'>)</span> <span class='hs-varid'>c</span>
<a name="line-147"></a> <span class='hs-varid'>encode</span> <span class='hs-varid'>ps'</span> <span class='hs-layout'>(</span><span class='hs-varid'>n</span> <span class='hs-comment'>-</span> <span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-varid'>buf</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span><span class='hs-layout'>)</span>
<a name="line-148"></a> <span class='hs-keyglyph'>|</span> <span class='hs-layout'>(</span><span class='hs-varid'>c</span> <span class='hs-varop'>>=</span> <span class='hs-varid'>bang</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>c</span> <span class='hs-varop'>/=</span> <span class='hs-varid'>equals</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>c</span> <span class='hs-varop'><=</span> <span class='hs-varid'>tilde</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span>
<a name="line-149"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-varid'>bufi</span><span class='hs-layout'>)</span> <span class='hs-varid'>c</span>
<a name="line-150"></a> <span class='hs-varid'>encode</span> <span class='hs-varid'>ps'</span> <span class='hs-layout'>(</span><span class='hs-varid'>n</span> <span class='hs-comment'>-</span> <span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-varid'>buf</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span><span class='hs-layout'>)</span>
<a name="line-151"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>n</span> <span class='hs-varop'><</span> <span class='hs-num'>3</span> <span class='hs-keyglyph'>-></span>
<a name="line-152"></a> <span class='hs-varid'>encode</span> <span class='hs-varid'>ps</span> <span class='hs-num'>0</span> <span class='hs-varid'>buf</span> <span class='hs-varid'>bufi</span>
<a name="line-153"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>-></span>
<a name="line-154"></a> <span class='hs-keyword'>do</span> <span class='hs-keyword'>let</span> <span class='hs-layout'>(</span><span class='hs-varid'>x</span><span class='hs-layout'>,</span> <span class='hs-varid'>y</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>c</span> <span class='hs-varop'>`divMod`</span> <span class='hs-num'>16</span>
<a name="line-155"></a> <span class='hs-varid'>h1</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>intToUDigit</span> <span class='hs-varid'>x</span>
<a name="line-156"></a> <span class='hs-varid'>h2</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>intToUDigit</span> <span class='hs-varid'>y</span>
<a name="line-157"></a> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-varid'>bufi</span><span class='hs-layout'>)</span> <span class='hs-varid'>equals</span>
<a name="line-158"></a> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>h1</span>
<a name="line-159"></a> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span><span class='hs-varop'>+</span><span class='hs-num'>2</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>h2</span>
<a name="line-160"></a> <span class='hs-varid'>encode</span> <span class='hs-varid'>ps'</span> <span class='hs-layout'>(</span><span class='hs-varid'>n</span> <span class='hs-comment'>-</span> <span class='hs-num'>3</span><span class='hs-layout'>)</span> <span class='hs-varid'>buf</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span> <span class='hs-varop'>+</span> <span class='hs-num'>3</span><span class='hs-layout'>)</span>
<a name="line-161"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>ps'</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>tail</span> <span class='hs-varid'>ps</span>
<a name="line-162"></a> <span class='hs-varid'>newline</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-chr'>'\n'</span>
<a name="line-163"></a> <span class='hs-varid'>tab</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-chr'>'\t'</span>
<a name="line-164"></a> <span class='hs-varid'>space</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-chr'>' '</span>
<a name="line-165"></a> <span class='hs-varid'>bang</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-chr'>'!'</span>
<a name="line-166"></a> <span class='hs-varid'>tilde</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-chr'>'~'</span>
<a name="line-167"></a> <span class='hs-varid'>equals</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-chr'>'='</span>
<a name="line-168"></a> <span class='hs-varid'>intToUDigit</span> <span class='hs-varid'>i</span>
<a name="line-169"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>i</span> <span class='hs-varop'>>=</span> <span class='hs-num'>0</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>i</span> <span class='hs-varop'><=</span> <span class='hs-num'>9</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-chr'>'0'</span> <span class='hs-varop'>+</span> <span class='hs-varid'>i</span>
<a name="line-170"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>i</span> <span class='hs-varop'>>=</span> <span class='hs-num'>10</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>i</span> <span class='hs-varop'><=</span> <span class='hs-num'>15</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-chr'>'A'</span> <span class='hs-varop'>+</span> <span class='hs-varid'>i</span> <span class='hs-comment'>-</span> <span class='hs-num'>10</span>
<a name="line-171"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-varop'>$</span> <span class='hs-str'>"intToUDigit: '"</span><span class='hs-varop'>++</span><span class='hs-varid'>show</span> <span class='hs-varid'>i</span><span class='hs-varop'>++</span><span class='hs-str'>"'not a digit"</span>
<a name="line-172"></a>
<a name="line-173"></a><a name="qpdecode"></a><span class='hs-definition'>qpdecode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>
<a name="line-174"></a><span class='hs-definition'>qpdecode</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unsafePerformIO</span>
<a name="line-175"></a> <span class='hs-comment'>-- Add 1 as linesPS "\n" -> ["", ""] -> "\n\n"</span>
<a name="line-176"></a> <span class='hs-varop'>$</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>createAndTrim</span> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>s</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>buf</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>decode</span> <span class='hs-layout'>(</span><span class='hs-varid'>linesPS</span> <span class='hs-varid'>s</span><span class='hs-layout'>)</span> <span class='hs-varid'>buf</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span>
<a name="line-177"></a>
<a name="line-178"></a><a name="decode"></a><span class='hs-definition'>decode</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>Word8</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span>
<a name="line-179"></a><span class='hs-definition'>decode</span> <span class='hs-conid'>[]</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>bufi</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-varid'>bufi</span>
<a name="line-180"></a><span class='hs-definition'>decode</span> <span class='hs-layout'>(</span><span class='hs-varid'>ps</span><span class='hs-conop'>:</span><span class='hs-varid'>pss</span><span class='hs-layout'>)</span> <span class='hs-varid'>buf</span> <span class='hs-varid'>bufi</span>
<a name="line-181"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>null</span> <span class='hs-layout'>(</span><span class='hs-varid'>dropSpace</span> <span class='hs-varid'>ps</span><span class='hs-layout'>)</span>
<a name="line-182"></a> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-varid'>bufi</span><span class='hs-layout'>)</span> <span class='hs-varid'>newline</span>
<a name="line-183"></a> <span class='hs-varid'>decode</span> <span class='hs-varid'>pss</span> <span class='hs-varid'>buf</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span>
<a name="line-184"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>is_equals</span> <span class='hs-varop'>&&</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>ps</span> <span class='hs-varop'>>=</span> <span class='hs-num'>3</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>isHexDigit</span> <span class='hs-varid'>c1</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>isHexDigit</span> <span class='hs-varid'>c2</span>
<a name="line-185"></a> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-varid'>bufi</span><span class='hs-layout'>)</span>
<a name="line-186"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWord8</span> <span class='hs-varop'>$</span> <span class='hs-varid'>digitToInt</span> <span class='hs-varid'>c1</span> <span class='hs-varop'>*</span> <span class='hs-num'>16</span> <span class='hs-varop'>+</span> <span class='hs-varid'>digitToInt</span> <span class='hs-varid'>c2</span><span class='hs-layout'>)</span>
<a name="line-187"></a> <span class='hs-varid'>decode</span> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>drop</span> <span class='hs-num'>3</span> <span class='hs-varid'>ps</span><span class='hs-conop'>:</span><span class='hs-varid'>pss</span><span class='hs-layout'>)</span> <span class='hs-varid'>buf</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span>
<a name="line-188"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>is_equals</span> <span class='hs-varop'>&&</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>null</span> <span class='hs-layout'>(</span><span class='hs-varid'>dropSpace</span> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>tail</span> <span class='hs-varid'>ps</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>decode</span> <span class='hs-varid'>pss</span> <span class='hs-varid'>buf</span> <span class='hs-varid'>bufi</span>
<a name="line-189"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-varid'>buf</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-varid'>bufi</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>head</span> <span class='hs-varid'>ps</span><span class='hs-layout'>)</span>
<a name="line-190"></a> <span class='hs-varid'>decode</span> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>tail</span> <span class='hs-varid'>ps</span><span class='hs-conop'>:</span><span class='hs-varid'>pss</span><span class='hs-layout'>)</span> <span class='hs-varid'>buf</span> <span class='hs-layout'>(</span><span class='hs-varid'>bufi</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span>
<a name="line-191"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>is_equals</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>BC</span><span class='hs-varop'>.</span><span class='hs-varid'>head</span> <span class='hs-varid'>ps</span> <span class='hs-varop'>==</span> <span class='hs-chr'>'='</span>
<a name="line-192"></a> <span class='hs-varid'>c1</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>BC</span><span class='hs-varop'>.</span><span class='hs-varid'>index</span> <span class='hs-varid'>ps</span> <span class='hs-num'>1</span>
<a name="line-193"></a> <span class='hs-varid'>c2</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>BC</span><span class='hs-varop'>.</span><span class='hs-varid'>index</span> <span class='hs-varid'>ps</span> <span class='hs-num'>2</span>
<a name="line-194"></a> <span class='hs-varid'>newline</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>c2w</span> <span class='hs-chr'>'\n'</span>
<a name="line-195"></a> <span class='hs-varid'>toWord8</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Word8</span>
<a name="line-196"></a> <span class='hs-varid'>toWord8</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span>
<a name="line-197"></a>
<a name="line-198"></a><a name="makeEmail"></a><span class='hs-definition'>makeEmail</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>String</span><span class='hs-layout'>,</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>Doc</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Doc</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Doc</span>
<a name="line-199"></a><span class='hs-definition'>makeEmail</span> <span class='hs-varid'>repodir</span> <span class='hs-varid'>headers</span> <span class='hs-varid'>mcontents</span> <span class='hs-varid'>mcharset</span> <span class='hs-varid'>bundle</span> <span class='hs-varid'>mfilename</span> <span class='hs-keyglyph'>=</span>
<a name="line-200"></a> <span class='hs-varid'>text</span> <span class='hs-str'>"DarcsURL:"</span> <span class='hs-varop'><+></span> <span class='hs-varid'>text</span> <span class='hs-varid'>repodir</span>
<a name="line-201"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>foldl</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>m</span> <span class='hs-layout'>(</span><span class='hs-varid'>h</span><span class='hs-layout'>,</span><span class='hs-varid'>v</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varop'>$$</span> <span class='hs-layout'>(</span><span class='hs-varid'>text</span> <span class='hs-layout'>(</span><span class='hs-varid'>h</span> <span class='hs-varop'>++</span> <span class='hs-str'>":"</span><span class='hs-layout'>)</span> <span class='hs-varop'><+></span> <span class='hs-varid'>text</span> <span class='hs-varid'>v</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>empty</span> <span class='hs-varid'>headers</span>
<a name="line-202"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"MIME-Version: 1.0"</span>
<a name="line-203"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"Content-Type: multipart/mixed; boundary=\"=_\""</span>
<a name="line-204"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>""</span>
<a name="line-205"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"--=_"</span>
<a name="line-206"></a> <span class='hs-varop'>$$</span> <span class='hs-layout'>(</span><span class='hs-keyword'>case</span> <span class='hs-varid'>mcontents</span> <span class='hs-keyword'>of</span>
<a name="line-207"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>contents</span> <span class='hs-keyglyph'>-></span>
<a name="line-208"></a> <span class='hs-varid'>text</span> <span class='hs-layout'>(</span><span class='hs-str'>"Content-Type: text/plain; charset=\""</span> <span class='hs-varop'>++</span>
<a name="line-209"></a> <span class='hs-varid'>fromMaybe</span> <span class='hs-str'>"x-unknown"</span> <span class='hs-varid'>mcharset</span> <span class='hs-varop'>++</span> <span class='hs-str'>"\""</span><span class='hs-layout'>)</span>
<a name="line-210"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"Content-Transfer-Encoding: quoted-printable"</span>
<a name="line-211"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>""</span>
<a name="line-212"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>packedString</span> <span class='hs-layout'>(</span><span class='hs-varid'>qpencode</span> <span class='hs-layout'>(</span><span class='hs-varid'>renderPS</span> <span class='hs-varid'>contents</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-213"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>""</span>
<a name="line-214"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"--=_"</span>
<a name="line-215"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>empty</span><span class='hs-layout'>)</span>
<a name="line-216"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"Content-Type: text/x-darcs-patch; name=\"patch-preview.txt\""</span>
<a name="line-217"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"Content-Disposition: inline"</span>
<a name="line-218"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"Content-Transfer-Encoding: quoted-printable"</span>
<a name="line-219"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"Content-Description: Patch preview"</span>
<a name="line-220"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>""</span>
<a name="line-221"></a> <span class='hs-varop'>$$</span> <span class='hs-layout'>(</span><span class='hs-keyword'>case</span> <span class='hs-varid'>betweenLinesPS</span> <span class='hs-layout'>(</span><span class='hs-conid'>BC</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"New patches:"</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>BC</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"Context:"</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>renderPS</span> <span class='hs-varid'>bundle</span><span class='hs-layout'>)</span> <span class='hs-keyword'>of</span>
<a name="line-222"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>packedString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>qpencode</span> <span class='hs-varid'>s</span>
<a name="line-223"></a> <span class='hs-comment'>-- this should not happen, but in case it does, keep everything</span>
<a name="line-224"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>packedString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>qpencode</span> <span class='hs-varop'>$</span> <span class='hs-varid'>renderPS</span> <span class='hs-varid'>bundle</span><span class='hs-layout'>)</span>
<a name="line-225"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"--=_"</span>
<a name="line-226"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"Content-Type: application/x-darcs-patch"</span> <span class='hs-varop'><></span>
<a name="line-227"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>case</span> <span class='hs-varid'>mfilename</span> <span class='hs-keyword'>of</span>
<a name="line-228"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>filename</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>text</span> <span class='hs-str'>"; name=\""</span> <span class='hs-varop'><></span> <span class='hs-varid'>text</span> <span class='hs-varid'>filename</span> <span class='hs-varop'><></span> <span class='hs-varid'>text</span> <span class='hs-str'>"\""</span>
<a name="line-229"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>empty</span><span class='hs-layout'>)</span>
<a name="line-230"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"Content-Transfer-Encoding: quoted-printable"</span>
<a name="line-231"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"Content-Disposition: attachment"</span>
<a name="line-232"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"Content-Description: A darcs patch for your repository!"</span>
<a name="line-233"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>""</span>
<a name="line-234"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>packedString</span> <span class='hs-layout'>(</span><span class='hs-varid'>qpencode</span> <span class='hs-layout'>(</span><span class='hs-varid'>renderPS</span> <span class='hs-varid'>bundle</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-235"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"--=_--"</span>
<a name="line-236"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>""</span>
<a name="line-237"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>"."</span>
<a name="line-238"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>""</span>
<a name="line-239"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>text</span> <span class='hs-str'>""</span>
<a name="line-240"></a>
<a name="line-241"></a><a name="readEmail"></a><span class='hs-definition'>readEmail</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>
<a name="line-242"></a><span class='hs-definition'>readEmail</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span>
<a name="line-243"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>betweenLinesPS</span>
<a name="line-244"></a> <span class='hs-layout'>(</span><span class='hs-conid'>BC</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"Content-Description: A darcs patch for your repository!"</span><span class='hs-layout'>)</span>
<a name="line-245"></a> <span class='hs-layout'>(</span><span class='hs-conid'>BC</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"--=_--"</span><span class='hs-layout'>)</span> <span class='hs-varid'>s</span> <span class='hs-keyword'>of</span>
<a name="line-246"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>s</span> <span class='hs-comment'>-- if it wasn't an email in the first place, just pass along.</span>
<a name="line-247"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>s'</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>qpdecode</span> <span class='hs-varid'>s'</span>
<a name="line-248"></a>
</pre></body>
</html>
