Function: feedmail-buffer-to-smtpmail

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

Signature

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

Documentation

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

Source Code

;; Defined in /usr/src/emacs/lisp/mail/feedmail.el.gz
;; provided by jam@austin.asc.slb.com (James A. McLaughlin);
;; simplified by WJC after more feedmail development;
;; idea (but not implementation) of copying smtpmail trace buffer to
;; feedmail error buffer from:
;;   Mon 14-Oct-1996; Douglas Gray Stephens
;;   modified to insert error for displaying
(defun feedmail-buffer-to-smtpmail (prepped errors-to addr-listoid)
  "Function which actually calls `smtpmail-via-smtp' to send buffer as e-mail."
  ;; I'm not sure smtpmail.el is careful about the following
  ;; return value, but it also uses it internally, so I will fear
  ;; no evil.
  (feedmail-say-debug ">in-> feedmail-buffer-to-smtpmail %s" addr-listoid)
  (require 'smtpmail)
  (let ((result (smtpmail-via-smtp addr-listoid prepped)))
    (when result
      (set-buffer errors-to)
      (insert "Send via smtpmail failed: " result)
      (let ((case-fold-search t)
	    ;; don't be overconfident about the name of the trace buffer
	    (tracer (concat "trace.*smtp.*" (regexp-quote smtpmail-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))))))