[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103822: gnus-sum.el (gnus-update-mar
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103822: gnus-sum.el (gnus-update-marks): Reinstate the code to not alter marks on non-selected articles. |
Date: |
Mon, 04 Apr 2011 14:03:08 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [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 <=