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

	* smtp.el (smtp-via-smtp): Cause an error if `smtp-notify-success'
	is not available.

2000-09-18  KUSANO Takayuki  <AE5T-KSN@asahi-net.or.jp>

	* smtp.el (smtp-via-smtp): Check `service extensions' for DSN.

diff --git a/ChangeLog b/ChangeLog
index 9a69f89..e984f2e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,18 @@
+2000-09-21  Kenichi OKADA   <okada@opaopa.org>
+
+       * smtp.el (smtp-via-smtp): Cause an error if `smtp-notify-success'
+       is not available.
+
+2000-09-18  KUSANO Takayuki  <AE5T-KSN@asahi-net.or.jp>
+
+       * smtp.el (smtp-via-smtp): Check `service extensions' for DSN.
+
+2000-09-21  Kenichi OKADA <okada@opaopa.org>
+
+       * mime-def.el (mime-library-product): Up.
+       * SLIM-VERSION: Up.
+
+\f
 2000-09-16  Kenichi OKADA   <okada@opaopa.org>
 
        * SLIM: Version 1.14.2 released.

diff --git a/SLIM-VERSION b/SLIM-VERSION
index 7e4eb26..6b1b20f 100644 (file)
--- a/SLIM-VERSION
+++ b/SLIM-VERSION
@@ -12,4 +12,5 @@
 1.14.0 \e$B0BG\$J$D$_\e(B
 1.14.1 \e$B>>ED=c\e(B
 1.14.2 \e$B2C8n0!0M\e(B
-
+l.14.3 \e$B<D86$H$b$(\e(B
+1.14.4 ??

diff --git a/mime-def.el b/mime-def.el
index fdc2e03..3ed216a 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -36,7 +36,7 @@
   )
 
 (eval-and-compile
-  (defconst mime-library-product ["SLIM" (1 14 2) "\e$B2C8n0!0M\e(B"]
+  (defconst mime-library-product ["SLIM" (1 14 3) "\e$B<D86$H$b$(\e(B"]
     "Product name, version number and code name of MIME-library package."))
 
 (defmacro mime-product-name (product)

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))