From d0d9cda9317efcab864737efe1a255fdcdcb19c4 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 30 Sep 2010 00:15:14 +0200 Subject: [PATCH] (nnimap-request-article): Downcase the NILs so that they are nil. --- lisp/ChangeLog | 1 + lisp/nnimap.el | 7 ++++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 545497e1e..d0c6bc61f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,7 @@ * nnimap.el (nnimap-split-incoming-mail): If nnimap-split-methods is `default', use nnmail-split-methods. + (nnimap-request-article): Downcase the NILs so that they are nil. * gnus-sum.el (gnus-valid-move-group-p): Make sure that `group' is a symbol. diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 0d3670af7..1dd561ab6 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -422,7 +422,12 @@ textual parts.") (nnimap-command "UID FETCH %d (BODYSTRUCTURE)" article) (goto-char (point-min)) (when (re-search-forward "FETCH.*BODYSTRUCTURE" nil t) - (setq structure (ignore-errors (read (current-buffer))) + (setq structure (ignore-errors + (let ((start (point))) + (forward-sexp 1) + (downcase-region start (point)) + (goto-char (point)) + (read (current-buffer)))) parts (nnimap-find-wanted-parts structure)))) (when (if parts (nnimap-get-partial-article article parts structure) -- 2.25.1