Gnus can't read mail on possible ill-formed messages

[Sarir Khamsi]

[System: Gnus 5.10.6 on GNU Emacs 21.3.50.1, WinXP, SP1]

On certain mail messages - mostly from Mozilla mail with certain
mark-up - Gnus complains with the message 'error "In imap-parse-body
2"'. The full stack trace is as follows (I've looked around for a
solution but can't find one...thanks):

Debugger entered--Lisp error: (error "In imap-parse-body 2")
  signal(error ("In imap-parse-body 2"))
  error("In imap-parse-body 2" 99)
  imap-parse-body()
  imap-parse-body()
  imap-parse-body()
  imap-parse-fetch(124)
  imap-parse-response()
  imap-arrival-filter(#<process imap> "* 124 FETCH (UID 3725 RFC822.SIZE 10797 
BODY (((\"text\" \"plain\" (\"Charset \" \"\"us-ascii\"\") NIL NIL \"7bit\" 
3629 61)(\"text\" \"plain\" (\"Charset \" \"\"us-ascii\"\") NIL NIL \"7bit\" 
3629 61) \"alternative\")(\"image\" \"gif\" (\"name\" \"cialis2.GIF\") 
\"<TEHLGFIC.RELRPHSD.PEQWBJGD.NFUEKLQE_csseditor>\" NIL \"base64\" 5084) 
\"related\") BODY[HEADER.FIELDS (Subject From Date Message-Id References 
In-Reply-To Xref To Newsgroups)] {204}
\nDate: Fri, 15 Oct 2004 04:59:01 -0600 (MSD)
\nMessage-Id: <200410031404.i93AbfTw003403@www2.pochta.ru>
\nFrom: \"Dr. Enid\" <bikcnwbmh@ciaoweb.it>
\nTo: sarahcox@raytheon.com
\nSubject: re:watch this work
\n
\n
\n)
\n1577 OK FETCH completed
\n")
  accept-process-output(#<process imap> 1 0)
  imap-wait-for-tag(1577 nil)
  imap-send-command-wait("UID FETCH 3725 (UID RFC822.SIZE BODY 
BODY.PEEK[HEADER.FIELDS (Subject From Date Message-Id References In-Reply-To 
Xref To Newsgroups)])")
  imap-fetch("3725" "(UID RFC822.SIZE BODY BODY.PEEK[HEADER.FIELDS (Subject 
From Date Message-Id References In-Reply-To Xref To Newsgroups)])")
  nnimap-retrieve-headers-from-server((3725) "mail.other" "mailserver.com")
  nnimap-retrieve-headers((3725) "mail.other" "mailserver.com" nil)
  gnus-retrieve-headers((3725) "nnimap+mailserver.com:mail.other" nil)
  gnus-agent-retrieve-headers((3725) "nnimap+mailserver.com:mail.other" nil)
  gnus-retrieve-headers((3725) "nnimap+mailserver.com:mail.other" nil)
  gnus-cache-retrieve-headers((3725) "nnimap+mailserver.com:mail.other" nil)
  gnus-retrieve-headers((3725) "nnimap+mailserver.com:mail.other" nil)
  gnus-fetch-headers((3725))
  gnus-summary-insert-articles((3725))
  gnus-summary-insert-old-articles(nil)
  call-interactively(gnus-summary-insert-old-articles)
  recursive-edit()
  byte-code("Æ.Ç        !ˆÈ ˆÉ\n!ˆƒB.Êed\"\fVƒ6.ebˆË\f¥yˆ`.dbˆË\f¥\fZyˆ
`|ˆ)ÌcˆebˆÍÎÏ \"ˆÐ ˆ\n@Ñ=ƒN.ÒÓÔ\"ˆÕ ˆÍÖ!ˆÔ×Ô...ÍØ!ˆŠÙ ˆ,ׇ" 
[unread-command-char debugger-buffer debugger-args noninteractive 
debugger-batch-max-lines middlestart -1 pop-to-buffer debugger-mode 
debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string 
kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil "" recursive-edit 
buffer-read-only standard-output inhibit-trace] 3)
  debug(error (void-function buffer))
  (buffer)
  eval((buffer))
  eval-expression((buffer) nil)
  call-interactively(eval-expression)
  recursive-edit()
  byte-code("Æ.Ç        !ˆÈ ˆÉ\n!ˆƒB.Êed\"\fVƒ6.ebˆË\f¥yˆ`.dbˆË\f¥\fZyˆ
`|ˆ)ÌcˆebˆÍÎÏ \"ˆÐ ˆ\n@Ñ=ƒN.ÒÓÔ\"ˆÕ ˆÍÖ!ˆÔ×Ô...ÍØ!ˆŠÙ ˆ,ׇ" 
[unread-command-char debugger-buffer debugger-args noninteractive 
debugger-batch-max-lines middlestart -1 pop-to-buffer debugger-mode 
debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string 
kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil "" recursive-edit 
buffer-read-only standard-output inhibit-trace] 3)
  debug(error (wrong-type-argument bufferp "log.el"))
  buffer-file-name("log.el")
  eval((buffer-file-name (buffer-name)))
  eval-expression((buffer-file-name (buffer-name)) nil)
  call-interactively(eval-expression)
  recursive-edit()
  byte-code("Æ.Ç        !ˆÈ ˆÉ\n!ˆƒB.Êed\"\fVƒ6.ebˆË\f¥yˆ`.dbˆË\f¥\fZyˆ
`|ˆ)ÌcˆebˆÍÎÏ \"ˆÐ ˆ\n@Ñ=ƒN.ÒÓÔ\"ˆÕ ˆÍÖ!ˆÔ×Ô...ÍØ!ˆŠÙ ˆ,ׇ" 
[unread-command-char debugger-buffer debugger-args noninteractive 
debugger-batch-max-lines middlestart -1 pop-to-buffer debugger-mode 
debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string 
kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil "" recursive-edit 
buffer-read-only standard-output inhibit-trace] 3)
  debug(error (wrong-type-argument bufferp ".emacs"))
  buffer-file-name(".emacs")
  eval((buffer-file-name (buffer-name)))
  eval-expression((buffer-file-name (buffer-name)) nil)
  call-interactively(eval-expression)