* error in gnus-agent-expire 5.6.44
@ 1998-10-24 22:06 G. Evermann
1998-10-25 1:24 ` Lars Magne Ingebrigtsen
0 siblings, 1 reply; 2+ messages in thread
From: G. Evermann @ 1998-10-24 22:06 UTC (permalink / 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)
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: error in gnus-agent-expire 5.6.44
1998-10-24 22:06 error in gnus-agent-expire 5.6.44 G. Evermann
@ 1998-10-25 1:24 ` Lars Magne Ingebrigtsen
0 siblings, 0 replies; 2+ messages in thread
From: Lars Magne Ingebrigtsen @ 1998-10-25 1:24 UTC (permalink / raw)
ge204@eng.cam.ac.uk (G. Evermann) writes:
> 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)
I think this has been fixed in 5.6.45 (which hasn't been released
yet).
(Eek -- it's 02:23 -- once more! It's like déjà vu all over again.
DST is scary. Especially when computers set their clocks themselves.)
--
(domestic pets only, the antidote for overdose, milk.)
larsi@gnus.org * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~1998-10-25 1:24 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1998-10-24 22:06 error in gnus-agent-expire 5.6.44 G. Evermann
1998-10-25 1:24 ` Lars Magne Ingebrigtsen
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).