From 7e84dddeb7070f06bbf9eccd2cb5f866530f4030 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Fri, 6 Jul 2001 18:34:53 +0000 Subject: [PATCH] 2001-07-06 Simon Josefsson * 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. --- lisp/ChangeLog | 4 ++++ lisp/imap.el | 14 +++++++------- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b4122618d..5833c2410 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2001-07-06 Simon Josefsson + * 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 76f9956d6..91c74da5e 100644 --- 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))))) -- 2.25.1