Function: sendmail-user-agent-compose

sendmail-user-agent-compose is an autoloaded and byte-compiled function defined in sendmail.el.gz.

Signature

(sendmail-user-agent-compose &optional TO SUBJECT OTHER-HEADERS CONTINUE SWITCH-FUNCTION YANK-ACTION SEND-ACTIONS RETURN-ACTION &rest IGNORED)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/sendmail.el.gz
;;;###autoload
(defun sendmail-user-agent-compose ( &optional to subject other-headers
                                     continue switch-function yank-action
                                     send-actions return-action
                                     &rest _ignored )
  (if switch-function
      (funcall switch-function "*mail*"))
  (let ((cc (cdr (assoc-string "cc" other-headers t)))
	(in-reply-to (cdr (assoc-string "in-reply-to" other-headers t)))
	(body (cdr (assoc-string "body" other-headers t))))
    (or (mail continue to subject in-reply-to cc yank-action
	      send-actions return-action)
	continue
	(error "Message aborted"))
    (save-excursion
      (rfc822-goto-eoh)
      (while other-headers
	(unless (member-ignore-case (car (car other-headers))
				    '("in-reply-to" "cc" "body"))
	  (insert (car (car other-headers)) ": "
		  (cdr (car other-headers))
		  (if use-hard-newlines hard-newline "\n")))
	(setq other-headers (cdr other-headers)))
      (when body
	(forward-line 1)
	(insert body))
      t)))