From: ge204@eng.cam.ac.uk (G. Evermann)
Subject: error in gnus-agent-expire 5.6.44
Date: 24 Oct 1998 23:06:01 +0100 [thread overview]
Message-ID: <mqqogr1mx86.fsf@club.eng.cam.ac.uk> (raw)
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)
next reply other threads:[~1998-10-24 22:06 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-10-24 22:06 G. Evermann [this message]
1998-10-25 1:24 ` Lars Magne Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=mqqogr1mx86.fsf@club.eng.cam.ac.uk \
--to=ge204@eng.cam.ac.uk \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).