(starttls-available-p): Renamed from `starttls-any-program-available' and...

(starttls-available-p): Renamed from `starttls-any-program-available' and changed return convention.
parent d0fffa3f
2011-08-02 Lars Magne Ingebrigtsen <larsi@gnus.org>
* starttls.el (starttls-available-p): Renamed from
`starttls-any-program-available' and changed return convention.
2011-07-31 Lars Ingebrigtsen <larsi@gnus.org>
* nnmaildir.el (nnmaildir-request-accept-article): Don't call
......
......@@ -295,18 +295,11 @@ GNUTLS requires a port number."
(starttls-set-process-query-on-exit-flag process nil)
process)))
(defun starttls-any-program-available ()
(let ((program (if starttls-use-gnutls
starttls-gnutls-program
starttls-program)))
(condition-case ()
(progn
(call-process program)
program)
(error (progn
(message "No STARTTLS program was available (tried '%s')"
program)
nil)))))
(defun starttls-available-p ()
"Say whether the STARTTLS programs are available."
(executable-find (if starttls-use-gnutls
starttls-gnutls-program
starttls-program)))
(provide 'starttls)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment