From daff3f58cfb6ca69399a78ecbf5a84b9b35c13e7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 15 Jan 2002 08:23:59 +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 53e14d1..f7799f7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,11 @@ 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-15 Katsumi Yamaoka + * 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)) -- 1.7.10.4