* nnheader.el (nnheader-read-timeout): Change the default timeout from

0.1 seconds to 0.01 seconds.  This will make nntp and pop3 article
retrieval faster in some cases, but might make CPU usage larger.  If
this has any bad side effects, we might revert this change.

* pop3.el (pop3-movemail):
(pop3-movemail): Use nnheader-accept-process-output instead of sleeping
unconditionally.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d20f06f..81e6755 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,14 @@
 2008-05-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnheader.el (nnheader-read-timeout): Change the default timeout from
+       0.1 seconds to 0.01 seconds.  This will make nntp and pop3 article
+       retrieval faster in some cases, but might make CPU usage larger.  If
+       this has any bad side effects, we might revert this change.
+
        * pop3.el (pop3-movemail): Change the sit-for from 0.1 to 0.01, which
        seems to make mail retrieval much, much faster.
+       (pop3-movemail): Use nnheader-accept-process-output instead of sleeping
+       unconditionally. 
 
        * gnus-draft.el (gnus-group-send-queue): Bind
        message-send-mail-partially-limit to nil to avoid being prompted.

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index cad34db..dd0dc4a 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -86,7 +86,7 @@ Integer values will in effect be rounded up to the nearest multiple of
       ;; what's possible.  Perhaps better, maybe the Windows/DOS primitive
       ;; could round up non-zero timeouts to a minimum of 1.0?
       1.0
-    0.1)
+    0.01)
   "How long nntp should wait between checking for the end of output.
 Shorter values mean quicker response, but are more CPU intensive.")
 

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 71b37cf..8f5132c 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -169,7 +169,7 @@ Shorter values mean quicker response, but are more CPU intensive.")
           (unless pop3-leave-mail-on-server
             (pop3-dele process n))
          (setq n (+ 1 n))
-         (if pop3-debug (sit-for 1) (sit-for 0.01))) ; why?
+         (nnheader-accept-process-output process))
       (when (and pop3-leave-mail-on-server
                 (> n 1))
        (message "pop3.el doesn't support UIDL.  Setting `pop3-leave-mail-on-server'