Mercurial > emacs

changeset 50973:7f434a265bfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smtpmail-open-stream): Don't hard code starttls-program.
author Simon Josefsson <jas@extundo.com>
date Tue, 13 May 2003 19:48:21 +0000
parents f9aa8c8600ff
children acc69db7edf8
files lisp/mail/smtpmail.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)