(nntp-read-timeout): Default to using a second delay

under Microsoft Windows.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 74dd186..264e880 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nntp.el (nntp-read-timeout): Default to using a second delay
+       under Microsoft Windows.
+
 2003-01-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nnheader.el (nnheader-directory-separator-character): New

diff --git a/lisp/nntp.el b/lisp/nntp.el
index ae0cfdb..cbb4844 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -207,7 +207,10 @@ NOTE: This variable is never seen to work in Emacs 20 and XEmacs 21.")
   "*Hook run just before posting an article.  It is supposed to be used
 to insert Cancel-Lock headers.")
 
-(defvoo nntp-read-timeout 0.1
+(defvoo nntp-read-timeout (if (string-match "windows-nt\\|os/2\\|emx\\|cygwin"
+                                           (symbol-name system-type))
+                             1.0
+                           0.1)
   "How long nntp should wait between checking for the end of output.
 Shorter values mean quicker response, but is more CPU intensive.")