[Emacs-diffs] /srv/bzr/emacs/trunk r103822: gnus-sum.el (gnus-update-marks): Reinstate the code to not alter marks on non-selected articles.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103822
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2011-04-04 14:03:08 +0000
message:
  gnus-sum.el (gnus-update-marks): Reinstate the code to not alter marks on 
non-selected articles.
  gnus-start.el (gnus-get-unread-articles): Don't try to contact denied servers.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-start.el
  lisp/gnus/gnus-sum.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-04-02 23:41:03 +0000
+++ b/lisp/gnus/ChangeLog       2011-04-04 14:03:08 +0000
@@ -1,3 +1,8 @@
+2011-04-03  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * gnus-sum.el (gnus-update-marks): Reinstate the code to not alter
+       marks on non-selected articles.
+
 2011-04-02  Chong Yidong  <address@hidden>
 
        * proto-stream.el: Move to Emacs core, at net/network-stream.el.
@@ -10,6 +15,11 @@
        * mm-view.el (mm-display-inline-fontify): Do not fontify with
        fundamental-mode.
 
+2011-04-01  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * gnus-start.el (gnus-get-unread-articles): Don't try to contact denied
+       servers.
+
 2011-03-30  Lars Magne Ingebrigtsen  <address@hidden>
 
        * gnus-sum.el (gnus-update-marks): Revert intersection change, which

=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el   2011-03-15 22:38:41 +0000
+++ b/lisp/gnus/gnus-start.el   2011-04-04 14:03:08 +0000
@@ -1723,7 +1723,9 @@
     ;; Do the rest of the retrieval.
     (dolist (elem type-cache)
       (destructuring-bind (method method-type infos early-data) elem
-       (when (and method infos)
+       (when (and method infos
+                  (not (eq (gnus-server-status method)
+                           'denied)))
          (let ((updatep (gnus-check-backend-function
                          'request-update-info (car method))))
            ;; See if any of the groups from this method require updating.

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2011-03-31 13:31:56 +0000
+++ b/lisp/gnus/gnus-sum.el     2011-04-04 14:03:08 +0000
@@ -6070,12 +6070,15 @@
          (let* ((old (cdr (assq (cdr type) (gnus-info-marks info))))
                 ;; Don't do anything about marks for articles we
                 ;; didn't actually get any headers for.
-                (existing (gnus-compress-sequence gnus-newsgroup-articles))
                 (del
-                 (gnus-remove-from-range (gnus-copy-sequence old) list))
+                 (gnus-list-range-intersection
+                  gnus-newsgroup-articles
+                  (gnus-remove-from-range (gnus-copy-sequence old) list)))
                 (add
-                 (gnus-remove-from-range
-                  (gnus-copy-sequence list) old)))
+                 (gnus-list-range-intersection
+                  gnus-newsgroup-articles
+                  (gnus-remove-from-range
+                   (gnus-copy-sequence list) old))))
            (when add
              (push (list add 'add (list (cdr type))) delta-marks))
            (when del