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

[elisp/flim.git] / smtp.el

diff --git a/smtp.el b/smtp.el
index 4265bbd..a3f97c6 100644 (file)
--- 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)