org-list-to-subtree strange behaviour

[Robert Klein <roklein@roklein.de>]

Hi,

I'm trying to use org-list-to-subtree in a publishing projects
sitemap-function.

However, the org-list-to-subtree function only returns the first entry.

That is, when I run

(org-list-to-subtree  l '(:istart "** "))

after setting the variable l (see below, I didn't want the
120+ lines interrupting this text) , I get this result:


"**   [[file: openbsd-pxe.org][OpenBSD deployment via PXE]]
#+begin_article-info
#+BEGIN_date
2017-09-10
#+END_date
#+BEGIN_tags
OpenBSD, PXE, Installation, Deployment
#+END_tags
#+begin_article-info

"

where I expected all nine entries in the list.


It works for simple lists, e.g.

  (setq l '(unordered
            ("alpha")
            ("beta")
            ("gamma")))

results in

"** alpha
** beta
** gamma"

which is about what I expect.

Any Ideas?


Thank you very much!

Best regards
Robert



(setq l
'(unordered ("
[[file: openbsd-pxe.org][OpenBSD deployment via PXE]]
#+begin_article-info
#+begin_date
2017-09-10
#+end_date
#+begin_tags
OpenBSD, PXE, Installation, Deployment
#+end_tags
#+begin_article-info


#+INCLUDE: \"openbsd-pxe.org::lead\"

[[file:openbsd-pxe.org]][Read more]]
") ("
[[file: dhcp-to-fixed-ip.org][Change from DHCP to fixed IP during
autoYaST]] #+begin_article-info
#+begin_date
2017-09-10
#+end_date
#+begin_tags
SUSE, autoYaST, DHCP, network configuration
#+end_tags
#+begin_article-info


#+INCLUDE: \"dhcp-to-fixed-ip.org::lead\"

[[file:dhcp-to-fixed-ip.org]][Read more]]
") ("
[[file: ksh93-getopts.org][Man-Page mit ksh93 getopts]]
#+begin_article-info
#+begin_date
2017-09-06
#+end_date
#+begin_tags
nil
#+end_tags
#+begin_article-info


#+INCLUDE: \"ksh93-getopts.org::lead\"

[[file:ksh93-getopts.org]][Read more]]
") ("
[[file: autoyast-group-ids.org][Assigning group IDs with autoYaST]]
#+begin_article-info
#+begin_date
2017-06-03
#+end_date
#+begin_tags
nil
#+end_tags
#+begin_article-info


#+INCLUDE: \"autoyast-group-ids.org::lead\"

[[file:autoyast-group-ids.org]][Read more]]
") ("
[[file: derived-exporter.org][Deriving a Back-End]]
#+begin_article-info
#+begin_date
2017-06-03
#+end_date
#+begin_tags
nil
#+end_tags
#+begin_article-info


#+INCLUDE: \"derived-exporter.org::lead\"

[[file:derived-exporter.org]][Read more]]
") ("
[[file: freebsd-pxe.org][FreeBSD deployment via PXE]]
#+begin_article-info
#+begin_date
2017-06-03
#+end_date
#+begin_tags
nil
#+end_tags
#+begin_article-info


#+INCLUDE: \"freebsd-pxe.org::lead\"

[[file:freebsd-pxe.org]][Read more]]
") ("
[[file: htdig.org][ht://Dig]]
#+begin_article-info
#+begin_date
2017-06-03
#+end_date
#+begin_tags
nil
#+end_tags
#+begin_article-info


#+INCLUDE: \"htdig.org::lead\"

[[file:htdig.org]][Read more]]
") ("
[[file: index.org][xyzzy.de — Robert's weblog]]
#+begin_article-info
#+begin_date
2017-06-03
#+end_date
#+begin_tags
nil
#+end_tags
#+begin_article-info


#+INCLUDE: \"index.org::lead\"

[[file:index.org]][Read more]]
") ("
[[file: ox-blog-example.org][ox-blog example post]]
#+begin_article-info
#+begin_date
2017-06-03
#+end_date
#+begin_tags
nil
#+end_tags
#+begin_article-info


#+INCLUDE: \"ox-blog-example.org::lead\"

[[file:ox-blog-example.org]][Read more]]
")))