Org reader: require abstract environment to use lowercase

2 files changed, 17 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs
index ac2af1476..fb586f67d 100644
--- a/src/Text/Pandoc/Readers/Org/Blocks.hs
+++ b/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
diff --git a/test/command/8204.md b/test/command/8204.md
index 8e30e9543..a04b5dbe2 100644
--- a/test/command/8204.md
+++ b/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.
+:::
+```