(sendmail-user-agent-compose): Use assoc-string.

diff --git a/lisp/simple.el b/lisp/simple.el
index ade177c5b8e104925f7755872fe403a336c53015..d23ed11c6c3eaaaec4cb86d5d4ce82acef290a78 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3735,9 +3735,9 @@ See also `read-mail-command' concerning reading mail."
            (same-window-buffer-names nil)
            (same-window-regexps nil))
        (funcall switch-function "*mail*")))
-  (let ((cc (cdr (assoc-ignore-case "cc" other-headers)))
-       (in-reply-to (cdr (assoc-ignore-case "in-reply-to" other-headers)))
-       (body (cdr (assoc-ignore-case "body" other-headers))))
+  (let ((cc (cdr (assoc-string "cc" other-headers t)))
+       (in-reply-to (cdr (assoc-string "in-reply-to" other-headers t)))
+       (body (cdr (assoc-string "body" other-headers t))))
     (or (mail continue to subject in-reply-to cc yank-action send-actions)
        continue
        (error "Message aborted"))