X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fstarttls.el;h=2d40365053355a1aede65b63d86a08ce6d1c12c8;hb=873ba7b51ddfb07246cd874b7de72662308236c9;hp=af9fd42c1277797bd7dcb541dc7544fffa2e775d;hpb=77d0c673aad416091abd5f9bc295917437898da5;p=gnus

diff --git a/lisp/starttls.el b/lisp/starttls.el
index af9fd42c1..2d4036505 100644
--- a/lisp/starttls.el
+++ b/lisp/starttls.el
@@ -1,6 +1,6 @@
 ;;; starttls.el --- STARTTLS functions
 
-;; Copyright (C) 1999-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2012 Free Software Foundation, Inc.
 
 ;; Author: Daiki Ueno <ueno@unixuser.org>
 ;; Author: Simon Josefsson <simon@josefsson.org>
@@ -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