@@ -1823,6 +1823,11 @@ normalCite = try $ do
18231823
18241824citeKey :: MarkdownParser (Bool, String)
18251825citeKey = try $ do
1826+ -- make sure we're not right after an alphanumeric,
1827+ -- since foo@bar.baz is probably an email address
1828+ lastStrPos <- stateLastStrPos <$> getState
1829+ pos <- getPosition
1830+ guard $ lastStrPos /= Just pos
18261831 suppress_author <- option False (char '-' >> return True)
18271832 char '@'
18281833 first <- letter