Org reader: require abstract environment to use lowercase

src/Text/Pandoc/Readers/Org/Blocks.hs

@@ -191,8 +191,11 @@ orgBlock = try $ do
       "quote"   -> parseBlockLines (fmap B.blockQuote)
       "verse"   -> verseBlock
       "src"     -> codeBlock blockAttrs
-      "abstract"-> metadataBlock
-      _         -> parseBlockLines $
+      _         ->
+        -- case-sensitive checks
+        case blkType of
+          "abstract" -> metadataBlock
+          _ -> parseBlockLines $
                    let (ident, classes, kv) = attrFromBlockAttributes blockAttrs
                    in fmap $ B.divWith (ident, classes ++ [blkType], kv)
  where

test/command/8204.md

@@ -37,3 +37,15 @@ abstract: |
 
 Main text
 ```
+
+Uppercase ABSTRACT environment is not moved to metadata.
+```
+% pandoc --from=org --to=markdown --standalone
+#+BEGIN_ABSTRACT
+Some text.
+#+END_ABSTRACT
+^D
+::: ABSTRACT
+Some text.
+:::
+```