# HG changeset patch
# User Simon Josefsson <jas@extundo.com>
# Date 1033269575 0
# Node ID 666b84b52b8290686010dd7cf2313bd0db98eea0
# Parent  c527c3c4f0a30efcc4b54b2654a4f9cd62b5f3d3
(smtpmail-via-smtp): Only negotiate starttls on
streams that were opened using starttls.

diff -r c527c3c4f0a3 -r 666b84b52b82 lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Sun Sep 29 01:51:48 2002 +0000
+++ b/lisp/mail/smtpmail.el	Sun Sep 29 03:19:35 2002 +0000
@@ -613,7 +613,7 @@
 	    (if (and do-starttls
 		     (smtpmail-find-credentials smtpmail-starttls-credentials host port)
 		     (member 'starttls supported-extensions)
-		     (process-id process))
+		     (numberp (process-id process)))
 		(progn
 		  (smtpmail-send-command process (format "STARTTLS"))
 		  (if (or (null (car (setq response-code (smtpmail-read-response process))))