2421 |
|
|
2422 |
(defun imap-parse-flag-list () |
(defun imap-parse-flag-list () |
2423 |
(let (flag-list start) |
(let (flag-list start) |
2424 |
(assert (eq (char-after) ?\() t "In imap-parse-flag-list") |
(assert (eq (char-after) ?\() nil "In imap-parse-flag-list") |
2425 |
(while (and (not (eq (char-after) ?\))) |
(while (and (not (eq (char-after) ?\))) |
2426 |
(setq start (progn |
(setq start (progn |
2427 |
(imap-forward) |
(imap-forward) |
2430 |
(point))) |
(point))) |
2431 |
(> (skip-chars-forward "^ )" (imap-point-at-eol)) 0)) |
(> (skip-chars-forward "^ )" (imap-point-at-eol)) 0)) |
2432 |
(push (buffer-substring start (point)) flag-list)) |
(push (buffer-substring start (point)) flag-list)) |
2433 |
(assert (eq (char-after) ?\)) t "In imap-parse-flag-list") |
(assert (eq (char-after) ?\)) nil "In imap-parse-flag-list") |
2434 |
(imap-forward) |
(imap-forward) |
2435 |
(nreverse flag-list))) |
(nreverse flag-list))) |
2436 |
|
|
2515 |
(while (eq (char-after) ?\ ) |
(while (eq (char-after) ?\ ) |
2516 |
(imap-forward) |
(imap-forward) |
2517 |
(push (imap-parse-body-extension) b-e)) |
(push (imap-parse-body-extension) b-e)) |
2518 |
(assert (eq (char-after) ?\)) t "In imap-parse-body-extension") |
(assert (eq (char-after) ?\)) nil "In imap-parse-body-extension") |
2519 |
(imap-forward) |
(imap-forward) |
2520 |
(nreverse b-e)) |
(nreverse b-e)) |
2521 |
(or (imap-parse-number) |
(or (imap-parse-number) |
2641 |
(push (and (imap-parse-nil) nil) body)) |
(push (and (imap-parse-nil) nil) body)) |
2642 |
(setq body |
(setq body |
2643 |
(append (imap-parse-body-ext) body))) ;; body-ext-... |
(append (imap-parse-body-ext) body))) ;; body-ext-... |
2644 |
(assert (eq (char-after) ?\)) t "In imap-parse-body") |
(assert (eq (char-after) ?\)) nil "In imap-parse-body") |
2645 |
(imap-forward) |
(imap-forward) |
2646 |
(nreverse body)) |
(nreverse body)) |
2647 |
|
|
2701 |
(push (imap-parse-nstring) body) ;; body-fld-md5 |
(push (imap-parse-nstring) body) ;; body-fld-md5 |
2702 |
(setq body (append (imap-parse-body-ext) body))) ;; body-ext-1part.. |
(setq body (append (imap-parse-body-ext) body))) ;; body-ext-1part.. |
2703 |
|
|
2704 |
(assert (eq (char-after) ?\)) t "In imap-parse-body 2") |
(assert (eq (char-after) ?\)) nil "In imap-parse-body 2") |
2705 |
(imap-forward) |
(imap-forward) |
2706 |
(nreverse body))))) |
(nreverse body))))) |
2707 |
|
|