/[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.10.4.4 by miles, Tue Sep 21 09:34:08 2004 UTC revision 1.10.4.5 by miles, Thu Oct 14 08:50:06 2004 UTC
# Line 2421  Return nil if no complete line has arriv Line 2421  Return nil if no complete line has arriv
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)
# Line 2430  Return nil if no complete line has arriv Line 2430  Return nil if no complete line has arriv
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    
# Line 2515  Return nil if no complete line has arriv Line 2515  Return nil if no complete line has arriv
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)
# Line 2641  Return nil if no complete line has arriv Line 2641  Return nil if no complete line has arriv
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    
# Line 2701  Return nil if no complete line has arriv Line 2701  Return nil if no complete line has arriv
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    

Legend:
Removed from v.1.10.4.4  
changed lines
  Added in v.1.10.4.5

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