Function: feedmail-send-it

feedmail-send-it is an autoloaded and byte-compiled function defined in feedmail.el.gz.

Signature

(feedmail-send-it)

Documentation

Send the current mail buffer using the Feedmail package.

This is a suitable value for send-mail-function. It can be used with various lower-level mechanisms to provide features such as queueing.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/feedmail.el.gz
;;;###autoload
(defun feedmail-send-it ()
  "Send the current mail buffer using the Feedmail package.
This is a suitable value for `send-mail-function'.  It can be used
with various lower-level mechanisms to provide features such as queueing."
  (feedmail-say-debug ">in-> feedmail-send-it")
  (save-excursion
	(let ((bfn-jiggle nil))
	  ;; if buffer-file-name is nil, temporarily use the stashed value
	  (if (and (not buffer-file-name) feedmail-queue-buffer-file-name)
		  (setq buffer-file-name feedmail-queue-buffer-file-name
				bfn-jiggle t))
  ;; avoid matching trouble over slash vs backslash by getting canonical
  (if feedmail-queue-directory
      (setq feedmail-queue-directory (expand-file-name feedmail-queue-directory)))
  (if feedmail-queue-draft-directory
      (setq feedmail-queue-draft-directory (expand-file-name feedmail-queue-draft-directory)))
  (if (not feedmail-enable-queue) (feedmail-send-it-immediately-wrapper)
    ;; else, queuing is enabled, should we ask about it or just do it?
    (if feedmail-ask-before-queue
	(funcall (feedmail-queue-send-edit-prompt))
      (feedmail-dump-message-to-queue feedmail-queue-directory 'after-queue)))
  ;; put this back
  (if bfn-jiggle (setq feedmail-queue-buffer-file-name buffer-file-name))
  )))