# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1072727545 0
# Node ID f0c057d16a15730be9b327c2ee584f8223d3e76a
# Parent  ce3a88ca37eea3c0e01912bd607f4141d2ed6424
(sendmail-user-agent-compose): Use assoc-string.

diff -r ce3a88ca37ee -r f0c057d16a15 lisp/simple.el
--- a/lisp/simple.el	Mon Dec 29 19:51:54 2003 +0000
+++ b/lisp/simple.el	Mon Dec 29 19:52:25 2003 +0000
@@ -3735,9 +3735,9 @@
 	    (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"))