procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
gnus-start.el (gnus-get-unread-articles): Don't try to contact denied servers.
This commit is contained in:
Lars Magne Ingebrigtsen 2011-04-04 14:03:08 +00:00 • committed by Katsumi Yamaoka
parent 2fbc1934ae
commit d451951a53
3 changed files with 20 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/ChangeLog
View file

@ -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>
* 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

4
lisp/gnus/gnus-start.el
View file

@ -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.

11
lisp/gnus/gnus-sum.el
View file

@ -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