Mercurial > emacs

changeset 28491:3e21859cd0e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sendmail-user-agent-compose): Recognize a `body' header and insert its value as mail body.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 03 Apr 2000 19:31:33 +0000
parents 9958b6d95bd6
children fc5e9fc89c9d
files lisp/simple.el
diffstat 1 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Mon Apr 03 19:29:56 2000 +0000
+++ b/lisp/simple.el	Mon Apr 03 19:31:33 2000 +0000
@@ -3610,18 +3610,22 @@
 	    (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