2000-09-21 Kenichi OKADA <okada@opaopa.org>

[elisp/flim.git] / smtp.el

diff --git a/smtp.el b/smtp.el
index 903671b..6be6927 100644 (file)
--- a/smtp.el
+++ b/smtp.el
@@ -290,7 +290,10 @@ don't define this value."
              (smtp-send-command process
                                 (format
                                  (if smtp-notify-success
-                                     "RCPT TO:<%s> NOTIFY=SUCCESS" 
+                                     (if (memq 'dsn extensions)
+                                         "RCPT TO:<%s> NOTIFY=SUCCESS" 
+                                       (throw 'done
+                                              (format "Delivery Status Notifications is not available")))
                                    "RCPT TO:<%s>")
                                  (car recipients)))
              (setq recipients (cdr recipients))