diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-09-05 00:52:55 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-09-05 00:52:55 +0000 |
| commit | ef45ee6fc8066898f1edc637b2fd3b5474b0fb9e (patch) | |
| tree | 37b2f23eb6958aa8047e832b96f9f4dfc9b6f6f6 /lisp/gnus/pop3.el | |
| parent | 34e03853f0c8f1bc3e4ba6dcc62a79c1f8027b9b (diff) | |
| download | emacs-ef45ee6fc8066898f1edc637b2fd3b5474b0fb9e.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus/pop3.el')
| -rw-r--r-- | lisp/gnus/pop3.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index b8f724c918d..8b9ff662781 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/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)) |