From: Katsumi Yamaoka <yamaoka@jpl.org>
Subject: gnus-agent bug?
Date: Tue, 30 May 2006 16:28:59 +0900 [thread overview]
Message-ID: <b4mhd383r9g.fsf@jpl.org> (raw)
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)
reply other threads:[~2006-05-30 7:28 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=b4mhd383r9g.fsf@jpl.org \
--to=yamaoka@jpl.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).