[Emacs-diffs] Changes to emacs/lisp/gnus/imap.el [gnus-5_10-branch]

[Reiner Steib]

Index: emacs/lisp/gnus/imap.el
diff -c emacs/lisp/gnus/imap.el:1.12.2.1 emacs/lisp/gnus/imap.el:1.12.2.2
*** emacs/lisp/gnus/imap.el:1.12.2.1    Thu Jul 22 16:45:49 2004
--- emacs/lisp/gnus/imap.el     Sun Aug 22 19:35:29 2004
***************
*** 1977,1983 ****
        (when (eq (char-after) ?\))
          (imap-forward)
          (nreverse addresses)))
!     (assert (imap-parse-nil) t "In imap-parse-address-list")))
  
  ;;   mailbox         = "INBOX" / astring
  ;;                       ; INBOX is case-insensitive.  All case variants of
--- 1977,1985 ----
        (when (eq (char-after) ?\))
          (imap-forward)
          (nreverse addresses)))
!     ;; With assert, the code might not be eval'd.
!     ;; (assert (imap-parse-nil) t "In imap-parse-address-list")
!     (imap-parse-nil)))
  
  ;;   mailbox         = "INBOX" / astring
  ;;                       ; INBOX is case-insensitive.  All case variants of
***************
*** 2540,2546 ****
              (imap-forward)
              (push (imap-parse-string-list) dsp)
              (imap-forward))
!         (assert (imap-parse-nil) t "In imap-parse-body-ext"))
        (push (nreverse dsp) ext))
        (when (eq (char-after) ?\ ) ;; body-fld-lang
        (imap-forward)
--- 2542,2550 ----
              (imap-forward)
              (push (imap-parse-string-list) dsp)
              (imap-forward))
!         ;; With assert, the code might not be eval'd.
!         ;; (assert (imap-parse-nil) t "In imap-parse-body-ext")
!         (imap-parse-nil))
        (push (nreverse dsp) ext))
        (when (eq (char-after) ?\ ) ;; body-fld-lang
        (imap-forward)