>>>>> "Kai" == Kai Großjohann >>>>> "Re: Trouble selecting group in recent cvs" >>>>> Fri, 29 Nov 2002 14:22:04 +0100 Kai> jam@jamux.com (John A. Martin) writes: >> In recent CVS versions gnus-group-select-group (RET in the >> Group buffer) gives me something like >> >> Symbol's function definition is void: nil >> >> or a backtrace >> >> ,---- | Signaling: (void-function nil) | nil() | >> gnus-summary-highlight-line() Kai> Could you load gnus-sum.el (the .el is important) and get Kai> another backtrace? I think the new one will contain more Kai> information. ,---- | Signaling: (void-function nil) | nil() | funcall(nil) | (let ((face ...)) (unless (eq face ...) (gnus-put-text-property-excluding-characters-with-faces beg ... ... ...) (when gnus-summary-highlight-line-function ...))) | (let* ((list gnus-summary-highlight) (beg ...) (article ...) (score ...) (mark ...) (inhibit-read-only t) (default gnus-summary-default-score) (default-high gnus-summary-default-high-score) (default-low gnus-summary-default-low-score) (downloaded ...)) (let (...) (unless ... ... ...))) | gnus-summary-highlight-line() | run-hooks(gnus-summary-highlight-line) | apply(run-hooks gnus-summary-highlight-line) | gnus-run-hooks(gnus-summary-update-hook) | (progn (forward-line -1) (gnus-run-hooks (quote gnus-summary-update-hook)) (forward-line 1)) | (if gnus-visual-p (progn (forward-line -1) (gnus-run-hooks ...) (forward-line 1))) | (when gnus-visual-p (forward-line -1) (gnus-run-hooks (quote gnus-summary-update-hook)) (forward-line 1)) | (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 ?< gnus-tmp-closing-bracket ?>) (setq gnus-tmp-opening-bracket ?\[ gnus-tmp-closing-bracket ?\])) (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 ... ?\ ...) gnus-tmp-replied (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-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 ?< gnus-tmp-closing-bracket ?>) (setq gnus-tmp-opening-bracket ?\[ gnus-tmp-closing-bracket ?\])) (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 ... ?\ ...) gnus-tmp-replied (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-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 ...)) (unless threads (setq gnus-tmp-level 0))) | (if (vectorp (car threads)) (gnus-summary-prepare-unthreaded threads) (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 ...) (unless threads ...))) | (let ((gnus-tmp-level 0) (default-score ...) (gnus-visual-p ...) 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-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) (if (vectorp ...) (gnus-summary-prepare-unthreaded threads) (while ... ... ... ... ... ... ... ... ... ... ...))) | gnus-summary-prepare-threads((("RE: HTTP proxy tunnel for SSH?" (... ...) (...)) ([414 "Talk: WEDNESDAY Nov. 20, 2002 on anonymous networking" "John Viega " "Sun, 10 Nov 2002 09:36:25 -0500" "" "" 4056 56 "nnmaildir sg-dc:414" ...]))) | (if gnus-newsgroup-headers (gnus-summary-prepare-threads (if gnus-show-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 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("nnmaildir:sg-dc" 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("nnmaildir:sg-dc" nil t nil nil nil nil) | gnus-group-read-group(nil t) | gnus-group-select-group(nil) | call-interactively(gnus-group-select-group) `---- BTW this is with xemacs21-nomule. jam