[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101344: pop3.el (pop3-movemail): Use
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101344: 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. |
Date: |
Sun, 05 Sep 2010 00:52:55 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101344
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-05 00:52:55 +0000
message:
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.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-start.el
lisp/gnus/pop3.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-09-05 00:49:07 +0000
+++ b/lisp/gnus/ChangeLog 2010-09-05 00:52:55 +0000
@@ -1,7 +1,12 @@
2010-09-04 Lars Magne Ingebrigtsen <address@hidden>
+ * 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.
=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el 2010-09-05 00:44:53 +0000
+++ b/lisp/gnus/gnus-start.el 2010-09-05 00:52:55 +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)
=== modified file 'lisp/gnus/pop3.el'
--- a/lisp/gnus/pop3.el 2010-09-05 00:49:07 +0000
+++ b/lisp/gnus/pop3.el 2010-09-05 00:52:55 +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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101344: 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.,
Katsumi Yamaoka <=