From: okada <okada>
Date: Thu, 21 Sep 2000 01:45:23 +0000 (+0000)
Subject: 2000-09-21  Kenichi OKADA   <okada@opaopa.org>
X-Git-Tag: slim-1_14_3~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f3019a9f4a7d1479d0f46cd61c24125acc277e3d;p=elisp%2Fflim.git

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
--- 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.
+
+
 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
--- a/SLIM-VERSION
+++ b/SLIM-VERSION
@@ -12,4 +12,5 @@
 1.14.0 安倍なつみ
 1.14.1 松田純
 1.14.2 加護亜依
-
+l.14.3 篠原ともえ
+1.14.4 ??
diff --git a/mime-def.el b/mime-def.el
index fdc2e03..3ed216a 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -36,7 +36,7 @@
   )
 
 (eval-and-compile
-  (defconst mime-library-product ["SLIM" (1 14 2) "加護亜依"]
+  (defconst mime-library-product ["SLIM" (1 14 3) "篠原ともえ"]
     "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
--- 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))