X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnimap.el;h=1dd561ab6ac4db735ec785551f6ab815a4319011;hb=d0d9cda9317efcab864737efe1a255fdcdcb19c4;hp=0d3670af74a0507c5db5ca4a5180ea1b60779bea;hpb=33975de210258435a57aa171bb8533897a45c02c;p=gnus

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)