From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/23938 Path: main.gmane.org!not-for-mail From: Shenghuo ZHU Newsgroups: gmane.emacs.gnus.general Subject: Error when gnus-agent-expire (patch: 92-zsh2) Date: 06 Jul 1999 18:43:10 -0400 Organization: U of Rochester Sender: owner-ding@hpc.uh.edu Message-ID: <2nwvwd2ydd.fsf@tiger.jia.vnet> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035161579 5895 80.91.224.250 (21 Oct 2002 00:52:59 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:52:59 +0000 (UTC) Return-Path: Original-Received: from farabi.math.uh.edu (farabi.math.uh.edu [129.7.128.57]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id SAA15394 for ; Tue, 6 Jul 1999 18:42:49 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by farabi.math.uh.edu (8.9.1/8.9.1) with ESMTP id RAB20574; Tue, 6 Jul 1999 17:42:37 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 06 Jul 1999 17:43:27 -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 RAA29876 for ; Tue, 6 Jul 1999 17:43:16 -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 SAA15385 for ; Tue, 6 Jul 1999 18:42:15 -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 SAA19784 for ; Tue, 6 Jul 1999 18:42:12 -0400 (EDT) Original-Received: (from zsh@localhost) by heart.cs.rochester.edu (8.9.3/8.9.3) id SAA04940; Tue, 6 Jul 1999 18:43:11 -0400 Original-To: Gnus Mailing List 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 Original-Lines: 26 User-Agent: Gnus/5.070092 (Pterodactyl Gnus v0.92) XEmacs/21.2 (Chiyoda) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:23938 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:23938 --=-=-= The error message like this: ,-------- | Signaling: (wrong-type-argument stringp nil) | insert-file-contents(nil) | gnus-agent-expire() | * call-interactively(gnus-agent-expire) | execute-extended-command(nil) | * call-interactively(execute-extended-command) `-------- Here is the patch. 1999-07-06 Shenghuo ZHU * gnus-util.el (gnus-write-active-file): Use real name. * gnus-agent.el (gnus-agent-expire): Update active file method by method. --=-=-= Content-Type: application/x-patch Content-Disposition: attachment; filename=92-zsh2.diff --- gnus-agent.el 1999/07/06 22:03:02 1.1 +++ gnus-agent.el 1999/07/06 22:32:26 @@ -1364,13 +1364,14 @@ history overview file histories elem art nov-file low info unreads marked article orig lowest highest) (save-excursion - (with-temp-buffer - (insert-file-contents file) - (gnus-active-to-gnus-format - nil (setq orig (gnus-make-hashtable - (count-lines (point-min) (point-max)))))) (setq overview (gnus-get-buffer-create " *expire overview*")) (while (setq gnus-command-method (pop methods)) + (with-temp-buffer + (insert-file-contents (gnus-agent-lib-file "active")) + (gnus-active-to-gnus-format + gnus-command-method + (setq orig (gnus-make-hashtable + (count-lines (point-min) (point-max)))))) (let ((expiry-hashtb (gnus-make-hashtable 1023))) (gnus-agent-open-history) (set-buffer --- gnus-util.el 1999/07/06 22:35:45 1.1 +++ gnus-util.el 1999/07/06 22:36:16 @@ -944,7 +944,8 @@ (boundp sym) (symbol-value sym)) (insert (format "%s %d %d y\n" - (symbol-name sym) (cdr (symbol-value sym)) + (gnus-group-real-name (symbol-name sym)) + (cdr (symbol-value sym)) (car (symbol-value sym)))))) hashtb))) --=-=-= -- Shenghuo --=-=-=--