(gnus-read-mark-p): added the spam-mark as a

"not-read" mark
(gnus-summary-mark-forward): added the spam-mark to the list of
marks not to be marked as "read" when viewed

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c7d2524..5dbf4f0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-01-05  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-sum.el (gnus-read-mark-p): added the spam-mark as a
+       "not-read" mark
+       (gnus-summary-mark-forward): added the spam-mark to the list of
+       marks not to be marked as "read" when viewed
+
 2003-01-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-msg.el (gnus-inews-make-draft): Quote article-reply. 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index ca63d10..c3b7324 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2855,6 +2855,7 @@ article number."
 This is all marks except unread, ticked, dormant, and expirable."
   (not (or (= mark gnus-unread-mark)
           (= mark gnus-ticked-mark)
+          (= mark gnus-spam-mark)
           (= mark gnus-dormant-mark)
           (= mark gnus-expirable-mark))))
 
@@ -9485,7 +9486,7 @@ If NO-EXPIRE, auto-expiry will be inhibited."
        (gnus-summary-goto-unread
         (and gnus-summary-goto-unread
              (not (eq gnus-summary-goto-unread 'never))
-             (not (memq mark (list gnus-unread-mark
+             (not (memq mark (list gnus-unread-mark gnus-spam-mark
                                    gnus-ticked-mark gnus-dormant-mark)))))
        (n (abs n))
        (mark (or mark gnus-del-mark)))