gnus-agent bug?

gnus-agent bug?

[Katsumi Yamaoka]

Hi,

I noticed gnus-agent causes an error when a new newsgroup was
created.  I'm using latest Gnus from the CVS trunk with:

(setq gnus-subscribe-newsgroup-method 'gnus-subscribe-hierarchically)

I've verified that the error can be reproduced by this way:

Login to the INN news server that I maintain, create a newsgroup
using the command `ctlinnd newgroup local.testing', and then
start Gnus with no option in the client machine.  I got:

Debugger entered--Lisp error: (file-error "Opening directory"\
"no such file or directory"\
"/home/yamaoka/News/agent/nntp/ganews/local/testing")

At that time, the news server has no article in that group, and
(gnus-get-info "local.testing") returns ("local.testing" 3 nil).
I've also verified that such an error doesn't happen with the
v5-10 branch.

Here's a full backtrace:
\f
Debugger entered--Lisp error: (file-error "Opening directory" "no such file or directory" "/home/yamaoka/News/agent/nntp/ganews/local/testing")
  directory-files-and-attributes("/home/yamaoka/News/agent/nntp/ganews/local/testing" nil "^[0-9]+$" t)
  (let* (alist (file-attributes ...)) (while file-attributes (let* ... ...)) alist)
  (condition-case nil (progn (nnheader-insert-file-contents file) (goto-char ...) (let ... ... ... alist)) ((end-of-file file-error) (let* ... ... alist)))
  (save-current-buffer (set-buffer temp-buffer) (condition-case nil (progn ... ... ...) (... ...)))
  (with-current-buffer temp-buffer (condition-case nil (progn ... ... ...) (... ...)))
  (unwind-protect (with-current-buffer temp-buffer (condition-case nil ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ...) (and ... ...)))
  (with-temp-buffer (condition-case nil (progn ... ... ...) (... ...)))
  gnus-agent-read-agentview("/home/yamaoka/News/agent/nntp/ganews/local/testing/.agentview")
  gnus-cache-file-contents("/home/yamaoka/News/agent/nntp/ganews/local/testing/.agentview" gnus-agent-file-loading-cache gnus-agent-read-agentview)
  (setq gnus-agent-article-alist (gnus-cache-file-contents (gnus-agent-article-name ".agentview" group) (quote gnus-agent-file-loading-cache) (quote gnus-agent-read-agentview)))
  (let ((gnus-agent-read-agentview group)) (setq gnus-agent-article-alist (gnus-cache-file-contents ... ... ...)))
  gnus-agent-load-alist("local.testing")
  (let* ((gnus-agent-article-alist gnus-agent-article-alist) (gnus-agent-file-loading-cache gnus-agent-file-loading-cache) (alist ...)) (when alist (setq minmax ...) (gnus-agent-set-local group ... ... gmane gnus-command-method local)))
  (if minmax nil (let* (... ... ...) (when alist ... ...)))
  (unless minmax (let* (... ... ...) (when alist ... ...)))
  (let* ((gmane ...) (gnus-command-method ...) (local ...) (symb ...) (minmax ...)) (unless minmax (let* ... ...)) minmax)
  gnus-agent-get-local("local.testing")
  (let* ((local ...) (active-min ...) (active-max ...) (agent-min ...) (agent-max ...)) (when (< agent-min active-min) (setcar active agent-min)) (when (> agent-max active-max) (setcdr active agent-max)) (when (and info ...) (let ... ...) (gnus-agent-set-local group agent-min ...)))
  (progn (let* (... ... ... ... ...) (when ... ...) (when ... ...) (when ... ... ...)))
  (if (gnus-agent-method-p gnus-command-method) (progn (let* ... ... ... ...)))
  (when (gnus-agent-method-p gnus-command-method) (let* (... ... ... ... ...) (when ... ...) (when ... ...) (when ... ... ...)))
  (let* ((gnus-command-method ...)) (when (gnus-agent-method-p gnus-command-method) (let* ... ... ... ...)))
  gnus-agent-possibly-alter-active("local.testing" (1 . 0) ("local.testing" 3 nil))
  gnus-get-unread-articles(nil)
  gnus-setup-news(nil nil nil)
  byte-code("...snip..." [dont-connect did-connect gnus-startup-file gnus-current-startup-file gnus-slave gnus-use-dribble-file gnus-group-quit gnus-run-hooks gnus-startup-hook gnus-make-newsrc-file gnus-dribble-read-file gnus-request-create-group "queue" (nndraft "") "drafts" (nndraft "") gnus-setup-news nil gnus-setup-news-hook gnus-start-draft-setup gnus-group-list-groups gnus-group-first-unread-group gnus-configure-windows group gnus-group-set-mode-line gnus-started-hook gnus-agent level] 4)
  gnus-1(nil nil nil)
  gnus(nil)
  call-interactively(gnus)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)