# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1079968135 0
# Node ID 0045ce238dedee3538fd5704f7e5954961fdaf8f
# Parent  fbc008c6f0cc01235335599b493ac6e8991c7fdf
(imap-parse-address-list, imap-parse-body-ext): Disable wrong use of `assert'.

diff -r fbc008c6f0cc -r 0045ce238ded lisp/gnus/imap.el
--- a/lisp/gnus/imap.el	Mon Mar 22 14:10:23 2004 +0000
+++ b/lisp/gnus/imap.el	Mon Mar 22 15:08:55 2004 +0000
@@ -1,5 +1,5 @@
 ;;; imap.el --- imap library
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <jas@pdc.kth.se>
@@ -1803,7 +1803,8 @@
 	(when (eq (char-after) ?\))
 	  (imap-forward)
 	  (nreverse addresses)))
-    (assert (imap-parse-nil))))
+    ;; (assert (imap-parse-nil)) ; With assert, the code might not be eval'd.
+    (imap-parse-nil)))
 
 ;;   mailbox         = "INBOX" / astring
 ;;                       ; INBOX is case-insensitive.  All case variants of
@@ -2343,7 +2344,8 @@
 	      (imap-forward)
 	      (push (imap-parse-string-list) dsp)
 	      (imap-forward))
-	  (assert (imap-parse-nil)))
+	  ;; (assert (imap-parse-nil)) ; Code in assert might not be eval'd.
+	  (imap-parse-nil))
 	(push (nreverse dsp) ext))
       (when (eq (char-after) ?\ );; body-fld-lang
 	(imap-forward)