From d107f5fcd87b0e4a4ed2b631fb30ad540559b6bc Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 15 Jan 2002 08:23:49 +0000 Subject: [PATCH] * gnus-sum.el (gnus-adjust-marked-articles): Fix the record for `seen' if it looks like (seen NUM1 . NUM2). It should be (seen (NUM1 . NUM2)). --- ChangeLog | 6 ++++++ lisp/gnus-sum.el | 4 ++++ 2 files changed, 10 insertions(+) diff --git a/ChangeLog b/ChangeLog index 1bec1be..4b3d7c2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2002-01-15 Katsumi Yamaoka + + * lisp/gnus-sum.el (gnus-adjust-marked-articles): Fix the record + for `seen' if it looks like (seen NUM1 . NUM2). It should be + (seen (NUM1 . NUM2)). + 2002-01-12 Katsuhiro Hermit Endo * texi/gnus-ja.texi (Article Date): Update Japanese translation. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index d7f6a8e..a7dae60 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -4956,6 +4956,10 @@ If SELECT-ARTICLES, only select those articles from GROUP." ((eq mark-type 'range) (cond ((eq mark 'seen) + ;; T-gnus change: Fix the record for `seen' if it looks like + ;; (seen NUM1 . NUM2). It should be (seen (NUM1 . NUM2)). + (when (numberp (cddr marks)) + (setcdr marks (list (cdr marks)))) (setq articles (cdr marks)) (while (and articles (or (and (consp (car articles)) -- 1.7.10.4