Commit ef45ee6f authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

pop3.el (pop3-movemail): Use erase-buffer instead of looping and deleting...

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.
parent 34e03853
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.
......
......@@ -1747,18 +1747,19 @@ If SCAN, request a scan of that group as well."
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)
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment