From 0740c7388633ca206635b52d0b39e0f16dec1872 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 3 Apr 2000 19:31:33 +0000 Subject: [PATCH] (sendmail-user-agent-compose): Recognize a `body' header and insert its value as mail body. --- lisp/simple.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 2f23d1dc529..2ae66339661 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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 -- 2.39.5