Mercurial > emacs

diff lisp/gnus/pop3.el @ 110193:045086ad722e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
pop3.el (pop3-movemail): Use erase-buffer instead of looping and deleting regions, which seems rather odd; gnus-start.el (gnus-get-unread-articles): Protect against groups that come from no known methods.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 05 Sep 2010 00:52:55 +0000
parents 5e4124c807eb
children 48695a2e29d9
line wrap: on
line diff
--- a/lisp/gnus/pop3.el	Sun Sep 05 00:49:07 2010 +0000
+++ b/lisp/gnus/pop3.el	Sun Sep 05 00:52:55 2010 +0000
@@ -165,10 +165,7 @@
 	    (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))