emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r103790: gnus-sum.el (gnus-update-mar


From: Katsumi Yamaoka
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r103790: gnus-sum.el (gnus-update-marks): Revert intersection change, which made marks not propagate, again.
Date: Thu, 31 Mar 2011 13:31:56 +0000
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 103790
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2011-03-31 13:31:56 +0000
message:
  gnus-sum.el (gnus-update-marks): Revert intersection change, which made marks 
not propagate, again.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-sum.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-03-30 14:59:42 +0000
+++ b/lisp/gnus/ChangeLog       2011-03-31 13:31:56 +0000
@@ -1,3 +1,8 @@
+2011-03-30  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * gnus-sum.el (gnus-update-marks): Revert intersection change, which
+       made marks not propagate, again.
+
 2011-03-30  Chong Yidong  <address@hidden>
 
        * proto-stream.el (open-protocol-stream): Bring back `network' type.

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2011-03-30 14:59:42 +0000
+++ b/lisp/gnus/gnus-sum.el     2011-03-31 13:31:56 +0000
@@ -6072,14 +6072,10 @@
                 ;; didn't actually get any headers for.
                 (existing (gnus-compress-sequence gnus-newsgroup-articles))
                 (del
-                 (gnus-sorted-range-intersection
-                  existing
-                  (gnus-remove-from-range (gnus-copy-sequence old) list)))
+                 (gnus-remove-from-range (gnus-copy-sequence old) list))
                 (add
-                 (gnus-sorted-range-intersection
-                  existing
-                  (gnus-remove-from-range
-                   (gnus-copy-sequence list) old))))
+                 (gnus-remove-from-range
+                  (gnus-copy-sequence list) old)))
            (when add
              (push (list add 'add (list (cdr type))) delta-marks))
            (when del


reply via email to

[Prev in Thread] Current Thread [Next in Thread]