errors when entering group.

errors when entering group.

[Maciej Matysiak]

[-- Attachment #1: Type: text/plain, Size: 248 bytes --]


hi,

i've just updated gnus from cvs and now i can't enter my groups anymore :(
here're the backtraces (the first was made when i had moved the cursor and
tried enter the group, second when i just hit the enter again). xemacs version
in headers.


[-- Attachment #2: first backtrace --]
[-- Type: text/plain, Size: 12836 bytes --]

Signaling: (void-variable mouse-buffer-menu-maxlen)
  (* mouse-buffer-menu-maxlen 3)
  (/ (* mouse-buffer-menu-maxlen 3) 2)
  (> (length menu) (/ (* mouse-buffer-menu-maxlen 3) 2))
  (if (> (length menu) (/ ... 2)) (let (... sublists next ...) (while menu ... ... ... ... ...) (nreverse sublists)) menu)
  gnus-summary-menu-split((["alternativnyj" gnus-summary-show-article-from-menu-as-charset-alternativnyj t] ["alternativnyj-dos" gnus-summary-show-article-from-menu-as-charset-alternativnyj-dos t] ["alternativnyj-mac" gnus-summary-show-article-from-menu-as-charset-alternativnyj-mac t] ["alternativnyj-unix" gnus-summary-show-article-from-menu-as-charset-alternativnyj-unix t] ["automatic-conversion" gnus-summary-show-article-from-menu-as-charset-automatic-conversion t] ["big5" gnus-summary-show-article-from-menu-as-charset-big5 t] ["big5-dos" gnus-summary-show-article-from-menu-as-charset-big5-dos t] ["big5-mac" gnus-summary-show-article-from-menu-as-charset-big5-mac t] ["big5-unix" gnus-summary-show-article-from-menu-as-charset-big5-unix t] ["binary" gnus-summary-show-article-from-menu-as-charset-binary t] ["chinese-euc" gnus-summary-show-article-from-menu-as-charset-chinese-euc t] ["chinese-euc-dos" gnus-summary-show-article-from-menu-as-charset-chinese-euc-dos t] ["chinese-euc-mac" gnus-summary-show-article-from-menu-as-charset-chinese-euc-mac t] ["chinese-euc-unix" gnus-summary-show-article-from-menu-as-charset-chinese-euc-unix t] ["cn-big5" gnus-summary-show-article-from-menu-as-charset-cn-big5 t] ["cn-big5-dos" gnus-summary-show-article-from-menu-as-charset-cn-big5-dos t] ["cn-big5-mac" gnus-summary-show-article-from-menu-as-charset-cn-big5-mac t] ["cn-big5-unix" gnus-summary-show-article-from-menu-as-charset-cn-big5-unix t] ["cn-gb-2312" gnus-summary-show-article-from-menu-as-charset-cn-gb-2312 t] ["cn-gb-2312-dos" gnus-summary-show-article-from-menu-as-charset-cn-gb-2312-dos t] ["cn-gb-2312-mac" gnus-summary-show-article-from-menu-as-charset-cn-gb-2312-mac t] ["cn-gb-2312-unix" gnus-summary-show-article-from-menu-as-charset-cn-gb-2312-unix t] ["ctext" gnus-summary-show-article-from-menu-as-charset-ctext t] ["ctext-dos" gnus-summary-show-article-from-menu-as-charset-ctext-dos t] ["ctext-hebrew" gnus-summary-show-article-from-menu-as-charset-ctext-hebrew t] ["ctext-hebrew-dos" gnus-summary-show-article-from-menu-as-charset-ctext-hebrew-dos t] ["ctext-hebrew-mac" gnus-summary-show-article-from-menu-as-charset-ctext-hebrew-mac t] ["ctext-hebrew-unix" gnus-summary-show-article-from-menu-as-charset-ctext-hebrew-unix t] ["ctext-mac" gnus-summary-show-article-from-menu-as-charset-ctext-mac t] ["ctext-unix" gnus-summary-show-article-from-menu-as-charset-ctext-unix t] ["escape-quoted" gnus-summary-show-article-from-menu-as-charset-escape-quoted t] ["euc-japan" gnus-summary-show-article-from-menu-as-charset-euc-japan t] ["euc-japan-dos" gnus-summary-show-article-from-menu-as-charset-euc-japan-dos t] ["euc-japan-mac" gnus-summary-show-article-from-menu-as-charset-euc-japan-mac t] ["euc-japan-unix" gnus-summary-show-article-from-menu-as-charset-euc-japan-unix t] ["euc-jp" gnus-summary-show-article-from-menu-as-charset-euc-jp t] ["euc-jp-dos" gnus-summary-show-article-from-menu-as-charset-euc-jp-dos t] ["euc-jp-mac" gnus-summary-show-article-from-menu-as-charset-euc-jp-mac t] ["euc-jp-unix" gnus-summary-show-article-from-menu-as-charset-euc-jp-unix t] ["euc-kr" gnus-summary-show-article-from-menu-as-charset-euc-kr t] ["euc-kr-dos" gnus-summary-show-article-from-menu-as-charset-euc-kr-dos t] ["euc-kr-mac" gnus-summary-show-article-from-menu-as-charset-euc-kr-mac t] ["euc-kr-unix" gnus-summary-show-article-from-menu-as-charset-euc-kr-unix t] ["file-name" gnus-summary-show-article-from-menu-as-charset-file-name t] ["file-name-dos" gnus-summary-show-article-from-menu-as-charset-file-name-dos t] ["file-name-mac" gnus-summary-show-article-from-menu-as-charset-file-name-mac t] ["file-name-unix" gnus-summary-show-article-from-menu-as-charset-file-name-unix t] ["gb2312" gnus-summary-show-article-from-menu-as-charset-gb2312 t] ["gb2312-dos" gnus-summary-show-article-from-menu-as-charset-gb2312-dos t] ["gb2312-mac" gnus-summary-show-article-from-menu-as-charset-gb2312-mac t] ["gb2312-unix" gnus-summary-show-article-from-menu-as-charset-gb2312-unix t] ...))
  (cons (quote "View as different encoding") (gnus-summary-menu-split (mapcar ... ...)))
  (bq-list* (quote "View as different encoding") (gnus-summary-menu-split (mapcar ... ...)))
  (list (quote "Display") (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (bq-list* (quote "View as different encoding") (gnus-summary-menu-split ...)))
  (list (list (quote "Hide") (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...)) (list (quote "Highlight") (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...)) (list (quote "MIME") (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...)) (list (quote "Date") (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...)) (list (quote "Display") (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (bq-list* ... ...)) (list (quote "Washing") (list ... ... ... ... ... ... ... ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...)) (list (quote "Output") (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...)) (list (quote "Backend") (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...)) (list (quote "Extract") (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...) (apply ... ...)) (list (quote "Cache") (apply ... ...) (apply ... ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)) (apply (function vector) (quote ...)))
  (backquote (("Hide" ... ... ... ... ... ... ... ...) ("Highlight" ... ... ... ...) ("MIME" ... ... ... ... ... ... ... ...) ("Date" ... ... ... ... ... ...) ("Display" ... ... ... ... ... ... ...) ("Washing" ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) ("Output" ... ... ... ... ... ... ... ... ... ... ...) ("Backend" ... ... ... ... ... ... ... ... ... ... ... ...) ("Extract" ... ... ... ... ... ... ... ...) ("Cache" ... ...) ["Translate" gnus-article-babel t] ["Select article buffer" gnus-summary-select-article-buffer t] ["Enter digest buffer" gnus-summary-enter-digest-group t] ["Isearch article..." gnus-summary-isearch-article t] ["Beginning of the article" gnus-summary-beginning-of-article t] ["End of the article" gnus-summary-end-of-article t] ["Fetch parent of article" gnus-summary-refer-parent-article t] ["Fetch referenced articles" gnus-summary-refer-references t] ["Fetch current thread" gnus-summary-refer-thread t] ["Fetch article with id..." gnus-summary-refer-article t] ["Setup Mailing List Params" gnus-mailing-list-insinuate t] ["Redisplay" gnus-summary-show-article t] ["Raw article" gnus-summary-show-raw-article :keys "C-u g"]))
  (let ((innards ...)) (easy-menu-define gnus-summary-article-menu gnus-summary-mode-map "" (cons "Article" innards)) (if (not ...) (easy-menu-define gnus-article-commands-menu gnus-article-mode-map "" ...) (setq gnus-article-commands-menu ...) (define-key gnus-article-mode-map ... ...)))
  (if (boundp (quote gnus-summary-misc-menu)) nil (easy-menu-define gnus-summary-kill-menu gnus-summary-mode-map "" (cons "Score" ...)) (let (...) (easy-menu-define gnus-summary-article-menu gnus-summary-mode-map "" ...) (if ... ... ... ...)) (easy-menu-define gnus-summary-thread-menu gnus-summary-mode-map "" (quote ...)) (easy-menu-define gnus-summary-post-menu gnus-summary-mode-map "" (backquote ...)) (cond (... ...) (... ...)) (define-key gnus-article-mode-map [menu-bar post] (cons "Post" gnus-article-post-menu)) (easy-menu-define gnus-summary-misc-menu gnus-summary-mode-map "" (backquote ...)) (gnus-run-hooks (quote gnus-summary-menu-hook)))
  (unless (boundp (quote gnus-summary-misc-menu)) (easy-menu-define gnus-summary-kill-menu gnus-summary-mode-map "" (cons "Score" ...)) (let (...) (easy-menu-define gnus-summary-article-menu gnus-summary-mode-map "" ...) (if ... ... ... ...)) (easy-menu-define gnus-summary-thread-menu gnus-summary-mode-map "" (quote ...)) (easy-menu-define gnus-summary-post-menu gnus-summary-mode-map "" (backquote ...)) (cond (... ...) (... ...)) (define-key gnus-article-mode-map [menu-bar post] (cons "Post" gnus-article-post-menu)) (easy-menu-define gnus-summary-misc-menu gnus-summary-mode-map "" (backquote ...)) (gnus-run-hooks (quote gnus-summary-menu-hook)))
  gnus-summary-make-menu-bar()
  (progn (gnus-summary-make-menu-bar) (gnus-summary-make-tool-bar))
  (if (gnus-visual-p (quote summary-menu) (quote menu)) (progn (gnus-summary-make-menu-bar) (gnus-summary-make-tool-bar)))
  (when (gnus-visual-p (quote summary-menu) (quote menu)) (gnus-summary-make-menu-bar) (gnus-summary-make-tool-bar))
  gnus-summary-mode("nnml:phpshop-l-2002-05")
  (if (get-buffer buffer) (progn (set-buffer buffer) (setq gnus-summary-buffer ...) (not gnus-newsgroup-prepared)) (setq gnus-summary-buffer (set-buffer ...)) (gnus-summary-mode group) (when gnus-carpal (gnus-carpal-setup-buffer ...)) (unless gnus-single-article-buffer (make-local-variable ...) (make-local-variable ...) (make-local-variable ...)) (setq gnus-newsgroup-name group) (gnus-summary-set-local-parameters gnus-newsgroup-name) t)
  (let ((buffer ...) (dead-name ...)) (when (gnus-buffer-live-p dead-name) (gnus-kill-buffer dead-name)) (if (get-buffer buffer) (progn ... ... ...) (setq gnus-summary-buffer ...) (gnus-summary-mode group) (when gnus-carpal ...) (unless gnus-single-article-buffer ... ... ...) (setq gnus-newsgroup-name group) (gnus-summary-set-local-parameters gnus-newsgroup-name) t))
  gnus-summary-setup-buffer("nnml:phpshop-l-2002-05")
  (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)

[-- Attachment #3: second backtrace --]
[-- Type: text/plain, Size: 4441 bytes --]

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)

[-- Attachment #4: Type: text/plain, Size: 31 bytes --]


 m.m.
-- 
 use gnus not guns!

Re: errors when entering group.

[Simon Josefsson]

Maciej Matysiak <phoner@blah.pl> writes:

> hi,
>
> i've just updated gnus from cvs and now i can't enter my groups anymore :(
> here're the backtraces (the first was made when i had moved the cursor and
> tried enter the group, second when i just hit the enter again). xemacs version
> in headers.
>
> Signaling: (void-variable mouse-buffer-menu-maxlen)

Fixed.

Re: errors when entering group.

[Maciej Matysiak]

On the 26th of May 2002 at 21:29, Simon Josefsson <jas@extundo.com> wrote:

>> Signaling: (void-variable mouse-buffer-menu-maxlen)
> Fixed.

indeed. thank you.

 m.m.
-- 
 use gnus not guns!