Signaling: (wrong-type-argument arrayp nil)
  aref(nil 0)
  (let* ((gnus-tmp-indentation ...) (gnus-tmp-lines ...) (gnus-tmp-score ...) (gnus-tmp-score-char ...) (gnus-tmp-number ...) (gnus-tmp-replied ...) (gnus-tmp-from ...) (gnus-tmp-name ...) (gnus-tmp-subject ...) (gnus-tmp-opening-bracket ...) (gnus-tmp-closing-bracket ...) (buffer-read-only nil)) (when (string= gnus-tmp-name "") (setq gnus-tmp-name gnus-tmp-from)) (unless (numberp gnus-tmp-lines) (setq gnus-tmp-lines -1)) (if (= gnus-tmp-lines -1) (setq gnus-tmp-lines "?") (setq gnus-tmp-lines ...)) (gnus-put-text-property (point) (progn ... ...) (quote gnus-number) gnus-tmp-number) (when (gnus-visual-p ... ...) (forward-line -1) (gnus-run-hooks ...) (forward-line 1)))
  gnus-summary-insert-line([0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil] 0 nil 128 t nil "" nil 1)
  (let ((gnus-summary-line-format-spec spec) (gnus-newsgroup-downloadable ...)) (gnus-summary-insert-line [0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil] 0 nil 128 t nil "" nil 1) (goto-char (point-min)) (setq pos (list ...)) (goto-char (point-min)) (push (cons ... ...) pos) (goto-char (point-min)) (push (cons ... ...) pos) (goto-char (point-min)) (push (cons ... ...) pos))
  (save-excursion (gnus-set-work-buffer) (let (... ...) (gnus-summary-insert-line ... 0 nil 128 t nil "" nil 1) (goto-char ...) (setq pos ...) (goto-char ...) (push ... pos) (goto-char ...) (push ... pos) (goto-char ...) (push ... pos)))
  (let ((gnus-replied-mark 129) (gnus-score-below-mark 130) (gnus-score-over-mark 130) (gnus-download-mark 131) (spec gnus-summary-line-format-spec) gnus-visual pos) (save-excursion (gnus-set-work-buffer) (let ... ... ... ... ... ... ... ... ... ...)) (setq gnus-summary-mark-positions pos))
  (save-excursion (when (gnus-buffer-exists-p gnus-summary-buffer) (set-buffer gnus-summary-buffer)) (let (... ... ... ... ... gnus-visual pos) (save-excursion ... ...) (setq gnus-summary-mark-positions pos)))
  gnus-update-summary-mark-positions()
  (cond ((not new-group) (gnus-set-global-variables) (when kill-buffer ...) (gnus-configure-windows ... ...) (gnus-set-mode-line ...) (gnus-summary-position-point) (message "") t) ((null did-select) (when ... ... ...) (let ... ...) nil) ((eq did-select ...) (and ... ... ...) (when kill-buffer ...) (if ... ... ...) (signal ... nil)) (t (gnus-set-global-variables) (setq gnus-newsgroup-active ...) (gnus-run-hooks ...) (gnus-update-format-specifications nil ... ... ...) (gnus-update-summary-mark-positions) (when gnus-use-scoring ...) (when gnus-build-sparse-threads ...) (if gnus-show-threads ... ...) (unless no-display ...) (when gnus-use-trees ... ...) (when ... ...) (gnus-run-hooks ...) (if ... ... ... ... ... ... ... ... ... t)))
  (let* ((new-group ...) (quit-config ...) (did-select ...)) (cond (... ... ... ... ... ... ... t) (... ... ... nil) (... ... ... ... ...) (t ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  gnus-summary-read-group-1("nnml:phpshop-l-2002-05" nil t nil nil nil)
  (or (gnus-summary-read-group-1 group show-all no-article kill-buffer no-display select-articles) (setq show-all nil select-articles nil))
  (let ((gnus-auto-select-next nil)) (or (gnus-summary-read-group-1 group show-all no-article kill-buffer no-display select-articles) (setq show-all nil select-articles nil)))
  (setq result (let (...) (or ... ...)))
  (null (setq result (let ... ...)))
  (and group (null (setq result ...)) (eq gnus-auto-select-next (quote quietly)))
  (while (and group (null ...) (eq gnus-auto-select-next ...)) (set-buffer gnus-group-buffer) (when backward (gnus-group-prev-unread-group 2)) (if (not ...) (setq group ...) (setq group nil)))
  (let (result) (while (and group ... ...) (set-buffer gnus-group-buffer) (when backward ...) (if ... ... ...)) result)
  gnus-summary-read-group("nnml:phpshop-l-2002-05" nil t nil nil nil nil)
  (let ((no-display ...) (group ...) number active marked entry) (when (eq all 0) (setq all nil)) (unless group (error "No group on current line")) (setq marked (gnus-info-marks ...)) (setq number (cond ... ... ...)) (gnus-summary-read-group group (or all ...) no-article nil no-display nil select-articles))
  gnus-group-read-group(nil t)
  gnus-group-select-group(nil)
  (if (gnus-group-topic-p) (let (...) (gnus-topic-fold all) (gnus-dribble-touch)) (gnus-group-select-group all))
  gnus-topic-select-group(nil)
  call-interactively(gnus-topic-select-group)