Re: New agent code

[Denis Yakovlev <derek77@mail.ru>]

Kevin Greiner <kgreiner@xpediantsolutions.com> writes:


[...]


> 1) Did you call gnus-agent-expire using t as the first argument?  The
> first argument is the list of articles to expire.  When set to t, this
> list is interpreted as ALL articles.  If you want to expire only
> unread articles, set it to nil.
  ^^^^^^ --- "if ARTICLES is null, all read and unmarked articles" ?

Usually I just M-x gnus-agent-expire. Checked --- the first argument is
really nil.

> 2) Have you tried using gnus-agent-regenerate-group to repair this
> group's overview and agentview files?  If so, did gnus-agent-expire
> then function as desired?  If gnus-agent-expire is now behaving
> correctly, the problem was mostly likely an out-of-date agentview
> file. The new agent code requires that the contents of the agentview
> and overview files be synchronized at all times.  This is enforced by
> the new code but the old version didn't work quite as well.

gnus-agent-regenerate-group works very well.
M-x gnus-agent-expire
M-x gnus-agent-regenerate
And the job is done. 

But next time I call gnus-agent-expire the probmlem is here again.
By the way, I've tryed to remove .agentview. In this case I've got:

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  <(126736 nil)
  (cond ((not n) (when o ...)) ((< ... ...) (setcdr n ...)))
  (let ((n ...) (o ...)) (cond (... ...) (... ...)))
  (if gnus-agent-consider-all-articles (let* (... ... ...) (while o ...) (setq alist ...)) (let (... ...) (cond ... ...)))
  (save-current-buffer (set-buffer temp-buffer) (if (file-exists-p file) (let ... ...)) (set-buffer-modified-p nil) (let (...) (while load ... ... ... ...)) (gnus-agent-check-overview-buffer) (while (or downloaded nov-arts) (cond ... ... ...)) (if gnus-agent-consider-all-articles (let* ... ... ...) (let ... ...)) (if (setq regenerated ...) (let ... ...)))
  (with-current-buffer temp-buffer (if (file-exists-p file) (let ... ...)) (set-buffer-modified-p nil) (let (...) (while load ... ... ... ...)) (gnus-agent-check-overview-buffer) (while (or downloaded nov-arts) (cond ... ... ...)) (if gnus-agent-consider-all-articles (let* ... ... ...) (let ... ...)) (if (setq regenerated ...) (let ... ...)))
  (unwind-protect (with-current-buffer temp-buffer (if ... ...) (set-buffer-modified-p nil) (let ... ...) (gnus-agent-check-overview-buffer) (while ... ...) (if gnus-agent-consider-all-articles ... ...) (if ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ... ... ... ... ...) (and ... ...)))
  (with-temp-buffer (if (file-exists-p file) (let ... ...)) (set-buffer-modified-p nil) (let (...) (while load ... ... ... ...)) (gnus-agent-check-overview-buffer) (while (or downloaded nov-arts) (cond ... ... ...)) (if gnus-agent-consider-all-articles (let* ... ... ...) (let ... ...)) (if (setq regenerated ...) (let ... ...)))
  (let (default-enable-multibyte-characters) (with-temp-buffer (if ... ...) (set-buffer-modified-p nil) (let ... ...) (gnus-agent-check-overview-buffer) (while ... ...) (if gnus-agent-consider-all-articles ... ...) (if ... ...)))
  (mm-with-unibyte-buffer (if (file-exists-p file) (let ... ...)) (set-buffer-modified-p nil) (let (...) (while load ... ... ... ...)) (gnus-agent-check-overview-buffer) (while (or downloaded nov-arts) (cond ... ... ...)) (if gnus-agent-consider-all-articles (let* ... ... ...) (let ... ...)) (if (setq regenerated ...) (let ... ...)))
  (let* ((gnus-command-method ...) (file ...) (dir ...) point (downloaded ...) dl nov-arts alist header regenerated) (mm-with-unibyte-buffer (if ... ...) (set-buffer-modified-p nil) (let ... ...) (gnus-agent-check-overview-buffer) (while ... ...) (if gnus-agent-consider-all-articles ... ...) (if ... ...)) (setq regenerated (or regenerated ... ...)) (setq gnus-agent-article-alist alist) (when regenerated (gnus-agent-save-alist group)) (when (and reread gnus-agent-article-alist) (gnus-make-ascending-articles-unread group ...) (when ... ... ...)) regenerated)
  gnus-agent-regenerate-group("relcom.games")
  eval((gnus-agent-regenerate-group "relcom.games"))
  eval-last-sexp-1(t)
  eval-last-sexp(t)
  eval-print-last-sexp()
  call-interactively(eval-print-last-sexp)


> 3) Do you want to see read articles in your summary?  If so, can you
> provide any addition criteria for retaining an article header in the
> overview?  Kevin

Well, headers for all articles not older than gnus-agent-expire-days
must be in .overview. It is a simplest solution, I believe.

-- 
Denis K.Y.