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> 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 * pop3.el (pop3-display-message-size-flag): Removed -- everybody wants
message sizes. 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 * gnus-agent.el (gnus-agent-load-local): Only read the agent.lib/local
file once per `g' run. file once per `g' run.
......
...@@ -1747,18 +1747,19 @@ If SCAN, request a scan of that group as well." ...@@ -1747,18 +1747,19 @@ If SCAN, request a scan of that group as well."
infos (nth 2 (car type-cache))) infos (nth 2 (car type-cache)))
(pop type-cache) (pop type-cache)
;; See if any of the groups from this method require updating. (when method
(when (block nil ;; See if any of the groups from this method require updating.
(dolist (info infos) (when (block nil
(when (<= (gnus-info-level info) (dolist (info infos)
(if (eq method-type 'foreign) (when (<= (gnus-info-level info)
foreign-level (if (eq method-type 'foreign)
alevel)) foreign-level
(return t)))) alevel))
(gnus-read-active-for-groups method infos) (return t))))
(dolist (info infos) (gnus-read-active-for-groups method infos)
(inline (gnus-get-unread-articles-in-group (dolist (info infos)
info (gnus-active (gnus-info-group info))))))) (inline (gnus-get-unread-articles-in-group
info (gnus-active (gnus-info-group info))))))))
(gnus-message 6 "Checking new news...done"))) (gnus-message 6 "Checking new news...done")))
(defun gnus-method-rank (type method) (defun gnus-method-rank (type method)
......
...@@ -165,10 +165,7 @@ Shorter values mean quicker response, but are more CPU intensive.") ...@@ -165,10 +165,7 @@ Shorter values mean quicker response, but are more CPU intensive.")
(let ((coding-system-for-write 'binary)) (let ((coding-system-for-write 'binary))
(write-region (point-min) (point-max) crashbox t 'nomesg)) (write-region (point-min) (point-max) crashbox t 'nomesg))
(set-buffer (process-buffer process)) (set-buffer (process-buffer process))
(while (> (buffer-size) 5000) (erase-buffer))
(goto-char (point-min))
(forward-line 50)
(delete-region (point-min) (point))))
(unless pop3-leave-mail-on-server (unless pop3-leave-mail-on-server
(pop3-dele process n)) (pop3-dele process n))
(setq n (+ 1 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