nnimap.el (nnimap-insert-partial-structure): The charset parameter isn't case-sensitive.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index c5aebafe35bfbbc61b1e94577537bbea27fd0cea..5b4820ca97a7da400424379473de242d783432ea 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,6 +1,10 @@
 2011-09-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-xmas.el (gnus-xmas-define): Add `member-ignore-case'.
+
        * nnimap.el (nnimap-wait-for-response): Message less (bug#9540).
+       (nnimap-insert-partial-structure): The charset parameter isn't
+       case-sensitive.
 
        * nnheader.el (nnheader-message-maybe): New function.
 

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 49cceaacf9262e9518de39653a15bd9c820c2d93..77372c246cb44dc3030334ebf274488e66972374 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -672,12 +672,13 @@ textual parts.")
       (if (consp (caar structure))
          (nnimap-insert-partial-structure (pop structure) parts t)
        (let ((bit (pop structure)))
-         (insert (format  "Content-type: %s/%s"
-                          (downcase (nth 0 bit))
-                          (downcase (nth 1 bit))))
-         (if (member "CHARSET" (nth 2 bit))
+         (insert (format "Content-type: %s/%s"
+                         (downcase (nth 0 bit))
+                         (downcase (nth 1 bit))))
+         (if (member-ignore-case "CHARSET" (nth 2 bit))
              (insert (format
-                      "; charset=%S\n" (cadr (member "CHARSET" (nth 2 bit)))))
+                      "; charset=%S\n"
+                      (cadr (member-ignore-case "CHARSET" (nth 2 bit)))))
            (insert "\n"))
          (insert (format "Content-transfer-encoding: %s\n"
                          (nth 5 bit)))