2001-08-18 18:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-sum.el (gnus-group-make-articles-read): gnus-request-set-mark.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 86b80c0..5535606 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-08-18 18:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-sum.el (gnus-group-make-articles-read): gnus-request-set-mark.
+
        * mm-decode.el (mm-save-part-to-file): Insert the handle.
 
 2001-08-18 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index c26a6da..6e735ac 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5076,6 +5076,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
             (gnus-group-update-group ,group t))))
       ;; Add the read articles to the range.
       (gnus-info-set-read info range)
+      (gnus-request-set-mark group (list (list range 'add '(read))))
       ;; Then we have to re-compute how many unread
       ;; articles there are in this group.
       (when active