# HG changeset patch
# User Simon Josefsson <jas@extundo.com>
# Date 1052855301 0
# Node ID 7f434a265bfa5747a6c4df61f63a0cc3acadd57d
# Parent  f9aa8c8600ff308e1735ab73d20a072f7f53f14e
(smtpmail-open-stream): Don't hard code
starttls-program.

diff -r f9aa8c8600ff -r 7f434a265bfa lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Tue May 13 19:45:01 2003 +0000
+++ b/lisp/mail/smtpmail.el	Tue May 13 19:48:21 2003 +0000
@@ -1,6 +1,6 @@
 ;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail
 
-;; Copyright (C) 1995, 1996, 2001, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996, 2001, 2002, 2003 Free Software Foundation, Inc.
 
 ;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp>
 ;; Maintainer: Simon Josefsson <simon@josefsson.org>
@@ -457,7 +457,9 @@
   (let ((cred (smtpmail-find-credentials
 	       smtpmail-starttls-credentials host port)))
     (if (null (and cred (condition-case ()
-			    (call-process "starttls")
+			    (progn
+			      (require 'starttls)
+			      (call-process starttls-program))
 			  (error nil))))
 	;; The normal case.
 	(open-network-stream "SMTP" process-buffer host port)