From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/33443 Path: main.gmane.org!not-for-mail From: Henrik Enberg Newsgroups: gmane.emacs.gnus.general Subject: Re: Gnus agent expire broken Date: 20 Nov 2000 20:46:02 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: <5bhf525tjo.fsf@lapwing.cs.rochester.edu> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1035169549 25160 80.91.224.250 (21 Oct 2002 03:05:49 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 03:05:49 +0000 (UTC) Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by mailhost.sclp.com (Postfix) with ESMTP id 5ECB1D049A for ; Mon, 20 Nov 2000 14:51:18 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id NAB24336; Mon, 20 Nov 2000 13:49:10 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 20 Nov 2000 13:48:34 -0600 (CST) Original-Received: from mailhost.sclp.com (postfix@66-209.196.61.interliant.com [209.196.61.66] (may be forged)) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id NAA13391 for ; Mon, 20 Nov 2000 13:48:23 -0600 (CST) Original-Received: from mail2.passagen.se (mail2.passagen.se [195.163.107.11]) by mailhost.sclp.com (Postfix) with ESMTP id 93FE1D049A for ; Mon, 20 Nov 2000 14:48:41 -0500 (EST) Original-Received: from hem.passagen.se (IDENT:postfix@d212-151-174-229.swipnet.se [212.151.174.229]) by mail2.passagen.se (8.9.3/8.9.3/1.22) with ESMTP id for ; Mon, 20 Nov 2000 20:48:33 +0100 (MET) Original-Received: by hem.passagen.se (Postfix, from userid 500) id 615227C4C1; Mon, 20 Nov 2000 20:46:02 +0100 (CET) Original-To: ding@gnus.org In-Reply-To: <5bhf525tjo.fsf@lapwing.cs.rochester.edu> Original-Lines: 32 User-Agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:33443 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:33443 On Mon, 20 Nov 2000, ShengHuo ZHU wrote: > Could you `M-x load-file RET /GNUS/SOURCE/PATH/lisp/gnus-agent.el RET',=20 > then run gnus-agent-expire again? The backtrace may show some details. >=20 Ok, here is the source backtrace: Signaling: (wrong-type-argument number-or-marker-p 730=B5=F5@) >(730=B5=F5@ 730441) (if (> (read ...) day) (forward-line 1) (while (not ...) (setq sym ...) (= if ... ... ...) (skip-chars-forward " ")) (forward-line 1)) (while (not (eobp)) (skip-chars-forward "^ ") (if (> ... day) (forward-li= ne 1) (while ... ... ... ...) (forward-line 1))) (progn (goto-char (point-min)) (while (not ...) (skip-chars-forward "^ ")= (if ... ... ... ...)) (mapatoms (lambda ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ...) expiry-hashtb) (set-buffer history) (setq histor= ies (nreverse ...)) (while histories (goto-char ...) (gnus-delete-line)) (g= nus-agent-save-history) (gnus-agent-close-history) (gnus-write-active-file = (gnus-agent-lib-file "active") orig)) (if (> (buffer-size) 1) (progn (goto-char ...) (while ... ... ...) (mapat= oms ... expiry-hashtb) (set-buffer history) (setq histories ...) (while his= tories ... ...) (gnus-agent-save-history) (gnus-agent-close-history) (gnus-= write-active-file ... orig))) (when (> (buffer-size) 1) (goto-char (point-min)) (while (not ...) (skip-= chars-forward "^ ") (if ... ... ... ...)) (mapatoms (lambda ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ...) expiry-hashtb) (set-buffer hi= story) (setq histories (nreverse ...)) (while histories (goto-char ...) (gn= us-delete-line)) (gnus-agent-save-history) (gnus-agent-close-history) (gnus= -write-active-file (gnus-agent-lib-file "active") orig)) (let ((expiry-hashtb ...)) (gnus-agent-open-history) (set-buffer (setq gn= us-agent-current-history ...)) (goto-char (point-min)) (when (> ... 1) (got= o-char ...) (while ... ... ...) (mapatoms ... expiry-hashtb) (set-buffer hi= story) (setq histories ...) (while histories ... ...) (gnus-agent-save-hist= ory) (gnus-agent-close-history) (gnus-write-active-file ... orig)) (gnus-me= ssage 4 "Expiry...done")) (progn (with-temp-buffer (nnheader-insert-file-contents ...) (gnus-active= -to-gnus-format gnus-command-method ...)) (let (...) (gnus-agent-open-histo= ry) (set-buffer ...) (goto-char ...) (when ... ... ... ... ... ... ... ... = ... ...) (gnus-message 4 "Expiry...done"))) (if (file-exists-p (gnus-agent-lib-file "active")) (progn (with-temp-buff= er ... ...) (let ... ... ... ... ... ...))) (when (file-exists-p (gnus-agent-lib-file "active")) (with-temp-buffer (n= nheader-insert-file-contents ...) (gnus-active-to-gnus-format gnus-command-= method ...)) (let (...) (gnus-agent-open-history) (set-buffer ...) (goto-ch= ar ...) (when ... ... ... ... ... ... ... ... ... ...) (gnus-message 4 "Exp= iry...done"))) (while (setq gnus-command-method (pop methods)) (when (file-exists-p ...)= (with-temp-buffer ... ...) (let ... ... ... ... ... ...))) (save-excursion (setq overview (gnus-get-buffer-create " *expire overview= *")) (while (setq gnus-command-method ...) (when ... ... ...))) (let ((methods gnus-agent-covered-methods) (day ...) gnus-command-method = sym group articles history overview file histories elem art nov-file low in= fo unreads marked article orig lowest highest) (save-excursion (setq overvi= ew ...) (while ... ...))) gnus-agent-expire() call-interactively(gnus-agent-expire) execute-extended-command(nil) * call-interactively(execute-extended-command) Henrik --=20 "Television -- teacher, mother, secret lover!" - Homer J. Simpson