From 170b8e50d7caf8735842b126680189e1d598173d Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 12 Jun 1999 03:56:14 +0000 Subject: [PATCH] (sendmail-user-agent-compose): Ignore case when inserting the rest of the "other" headers. --- lisp/simple.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.5