error opening kerberized connection

[Mark Moll <mmoll@cs.cmu.edu>]

XEmacs 20.4, Gnus 5.6.22, nnimap 0.3.7

This is the relevant part of my .gnus:
(require 'nnimap)
(setq-default imap-open-stream 'imap-open-imtest-stream)
(setq-default imap-default-name "mmoll")

If I try to open the server ("postoffice.srv.cs.cmu.edu") in the server mode
or enter nnimap:INBOX in the *Group* buffer, I get the following error:

Signaling: (args-out-of-range #<buffer " *nnimap* postoffice.srv.cs.cmu.edu"> 333 356)
  match-string(1)
  (string-match "failed" (match-string 1))
)
  (setq imap-do-login (string-match "failed" (match-string 1)))
)
  (progn (message "Opening Kerberized IMAP connection...") (while (not ...) (accept-process-output process 5)) (message (concat "Opening Kerberized IMAP connection... " ...)) (delete-region (point-min) (match-end 0)) (setq imap-do-login (string-match "failed" ...)) (message "Opening Kerberized IMAP connection...done"))
)
  (if process (progn (message "Opening Kerberized IMAP connection...") (while ... ...) (message ...) (delete-region ... ...) (setq imap-do-login ...) (message "Opening Kerberized IMAP connection...done")))
)
  (when process (message "Opening Kerberized IMAP connection...") (while (not ...) (accept-process-output process 5)) (message (concat "Opening Kerberized IMAP connection... " ...)) (delete-region (point-min) (match-end 0)) (setq imap-do-login (string-match "failed" ...)) (message "Opening Kerberized IMAP connection...done"))
)
  (let ((process ...)) (when process (message "Opening Kerberized IMAP connection...") (while ... ...) (message ...) (delete-region ... ...) (setq imap-do-login ...) (message "Opening Kerberized IMAP connection...done")) process)
)
  imap-open-imtest-stream("imap" #<buffer " *nnimap* postoffice.srv.cs.cmu.edu"> "postoffice.srv.cs.cmu.edu" 143)
  funcall(imap-open-imtest-stream "imap" #<buffer " *nnimap* postoffice.srv.cs.cmu.edu"> "postoffice.srv.cs.cmu.edu" 143)
  (if imap-open-stream (funcall imap-open-stream name buffer host port) (imap-open-network-stream name buffer host port))
)
  (let ((coding-system-for-read ...) (coding-system-for-write ...)) (if imap-open-stream (funcall imap-open-stream name buffer host port) (imap-open-network-stream name buffer host port)))
)
  imap-open-stream("imap" #<buffer " *nnimap* postoffice.srv.cs.cmu.edu"> "postoffice.srv.cs.cmu.edu" 143)
  (setq imap-process (imap-open-stream "imap" (current-buffer) server (or port imap-default-port)))
)
  (if (setq imap-process (imap-open-stream "imap" ... server ...)) (progn (set-marker ... ...) (set-process-filter imap-process ...) (setq imap-current-server server) (setq imap-tag-char ...) (setq imap-connection-number ...) (current-buffer)))
)
  (when (setq imap-process (imap-open-stream "imap" ... server ...)) (set-marker (process-mark imap-process) (point-min)) (set-process-filter imap-process (quote imap-arrival-filter)) (setq imap-current-server server) (setq imap-tag-char (int-char ...)) (setq imap-connection-number (1+ imap-connection-number)) (current-buffer))
)
  (save-current-buffer (set-buffer (get-buffer-create ...)) (buffer-disable-undo) (imap-close-server) (mapc (lambda ... ...) local-defs) (when (setq imap-process ...) (set-marker ... ...) (set-process-filter imap-process ...) (setq imap-current-server server) (setq imap-tag-char ...) (setq imap-connection-number ...) (current-buffer)))
)
  (with-current-buffer (get-buffer-create (or buffer ...)) (buffer-disable-undo) (imap-close-server) (mapc (lambda ... ...) local-defs) (when (setq imap-process ...) (set-marker ... ...) (set-process-filter imap-process ...) (setq imap-current-server server) (setq imap-tag-char ...) (setq imap-connection-number ...) (current-buffer)))
)
  ad-Orig-imap-open-server("postoffice.srv.cs.cmu.edu" nil " *nnimap* postoffice.srv.cs.cmu.edu" nil)
  imap-open-server("postoffice.srv.cs.cmu.edu" nil " *nnimap* postoffice.srv.cs.cmu.edu" nil)
  (if (imap-open-server nnimap-server-address nnimap-server-port nnimap-server-buffer nnimap-imap-defs) (progn (imap-send-command "CAPABILITY" nnimap-server-buffer) (until ... ... ...) (push ... nnimap-server-buffer-alist)))
)
  (when (imap-open-server nnimap-server-address nnimap-server-port nnimap-server-buffer nnimap-imap-defs) (imap-send-command "CAPABILITY" nnimap-server-buffer) (until (imap-login nil nnimap-server-buffer) (message "Bad Password for %s, Try again." server) (sleep-for 2)) (push (cons server nnimap-server-buffer) nnimap-server-buffer-alist))
)
  (condition-case nil (when (imap-open-server nnimap-server-address nnimap-server-port nnimap-server-buffer nnimap-imap-defs) (imap-send-command "CAPABILITY" nnimap-server-buffer) (until ... ... ...) (push ... nnimap-server-buffer-alist)) ((quote quit) (let ... ... ... nil)))
)
  (progn (unless (assq ... defs) (push ... defs)) (unless (assq ... defs) (push ... defs)) (nnoo-change-server (quote nnimap) server defs) (condition-case nil (when ... ... ... ...) (... ...)))
)
  (or (nnimap-server-opened server) (progn (unless ... ...) (unless ... ...) (nnoo-change-server ... server defs) (condition-case nil ... ...)))
)
  ad-Orig-nnimap-open-server("postoffice.srv.cs.cmu.edu" nil)
  nnimap-open-server("postoffice.srv.cs.cmu.edu" nil)
  gnus-open-server((nnimap "postoffice.srv.cs.cmu.edu"))
  gnus-check-server((nnimap "postoffice.srv.cs.cmu.edu"))
  gnus-select-newsgroup("nnimap+postoffice.srv.cs.cmu.edu:INBOX" nil)
  gnus-summary-read-group-1("nnimap+postoffice.srv.cs.cmu.edu:INBOX" nil nil nil nil)
  gnus-summary-read-group("nnimap+postoffice.srv.cs.cmu.edu:INBOX" nil nil nil nil)
  gnus-group-read-group(nil nil nil)
  gnus-topic-read-group(nil)
  gnus-mouse-pick-topic(#<buttondown-event button2>)
  call-interactively(gnus-mouse-pick-topic)

-- 
Mark Moll
e-mail: mmoll@cs.cmu.edu              |  Carnegie Mellon University
phone:  (412) 268 7123                |  Dept. of Computer Science
URL:    http://www.cs.cmu.edu/~mmoll  |  5000 Forbes Avenue
PGP:    finger e-mail address         |  Pittsburgh, PA  15213