emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/imap.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/imap.el [lexbind]
Date: Mon, 25 Oct 2004 00:45:34 -0400

Index: emacs/lisp/gnus/imap.el
diff -c emacs/lisp/gnus/imap.el:1.6.4.5 emacs/lisp/gnus/imap.el:1.6.4.6
*** emacs/lisp/gnus/imap.el:1.6.4.5     Wed Oct  6 05:21:53 2004
--- emacs/lisp/gnus/imap.el     Mon Oct 25 04:19:43 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)))))
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]