Commit 0740c738 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(sendmail-user-agent-compose): Recognize a `body'

header and insert its value as mail body.
parent cbbc3205
......@@ -3610,18 +3610,22 @@ The properties used on SYMBOL are `composefunc', `sendfunc',
(same-window-regexps nil))
(funcall switch-function "*mail*")))
(let ((cc (cdr (assoc-ignore-case "cc" other-headers)))
(in-reply-to (cdr (assoc-ignore-case "in-reply-to" other-headers))))
(in-reply-to (cdr (assoc-ignore-case "in-reply-to" other-headers)))
(body (cdr (assoc-ignore-case "body" other-headers))))
(or (mail continue to subject in-reply-to cc yank-action send-actions)
continue
(error "Message aborted"))
(save-excursion
(rfc822-goto-eoh)
(while other-headers
(if (not (assoc-ignore-case (car (car other-headers))
'(("in-reply-to") ("cc"))))
(unless (member-ignore-case (car (car other-headers))
'("in-reply-to" "cc" "body"))
(insert (car (car other-headers)) ": "
(cdr (car other-headers)) "\n"))
(setq other-headers (cdr other-headers)))
(when body
(forward-line 1)
(insert body))
t)))
(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