(gnus-articles-to-read): Don't just apply

gnus-alter-articles-to-read-function to the unread articles.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cb5c196..81c9ec1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-sum.el (gnus-articles-to-read): Don't just apply
+       gnus-alter-articles-to-read-function to the unread articles. 
+
 2003-01-13  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * deuglify.el (gnus-article-outlook-unwrap-lines)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 64d97d2..dbf8b32 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5212,10 +5212,10 @@ If SELECT-ARTICLES, only select those articles from GROUP."
       (setq gnus-newsgroup-unselected
            (gnus-sorted-difference gnus-newsgroup-unreads articles))
       (when gnus-alter-articles-to-read-function
-       (setq gnus-newsgroup-unreads
+       (setq articles
              (sort
               (funcall gnus-alter-articles-to-read-function
-                       gnus-newsgroup-name gnus-newsgroup-unreads)
+                       gnus-newsgroup-name articles)
               '<)))
       articles)))