Mercurial > emacs
changeset 24831:e16164c4f6a9
(sendmail-user-agent-compose):
Ignore case when inserting the rest of the "other" headers.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 12 Jun 1999 03:56:14 +0000 |
| parents | 459c58257c18 |
| children | b772f629b45b |
| files | lisp/simple.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))