(gnus-agent-summary-fetch-group): Don't remove tick and dormant marks

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 16f6a18..b814c41 100644 (file)
--- 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 7009653..70772bb 100644 (file)
--- 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)