6 files changed, 16 insertions, 18 deletions
diff --git a/Codec/MIME/Base64.hs b/Codec/MIME/Base64.hs
index 33fa3b8..f60419b 100644
--- a/Codec/MIME/Base64.hs
+++ b/Codec/MIME/Base64.hs
@@ -4,7 +4,7 @@
 -- Copyright : (c) 2006-2009, Galois, Inc. 
 -- License   : BSD3
 --
--- Maintainer: Sigbjorn Finne <sof@galois.com>
+-- Maintainer: Sigbjorn Finne <sigbjorn.finne@gmail.com>
 -- Stability : provisional
 -- Portability: portable
 --
diff --git a/Codec/MIME/Decode.hs b/Codec/MIME/Decode.hs
index ea1cf00..364e0fb 100644
--- a/Codec/MIME/Decode.hs
+++ b/Codec/MIME/Decode.hs
@@ -4,7 +4,7 @@
 -- Copyright : (c) 2006-2009, Galois, Inc. 
 -- License   : BSD3
 --
--- Maintainer: Sigbjorn Finne <sof@galois.com>
+-- Maintainer: Sigbjorn Finne <sigbjorn.finne@gmail.com>
 -- Stability : provisional
 -- Portability: portable
 --
diff --git a/Codec/MIME/Parse.hs b/Codec/MIME/Parse.hs
index 488331c..df3549f 100644
--- a/Codec/MIME/Parse.hs
+++ b/Codec/MIME/Parse.hs
@@ -4,7 +4,7 @@
 -- Copyright : (c) 2006-2009, Galois, Inc. 
 -- License   : BSD3
 --
--- Maintainer: Sigbjorn Finne <sof@galois.com>
+-- Maintainer: Sigbjorn Finne <sigbjorn.finne@gmail.com>
 -- Stability : provisional
 -- Portability: portable
 --
@@ -12,8 +12,14 @@
 -- 
 --------------------------------------------------------------------
 module Codec.MIME.Parse
-  ( parseMIMEBody
-  , parseMIMEType
+  ( parseMIMEBody    -- :: [(String,String)] -> String -> MIMEValue
+  , parseMIMEType    -- :: String -> Maybe Type
+  , parseMIMEMessage -- :: String -> MIMEValue
+
+  , parseHeaders     -- :: String -> ([(String,String)], String)
+  , parseMultipart   -- :: Type -> String -> (MIMEValue, String)
+  , parseContentType -- :: String -> Maybe Type
+  , splitMulti       -- :: String -> String -> ([MIMEValue], String)
   ) where
 
 import Codec.MIME.Type
@@ -75,7 +81,6 @@ parseContentDisp headers =
                    "form-data"  -> DispFormData
                    _            -> DispOther t
 
-
 processBody :: [(String,String)] -> String -> String
 processBody headers body =
   case lookupField "content-transfer-encoding" headers of
@@ -164,7 +169,6 @@ parseContentType str =
                  Just ctor -> ctor b
                  _ -> Other a b
 
-
 parseParams :: String -> [(String,String)]
 parseParams "" = []
 parseParams (';':xs) =
@@ -199,7 +203,6 @@ mediaTypes =
                           'x':'-':_ -> Extension b
                           _ -> OtherMulti b
 
-
 multipartTypes :: [(String, Multipart)]
 multipartTypes =
   [ ("alternative", Alternative)
@@ -213,7 +216,6 @@ multipartTypes =
   , ("signed",      Signed)
   ]
 
-
 untilMatch :: String -> String -> Maybe String
 untilMatch str xs = go str xs
   where go ""     rs      = Just rs
@@ -227,14 +229,11 @@ matchUntil str xs
   | str `isPrefixOf` xs = ("", drop (length str) xs)
 matchUntil str (x:xs) = let (as,bs) = matchUntil str xs in (x:as,bs)
 
-
-
 isHSpace :: Char -> Bool
 isHSpace c = c == ' ' || c == '\t'
 
 isTSpecial :: Char -> Bool
-isTSpecial x = x `elem` "()<>@,;:\\\"/[]?="
-
+isTSpecial x = x `elem` "()<>@,;:\\\"/[]?=" -- "
 
 dropFoldingWSP :: String -> String
 dropFoldingWSP "" = ""
diff --git a/Codec/MIME/QuotedPrintable.hs b/Codec/MIME/QuotedPrintable.hs
index 92e468a..cdc2266 100644
--- a/Codec/MIME/QuotedPrintable.hs
+++ b/Codec/MIME/QuotedPrintable.hs
@@ -4,11 +4,11 @@
 -- Copyright : (c) 2006-2009, Galois, Inc. 
 -- License   : BSD3
 --
--- Maintainer: Sigbjorn Finne <sof@galois.com>
+-- Maintainer: Sigbjorn Finne <sigbjorn.finne@gmail.com>
 -- Stability : provisional
 -- Portability:
 --
--- 
+-- To and from QP content encoding.
 --
 --------------------------------------------------------------------
 module Codec.MIME.QuotedPrintable 
diff --git a/Codec/MIME/Type.hs b/Codec/MIME/Type.hs
index 998c6b0..5b91b14 100644
--- a/Codec/MIME/Type.hs
+++ b/Codec/MIME/Type.hs
@@ -4,7 +4,7 @@
 -- Copyright : (c) 2006-2009, Galois, Inc. 
 -- License   : BSD3
 --
--- Maintainer: Sigbjorn Finne <sof@galois.com>
+-- Maintainer: Sigbjorn Finne <sigbjorn.finne@gmail.com>
 -- Stability : provisional
 -- Portability: portable
 --
diff --git a/Codec/MIME/Utils.hs b/Codec/MIME/Utils.hs
index 8c4e921..624d433 100644
--- a/Codec/MIME/Utils.hs
+++ b/Codec/MIME/Utils.hs
@@ -4,7 +4,7 @@
 -- Copyright : (c) 2006-2009, Galois, Inc. 
 -- License   : BSD3
 --
--- Maintainer: Sigbjorn Finne <sof@galois.com>
+-- Maintainer: Sigbjorn Finne <sigbjorn.finne@gmail.com>
 -- Stability : provisional
 -- Portability: portable
 --
@@ -30,4 +30,3 @@ findMultipartNamed nm mv =
                    return mv
  where withDispName a (Name b) = a == b
        withDispName _ _ = False
-