From: jam@jamux.com (John A. Martin)
Subject: Re: Trouble selecting group in recent cvs
Date: Fri, 29 Nov 2002 09:13:38 -0500 [thread overview]
Message-ID: <871y541n1p.fsf@athene.jamux.com> (raw)
In-Reply-To: <84k7iwjytf.fsf@lucy.cs.uni-dortmund.de>
[-- Attachment #1: Type: text/plain, Size: 10216 bytes --]
>>>>> "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 <viega@securesoftware.com>" "Sun, 10 Nov 2002 09:36:25 -0500" "<CA58416E-F4B9-11D6-A2AF-000393658EFC@securesoftware.com>" "" 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
[-- Attachment #2: Type: application/pgp-signature, Size: 154 bytes --]
next prev parent reply other threads:[~2002-11-29 14:13 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-11-28 23:37 John A. Martin
2002-11-29 13:22 ` Kai Großjohann
2002-11-29 14:13 ` John A. Martin [this message]
2002-11-29 15:36 ` Kai Großjohann
2002-11-29 22:54 ` John A. Martin
2002-11-30 1:01 ` ShengHuo ZHU
2002-11-30 5:07 ` John A. Martin
2002-11-30 17:33 ` Kai Großjohann
2002-11-30 20:51 ` John A. Martin
2002-11-30 21:50 ` Kai Großjohann
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=871y541n1p.fsf@athene.jamux.com \
--to=jam@jamux.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).