Gnus refuses to start with an args-out-of-range error on a nnimap folder.

Gnus refuses to start with an args-out-of-range error on a nnimap folder.

[Terje Kvernes]

This bit me today after having created a lot of folders on the imap server
and starting Gnus, I've tested 0.5 and the snapshot that 'cvs update' gave
me just before this email was sent.  I'm kinda at a loss as to what is up
and google didn't seem to help much, any help is gratefully accepted.

I get the following backtrace after creating the folder on the server (not
done via Gnus):

Debugger entered--Lisp error: (args-out-of-range "INBOX.drift.admin" 0 19)
  substring("INBOX.drift.admin" 0 19)
  (concat "^" (substring (gnus-group-real-name ...) 0 (match-end 0)))
  (setq prefix (concat "^" (substring ... 0 ...)))
  (and (string-match "[^\\.]\\." (gnus-group-real-name ...) start) (cdr
groups) (setq prefix (concat "^" ...)) (string-match prefix
(gnus-group-real-name ...)))
  (if (and (string-match "[^\\.]\\." ... start) (cdr groups) (setq prefix
...) (string-match prefix ...)) (progn (push prefix prefixes) (message
"Descend hierarchy %s? ([y]nsq): " ...) (while ... ... ...) (cond ...
... ... ...)) (message "Subscribe %s? ([n]yq)" (car groups)) (while (not
...) (ding) (message "Subscribe %s? ([n]yq)" ...)) (setq group (car
groups)) (cond (... ... ...) (... ...) (t ... ...)) (setq groups (cdr
groups)))
  (while (and groups prefixes) (while (not ...) (setq prefixes ...)) (setq
prefix (car prefixes)) (setq start (1- ...)) (if (and ... ... ... ...)
(progn ... ... ... ...) (message "Subscribe %s? ([n]yq)" ...) (while ...
... ...) (setq group ...) (cond ... ... ...) (setq groups ...)))
  (while groups (setq prefixes (list "^")) (while (and groups prefixes)
(while ... ...) (setq prefix ...) (setq start ...) (if ... ... ... ...
... ... ...)))
  (let ((groups ...) prefixes prefix start ans group starts real-group)
(while groups (setq prefixes ...) (while ... ... ... ... ...)))
  gnus-subscribe-hierarchical-interactive(("nnimap+imap.uio.no:INBOX.lists.lk-alle"
"nnimap+imap.uio.no:INBOX.lists.management"
"nnimap+imap.uio.no:INBOX.lists.viper"
"nnimap+imap.uio.no:INBOX.local.logs.orion"
"nnimap+imap.uio.no:INBOX.personal"
"nnimap+imap.uio.no:INBOX.personal.bark"
"nnimap+imap.uio.no:INBOX.uio"))
  (progn (gnus-subscribe-hierarchical-interactive new-newsgroups))
  (if new-newsgroups (progn (gnus-subscribe-hierarchical-interactive
new-newsgroups)))
  (when new-newsgroups (gnus-subscribe-hierarchical-interactive
new-newsgroups))
  (while (setq method (gnus-server-get-method nil ...)) (setq
new-newsgroups nil gnus-override-subscribe-method method) (when (and ...
...) (save-excursion ... ... ...) (mapatoms ... hashtb)) (when
new-newsgroups (gnus-subscribe-hierarchical-interactive
new-newsgroups)))
  (let* ((new-date ...) (date ...) (methods ...) (groups 0) group
new-newsgroups got-new method hashtb gnus-override-subscribe-method)
(unless gnus-killed-hashtb (gnus-make-hashtable-from-killed)) (while
(setq method ...) (setq new-newsgroups nil
gnus-override-subscribe-method method) (when ... ... ...) (when
new-newsgroups ...)) (if (> groups 0) (gnus-message 5 "%d new
newsgroup%s arrived" groups ...) (gnus-message 5 "No new newsgroups"))
(when got-new (setq gnus-newsrc-last-checked-date new-date)) got-new)
  gnus-ask-server-for-new-groups()
  (if (or (consp check) (eq check ...)) (gnus-ask-server-for-new-groups)
(let (... group new-newsgroups) (gnus-message 5 "Looking for new
newsgroups...") (unless gnus-have-read-active-file ...) (setq
gnus-newsrc-last-checked-date ...) (unless gnus-killed-hashtb ...)
(mapatoms ... gnus-active-hashtb) (when new-newsgroups ...) (if ... ...
...)))
  (if (gnus-check-first-time-used) nil (if (or ... ...)
(gnus-ask-server-for-new-groups) (let ... ... ... ... ... ... ... ...)))
  (unless (gnus-check-first-time-used) (if (or ... ...)
(gnus-ask-server-for-new-groups) (let ... ... ... ... ... ... ... ...)))
  (let* ((gnus-subscribe-newsgroup-method gnus-subscribe-newsgroup-method)
(check ...)) (unless (gnus-check-first-time-used) (if ... ... ...)))
  gnus-find-new-newsgroups()
  (progn (gnus-find-new-newsgroups))
  (if (and init gnus-check-new-newsgroups (not level) (gnus-check-server
gnus-select-method) (not gnus-slave) gnus-plugged) (progn
(gnus-find-new-newsgroups)))
  (when (and init gnus-check-new-newsgroups (not level) (gnus-check-server
gnus-select-method) (not gnus-slave) gnus-plugged)
(gnus-find-new-newsgroups))
  (let ((init ...) (nnmail-fetched-sources ...)) (when init (setq
gnus-newsrc-alist nil gnus-active-hashtb nil) (gnus-read-newsrc-file
rawfile)) (when gnus-message-archive-method (unless ... ...)) (when (or
... ...) (gnus-update-active-hashtb-from-killed)) (if gnus-agent
(gnus-agent-read-servers-validate)) (and gnus-read-active-file (not
level) (gnus-read-active-file nil dont-connect)) (unless
gnus-active-hashtb (setq gnus-active-hashtb ...)) (when gnus-use-cache
(gnus-cache-open)) (and init (or gnus-use-dribble-file gnus-slave)
(gnus-dribble-eval-file)) (when (and init gnus-slave)
(gnus-dribble-clear)) (gnus-update-format-specifications) (when (and ...
... ... ... ... gnus-read-active-file)
(gnus-read-all-descriptions-files)) (when (and init
gnus-check-new-newsgroups ... ... ... gnus-plugged)
(gnus-find-new-newsgroups)) (when (and init gnus-check-bogus-newsgroups
gnus-read-active-file ... ...) (gnus-check-bogus-newsgroups)) (when (and
... gnus-use-nocem ...) (gnus-nocem-scan-groups))
(gnus-master-read-slave-newsrc) (let (...) (gnus-get-unread-articles
level)))
  gnus-setup-news(nil nil nil)
  (if (and (not dont-connect) (not did-connect)) (gnus-group-quit)
(gnus-run-hooks (quote gnus-startup-hook)) (setq
gnus-current-startup-file (gnus-make-newsrc-file gnus-startup-file))
(when (or gnus-slave gnus-use-dribble-file) (gnus-dribble-read-file))
(if gnus-agent (gnus-request-create-group "queue" ...))
(gnus-request-create-group "drafts" (quote ...)) (gnus-setup-news nil
level dont-connect) (gnus-run-hooks (quote gnus-setup-news-hook))
(gnus-start-draft-setup) (gnus-group-list-groups level)
(gnus-group-first-unread-group) (gnus-configure-windows (quote group))
(gnus-group-set-mode-line) (gnus-run-hooks (quote gnus-started-hook)))
  (unwind-protect (progn (unless dont-connect ...)) (if (and ... ...)
(gnus-group-quit) (gnus-run-hooks ...) (setq gnus-current-startup-file
...) (when ... ...) (if gnus-agent ...) (gnus-request-create-group
"drafts" ...) (gnus-setup-news nil level dont-connect) (gnus-run-hooks
...) (gnus-start-draft-setup) (gnus-group-list-groups level)
(gnus-group-first-unread-group) (gnus-configure-windows ...)
(gnus-group-set-mode-line) (gnus-run-hooks ...)))
  (let ((level ...) did-connect) (unwind-protect (progn ...) (if ... ...
... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (if (gnus-alive-p) (progn (switch-to-buffer gnus-group-buffer)
(gnus-group-get-new-news ...)) (gnus-clear-system) (gnus-splash)
(gnus-run-hooks (quote gnus-before-startup-hook))
(nnheader-init-server-buffer) (setq gnus-slave slave)
(gnus-read-init-file) (when gnus-select-method (push ...
gnus-predefined-server-alist)) (if gnus-agent (gnus-agentize)) (when
gnus-simple-splash (setq gnus-simple-splash nil) (cond ... ...)) (let
(... did-connect) (unwind-protect ... ...)))
  gnus-1(nil nil nil)
  gnus(nil)
  call-interactively(gnus)


I'm not on the list, so please CC me.  :-)

-- 
Terje