Commit 17949e23 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(sendmail-user-agent): Insert all the OTHER-HEADERS.

parent 2df566e6
......@@ -2887,7 +2887,17 @@ The properties used on SYMBOL are `composefunc', `sendfunc',
(in-reply-to (cdr (assoc-ignore-case "in-reply-to" other-headers))))
(or (mail continue to subject in-reply-to cc yank-action send-actions)
(error "Message aborted"))))
(error "Message aborted"))
(goto-char (point-min))
(search-forward mail-header-separator)
(while other-headers
(if (not (member (car (car other-headers)) '("in-reply-to" "cc")))
(insert (car (car other-headers)) ": "
(cdr (car other-headers)) "\n"))
(setq other-headers (cdr other-headers)))
(define-mail-user-agent 'mh-e-user-agent
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment