* 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)).

diff --git a/ChangeLog b/ChangeLog
index 1bec1be..4b3d7c2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-15  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * 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  <hermit@koka-in.org>
 
        * 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 (file)
--- 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))