Mercurial > emacs
diff lisp/gnus/imap.el @ 54490:0045ce238ded
(imap-parse-address-list, imap-parse-body-ext): Disable wrong use of `assert'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 22 Mar 2004 15:08:55 +0000 |
| parents | 695cf19ef79e |
| children | 55fd4f77387a 0fde48feb604 |
line wrap: on
line diff
--- 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)