diff lisp/gnus/pop3.el @ 110197:727cc5d69397

pop3.el (pop3-write-to-file): Don't output messages when saving; mail-source.el (mail-source-delete-crash-box): Really only check the incoming files once in a while; nnml.el (nnml-save-nov): Message around nnml-save-nov so that the culprit is more visible; pop3.el (pop3-send-streaming-command): Off-by-one error on the request loop (for debugging purposes) removed.

--- a/lisp/gnus/pop3.el	Sun Sep 05 01:12:51 2010 +0000
+++ b/lisp/gnus/pop3.el	Sun Sep 05 01:18:05 2010 +0000
@@ -150,7 +150,7 @@
 (defun pop3-send-streaming-command (process command count total-size)
   (erase-buffer)
   (let ((i 1))
-    (while (>= (1+ count) i)
+    (while (>= count i)
       (process-send-string process (format "%s %d\r\n" command i))
       ;; Only do 100 messages at a time to avoid pipe stalls.
       (when (zerop (% i 100))
@@ -197,7 +197,7 @@
 	;; delete it.
 	(when (eolp)
 	  (delete-char 1))
-	(write-region (point-min) (point-max) file)))))
+	(write-region (point-min) (point-max) file nil 'nomesg)))))
 
 (defun pop3-number-of-responses (endp)
   (let ((responses 0))