Function: reporter-compose-outgoing

reporter-compose-outgoing is a byte-compiled function defined in reporter.el.gz.

Signature

(reporter-compose-outgoing)

Documentation

Compose the outgoing mail buffer.

Return the selected paradigm, with the current buffer tacked onto the beginning of the list.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/reporter.el.gz
(defun reporter-compose-outgoing ()
  "Compose the outgoing mail buffer.

Return the selected paradigm, with the current buffer tacked onto the
beginning of the list."
  (let* ((agent mail-user-agent)
	 (compose (get mail-user-agent 'composefunc)))
    ;; Sanity check.  If this fails then we'll try to use the SENDMAIL
    ;; protocol, otherwise we must signal an error.
    (if (not (and compose (functionp compose)))
	(progn
	  (setq agent 'sendmail-user-agent
		compose (get agent 'composefunc))
	  (if (not (and compose (functionp compose)))
	      (error "Could not find a valid `mail-user-agent'")
	    (ding)
	    (message "`%s' is an invalid `mail-user-agent'; using `sendmail-user-agent'"
		     mail-user-agent)
	    )))
    (funcall compose)
    agent))