From: okada <okada>
Date: Mon, 30 Jul 2001 10:33:31 +0000 (+0000)
Subject: 2001-07-30  AMAKAWA Shuhei <sa264@cam.ac.uk>
X-Git-Tag: ChangeLog~13
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=commitdiff_plain;h=ed5904e50ab4019231d8a68a083996183d5a9eed

2001-07-30  AMAKAWA Shuhei <sa264@cam.ac.uk>

        * smtp.el(smtp-submit-package): Send EHLO after starttls.
---

diff --git a/ChangeLog b/ChangeLog
index 57538dc..41ff986 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-07-30  AMAKAWA Shuhei <sa264@cam.ac.uk>
+
+	* smtp.el(smtp-submit-package): Send EHLO after starttls.
+
 2001-06-01  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
 	* FLIM: Version 1.14.3 (Unebigory-Dòmae)-A released.
diff --git a/smtp.el b/smtp.el
index 4265bbd..a3f97c6 100644
--- a/smtp.el
+++ b/smtp.el
@@ -295,7 +295,9 @@ BUFFER may be a buffer or a buffer name which contains mail message."
 	  (smtp-response-error
 	   (smtp-primitive-helo package)))
 	(if smtp-use-starttls
-	    (smtp-primitive-starttls package))
+	    (progn
+	    (smtp-primitive-starttls package)
+	    (smtp-primitive-ehlo package)))
 	(if smtp-use-sasl
 	    (smtp-primitive-auth package))
 	(smtp-primitive-mailfrom package)