MIME-Version: 1.0
Sender: sjh@foolishpride.org
Date: Sun, 19 Dec 2010 22:27:05 -0500
Message-ID: <AANLkTinEC7cp_53GY0Pa=++tS7MYfOJScz2KyQzz5UrS@mail.gmail.com>
Subject: Bug in emacs showing long threads
From: Scott Henson <scott@foolishpride.org>
To: notmuch <notmuch@notmuchmail.org>
Content-Type: multipart/alternative; boundary=0016368319501e177a0497cf1827
Precedence: list

--0016368319501e177a0497cf1827
Content-Type: text/plain; charset=ISO-8859-1

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

--0016368319501e177a0497cf1827
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

I&#39;ve been having problems with really long threads for a while when usi=
ng notmuch. =A0When I click on them in emacs to display the content, I get =
&quot;Lisp nesting exceeds `max-lisp-eval-depth&#39;&quot; =A0The problem u=
p until now has been these threads have always been ones that I couldn&#39;=
t share. =A0I finally went onto the fedora-devel list archives[0]. =A0I was=
 able to reproduce the issue with emails that I can share. =A0I&#39;ve got =
a notmuch show --format=3Dmbox of the thread that caused the issue, which i=
s available here[1]. =A0The following is the debugging output. =A0Any other=
 things I can provide to help track this down? =A0Thanks, this would be a b=
ig help.<div>
<br></div><div><div>=A0=A0(push (json-read) elements)</div><div>=A0=A0(whil=
e (not (char-equal ... 93)) (push (json-read) elements) (json-skip-whitespa=
ce) (unless (char-equal ... 93) (if ... ... ...)))</div><div>=A0=A0(let (el=
ements) (while (not ...) (push ... elements) (json-skip-whitespace) (unless=
 ... ...)) (json-advance) (apply json-array-type (nreverse elements)))</div=
>
<div>=A0=A0json-read-array()</div><div>=A0=A0apply(json-read-array nil)</di=
v><div>=A0=A0(if (functionp (car record)) (apply (car record) (cdr record))=
 (signal (quote json-readtable-error) record))</div><div>=A0=A0(let ((recor=
d ...)) (if (functionp ...) (apply ... ...) (signal ... record)))</div>
<div>=A0=A0(if (not (eq char :json-eof)) (let (...) (if ... ... ...)) (sign=
al (quote end-of-file) nil))</div><div>=A0=A0(let ((char ...)) (if (not ...=
) (let ... ...) (signal ... nil)))</div><div>=A0=A0json-read()</div><div>=
=A0=A0(cons (json-read) elements)</div>
<div>=A0=A0(setq elements (cons (json-read) elements))</div><div>=A0=A0(pus=
h (json-read) elements)</div><div>=A0=A0(while (not (char-equal ... 93)) (p=
ush (json-read) elements) (json-skip-whitespace) (unless (char-equal ... 93=
) (if ... ... ...)))</div>
<div>=A0=A0(let (elements) (while (not ...) (push ... elements) (json-skip-=
whitespace) (unless ... ...)) (json-advance) (apply json-array-type (nrever=
se elements)))</div><div>=A0=A0json-read-array()</div><div>=A0=A0apply(json=
-read-array nil)</div>
<div>=A0=A0(if (functionp (car record)) (apply (car record) (cdr record)) (=
signal (quote json-readtable-error) record))</div><div>=A0=A0(let ((record =
...)) (if (functionp ...) (apply ... ...) (signal ... record)))</div><div>=
=A0=A0(if (not (eq char :json-eof)) (let (...) (if ... ... ...)) (signal (q=
uote end-of-file) nil))</div>
<div>=A0=A0(let ((char ...)) (if (not ...) (let ... ...) (signal ... nil)))=
</div><div>=A0=A0json-read()</div><div>=A0=A0notmuch-query-get-threads((&qu=
ot;&#39;&quot; &quot;thread:00000000000193d0&quot; &quot;and (&quot; &quot;=
tag:inbox and not tag:spam and not tag:delete&quot; &quot;)&#39;&quot;))</d=
iv>
<div>=A0=A0notmuch-show(&quot;thread:00000000000193d0&quot; #&lt;buffer *no=
tmuch-saved-search-inbox*&gt; &quot;tag:inbox and not tag:spam and not tag:=
delete&quot; &quot;*F15 Feature - convert as man...&quot;)</div><div>=A0=A0=
notmuch-search-show-thread()</div>
<div>=A0=A0call-interactively(notmuch-search-show-thread nil nil)</div><div=
><br></div><div>[0] -=A0<a href=3D"http://lists.fedoraproject.org/pipermail=
/devel/">http://lists.fedoraproject.org/pipermail/devel/</a></div><div>[1] =
-=A0<a href=3D"http://aiden.foolishpride.org/~shenson/bad.mbox">http://aide=
n.foolishpride.org/~shenson/bad.mbox</a></div>
<div><br></div><div>-- <br>Scott Henson<br>
</div></div>

--0016368319501e177a0497cf1827--