From e3d07e845508c5260f6be5e757ce7e4b285d416d Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 6 Jan 2012 23:57:02 +0100 Subject: [PATCH] (gnus-agent-summary-fetch-group): Don't remove tick and dormant marks --- lisp/ChangeLog | 2 ++ lisp/gnus-agent.el | 5 +++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 16f6a1802..b814c41ef 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,8 @@ * gnus-agent.el (gnus-agent-store-article): Tell the Agent when the article was fetched, so that it can be expired later (bug#9958). (gnus-agent-summary-fetch-series): Add doc string. + (gnus-agent-summary-fetch-group): Don't remove tick and dormant marks + (bug#9517). * nntp.el (nntp-retrieve-groups): Refuse to do retrieval when an async retrieval is happening. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 700965374..70772bb1d 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -1229,8 +1229,9 @@ Optional arg ALL, if non-nil, means to fetch all articles." (cond (gnus-agent-mark-unread-after-downloaded (setq gnus-newsgroup-downloadable (delq article gnus-newsgroup-downloadable)) - - (gnus-summary-mark-article article gnus-unread-mark)) + (when (and (not (member article gnus-newsgroup-dormant)) + (not (member article gnus-newsgroup-marked))) + (gnus-summary-mark-article article gnus-unread-mark))) (was-marked-downloadable (gnus-summary-set-agent-mark article t))) (when (gnus-summary-goto-subject article nil t) -- 2.25.1