args out of range while generating summary

[marco]

yesterday i started getting an "args out of range" error when
generating the summary buffer for my "inbox" group. 

here's the backtrack:

Debugger entered--Lisp error: (args-out-of-range 93 94)
  gnus-put-text-property(93 94 gnus-position t)
  (if gnus-position (gnus-put-text-property gnus-position (1+ gnus-position) 
(quote gnus-position) t))
  (let (gnus-position) (insert gnus-tmp-unread gnus-tmp-replied 
gnus-tmp-score-char) (setq gnus-position (point)) (insert (format " %s[%s] %s " 
gnus-tmp-indentation ... gnus-tmp-subject-or-nil)) (progn (if ... ... ...)) 
(insert " | " (gnus-user-date ...) "\n") (if gnus-position 
(gnus-put-text-property gnus-position ... ... t)))
  eval((let (gnus-position) (insert gnus-tmp-unread gnus-tmp-replied 
gnus-tmp-score-char) (setq gnus-position (point)) (insert (format " %s[%s] %s " 
gnus-tmp-indentation ... gnus-tmp-subject-or-nil)) (progn (if ... ... ...)) 
(insert " | " (gnus-user-date ...) "\n") (if gnus-position 
(gnus-put-text-property gnus-position ... ... t))))
  (progn (eval gnus-summary-line-format-spec) (point))
  (gnus-put-text-property (point) (progn (eval gnus-summary-line-format-spec) 
(point)) (quote gnus-number) number)
  (progn (when (and gnus-tmp-dummy-line ...) (gnus-summary-insert-dummy-line 
gnus-tmp-dummy-line ...) (setq gnus-tmp-dummy-line nil)) (setq gnus-tmp-unread 
(gnus-article-mark number)) (push (gnus-data-make number gnus-tmp-unread ... 
gnus-tmp-header gnus-tmp-level) gnus-newsgroup-data) (setq 
gnus-tmp-subject-or-nil (cond ... ... ...)) (if (and ... ... ...) (setq 
gnus-tmp-opening-bracket 60 gnus-tmp-closing-bracket 62) (setq 
gnus-tmp-opening-bracket 91 gnus-tmp-closing-bracket 93)) (setq 
gnus-tmp-indentation (aref gnus-thread-indent-array gnus-tmp-level) 
gnus-tmp-lines (mail-header-lines gnus-tmp-header) gnus-tmp-score (or ... 
gnus-summary-default-score 0) gnus-tmp-score-char (if ... 32 ...) 
gnus-tmp-replied (cond ... ... ... ... ... ... ... ...) gnus-tmp-downloaded 
(cond ... ... ...) gnus-tmp-from (mail-header-from gnus-tmp-header) 
gnus-tmp-name (cond ... ... ...) gnus-tmp-thread-tree-header-string (cond ... 
... ...)) (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) number) 
(when gnus-visual-p (forward-line -1) (gnus-run-hooks ...) (forward-line 1)) 
(setq gnus-tmp-prev-subject simp-subject))
  (if gnus-tmp-header (progn (when ... ... ...) (setq gnus-tmp-unread ...) 
(push ... gnus-newsgroup-data) (setq gnus-tmp-subject-or-nil ...) (if ... ... 
...) (setq gnus-tmp-indentation ... gnus-tmp-lines ... gnus-tmp-score ... 
gnus-tmp-score-char ... gnus-tmp-replied ... gnus-tmp-downloaded ... 
gnus-tmp-from ... gnus-tmp-name ... gnus-tmp-thread-tree-header-string ...) 
(when ... ...) (unless ... ...) (if ... ... ...) (gnus-put-text-property ... 
... ... number) (when gnus-visual-p ... ... ...) (setq gnus-tmp-prev-subject 
simp-subject)))
  (when gnus-tmp-header (when (and gnus-tmp-dummy-line ...) 
(gnus-summary-insert-dummy-line gnus-tmp-dummy-line ...) (setq 
gnus-tmp-dummy-line nil)) (setq gnus-tmp-unread (gnus-article-mark number)) 
(push (gnus-data-make number gnus-tmp-unread ... gnus-tmp-header 
gnus-tmp-level) gnus-newsgroup-data) (setq gnus-tmp-subject-or-nil (cond ... 
... ...)) (if (and ... ... ...) (setq gnus-tmp-opening-bracket 60 
gnus-tmp-closing-bracket 62) (setq gnus-tmp-opening-bracket 91 
gnus-tmp-closing-bracket 93)) (setq gnus-tmp-indentation (aref 
gnus-thread-indent-array gnus-tmp-level) gnus-tmp-lines (mail-header-lines 
gnus-tmp-header) gnus-tmp-score (or ... gnus-summary-default-score 0) 
gnus-tmp-score-char (if ... 32 ...) gnus-tmp-replied (cond ... ... ... ... ... 
... ... ...) gnus-tmp-downloaded (cond ... ... ...) gnus-tmp-from 
(mail-header-from gnus-tmp-header) gnus-tmp-name (cond ... ... ...) 
gnus-tmp-thread-tree-header-string (cond ... ... ...)) (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) number) (when gnus-visual-p (forward-line 
-1) (gnus-run-hooks ...) (forward-line 1)) (setq gnus-tmp-prev-subject 
simp-subject))
  (if (stringp gnus-tmp-header) (cond (... ... ... ... ...) (... ... ...) (... 
... ...) (t ...)) (setq number (mail-header-number gnus-tmp-header) subject 
(mail-header-subject gnus-tmp-header) simp-subject (gnus-simplify-subject-fully 
subject)) (cond (... ...) (... ... ... ...) (... ... ...)) (when 
gnus-tmp-header (when ... ... ...) (setq gnus-tmp-unread ...) (push ... 
gnus-newsgroup-data) (setq gnus-tmp-subject-or-nil ...) (if ... ... ...) (setq 
gnus-tmp-indentation ... gnus-tmp-lines ... gnus-tmp-score ... 
gnus-tmp-score-char ... gnus-tmp-replied ... gnus-tmp-downloaded ... 
gnus-tmp-from ... gnus-tmp-name ... gnus-tmp-thread-tree-header-string ...) 
(when ... ...) (unless ... ...) (if ... ... ...) (gnus-put-text-property ... 
... ... number) (when gnus-visual-p ... ... ...) (setq gnus-tmp-prev-subject 
simp-subject)))
  (while (or threads stack gnus-tmp-new-adopts new-roots) (if (and ... ... ... 
...) (if gnus-tmp-new-adopts ... ...) (if threads ... ...)) (setq 
gnus-tmp-false-parent nil) (setq gnus-tmp-root-expunged nil) (setq thread-end 
nil) (if (stringp gnus-tmp-header) (cond ... ... ... ...) (setq number ... 
subject ... simp-subject ...) (cond ... ... ...) (when gnus-tmp-header ... ... 
... ... ... ... ... ... ... ... ... ...)) (when (nth 1 thread) (push ... 
stack)) (push (if ... 1 0) tree-stack) (incf gnus-tmp-level) (setq threads (if 
thread-end nil ...)) (if gnus-summary-display-while-building (if building-count 
... ...)) (unless threads (setq gnus-tmp-level 0)))
  (if (vectorp (car threads)) (gnus-summary-prepare-unthreaded threads) (if 
gnus-summary-display-while-building (switch-to-buffer ...)) (while (or threads 
stack gnus-tmp-new-adopts new-roots) (if ... ... ...) (setq 
gnus-tmp-false-parent nil) (setq gnus-tmp-root-expunged nil) (setq thread-end 
nil) (if ... ... ... ... ...) (when ... ...) (push ... tree-stack) (incf 
gnus-tmp-level) (setq threads ...) (if gnus-summary-display-while-building ...) 
(unless threads ...)))
  (let ((gnus-tmp-level 0) (default-score ...) (gnus-visual-p ...) 
(building-line-count gnus-summary-display-while-building) (building-count ...) 
thread number subject stack state gnus-tmp-gathered beg-match new-roots 
gnus-tmp-new-adopts thread-end simp-subject gnus-tmp-header gnus-tmp-unread 
gnus-tmp-downloaded gnus-tmp-replied gnus-tmp-subject-or-nil gnus-tmp-dummy 
gnus-tmp-indentation gnus-tmp-lines gnus-tmp-score gnus-tmp-score-char 
gnus-tmp-from gnus-tmp-name gnus-tmp-number gnus-tmp-opening-bracket 
gnus-tmp-closing-bracket tree-stack) (setq gnus-tmp-prev-subject nil 
gnus-tmp-thread-tree-header-string "") (if (vectorp ...) 
(gnus-summary-prepare-unthreaded threads) (if 
gnus-summary-display-while-building ...) (while ... ... ... ... ... ... ... ... 
... ... ... ...)))
  gnus-summary-prepare-threads((([6011 "clisp-cvs digest, Vol 1 #720 - 10 msgs" 
"clisp-cvs-request@lists.sourceforge.net" #("Fri, 01 Oct 2004 20:21:00 -0700" 0 
1 ... 1 31 nil) "<E1CDbt1-0006O8-8q@sc8-sf-list1.sourceforge.net>" "" 33828 950 
"codoxime.local. inbox:6011" ...]) ([6012 
"\xd0f6\xe624\xdf35\xe17a&\xdf35\xe17a\xdcad\xdcf0\xd123\xd1b8\xe069\xe5fc\xd8df\xd0a2\xd1b1\xd92f\xd8df\xd84a\xdf65\xdf5a\xdaf2\xe6ad\xde7d\xe37e\xe57d\xe5a1\xd222\xd26a\xd25e\xd239\xd123\
 3\xd92f\xd8df\xd0a2\ 
5\xd92f\xd8df\xde7d\xe37e\xde54\xe133\xded0\xdf5a\xdaf2\xd9ce\xe3a7\xd247\xd22d\xd25e\xd239\xd123\xe3af\xdb62\xd24f\
 
8\xe069\xe5fc\xd8df\xd247\xd842\xdfb4\xd123\xdbca\xdaa4\xd973\xe4fc\xd9ab\xddcf\xd24e\xddfe\xd233\xd23d\xd2c1\xd2e3\xd2f3\xd2b9"
 "6\xe069\xe5fc\xd8df\xd84a\xdf65\xda75\xe5be\xd24e\xe57d\xd258\ 5\xd92f\ 
9\xe069\xe5fc\xd8df\xdf5a\xdaf2\xd2e1\xd2eb\xd2de\xd2ac 
<delivery@hosyou-r.mine.nu>" #("Sat, 2 Oct 2004 17:28:37 +0900 (JST)" 0 1 ... 1 
36 nil) "<17216814.1096705717933.JavaMail.postgres@hosyou-r.mine.nu>" "" 8749 
133 "codoxime.local. inbox:6012" ...]) ([6015 "Build Status of CPAN modules 
from ActiveState" "Gabor Szabo <gabor@perl.org.il>" #("Sat, 2 Oct 2004 12:47:10 
+0200 (IST)" 0 1 ... 1 36 nil) 
"<Pine.LNX.4.58.0410021234440.22140@gabor.pti.co.il>" "" 869 27 
"codoxime.local. inbox:6015" ...])))
  (progn (gnus-summary-prepare-threads (if gnus-show-threads ... ...)))
  (if gnus-newsgroup-headers (progn (gnus-summary-prepare-threads ...)))
  (when gnus-newsgroup-headers (gnus-summary-prepare-threads (if 
gnus-show-threads ... ...)))
  (let ((buffer-read-only nil)) (erase-buffer) (setq gnus-newsgroup-data nil 
gnus-newsgroup-data-reverse nil) (gnus-run-hooks (quote 
gnus-summary-generate-hook)) (when gnus-newsgroup-headers 
(gnus-summary-prepare-threads ...)) (setq gnus-newsgroup-data (nreverse 
gnus-newsgroup-data)) (goto-char (point-min)) (gnus-run-hooks (quote 
gnus-summary-prepare-hook)))
  gnus-summary-prepare()
  (if no-display nil (gnus-summary-prepare))
  (unless no-display (gnus-summary-prepare))
  (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 show-all ... ...) (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+private:inbox" 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+private:inbox" 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)

anything i can do to debug/work around this?


-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen