From: yamaoka <yamaoka>
Date: Tue, 15 Jan 2002 08:23:49 +0000 (+0000)
Subject: * gnus-sum.el (gnus-adjust-marked-articles): Fix the record for `seen' if it
X-Git-Tag: t-gnus-6_15_4-11-last-
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d107f5fcd87b0e4a4ed2b631fb30ad540559b6bc;p=elisp%2Fgnus.git-

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