From 36ae55150d0c37770f1a14e24b624a49672d84a2 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Sun, 5 Jan 2003 22:24:21 +0000 Subject: [PATCH] (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 --- lisp/ChangeLog | 7 +++++++ lisp/gnus-sum.el | 3 ++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c7d252472..5dbf4f088 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2003-01-05 Teodor Zlatanov + + * 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 * gnus-msg.el (gnus-inews-make-draft): Quote article-reply. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index ca63d1066..c3b7324fb 100644 --- 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))) -- 2.34.1