Re: nnimap 0.119 released

[Jon K Hellan <Jon.K.Hellan@item.ntnu.no>]

When entering a group (e.g. INBOX) from the server buffer, I get the
message "Wrong type argument: consp, nil".

Version: nnimap-0.119 / pgnus-0.88. 
         Does not fail with nnimap-0.118.

Analysis:
   It tries to setcar nil
   nnimap-request-update-info-internal does this when called
   with group="INBOX", info=nil, server="parus-ephemeral".
   The nil comes from
   (gnus-get-info (gnus-group-prefixed-name 
		   group (gnus-server-to-method (format "nnimap:%s" server))))
   in nnimap-request-group

   In 0.118, the body of nnimap-request-update-info-internal was inside a 
      (when info .. ). This was removed in 0.199

Backtrace:
Signaling: (wrong-type-argument consp nil)
  setcar(nil ((1 . 2) (5 . 6) 21 (25 . 29) 31 38))
  (gnus-info-set-read info (let (seen unseen) (setq seen ... unseen
  ... seen ... seen ... seen ... seen ...) (if ... ... seen)))
  (progn (gnus-info-set-read info (let ... ... ...)))
  (if (nnimap-mark-permanent-p (quote read)) (progn
  (gnus-info-set-read info ...)))
  (when (nnimap-mark-permanent-p (quote read)) (gnus-info-set-read
  info (let ... ... ...)))
  (save-current-buffer (set-buffer nnimap-server-buffer) (gnus-message
  5 "nnimap: Updating info for %s..." (gnus-info-group info)) (when
  (nnimap-mark-permanent-p ...) (gnus-info-set-read info ...)) (mapc
  (lambda ... ...) gnus-article-mark-lists) (gnus-message 5 "nnimap:
  Updating info for %s...done" (gnus-info-group info)) info)
  (with-current-buffer nnimap-server-buffer (gnus-message 5 "nnimap:
  Updating info for %s..." (gnus-info-group info)) (when
  (nnimap-mark-permanent-p ...) (gnus-info-set-read info ...)) (mapc
  (lambda ... ...) gnus-article-mark-lists) (gnus-message 5 "nnimap:
  Updating info for %s...done" (gnus-info-group info)) info)
  (progn (with-current-buffer nnimap-server-buffer (gnus-message 5
  "nnimap: Updating info for %s..." ...) (when ... ...) (mapc
  ... gnus-article-mark-lists) (gnus-message 5 "nnimap: Updating info
  for %s...done" ...) info))
  (if (nnimap-possibly-change-group group server) (progn
  (with-current-buffer nnimap-server-buffer ... ... ... ... info)))
  (when (nnimap-possibly-change-group group server)
  (with-current-buffer nnimap-server-buffer (gnus-message 5 "nnimap:
  Updating info for %s..." ...) (when ... ...) (mapc
  ... gnus-article-mark-lists) (gnus-message 5 "nnimap: Updating info
  for %s...done" ...) info))
  ad-Orig-nnimap-request-update-info-internal("INBOX" nil
  "parus-ephemeral")
  (setq ad-return-value (ad-Orig-nnimap-request-update-info-internal
  group info server))
  (let ((trace-level ...) (trace-buffer ...)) (save-excursion
  (set-buffer trace-buffer) (goto-char ...) (if ... ...) (insert ...))
  (setq ad-return-value (ad-Orig-nnimap-request-update-info-internal
  group info server)) (save-excursion (set-buffer trace-buffer)
  (goto-char ...) (insert ...)))
  (let (ad-return-value) (let (... ...) (save-excursion
  ... ... ... ...) (setq ad-return-value ...) (save-excursion
  ... ... ...)) ad-return-value)
  nnimap-request-update-info-internal("INBOX" nil "parus-ephemeral")
  ad-Orig-nnimap-request-group("INBOX" "parus-ephemeral" t)
  (setq ad-return-value (ad-Orig-nnimap-request-group group server
  fast))
  (let ((trace-level ...) (trace-buffer ...)) (save-excursion
  (set-buffer trace-buffer) (goto-char ...) (if ... ...) (insert ...))
  (setq ad-return-value (ad-Orig-nnimap-request-group group server
  fast)) (save-excursion (set-buffer trace-buffer) (goto-char ...)
  (insert ...)))
  (let (ad-return-value) (let (... ...) (save-excursion
  ... ... ... ...) (setq ad-return-value ...) (save-excursion
  ... ... ...)) ad-return-value)
  nnimap-request-group("INBOX" "parus-ephemeral" t)
  gnus-request-group("nnimap+parus:INBOX" t)
  gnus-select-newsgroup("nnimap+parus:INBOX" t nil)
  gnus-summary-read-group-1("nnimap+parus:INBOX" t t nil nil nil)
  gnus-summary-read-group("nnimap+parus:INBOX" t t nil nil nil nil)
  gnus-group-read-group(t t "nnimap+parus:INBOX" nil)
  byte-code("ÂÉ	$…\n
  gnus-group-read-group t] 5)
  gnus-group-read-ephemeral-group("nnimap+parus:INBOX" (nnimap
  "parus") nil (#<buffer *Gnus Browse Server*> . browse))
  gnus-browse-read-group(no)
  gnus-browse-select-group()
* call-interactively(gnus-browse-select-group)



Jon Kåre