(gnus-group-mark-article-read): Propagate the read mark to the backend

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b5b7063..7291709 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-09-05  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-group.el (gnus-group-mark-article-read): Propagate the read mark
+       to the backend (bug#11804).
+
        * message.el (message-insert-newsgroups): Don't insert newsgroup
        duplicates (bug#12275).
 

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index aaeef4d..550447c 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -4672,6 +4672,8 @@ you the groups that have both dormant articles and cached articles."
              (setq mark gnus-expirable-mark))
            (setq mark (gnus-request-update-mark
                        group article mark))
+           (gnus-request-set-mark
+            group (list (list (list article) 'add '(read))))
            (gnus-mark-article-as-read article mark)
            (setq gnus-newsgroup-active (gnus-active group))
            (when active