problem asserts in nnimap

[joakim@verona.se]

I'm connecting to a dovecot instance with nnimap.

I get problem with asserts failing.

I tried debugging it a bit like this:

in imap-parse-body in imap.el
...
	(when (eq (char-after) ?\ ) ;; body-ext-1part:
	  (imap-forward)
	  (push (imap-parse-nstring) body) ;; body-fld-md5
	  (setq body (append (imap-parse-body-ext) body))) ;; body-ext-1part..

(my-assert "1")
	(imap-forward)
	(nreverse body)))))
...
(defun my-assert(s)
  (assert (eq (char-after) ?\)) nil (concat "In imap-parse-body JAVE "
	s " " (buffer-substring (- (point) 50) (+ 1(point))))9
)
...
(i just factored out the assert)

in the backtace buffer i get this:
  signal(error ("In imap-parse-body JAVE 1 ted\")(\"text\" \"x-vcal\" (\"charset\" \"iso-8859-1\") {25}"))

I interpret this as meaning that an ")" is expected, but instead we
got "}". 

in *imap-log* it looks like this:

("text" "x-vcal" ("charset" "iso-8859-1") {25}<startupmöte_forts._.ics> NIL "quoted-printable" 550 22)


Im not too familiar with gnus inner workings or nnimap, so any
assistance would be apreciated!

-- 
Joakim Verona
http://www.verona.se