starttls.el (starttls-available-p): Return nil on Windows/MS-DOS systems, since these allegedly don't work there.

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 89a16769e2e..446cc4f272e 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-01-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+        * starttls.el (starttls-available-p): Return nil on Windows/MS-DOS
+        systems, since these allegedly don't work there.
+
 2012-01-04  Chris Gray  <chrismgray@gmail.com>  (tiny change)
 
         * mm-decode.el (mm-shr): Check that `gnus-summary-buffer' really is a
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