Use erase-buffer instead of looping and deleting regions, which seems rather odd.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43bf848..f83ae7a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * pop3.el (pop3-display-message-size-flag): Removed -- everybody wants
        message sizes.
+       (pop3-movemail): Use erase-buffer instead of looping and deleting
+       regions, which seems rather odd.
 
        * gnus-agent.el (gnus-agent-load-local): Only read the agent.lib/local
        file once per `g' run.

diff --git a/lisp/pop3.el b/lisp/pop3.el
index b8f724c..8b9ff66 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -165,10 +165,7 @@ Shorter values mean quicker response, but are more CPU intensive.")
            (let ((coding-system-for-write 'binary))
              (write-region (point-min) (point-max) crashbox t 'nomesg))
            (set-buffer (process-buffer process))
-           (while (> (buffer-size) 5000)
-             (goto-char (point-min))
-             (forward-line 50)
-             (delete-region (point-min) (point))))
+           (erase-buffer))
           (unless pop3-leave-mail-on-server
             (pop3-dele process n))
          (setq n (+ 1 n))