procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(smtpmail-open-stream): Don't hard code

Browse source 
starttls-program.
This commit is contained in:
Simon Josefsson 2003-05-13 19:48:50 +00:00
parent 1e96c0077d
commit 11c10f3bf0
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2003-05-13 Simon Josefsson <jas@extundo.com>
* mail/smtpmail.el (smtpmail-open-stream): Don't hard code
starttls-program.
2003-05-13 Rajesh Vaidheeswarran <rv@gnu.org>
* whitespace.el (whitespace-global-mode): Add :link entry

6
lisp/mail/smtpmail.el
View file

@ -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 @@ This is relative to `smtpmail-queue-dir'.")
(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)