STARTTLS problem in flim-1.14.3

[AMAKAWA Shuhei]

Hello.
I use flim-1.14.3.
RFC2487 (5.1) suggests that you start over with EHLO after
successful STARTTLS and the ensuing negotiation.  But apparently
flim-1.14.3 doesn't do so.
By applying the enclosed patch, I was able to use STARTTLS with an
smtp server (Exim 3.31).  I don't know if this is the right way to
fix it, though.
Could you possibly have a look at the problem?
Thanks.

--
Shuhei

--- /usr/local/share/emacs/site-lisp/flim/smtp.el	Wed Dec 27 10:28:39 2000
+++ smtp.el	Fri Jul 27 01:29:35 2001
@@ -295,7 +295,12 @@
 	  (smtp-response-error
 	   (smtp-primitive-helo package)))
 	(if smtp-use-starttls
-	    (smtp-primitive-starttls package))
+	    (progn
+	      (smtp-primitive-starttls package)
+	      (condition-case nil
+		  (smtp-primitive-ehlo package)
+		(smtp-response-error
+		 (smtp-primitive-helo package)))))
 	(if smtp-use-sasl
 	    (smtp-primitive-auth package))
 	(smtp-primitive-mailfrom package)