Changes committed gnus/lisp (ChangeLog nnheader.el pop3.el)

Modified: ChangeLog nnheader.el pop3.el

* 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.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1862 gnus/lisp/ChangeLog:7.1863
--- ChangeLog:7.1862	Mon May 19 17:25:56 2008
+++ ChangeLog	Mon May 19 17:34:44 2008
@@ -1,7 +1,14 @@
 2008-05-19  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* 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.
Index: nnheader.el
diff -u gnus/lisp/nnheader.el:7.33 gnus/lisp/nnheader.el:7.34
--- nnheader.el:7.33	Mon May 19 10:47:42 2008
+++ nnheader.el	Mon May 19 17:34:44 2008
@@ -86,7 +86,7 @@
       ;; 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.")
 
Index: pop3.el
diff -u gnus/lisp/pop3.el:7.35 gnus/lisp/pop3.el:7.36
--- pop3.el:7.35	Mon May 19 17:25:56 2008
+++ pop3.el	Mon May 19 17:34:44 2008
@@ -169,7 +169,7 @@
           (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'