Gnus agent expire broken

Gnus agent expire broken

[Henrik Enberg]

Hi,

gnus-agent-expire seems to be broken.  

I'm using a cvs version from Oct 28 and no expiry has happend since
then.  I only realized that someting was wrong when I tried
M-x gnus-agent-expire interactivly, so it seem to fail quietly
otherwise.

Here's a backtrace:

Signaling: (wrong-type-argument number-or-marker-p 730µõ@)
  gnus-agent-expire()
  call-interactively(gnus-agent-expire)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)
  recursive-edit()
  byte-code("Æ\b!ˆÇ\x11È ˆÉÇ!ˆpÊË\x1a^[\x1cÌ ˆ+ebˆÍ ˆ`ÎÏ!ˆÐyˆ`|ˆÑ ˆ
@Ò>fN\0Ócˆ
@Ô=f«\0ÕÖÊ\"ˆ×Ð!ˆØcˆÙyˆ,«\0
@Ú=fs\0Ûcˆ
A@\x16%Ü\x0e%p\"ˆÝcˆ×Ð!ˆÞcˆÙyˆ,«\0
@ß=fŠ\0àcˆÜ
A@p\"ˆÝcˆ,«\0
@Ê=f--\0ácˆ,«\0Ü
@Ç=f¤\0
A,¥\0
p\"ˆÝcˆâã!ˆÊÇÊ\x19\x1c\x1e&âã!ˆŠä ˆ,LJ" [debugger-buffer buffer-read-only print-length print-escape-newlines standard-output debugger-args pop-to-buffer nil erase-buffer set-buffer-multibyte t 50 backtrace debugger-mode search-forward "\n  debug(" 1 debugger-reenable (lambda debug) "Entering:\n" debug backtrace-debug 3 delete-char 42 0 exit "Return value: " prin1 10 32 error "Signaling: " "Beginning evaluation of function call form:\n" message "" recursive-edit debugger-value inhibit-trace] 3)
  debug(error (wrong-type-argument number-or-marker-p 730µõ@))
  gnus-agent-expire()
  call-interactively(gnus-agent-expire)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)

Henrik
-- 
"Television -- teacher, mother, secret lover!"
        - Homer J. Simpson

Re: Gnus agent expire broken

[ShengHuo ZHU]

Henrik Enberg <kirneh74@hem.passagen.se> writes:

> Hi,
> 
> gnus-agent-expire seems to be broken.  
> 
> I'm using a cvs version from Oct 28 and no expiry has happend since
> then.  I only realized that someting was wrong when I tried
> M-x gnus-agent-expire interactivly, so it seem to fail quietly
> otherwise.
> 
> Here's a backtrace:
> 
> Signaling: (wrong-type-argument number-or-marker-p 730µõ@)
>   gnus-agent-expire()
>   call-interactively(gnus-agent-expire)

Could you `M-x load-file RET /GNUS/SOURCE/PATH/lisp/gnus-agent.el RET', 
then run gnus-agent-expire again?  The backtrace may show some details.

[Replace /GNUS/SOURCE/PATH/ with the real one.]

ShengHuo

Re: Gnus agent expire broken

[Henrik Enberg]

On Mon, 20 Nov 2000, ShengHuo ZHU wrote:

> Could you `M-x load-file RET /GNUS/SOURCE/PATH/lisp/gnus-agent.el RET', 
> then run gnus-agent-expire again?  The backtrace may show some details.
> 

Ok, here is the source backtrace:

Signaling: (wrong-type-argument number-or-marker-p 730µõ@)
  >(730µõ@ 730441)
  (if (> (read ...) day) (forward-line 1) (while (not ...) (setq sym ...) (if ... ... ...) (skip-chars-forward " ")) (forward-line 1))
  (while (not (eobp)) (skip-chars-forward "^	") (if (> ... day) (forward-line 1) (while ... ... ... ...) (forward-line 1)))
  (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) (gnus-write-active-file (gnus-agent-lib-file "active") orig))
  (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) (gnus-write-active-file ... orig)))
  (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) (gnus-write-active-file (gnus-agent-lib-file "active") orig))
  (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-write-active-file ... orig)) (gnus-message 4 "Expiry...done"))
  (progn (with-temp-buffer (nnheader-insert-file-contents ...) (gnus-active-to-gnus-format gnus-command-method ...)) (let (...) (gnus-agent-open-history) (set-buffer ...) (goto-char ...) (when ... ... ... ... ... ... ... ... ... ...) (gnus-message 4 "Expiry...done")))
  (if (file-exists-p (gnus-agent-lib-file "active")) (progn (with-temp-buffer ... ...) (let ... ... ... ... ... ...)))
  (when (file-exists-p (gnus-agent-lib-file "active")) (with-temp-buffer (nnheader-insert-file-contents ...) (gnus-active-to-gnus-format gnus-command-method ...)) (let (...) (gnus-agent-open-history) (set-buffer ...) (goto-char ...) (when ... ... ... ... ... ... ... ... ... ...) (gnus-message 4 "Expiry...done")))
  (while (setq gnus-command-method (pop methods)) (when (file-exists-p ...) (with-temp-buffer ... ...) (let ... ... ... ... ... ...)))
  (save-excursion (setq overview (gnus-get-buffer-create " *expire overview*")) (while (setq gnus-command-method ...) (when ... ... ...)))
  (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 orig lowest highest) (save-excursion (setq overview ...) (while ... ...)))
  gnus-agent-expire()
  call-interactively(gnus-agent-expire)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)


Henrik
-- 
"Television -- teacher, mother, secret lover!"
        - Homer J. Simpson

Re: Gnus agent expire broken

[ShengHuo ZHU]

Henrik Enberg <kirneh74@hem.passagen.se> writes:

> On Mon, 20 Nov 2000, ShengHuo ZHU wrote:
> 
> > Could you `M-x load-file RET /GNUS/SOURCE/PATH/lisp/gnus-agent.el RET', 
> > then run gnus-agent-expire again?  The backtrace may show some details.
> > 
> 
> Ok, here is the source backtrace:
> 
> Signaling: (wrong-type-argument number-or-marker-p 730µõ@)
>   >(730µõ@ 730441)

The history file is corrupted.  The path is
~/News/agent/nntp/SERVER/agent.lib/history.  You could fix it by
removing the line with "730µõ@", then you have to remove the
correspondent article file manually.

ShengHuo