mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(sendmail-user-agent-compose):

Browse Source 
Ignore case when inserting the rest of the "other" headers.
This commit is contained in:
Karl Heuer 1999-06-12 03:56:14 +00:00
parent 90a5604048
commit 170b8e50d7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/simple.el
View File

@ -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)))