Bug in emacs showing long threads

[Scott Henson <scott@foolishpride.org>]

[-- Attachment #1: Type: text/plain, Size: 2688 bytes --]

I've been having problems with really long threads for a while when using
notmuch.  When I click on them in emacs to display the content, I get "Lisp
nesting exceeds `max-lisp-eval-depth'"  The problem up until now has been
these threads have always been ones that I couldn't share.  I finally went
onto the fedora-devel list archives[0].  I was able to reproduce the issue
with emails that I can share.  I've got a notmuch show --format=mbox of the
thread that caused the issue, which is available here[1].  The following is
the debugging output.  Any other things I can provide to help track this
down?  Thanks, this would be a big help.

  (push (json-read) elements)
  (while (not (char-equal ... 93)) (push (json-read) elements)
(json-skip-whitespace) (unless (char-equal ... 93) (if ... ... ...)))
  (let (elements) (while (not ...) (push ... elements)
(json-skip-whitespace) (unless ... ...)) (json-advance) (apply
json-array-type (nreverse elements)))
  json-read-array()
  apply(json-read-array nil)
  (if (functionp (car record)) (apply (car record) (cdr record)) (signal
(quote json-readtable-error) record))
  (let ((record ...)) (if (functionp ...) (apply ... ...) (signal ...
record)))
  (if (not (eq char :json-eof)) (let (...) (if ... ... ...)) (signal (quote
end-of-file) nil))
  (let ((char ...)) (if (not ...) (let ... ...) (signal ... nil)))
  json-read()
  (cons (json-read) elements)
  (setq elements (cons (json-read) elements))
  (push (json-read) elements)
  (while (not (char-equal ... 93)) (push (json-read) elements)
(json-skip-whitespace) (unless (char-equal ... 93) (if ... ... ...)))
  (let (elements) (while (not ...) (push ... elements)
(json-skip-whitespace) (unless ... ...)) (json-advance) (apply
json-array-type (nreverse elements)))
  json-read-array()
  apply(json-read-array nil)
  (if (functionp (car record)) (apply (car record) (cdr record)) (signal
(quote json-readtable-error) record))
  (let ((record ...)) (if (functionp ...) (apply ... ...) (signal ...
record)))
  (if (not (eq char :json-eof)) (let (...) (if ... ... ...)) (signal (quote
end-of-file) nil))
  (let ((char ...)) (if (not ...) (let ... ...) (signal ... nil)))
  json-read()
  notmuch-query-get-threads(("'" "thread:00000000000193d0" "and ("
"tag:inbox and not tag:spam and not tag:delete" ")'"))
  notmuch-show("thread:00000000000193d0" #<buffer
*notmuch-saved-search-inbox*> "tag:inbox and not tag:spam and not
tag:delete" "*F15 Feature - convert as man...")
  notmuch-search-show-thread()
  call-interactively(notmuch-search-show-thread nil nil)

[0] - http://lists.fedoraproject.org/pipermail/devel/
[1] - http://aiden.foolishpride.org/~shenson/bad.mbox

-- 
Scott Henson

[-- Attachment #2: Type: text/html, Size: 3305 bytes --]