Function: message-send-mail-with-mh

message-send-mail-with-mh is a byte-compiled function defined in message.el.gz.

Signature

(message-send-mail-with-mh)

Documentation

Send the prepared message buffer with mh.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-send-mail-with-mh ()
  "Send the prepared message buffer with mh."
  (let ((mh-previous-window-config nil)
	(name (mh-new-draft-name)))
    (setq buffer-file-name name)
    ;; MH wants to generate these headers itself.
    (when message-mh-deletable-headers
      (let ((headers message-mh-deletable-headers))
	(while headers
	  (goto-char (point-min))
	  (when (re-search-forward
		 (concat "^" (symbol-name (car headers)) ": *") nil t)
	    (delete-line))
	  (pop headers))))
    (run-hooks 'message-send-mail-hook)
    ;; Pass it on to mh.
    (mh-send-letter)))