Mercurial > emacs
changeset 110193:045086ad722e
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 | 1acd79f80f50 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-start.el lisp/gnus/pop3.el |
| diffstat | 3 files changed, 19 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Sep 05 00:49:07 2010 +0000 +++ b/lisp/gnus/ChangeLog Sun Sep 05 00:52:55 2010 +0000 @@ -1,7 +1,12 @@ 2010-09-04 Lars Magne Ingebrigtsen <larsi@gnus.org> + * gnus-start.el (gnus-get-unread-articles): Protect against groups that + come from no known methods. + * 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.
--- a/lisp/gnus/gnus-start.el Sun Sep 05 00:49:07 2010 +0000 +++ b/lisp/gnus/gnus-start.el Sun Sep 05 00:52:55 2010 +0000 @@ -1747,18 +1747,19 @@ infos (nth 2 (car type-cache))) (pop type-cache) - ;; See if any of the groups from this method require updating. - (when (block nil - (dolist (info infos) - (when (<= (gnus-info-level info) - (if (eq method-type 'foreign) - foreign-level - alevel)) - (return t)))) - (gnus-read-active-for-groups method infos) - (dolist (info infos) - (inline (gnus-get-unread-articles-in-group - info (gnus-active (gnus-info-group info))))))) + (when method + ;; See if any of the groups from this method require updating. + (when (block nil + (dolist (info infos) + (when (<= (gnus-info-level info) + (if (eq method-type 'foreign) + foreign-level + alevel)) + (return t)))) + (gnus-read-active-for-groups method infos) + (dolist (info infos) + (inline (gnus-get-unread-articles-in-group + info (gnus-active (gnus-info-group info)))))))) (gnus-message 6 "Checking new news...done"))) (defun gnus-method-rank (type method)
--- 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))