Mercurial > emacs
changeset 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 | be51a6e9224f |
| children | 4b2a2cf80be6 |
| files | lisp/gnus/nnimap.el lisp/net/imap.el |
| diffstat | 2 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/nnimap.el Sat Jan 03 23:11:06 2009 +0000 +++ b/lisp/gnus/nnimap.el Sun Jan 04 00:03:05 2009 +0000 @@ -620,6 +620,7 @@ ;; to make it more clear. (mm-with-unibyte-buffer (buffer-disable-undo) + ;; headers can be nil if article is write-only (when headers (insert headers)) (let ((head (nnheader-parse-naked-head uid))) (mail-header-set-number head uid) @@ -950,6 +951,7 @@ (erase-buffer) (let ((data (imap-fetch article part prop nil nnimap-server-buffer))) + ;; data can be nil if article is write-only (when data (insert (nnimap-demule (if detail (nth 2 (car data))
--- a/lisp/net/imap.el Sat Jan 03 23:11:06 2009 +0000 +++ b/lisp/net/imap.el Sun Jan 04 00:03:05 2009 +0000 @@ -2493,6 +2493,8 @@ (when (eq (char-after) ?\() (let (uid flags envelope internaldate rfc822 rfc822header rfc822text rfc822size body bodydetail bodystructure flags-empty) + ;; Courier can insert spurious blank characters which will + ;; confuse `read', so skip past them. (while (let ((moved (skip-chars-forward " \t"))) (prog1 (not (eq (char-after) ?\))) (unless (= moved 0) (backward-char))))