(imap-read-timeout): New.

(imap-wait-for-tag): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1efbad7..80ea98d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -11,6 +11,8 @@
 
        * imap.el (imap-gssapi-program): Also try GNU SASL.
        (imap-gssapi-open): Accept GNU SASL greeting.
+       (imap-read-timeout): New.
+       (imap-wait-for-tag): Use it.
 
 2003-03-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/imap.el b/lisp/imap.el
index 2fe435d..0492044 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -252,6 +252,16 @@ encoded mailboxes which doesn't translate into ISO-8859-1."
   :group 'imap
   :type 'string)
 
+(defcustom imap-read-timeout (if (string-match
+                                 "windows-nt\\|os/2\\|emx\\|cygwin"
+                                 (symbol-name system-type))
+                                1.0
+                              0.1)
+  "*How long to wait between checking for the end of output.
+Shorter values mean quicker response, but is more CPU intensive."
+  :type 'number
+  :group 'imap)
+
 ;; Various variables.
 
 (defvar imap-fetch-data-hook nil
@@ -1737,7 +1747,11 @@ on failure."
          (unless (< len 10)
            (setq imap-have-messaged t)
            (message "imap read: %dk" len))
-         (accept-process-output imap-process 1)))
+         (accept-process-output imap-process
+                                (truncate imap-read-timeout)
+                                (truncate (* (- imap-read-timeout
+                                                (truncate imap-read-timeout))
+                                             1000)))))
       (when imap-have-messaged
        (message ""))
       (and (memq (process-status imap-process) '(open run))