]> git.eshelyaron.com Git - emacs.git/commitdiff
* mail/feedmail.el (feedmail-buffer-to-smtpmail):
authorLars Magne Ingebrigtsen <larsi@gnus.org>
Sun, 3 Jul 2011 20:09:38 +0000 (22:09 +0200)
committerLars Magne Ingebrigtsen <larsi@gnus.org>
Sun, 3 Jul 2011 20:09:38 +0000 (22:09 +0200)
`smtpmail-via-smtp' now returns the error instead of nil.

lisp/ChangeLog
lisp/mail/feedmail.el

index 7ce4753cb141945ab94d930c854a98c9a6253229..481000f8851bffef6791ce50dcf7b7705d463056 100644 (file)
@@ -1,5 +1,8 @@
 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).
 
index 934637ecbbd10bf28fb9de5aa7a5f2c5e00bfad7..bc9a0604279994303d2c0d684eb36ee25f7ad480 100644 (file)
@@ -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)