From: yamaoka <yamaoka>
Date: Tue, 15 Jan 2002 08:23:59 +0000 (+0000)
Subject: * gnus-sum.el (gnus-adjust-marked-articles): Fix the record for `seen' if it
X-Git-Tag: t-gnus-6_15_5-02-quimby~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=daff3f58cfb6ca69399a78ecbf5a84b9b35c13e7;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 53e14d1..f7799f7 100644
--- 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
--- 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))