/[emacs]/emacs/lisp/gnus/imap.el
ViewVC logotype

Diff of /emacs/lisp/gnus/imap.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12.2.1 by schwab, Thu Jul 22 16:45:49 2004 UTC revision 1.12.2.2 by rsteib, Sun Aug 22 19:35:29 2004 UTC
# Line 1977  Return nil if no complete line has arriv Line 1977  Return nil if no complete line has arriv
1977          (when (eq (char-after) ?\))          (when (eq (char-after) ?\))
1978            (imap-forward)            (imap-forward)
1979            (nreverse addresses)))            (nreverse addresses)))
1980      (assert (imap-parse-nil) t "In imap-parse-address-list")))      ;; With assert, the code might not be eval'd.
1981        ;; (assert (imap-parse-nil) t "In imap-parse-address-list")
1982        (imap-parse-nil)))
1983    
1984  ;;   mailbox         = "INBOX" / astring  ;;   mailbox         = "INBOX" / astring
1985  ;;                       ; INBOX is case-insensitive.  All case variants of  ;;                       ; INBOX is case-insensitive.  All case variants of
# Line 2540  Return nil if no complete line has arriv Line 2542  Return nil if no complete line has arriv
2542                (imap-forward)                (imap-forward)
2543                (push (imap-parse-string-list) dsp)                (push (imap-parse-string-list) dsp)
2544                (imap-forward))                (imap-forward))
2545            (assert (imap-parse-nil) t "In imap-parse-body-ext"))            ;; With assert, the code might not be eval'd.
2546              ;; (assert (imap-parse-nil) t "In imap-parse-body-ext")
2547              (imap-parse-nil))
2548          (push (nreverse dsp) ext))          (push (nreverse dsp) ext))
2549        (when (eq (char-after) ?\ ) ;; body-fld-lang        (when (eq (char-after) ?\ ) ;; body-fld-lang
2550          (imap-forward)          (imap-forward)

Legend:
Removed from v.1.12.2.1  
changed lines
  Added in v.1.12.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26