[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/imap.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/imap.el [emacs-unicode-2] |
Date: |
Thu, 14 Oct 2004 05:17:19 -0400 |
Index: emacs/lisp/gnus/imap.el
diff -c emacs/lisp/gnus/imap.el:1.10.4.4 emacs/lisp/gnus/imap.el:1.10.4.5
*** emacs/lisp/gnus/imap.el:1.10.4.4 Tue Sep 21 09:34:08 2004
--- emacs/lisp/gnus/imap.el Thu Oct 14 08:50:06 2004
***************
*** 2421,2427 ****
(defun imap-parse-flag-list ()
(let (flag-list start)
! (assert (eq (char-after) ?\() t "In imap-parse-flag-list")
(while (and (not (eq (char-after) ?\)))
(setq start (progn
(imap-forward)
--- 2421,2427 ----
(defun imap-parse-flag-list ()
(let (flag-list start)
! (assert (eq (char-after) ?\() nil "In imap-parse-flag-list")
(while (and (not (eq (char-after) ?\)))
(setq start (progn
(imap-forward)
***************
*** 2430,2436 ****
(point)))
(> (skip-chars-forward "^ )" (imap-point-at-eol)) 0))
(push (buffer-substring start (point)) flag-list))
! (assert (eq (char-after) ?\)) t "In imap-parse-flag-list")
(imap-forward)
(nreverse flag-list)))
--- 2430,2436 ----
(point)))
(> (skip-chars-forward "^ )" (imap-point-at-eol)) 0))
(push (buffer-substring start (point)) flag-list))
! (assert (eq (char-after) ?\)) nil "In imap-parse-flag-list")
(imap-forward)
(nreverse flag-list)))
***************
*** 2515,2521 ****
(while (eq (char-after) ?\ )
(imap-forward)
(push (imap-parse-body-extension) b-e))
! (assert (eq (char-after) ?\)) t "In imap-parse-body-extension")
(imap-forward)
(nreverse b-e))
(or (imap-parse-number)
--- 2515,2521 ----
(while (eq (char-after) ?\ )
(imap-forward)
(push (imap-parse-body-extension) b-e))
! (assert (eq (char-after) ?\)) nil "In imap-parse-body-extension")
(imap-forward)
(nreverse b-e))
(or (imap-parse-number)
***************
*** 2641,2647 ****
(push (and (imap-parse-nil) nil) body))
(setq body
(append (imap-parse-body-ext) body))) ;; body-ext-...
! (assert (eq (char-after) ?\)) t "In imap-parse-body")
(imap-forward)
(nreverse body))
--- 2641,2647 ----
(push (and (imap-parse-nil) nil) body))
(setq body
(append (imap-parse-body-ext) body))) ;; body-ext-...
! (assert (eq (char-after) ?\)) nil "In imap-parse-body")
(imap-forward)
(nreverse body))
***************
*** 2701,2707 ****
(push (imap-parse-nstring) body) ;; body-fld-md5
(setq body (append (imap-parse-body-ext) body))) ;; body-ext-1part..
! (assert (eq (char-after) ?\)) t "In imap-parse-body 2")
(imap-forward)
(nreverse body)))))
--- 2701,2707 ----
(push (imap-parse-nstring) body) ;; body-fld-md5
(setq body (append (imap-parse-body-ext) body))) ;; body-ext-1part..
! (assert (eq (char-after) ?\)) nil "In imap-parse-body 2")
(imap-forward)
(nreverse body)))))
- [Emacs-diffs] Changes to emacs/lisp/gnus/imap.el [emacs-unicode-2],
Miles Bader <=