Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 54489:fbc008c6f0cc | 54490:0045ce238ded |
|---|---|
| 1 ;;; imap.el --- imap library | 1 ;;; imap.el --- imap library |
| 2 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 | 2 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
| 3 ;; Free Software Foundation, Inc. | 3 ;; Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Simon Josefsson <jas@pdc.kth.se> | 5 ;; Author: Simon Josefsson <jas@pdc.kth.se> |
| 6 ;; Keywords: mail | 6 ;; Keywords: mail |
| 7 | 7 |
| 1801 (setq address (imap-parse-address))) | 1801 (setq address (imap-parse-address))) |
| 1802 (setq addresses (cons address addresses))) | 1802 (setq addresses (cons address addresses))) |
| 1803 (when (eq (char-after) ?\)) | 1803 (when (eq (char-after) ?\)) |
| 1804 (imap-forward) | 1804 (imap-forward) |
| 1805 (nreverse addresses))) | 1805 (nreverse addresses))) |
| 1806 (assert (imap-parse-nil)))) | 1806 ;; (assert (imap-parse-nil)) ; With assert, the code might not be eval'd. |
| 1807 (imap-parse-nil))) | |
| 1807 | 1808 |
| 1808 ;; mailbox = "INBOX" / astring | 1809 ;; mailbox = "INBOX" / astring |
| 1809 ;; ; INBOX is case-insensitive. All case variants of | 1810 ;; ; INBOX is case-insensitive. All case variants of |
| 1810 ;; ; INBOX (e.g. "iNbOx") MUST be interpreted as INBOX | 1811 ;; ; INBOX (e.g. "iNbOx") MUST be interpreted as INBOX |
| 1811 ;; ; not as an astring. An astring which consists of | 1812 ;; ; not as an astring. An astring which consists of |
| 2341 (imap-forward) | 2342 (imap-forward) |
| 2342 (push (imap-parse-string) dsp) | 2343 (push (imap-parse-string) dsp) |
| 2343 (imap-forward) | 2344 (imap-forward) |
| 2344 (push (imap-parse-string-list) dsp) | 2345 (push (imap-parse-string-list) dsp) |
| 2345 (imap-forward)) | 2346 (imap-forward)) |
| 2346 (assert (imap-parse-nil))) | 2347 ;; (assert (imap-parse-nil)) ; Code in assert might not be eval'd. |
| 2348 (imap-parse-nil)) | |
| 2347 (push (nreverse dsp) ext)) | 2349 (push (nreverse dsp) ext)) |
| 2348 (when (eq (char-after) ?\ );; body-fld-lang | 2350 (when (eq (char-after) ?\ );; body-fld-lang |
| 2349 (imap-forward) | 2351 (imap-forward) |
| 2350 (if (eq (char-after) ?\() | 2352 (if (eq (char-after) ?\() |
| 2351 (push (imap-parse-string-list) ext) | 2353 (push (imap-parse-string-list) ext) |