Muse reader: do not terminate emphasis on "*" not followed by space

src/Text/Pandoc/Readers/Muse.hs

@@ -807,8 +807,7 @@ emphasisBetween p = try $ trimInlinesF . mconcat
   <$  atStart
   <*  p
   <*  notFollowedBy space
-  <*> many1Till inline (try $ noSpaceBefore *> p)
-  <*  notFollowedBy alphaNum
+  <*> many1Till inline (try $ noSpaceBefore *> p <* notFollowedBy alphaNum)
 
 -- | Parse an inline tag, such as @\<em>@ and @\<strong>@.
 inlineTag :: PandocMonad m

test/Tests/Readers/Muse.hs

@@ -133,6 +133,10 @@ tests =
         "**foo *bar* baz**" =?>
         para (strong (text "foo " <> emph (text "bar") <> text " baz"))
 
+      , "Asterisk between words does not terminate emphasis" =:
+        "*foo*bar*" =?>
+        para (emph $ "foo*bar")
+
       , test emacsMuse "Underline"
         ("_Underline_" =?> para (underlineSpan "Underline"))