diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2012-01-05 11:14:10 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-01-05 11:14:10 +0000 |
| commit | 8f30779d5c435d6c2906dae7b0c2991a52b7db60 (patch) | |
| tree | 7112aa18d2c0864e3beccf2bde0928487c6cc3f8 /lisp/gnus/starttls.el | |
| parent | 0448233577f904d83506626769878cd576120a6e (diff) | |
| download | emacs-8f30779d5c435d6c2906dae7b0c2991a52b7db60.tar.gz | |
starttls.el (starttls-available-p): Return nil on Windows/MS-DOS systems, since these allegedly don't work there.
Diffstat (limited to 'lisp/gnus/starttls.el')
| -rw-r--r-- | lisp/gnus/starttls.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/starttls.el b/lisp/gnus/starttls.el index 30a1f172f66..2d403650533 100644 --- a/lisp/gnus/starttls.el +++ b/lisp/gnus/starttls.el @@ -297,9 +297,10 @@ GnuTLS requires a port number." (defun starttls-available-p () "Say whether the STARTTLS programs are available." - (executable-find (if starttls-use-gnutls - starttls-gnutls-program - starttls-program))) + (and (not (memq system-type '(windows-nt ms-dos))) + (executable-find (if starttls-use-gnutls + starttls-gnutls-program + starttls-program)))) (defalias 'starttls-any-program-available 'starttls-available-p) (make-obsolete 'starttls-any-program-available 'starttls-available-p |