From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18117 Path: main.gmane.org!not-for-mail From: ge204@eng.cam.ac.uk (G. Evermann) Newsgroups: gmane.emacs.gnus.general Subject: error in gnus-agent-expire 5.6.44 Date: 24 Oct 1998 23:06:01 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035156697 4478 80.91.224.250 (20 Oct 2002 23:31:37 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:31:37 +0000 (UTC) Return-Path: Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id SAA00272 for ; Sat, 24 Oct 1998 18:06:52 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id RAB19585; Sat, 24 Oct 1998 17:06:40 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 24 Oct 1998 17:06:34 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id RAA29472 for ; Sat, 24 Oct 1998 17:06:25 -0500 (CDT) Original-Received: from spanner.eng.cam.ac.uk (root@spanner.eng.cam.ac.uk [129.169.8.9]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id SAA00261 for ; Sat, 24 Oct 1998 18:06:11 -0400 (EDT) Original-Received: from club.eng.cam.ac.uk (via ge204@club.eng.cam.ac.uk [129.169.16.2]) by spanner.eng.cam.ac.uk with ESMTP id XAA17576 for ; Sat, 24 Oct 1998 23:06:04 +0100 (BST) Original-Received: (via ge204@localhost) by club.eng.cam.ac.uk id XAA15318; Sat, 24 Oct 1998 23:06:02 +0100 (BST) Original-To: ding@gnus.org Original-Lines: 36 X-Mailer: Gnus v5.5/Emacs 20.2 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:18117 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18117 In XEmacs 21.2-b3 Gnus 5.6.44 M-x gnus-agent-expire yields: Signaling: (wrong-type-argument number-char-or-marker-p nil) >(nil 1347) (or (not (caar gnus-agent-article-alist)) (> (car expired) (caar gnus-agent-article-alist))) ) (if (or (not ...) (> ... ...)) (progn (setcar ... ...))) ) (when (or (not ...) (> ... ...)) (setcar (nthcdr 2 info) (gnus-add-to-range ... ...))) ) (let* ((alist gnus-agent-article-alist) (prev ...) (first prev) expired) (while (and alist ...) (if ... ... ...)) (setq gnus-agent-article-alist (cdr first)) (gnus-agent-save-alist group) (when (and info ...) (setcar ... ...)) (when (or ... ...) (setcar ... ...)) (gnus-dribble-enter (concat "(gnus-group-set-info '" ... ")"))) ) (lambda (sym) (setq group (symbol-name sym) articles (sort ... ...) low (car ...) info (gnus-get-info group) unreads (ignore-errors ...) marked (nconc ... ...) nov-file (gnus-agent-article-name ".overview" group)) (gnus-agent-load-alist group) (gnus-message 5 "Expiring articles in %s" group) (set-buffer overview) (erase-buffer) (when (file-exists-p nov-file) (nnheader-insert-file-contents nov-file)) (goto-char (point-min)) (setq article 0) (while (setq elem ...) (setq article ...) (when ... ... ... ... ...)) (gnus-make-directory (file-name-directory nov-file)) (let (...) (write-region ... ... nov-file nil ...)) (setq gnus-agent-article-alist (sort gnus-agent-article-alist ...)) (let* (... ... ... expired) (while ... ...) (setq gnus-agent-article-alist ...) (gnus-agent-save-alist group) (when ... ...) (when ... ...) (gnus-dribble-enter ...)))(ucam\.comp\.unix) mapatoms((lambda (sym) (setq group (symbol-name sym) articles (sort ... ...) low (car ...) info (gnus-get-info group) unreads (ignore-errors ...) marked (nconc ... ...) nov-file (gnus-agent-article-name ".overview" group)) (gnus-agent-load-alist group) (gnus-message 5 "Expiring articles in %s" group) (set-buffer overview) (erase-buffer) (when (file-exists-p nov-file) (nnheader-insert-file-contents nov-file)) (goto-char (point-min)) (setq article 0) (while (setq elem ...) (setq article ...) (when ... ... ... ... ...)) (gnus-make-directory (file-name-directory nov-file)) (let (...) (write-region ... ... nov-file nil ...)) (setq gnus-agent-article-alist (sort gnus-agent-article-alist ...)) (let* (... ... ... expired) (while ... ...) (setq gnus-agent-article-alist ...) (gnus-agent-save-alist group) (when ... ...) (when ... ...) (gnus-dribble-enter ...))) [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...]) (progn (goto-char (point-min)) (while (not ...) (skip-chars-forward "^ ") (if ... ... ... ...)) (mapatoms (lambda ... ... ... ... ... ... ... ... ... ... ... ... ... ...) expiry-hashtb) (set-buffer history) (setq histories (nreverse ...)) (while histories (goto-char ...) (gnus-delete-line)) (gnus-agent-save-history) (gnus-agent-close-history)) ) (if (> (buffer-size) 1) (progn (goto-char ...) (while ... ... ...) (mapatoms ... expiry-hashtb) (set-buffer history) (setq histories ...) (while histories ... ...) (gnus-agent-save-history) (gnus-agent-close-history))) ) (when (> (buffer-size) 1) (goto-char (point-min)) (while (not ...) (skip-chars-forward "^ ") (if ... ... ... ...)) (mapatoms (lambda ... ... ... ... ... ... ... ... ... ... ... ... ... ...) expiry-hashtb) (set-buffer history) (setq histories (nreverse ...)) (while histories (goto-char ...) (gnus-delete-line)) (gnus-agent-save-history) (gnus-agent-close-history)) ) (let ((expiry-hashtb ...)) (gnus-agent-open-history) (set-buffer (setq gnus-agent-current-history ...)) (goto-char (point-min)) (when (> ... 1) (goto-char ...) (while ... ... ...) (mapatoms ... expiry-hashtb) (set-buffer history) (setq histories ...) (while histories ... ...) (gnus-agent-save-history) (gnus-agent-close-history)) (gnus-message 4 "Expiry...done")) ) (while (setq gnus-command-method (pop methods)) (let (...) (gnus-agent-open-history) (set-buffer ...) (goto-char ...) (when ... ... ... ... ... ... ... ... ...) (gnus-message 4 "Expiry...done"))) ) (save-excursion (setq overview (gnus-get-buffer-create " *expire overview*")) (while (setq gnus-command-method ...) (let ... ... ... ... ... ...))) ) (let ((methods gnus-agent-covered-methods) (day ...) gnus-command-method sym group articles history overview file histories elem art nov-file low info unreads marked article) (save-excursion (setq overview ...) (while ... ...))) ) (lambda nil "Expire all old articles." (interactive) (let (... ... gnus-command-method sym group articles history overview file histories elem art nov-file low info unreads marked article) (save-excursion ... ...)))() call-interactively(gnus-agent-expire) command-execute(gnus-agent-expire t) execute-extended-command(nil) call-interactively(execute-extended-command)