* 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.
2001-07-06 Simon Josefsson <jas@extundo.com>
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
* 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
(when (eq (char-after) ?\))
(imap-forward)
(nreverse addresses)))
(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
;; mailbox = "INBOX" / astring
;; ; INBOX is case-insensitive. All case variants of
(defun imap-parse-flag-list ()
(let (flag-list start)
(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)
(while (and (not (eq (char-after) ?\)))
(setq start (progn
(imap-forward)
(point)))
(> (skip-chars-forward "^ )" (imap-point-at-eol)) 0))
(push (buffer-substring start (point)) flag-list))
(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)))
(imap-forward)
(nreverse flag-list)))
(while (eq (char-after) ?\ )
(imap-forward)
(push (imap-parse-body-extension) b-e))
(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)
(imap-forward)
(nreverse b-e))
(or (imap-parse-number)
(imap-forward)
(push (imap-parse-string-list) dsp)
(imap-forward))
(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)
(push (nreverse dsp) ext))
(when (eq (char-after) ?\ );; body-fld-lang
(imap-forward)
(push (and (imap-parse-nil) nil) body))
(setq body
(append (imap-parse-body-ext) body)));; body-ext-...
(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))
(imap-forward)
(nreverse body))
(push (imap-parse-nstring) body);; body-fld-md5
(setq body (append (imap-parse-body-ext) body)));; body-ext-1part..
(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)))))
(imap-forward)
(nreverse body)))))