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

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

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-08-02 15:30:46 +02:00
parent d0fffa3f69
commit 0f805e429d
2 changed files with 10 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
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

17
lisp/gnus/starttls.el
View file

@ -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)