Commit d451951a authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

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.
parent 2fbc1934
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>
 
* 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 <larsi@gnus.org>
* gnus-start.el (gnus-get-unread-articles): Don't try to contact denied
servers.
2011-03-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
 
* gnus-sum.el (gnus-update-marks): Revert intersection change, which
......
......@@ -1723,7 +1723,9 @@ If SCAN, request a scan of that group as well."
;; 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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment