[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]

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