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', ...@@ -2887,7 +2887,17 @@ The properties used on SYMBOL are `composefunc', `sendfunc',
(in-reply-to (cdr (assoc-ignore-case "in-reply-to" other-headers)))) (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) (or (mail continue to subject in-reply-to cc yank-action send-actions)
continue continue
(error "Message aborted")))) (error "Message aborted"))
(save-excursion
(goto-char (point-min))
(search-forward mail-header-separator)
(beginning-of-line)
(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)))
t)))
'mail-send-and-exit) 'mail-send-and-exit)
(define-mail-user-agent 'mh-e-user-agent (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