* mail/feedmail.el (feedmail-buffer-to-smtpmail):

`smtpmail-via-smtp' now returns the error instead of nil.
parent c7f98048
2011-07-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/feedmail.el (feedmail-buffer-to-smtpmail):
`smtpmail-via-smtp' now returns the error instead of nil.
* isearch.el (isearch-search-fun-function): Clarify the doc string
(bug#8101).
......
......@@ -1633,22 +1633,21 @@ local gurus."
;; no evil.
(feedmail-say-debug ">in-> feedmail-buffer-to-smtpmail %s" addr-listoid)
(require 'smtpmail)
(if (not (smtpmail-via-smtp addr-listoid prepped))
(progn
(set-buffer errors-to)
(insert "Send via smtpmail 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 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))))))
(let ((result (smtpmail-via-smtp addr-listoid prepped)))
(when result
(set-buffer errors-to)
(insert "Send via smtpmail failed: %s" 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))))))
(declare-function smtp-via-smtp "ext:smtp" (sender recipients smtp-text-buffer))
(defvar smtp-server)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment