Function: feedmail-buffer-to-smtp

feedmail-buffer-to-smtp is a byte-compiled function defined in feedmail.el.gz.

Signature

(feedmail-buffer-to-smtp PREPPED ERRORS-TO ADDR-LISTOID)

Documentation

Function which actually calls smtp-via-smtp to send buffer as e-mail.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/feedmail.el.gz
;; FLIM's smtp.el pointed out to me by Kenichi Handa <handa@gnu.org>
(defun feedmail-buffer-to-smtp (prepped errors-to addr-listoid)
  "Function which actually calls smtp-via-smtp to send buffer as e-mail."
  (feedmail-say-debug ">in-> feedmail-buffer-to-smtp %s" addr-listoid)
  (require 'smtp)
  (if (not (smtp-via-smtp user-mail-address addr-listoid prepped))
	  (progn
		(set-buffer errors-to)
		(insert "Send via smtp failed.  Probable SMTP protocol error.\n")
		(insert "Look for details below or in the *Messages* buffer.\n\n")
		(let ((case-fold-search t)
			  ;; don't be overconfident about the name of the trace buffer
			  (tracer (concat "trace.*smtp.*" (regexp-quote smtp-server))))
		  (mapcar
		   (lambda (buffy)
			  (if (string-match tracer (buffer-name buffy))
				  (progn
					(insert "SMTP Trace from " (buffer-name buffy) "\n---------------")
					(insert-buffer-substring buffy)
					(insert "\n\n"))))
		   (buffer-list))))))