From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 12 Jun 1999 03:56:14 +0000 (+0000)
Subject: (sendmail-user-agent-compose):
X-Git-Tag: emacs-20.4~118
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=170b8e50d7caf8735842b126680189e1d598173d;p=emacs.git

(sendmail-user-agent-compose):
Ignore case when inserting the rest of the "other" headers.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 00d89282496..6bb5a9f77b6 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3648,7 +3648,8 @@ Unibyte strings are converted to multibyte for comparison."
     (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)))