Org writer: don't allow fn refs to wrap to beginning of line.

Otherwise they can be interpreted as footnote definitions.

Closes #4171.

src/Text/Pandoc/Writers/Org.hs

@@ -308,7 +308,11 @@ blockListToOrg blocks = vcat <$> mapM blockToOrg blocks
 inlineListToOrg :: PandocMonad m
                 => [Inline]
                 -> Org m Doc
-inlineListToOrg lst = hcat <$> mapM inlineToOrg lst
+inlineListToOrg lst = hcat <$> mapM inlineToOrg (fixNotes lst)
+  where fixNotes [] = []  -- prevent note ref from wrapping, see #4171
+        fixNotes (Space : n@Note{} : rest) =
+          Str " " : n : fixNotes rest
+        fixNotes (x : rest) = x : fixNotes rest
 
 -- | Convert Pandoc inline element to Org.
 inlineToOrg :: PandocMonad m => Inline -> Org m Doc

test/command/4171.md

@@ -0,0 +1,11 @@
+```
+% pandoc -f org -t org
+Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa [fn:1] a
+
+[fn:1] b
+^D
+Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa [fn:1]
+a
+
+[fn:1] b
+```