From 943399bce86a0141daacdd5d1e2f62f2362cbfe9 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 26 Sep 2011 22:52:31 +0000 Subject: [PATCH] nnimap.el (nnimap-insert-partial-structure): The charset parameter isn't case-sensitive. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/nnimap.el | 11 ++++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index c5aebafe35b..5b4820ca97a 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,6 +1,10 @@ 2011-09-26 Lars Magne Ingebrigtsen + * 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 49cceaacf92..77372c246cb 100644 --- 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))) -- 2.39.2