(gnus-update-marks): Reinstate the code to not alter marks on non-selected articles.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6fd8f54..bbac50e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-sum.el (gnus-update-marks): Reinstate the code to not alter
+       marks on non-selected articles.
+
 2011-04-02  Chong Yidong  <cyd@stupidchicken.com>
 
        * nnimap.el (nnimap-open-connection-1): Pass explicit :end-of-command

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 10aa4e1..e3ae1d7 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6070,12 +6070,15 @@ If SELECT-ARTICLES, only select those articles from GROUP."
          (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