* 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 53e14d1..f7799f7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 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-15  Katsumi Yamaoka  <yamaoka@jpl.org>
+
        * lisp/nntp.el (nntp-send-buffer): Bind `mc-flag' to nil.
 
        * lisp/nnheader.el (mm-with-unibyte-buffer): Alias to

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 6fd381a..cb97f8a 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5009,6 +5009,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))