# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 929159774 0
# Node ID e16164c4f6a9aa82bceac3c250ed5c3f9e09417a
# Parent  459c58257c1818af0441b0ddb4c62d414632f40a
(sendmail-user-agent-compose):
Ignore case when inserting the rest of the "other" headers.

diff -r 459c58257c18 -r e16164c4f6a9 lisp/simple.el
--- a/lisp/simple.el	Sat Jun 12 03:54:03 1999 +0000
+++ b/lisp/simple.el	Sat Jun 12 03:56:14 1999 +0000
@@ -3648,7 +3648,8 @@
     (save-excursion
       (rfc822-goto-eoh)
       (while other-headers
-	(if (not (member (car (car other-headers)) '("in-reply-to" "cc")))
+	(if (not (assoc-ignore-case (car (car other-headers))
+				    '(("in-reply-to") ("cc"))))
 	    (insert (car (car other-headers)) ": "
 		    (cdr (car other-headers)) "\n"))
 	(setq other-headers (cdr other-headers)))