2001-07-06 Simon Josefsson <jas@extundo.com>

	* imap.el (imap-parse-address-list, imap-parse-flag-list)
	(imap-parse-body-extension, imap-parse-body-ext, imap-parse-body):
	Add information in `assert's.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b412261..5833c24 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-07-06  Simon Josefsson  <jas@extundo.com>
 
+       * imap.el (imap-parse-address-list, imap-parse-flag-list)
+       (imap-parse-body-extension, imap-parse-body-ext, imap-parse-body):
+       Add information in `assert's.
+
        * nnimap.el (nnimap-possibly-change-group): Ignore uidvalidity
        changes. (From nnimaps' point of view, `nnimap-verify-uidvalidity'
        and `nnimap-group-overview-filename', should handle all

diff --git a/lisp/imap.el b/lisp/imap.el
index 76f9956..91c74da 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -1821,7 +1821,7 @@ Return nil if no complete line has arrived."
        (when (eq (char-after) ?\))
          (imap-forward)
          (nreverse addresses)))
-    (assert (imap-parse-nil))))
+    (assert (imap-parse-nil) t "In imap-parse-address-list")))
 
 ;;   mailbox         = "INBOX" / astring
 ;;                       ; INBOX is case-insensitive.  All case variants of
@@ -2246,7 +2246,7 @@ Return nil if no complete line has arrived."
 
 (defun imap-parse-flag-list ()
   (let (flag-list start)
-    (assert (eq (char-after) ?\())
+    (assert (eq (char-after) ?\() t "In imap-parse-flag-list")
     (while (and (not (eq (char-after) ?\)))
                (setq start (progn
                              (imap-forward)
@@ -2255,7 +2255,7 @@ Return nil if no complete line has arrived."
                              (point)))
                (> (skip-chars-forward "^ )" (imap-point-at-eol)) 0))
       (push (buffer-substring start (point)) flag-list))
-    (assert (eq (char-after) ?\)))
+    (assert (eq (char-after) ?\)) t "In imap-parse-flag-list")
     (imap-forward)
     (nreverse flag-list)))
 
@@ -2340,7 +2340,7 @@ Return nil if no complete line has arrived."
        (while (eq (char-after) ?\ )
          (imap-forward)
          (push (imap-parse-body-extension) b-e))
-       (assert (eq (char-after) ?\)))
+       (assert (eq (char-after) ?\)) t "In imap-parse-body-extension")
        (imap-forward)
        (nreverse b-e))
     (or (imap-parse-number)
@@ -2368,7 +2368,7 @@ Return nil if no complete line has arrived."
              (imap-forward)
              (push (imap-parse-string-list) dsp)
              (imap-forward))
-         (assert (imap-parse-nil)))
+         (assert (imap-parse-nil) t "In imap-parse-body-ext"))
        (push (nreverse dsp) ext))
       (when (eq (char-after) ?\ );; body-fld-lang
        (imap-forward)
@@ -2464,7 +2464,7 @@ Return nil if no complete line has arrived."
                (push (and (imap-parse-nil) nil) body))
              (setq body
                    (append (imap-parse-body-ext) body)));; body-ext-...
-           (assert (eq (char-after) ?\)))
+           (assert (eq (char-after) ?\)) t "In imap-parse-body")
            (imap-forward)
            (nreverse body))
 
@@ -2524,7 +2524,7 @@ Return nil if no complete line has arrived."
          (push (imap-parse-nstring) body);; body-fld-md5
          (setq body (append (imap-parse-body-ext) body)));; body-ext-1part..
     
-       (assert (eq (char-after) ?\)))
+       (assert (eq (char-after) ?\)) t "In imap-parse-body 2")
        (imap-forward)
        (nreverse body)))))