mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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.

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-09-05 00:52:55 +00:00 • committed by Katsumi Yamaoka
parent 34e03853f0
commit ef45ee6fc8
3 changed files with 19 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -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.

25
lisp/gnus/gnus-start.el
View file

@ -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)

5
lisp/gnus/pop3.el
View file

@ -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))