Added a few more recognized abbreviations to 'abbrev' parser.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1300 788f1e2b-df1e-0410-8736-df70ead52e1b

Text/Pandoc/Readers/Markdown.hs

@@ -809,7 +809,8 @@ assumedAbbrev = try $ do
 -- by a capital letter (such as a name).
 knownAbbrev = try $ do
   result <- oneOfStrings [ "Mr", "Mrs", "Ms", "Capt", "Dr", "Prof", "Gen",
-                           "Gov", "e.g", "i.e", "Sgt", "St", "vol", "vs" ]
+                           "Gov", "e.g", "i.e", "Sgt", "St", "vol", "vs",
+                           "Sen", "Rep", "Pres", "Hon", "Rev" ]
   string ". "
   return result