Mercurial > emacs
comparison lisp/net/imap.el @ 100874:8698a8bb7d0e
Gnus: Add explanations for recent changes to the code itself.
These are already documented in ChangeLog.
| author | Michael Olson <mwolson@gnu.org> |
|---|---|
| date | Sun, 04 Jan 2009 00:03:05 +0000 |
| parents | 1d5b4a08955f |
| children | a9dc0e7c3f2b |
comparison
equal
deleted
inserted
replaced
| 100873:be51a6e9224f | 100874:8698a8bb7d0e |
|---|---|
| 2491 | 2491 |
| 2492 (defun imap-parse-fetch (response) | 2492 (defun imap-parse-fetch (response) |
| 2493 (when (eq (char-after) ?\() | 2493 (when (eq (char-after) ?\() |
| 2494 (let (uid flags envelope internaldate rfc822 rfc822header rfc822text | 2494 (let (uid flags envelope internaldate rfc822 rfc822header rfc822text |
| 2495 rfc822size body bodydetail bodystructure flags-empty) | 2495 rfc822size body bodydetail bodystructure flags-empty) |
| 2496 ;; Courier can insert spurious blank characters which will | |
| 2497 ;; confuse `read', so skip past them. | |
| 2496 (while (let ((moved (skip-chars-forward " \t"))) | 2498 (while (let ((moved (skip-chars-forward " \t"))) |
| 2497 (prog1 (not (eq (char-after) ?\))) | 2499 (prog1 (not (eq (char-after) ?\))) |
| 2498 (unless (= moved 0) (backward-char)))) | 2500 (unless (= moved 0) (backward-char)))) |
| 2499 (imap-forward) | 2501 (imap-forward) |
| 2500 (let ((token (read (current-buffer)))) | 2502 (let ((token (read (current-buffer)))) |