(nnimap-request-article): Downcase the NILs so that they are nil.
authorLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Wed, 29 Sep 2010 22:15:14 +0000 (00:15 +0200)
committerLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Wed, 29 Sep 2010 22:15:14 +0000 (00:15 +0200)
lisp/ChangeLog
lisp/nnimap.el

index 545497e..d0c6bc6 100644 (file)
@@ -2,6 +2,7 @@
 
        * nnimap.el (nnimap-split-incoming-mail): If nnimap-split-methods is
        `default', use nnmail-split-methods.
 
        * 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.
 
        * gnus-sum.el (gnus-valid-move-group-p): Make sure that `group' is a
        symbol.
index 0d3670a..1dd561a 100644 (file)
@@ -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)
            (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)
                    parts (nnimap-find-wanted-parts structure))))
          (when (if parts
                    (nnimap-get-partial-article article parts structure)