Gnus agent expire broken

[Henrik Enberg <kirneh74@hem.passagen.se>]

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