From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/26044 Path: main.gmane.org!not-for-mail From: Shenghuo ZHU Newsgroups: gmane.emacs.gnus.general Subject: Re: Stringp-error when retrieving grouplist from news.newsfeeds.com Date: 26 Oct 1999 21:59:52 -0400 Organization: U of Rochester Sender: owner-ding@hpc.uh.edu Message-ID: <2nn1t54l7r.fsf@tiger.jia.vnet> References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035163326 17352 80.91.224.250 (21 Oct 2002 01:22:06 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:22:06 +0000 (UTC) Cc: bugs@gnus.org (The Gnus Bugfixing Girls + Boys), Gnus Mailing List Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id VAA08281 for ; Tue, 26 Oct 1999 21:57:18 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id UAB18461; Tue, 26 Oct 1999 20:57:02 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 26 Oct 1999 20:55:56 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id UAA07270 for ; Tue, 26 Oct 1999 20:55:38 -0500 (CDT) Original-Received: from cayuga.cs.rochester.edu (cayuga.cs.rochester.edu [192.5.53.209]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id VAA08193; Tue, 26 Oct 1999 21:55:01 -0400 (EDT) Original-Received: from heart.cs.rochester.edu (heart.cs.rochester.edu [192.5.53.109]) by cayuga.cs.rochester.edu (8.9.3/Q) with ESMTP id VAA27022; Tue, 26 Oct 1999 21:54:52 -0400 (EDT) Original-Received: (from zsh@localhost) by heart.cs.rochester.edu (8.9.3/8.9.3) id VAA01679; Tue, 26 Oct 1999 21:59:53 -0400 Original-To: andy.eskilsson@telelogic.se X-Attribution: ZSH X-Face: 'IF:e51ib'Qbl^(}l^&4-J`'P!@[4~O|&k#:@Gld#b/]oMq&`&FVY._3+b`mzp~Jeve~/#/ ERD!OTe<86UhyN=l`mrPY)M7_}`Ktt\K+58Z!hu7>qU,i.N7TotU[FYE(f1;}`g2xj!u*l`^&=Q!g{ *q|ddto|nkt"$r,K$[)"|6,elPH= GJ6Q In-Reply-To: Andrew Markebo's message of "26 Oct 1999 22:53:48 +0200" Original-Lines: 43 User-Agent: Gnus/5.07009701 (Pterodactyl Gnus v0.97.1) XEmacs/21.2 (Shinjuku) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:26044 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:26044 --=-=-= Content-Transfer-Encoding: quoted-printable >>>>> "AM" =3D=3D Andrew Markebo writes: AM> Pterodactyl Gnus v0.97 AM> GNU Emacs 20.4.2 (sparc-sun-solaris2.5.1, X toolkit) AM> of Thu Jul 22 1999 on warp AM> 200 127.0.0.1 DNEWS Version 5.2c, S7, posting OK=20 AM> What I did was ^ to enter the server buffer, jumped to AM> news.newsfeeds.com, enter.. chew chew chew.. whammo AM> Connecting to news.newsfeeds.com... AM> Reading active file... AM> Reading active file...done AM> Wrong type argument: stringp, 100622.2474 AM> /Andy AM> It is a huge list of articles.. here comes the backtrace: AM> Signaling: (wrong-type-argument stringp 100622.2474) AM> #[(l1 l2) "@ @(TM)=87" [l1 l2] 2]((100622.2474 . 1) (1a . 1)) AM> sort(((ercielt . 1) (erg2310b . 1) (ernmc\.firewall-1 . 1238)=20 [...] AM> gnus-browse-foreign-server("news.newsfeeds.com" #) AM> gnus-server-read-server("news.newsfeeds.com") AM> call-interactively(gnus-server-read-server) I guess I've fixed it. The weird behavior is because of the all-digit group. Could you test the patch (committed) ? --=20 Shenghuo 1999-10-26 21:44:05 Shenghuo ZHU * gnus-srvr.el (gnus-browse-foreign-server): Use `buffer-substring' instead of `read'. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=97-115.diff Index: gnus-srvr.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-srvr.el,v retrieving revision 5.11 diff -u -r5.11 gnus-srvr.el --- gnus-srvr.el 1999/09/27 15:18:52 5.11 +++ gnus-srvr.el 1999/10/27 01:43:55 @@ -594,7 +594,9 @@ (delete-matching-lines gnus-ignored-newsgroups)) (while (not (eobp)) (ignore-errors - (push (cons (read cur) + (push (cons (let ((p (point))) + (skip-chars-forward "^ \t") + (buffer-substring p (point))) (max 0 (- (1+ (read cur)) (read cur)))) groups)) (forward-line)))) --=-=-=--