From: Lars Magne Ingebrigtsen Date: Thu, 31 Mar 2011 13:31:56 +0000 (+0000) Subject: gnus-sum.el (gnus-update-marks): Revert intersection change, which made marks not... X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~446 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5b686dc3061ad1368d72da3d7494fc862cc46df;p=emacs.git gnus-sum.el (gnus-update-marks): Revert intersection change, which made marks not propagate, again. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 51169f7b9df..2496453dd89 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-03-30 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-update-marks): Revert intersection change, which + made marks not propagate, again. + 2011-03-30 Chong Yidong * proto-stream.el (open-protocol-stream): Bring back `network' type. diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 91dc6fb9595..10aa4e12dcf 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -6072,14 +6072,10 @@ If SELECT-ARTICLES, only select those articles from GROUP." ;; 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