From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/42007 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: bug? Date: Tue, 15 Jan 2002 18:02:51 +0900 Organization: Emacsen advocacy group Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="Multipart_Tue_Jan_15_18:02:51_2002-1" X-Trace: main.gmane.org 1035177313 9116 80.91.224.250 (21 Oct 2002 05:15:13 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 05:15:13 +0000 (UTC) Cc: semi-gnus-ja@meadowy.org Return-Path: Original-Received: (qmail 18296 invoked from network); 15 Jan 2002 09:04:03 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 15 Jan 2002 09:04:03 -0000 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 16QPVC-0002jd-00; Tue, 15 Jan 2002 03:03:30 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 15 Jan 2002 03:03:22 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id DAA20924 for ; Tue, 15 Jan 2002 03:03:03 -0600 (CST) Original-Received: (qmail 18129 invoked by alias); 15 Jan 2002 09:03:03 -0000 Original-Received: (qmail 18119 invoked from network); 15 Jan 2002 09:03:02 -0000 Original-Received: from groundpoundrecords.com (207.228.244.150) by gnus.org with SMTP; 15 Jan 2002 09:03:02 -0000 Original-Received: from yamaoka@jpl.org by groundpoundrecords.com (localhost [127.0.0.1]) (8.11.1/8.11.1) id g0F932c00088 Tue, 15 Jan 2002 18:03:02 +0900 (JST) Original-To: ding@gnus.org User-Agent: T-gnus/6.15.5 (based on Oort Gnus v0.05) (revision 01) XEmacs/21.5 (beta4) (bamboo) (sparc-sun-solaris2.6) WEMIKO/1.14.1 (=?ISO-2022-JP?B?GyRCNl9KXExTQ24bKEI=?=) CLIME/1.14.3 (=?ISO-2022-JP?B?GyRCO3swZkA+OH0bKEI=?=) APEL/10.3 X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( Cancel-Lock: sha1:4+NWoHnaO+bgGT76EWMUEoR3og0= Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:42007 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:42007 --Multipart_Tue_Jan_15_18:02:51_2002-1 Content-Type: text/plain; charset=US-ASCII Hi, I am using Gnus and T-gnus (based on latest Gnus). >>>>> In >>>>> Lars Magne Ingebrigtsen wrote: Lars> Vladimir Volovich writes: >> Debugger entered--Lisp error: (wrong-type-argument listp 24744) >> gnus-adjust-marked-articles(("some.group.name" 3 ((1 . 24843)) ((seen 24602 . 24744)))) Lars> The `seen' list there isn't valid. It should be Lars> (seen (24602 . 24744)), not (seen 24602 . 24744). Lars> `G E' on the group to edit the list. Lars> But do you know what caused that corruption? Can you reproduce the Lars> actions that led to this situation? I was troubled with the same problem. I am not sure if a record like (seen NUM1 . NUM2) was generated by only T-gnus or both Gnus and T-gnus. However, the fact is that such records will not be fixed even if I use the original Gnus to load and save .newsrc.eld file, and I still could not read newsgroups if there are such corrupted records. So, I have tried to fix this as follows: 2002-01-15 Katsumi Yamaoka * 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)). It has been done only in T-gnus. The attached patch is for Gnus. As mentioned above, I am not sure if it is really needed for Gnus too, sorry. --Multipart_Tue_Jan_15_18:02:51_2002-1 Content-Type: application/x-patch; type=patch Content-Disposition: attachment; filename="gnus-sum.el.diff" Content-Transfer-Encoding: 7bit --- gnus-sum.el~ Mon Jan 14 22:01:26 2002 +++ gnus-sum.el Tue Jan 15 09:01:16 2002 @@ -4981,6 +4981,10 @@ ((eq mark-type 'range) (cond ((eq mark 'seen) + ;; 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)) --Multipart_Tue_Jan_15_18:02:51_2002-1--