[Orgmode] Bug in latest version?

[Sébastien Vauban]

Hello,

I just updated my Org (git version).

I may have made a mistake somewhere else, but I think there is a bug
introduced recently:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument listp "* Letters")
  car("* Letters")
  mapcar(car ("* Letters" "** Latin" ("Agrave" "\\`{A}" nil "&Agrave;" "A" "À" 
"À") ("agrave" "\\`{a}" nil "&agrave;" "a" "à" "à") ("Aacute" "\\'{A}" nil 
"&Aacute;" "A" "Á" "Á") ("aacute" "\\'{a}" nil "&aacute;" "a" "á" "á") ("Acirc" 
"\\^{A}" nil "&Acirc;" "A" "Â" "Â") ("acirc" "\\^{a}" nil "&acirc;" "a" "â" 
"â") ("Atilde" "\\~{A}" nil "&Atilde;" "A" "Ã" "Ã") ("atilde" "\\~{a}" nil 
"&atilde;" "a" "ã" "ã") ("Auml" "\\\"{A}" nil "&Auml;" "Ae" "Ä" "Ä") ("auml" 
"\\\"{a}" nil "&auml;" "ae" "ä" "ä") ("Aring" "\\AA{}" nil "&Aring;" "A" "Å" 
"Å") ("AA" "\\AA{}" nil "&Aring;" "A" "Å" "Å") ("aring" "\\aa{}" nil "&aring;" 
"a" "å" "å") ("AElig" "\\AE{}" nil "&AElig;" "AE" "Æ" "Æ") ("aelig" "\\ae{}" 
nil "&aelig;" "ae" "æ" "æ") ("Ccedil" "\\c{C}" nil "&Ccedil;" "C" "Ç" "Ç") 
("ccedil" "\\c{c}" nil "&ccedil;" "c" "ç" "ç") ("Egrave" "\\`{E}" nil 
"&Egrave;" "E" "È" "È") ("egrave" "\\`{e}" nil "&egrave;" "e" "è" "è") 
("Eacute" "\\'{E}" nil "&Eacute;" "E" "É" "É") ("eacute" "\\'{e}" nil 
"&eacute;" "e" "é" "é") ("Ecirc" "\\^{E}" nil "&Ecirc;" "E" "Ê" "Ê") ("ecirc" 
"\\^{e}" nil "&ecirc;" "e" "ê" "ê") ("Euml" "\\\"{E}" nil "&Euml;" "E" "Ë" "Ë") 
("euml" "\\\"{e}" nil "&euml;" "e" "ë" "ë") ("Igrave" "\\`{I}" nil "&Igrave;" 
"I" "Ì" "Ì") ("igrave" "\\`{i}" nil "&igrave;" "i" "ì" "ì") ("Iacute" "\\'{I}" 
nil "&Iacute;" "I" "Í" "Í") ("iacute" "\\'{i}" nil "&iacute;" "i" "í" "í") 
("Icirc" "\\^{I}" nil "&Icirc;" "I" "Î" "Î") ("icirc" "\\^{i}" nil "&icirc;" 
"i" "î" "î") ("Iuml" "\\\"{I}" nil "&Iuml;" "I" "Ï" "Ï") ("iuml" "\\\"{i}" nil 
"&iuml;" "i" "ï" "ï") ("Ntilde" "\\~{N}" nil "&Ntilde;" "N" "Ñ" "Ñ") ("ntilde" 
"\\~{n}" nil "&ntilde;" "n" "ñ" "ñ") ("Ograve" "\\`{O}" nil "&Ograve;" "O" "Ò" 
"Ò") ("ograve" "\\`{o}" nil "&ograve;" "o" "ò" "ò") ("Oacute" "\\'{O}" nil 
"&Oacute;" "O" "Ó" "Ó") ("oacute" "\\'{o}" nil "&oacute;" "o" "ó" "ó") ("Ocirc" 
"\\^{O}" nil "&Ocirc;" "O" "Ô" "Ô") ("ocirc" "\\^{o}" nil "&ocirc;" "o" "ô" 
"ô") ("Otilde" "\\~{O}" nil "&Otilde;" "O" "Õ" "Õ") ("otilde" "\\~{o}" nil 
"&otilde;" "o" "õ" "õ") ("Ouml" "\\\"{O}" nil "&Ouml;" "Oe" "Ö" "Ö") ("ouml" 
"\\\"{o}" nil "&ouml;" "oe" "ö" "ö") ("Oslash" "\\O" nil "&Oslash;" "O" "Ø" 
"Ø") ("oslash" "\\o{}" nil "&oslash;" "o" "ø" "ø") ("OElig" "\\OE{}" nil 
"&OElig;" "OE" "OE" "Œ") ...))
  org-compute-latex-and-specials-regexp()
  org-set-regexps-and-options()
  org-mode()
  org-get-local-variables()
  orgstruct-setup()
  orgstruct-mode(1)
  turn-on-orgstruct()
  (progn (turn-on-orgtbl) (turn-on-orgstruct) (turn-on-orgstruct++))
  (if (locate-library "org.el") (progn (turn-on-orgtbl) (turn-on-orgstruct) 
(turn-on-orgstruct++)))
  (when (locate-library "org.el") (turn-on-orgtbl) (turn-on-orgstruct) 
(turn-on-orgstruct++))
  my-message-mode-hook()
  run-hooks(text-mode-hook message-mode-hook)
  apply(run-hooks (text-mode-hook message-mode-hook))
  run-mode-hooks(message-mode-hook)
  message-mode()
  message-pop-to-buffer("*mail*" nil)
  message-mail()
  gnus-group-mail(nil)
  call-interactively(gnus-group-mail nil nil)
--8<---------------cut here---------------end--------------->8---

That's what I got when trying to compose a new mail in Gnus.

Adding `-XXX' in the `locate-library' below temporarily fixes the problem.

--8<---------------cut here---------------start------------->8---
;; operates on messages you send
(defun my-message-mode-hook ()

;;;   ;; prompt for and insert a mail alias
;;;   (local-set-key (kbd "M-a") 'mail-abbrev-insert-alias)

  ;; tab completion for alias in `.mailrc'
  (local-set-key (kbd "M-TAB") 'mail-abbrev-complete-alias)

  ;; enable automatic word-wrap when composing messages
  (setq fill-column 78)
  (turn-on-auto-fill)

  ;; footnote
  (footnote-mode)
  (setq footnote-spaced-footnotes nil)
  (setq footnote-section-tag "")
  (setq footnote-style 'latin)

  (when (locate-library "org.el-XXX")

    ;; turn on the `org-mode' table editor
    (turn-on-orgtbl)

    ;; turn on orgstruct-mode
    (turn-on-orgstruct)

    ;; turn on the enhanced version of orgstruct-mode
    (turn-on-orgstruct++)))

(add-hook 'message-mode-hook 'my-message-mode-hook)
--8<---------------cut here---------------end--------------->8---

Best regards,
  Seb

-- 
Sébastien Vauban