From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/47956 Path: main.gmane.org!not-for-mail From: jam@jamux.com (John A. Martin) Newsgroups: gmane.emacs.gnus.general Subject: Re: Trouble selecting group in recent cvs Date: Fri, 29 Nov 2002 09:13:38 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: <871y541n1p.fsf@athene.jamux.com> References: <87wumxmfjt.fsf@athene.jamux.com> <84k7iwjytf.fsf@lucy.cs.uni-dortmund.de> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: main.gmane.org 1038579174 407 80.91.224.249 (29 Nov 2002 14:12:54 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 29 Nov 2002 14:12:54 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18Hlsy-00006R-00 for ; Fri, 29 Nov 2002 15:12:52 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18HluN-0005wa-00; Fri, 29 Nov 2002 08:14:19 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 29 Nov 2002 08:15:07 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id IAA00464 for ; Fri, 29 Nov 2002 08:14:49 -0600 (CST) Original-Received: (qmail 27477 invoked by alias); 29 Nov 2002 14:13:55 -0000 Original-Received: (qmail 27472 invoked from network); 29 Nov 2002 14:13:54 -0000 Original-Received: from quimby.gnus.org (80.91.224.244) by gnus.org with SMTP; 29 Nov 2002 14:13:54 -0000 Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian)) id 18HlzK-0007Dd-00 for ; Fri, 29 Nov 2002 15:19:26 +0100 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 185 Original-NNTP-Posting-Host: athene.jamux.com Original-X-Trace: quimby.gnus.org 1038579566 27324 65.222.215.34 (29 Nov 2002 14:19:26 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: 29 Nov 2002 14:19:26 GMT X-Attribution: jam X-Request-PGP: http://www.tux.org/~jam/jam-gpg-keys.html X-PGP-Fingerprint: 5F05 15CF 05D2 E8D3 E7FA 8C6A 504B EFD5 BFE2 5F2F Cancel-Lock: sha1:MVSN4nC7u50Rhpcn56DJ0tO05m4= Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:47956 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:47956 --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable >>>>> "Kai" =3D=3D Kai Gro=DFjohann >>>>> "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-excludi= ng-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) (de= fault-high gnus-summary-default-high-score) (default-low gnus-summary-defau= lt-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-hoo= k)) (forward-line 1)) | (if gnus-visual-p (progn (forward-line -1) (gnus-run-hooks ...) (forwar= d-line 1))) | (when gnus-visual-p (forward-line -1) (gnus-run-hooks (quote gnus-summa= ry-update-hook)) (forward-line 1)) | (progn (when (and gnus-tmp-dummy-line ...) (gnus-summary-insert-dummy-l= ine 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-u= nread ... gnus-tmp-header gnus-tmp-level) gnus-newsgroup-data) (setq gnus-t= mp-subject-or-nil (cond ... ... ...)) (if (and ... ... ...) (setq gnus-tmp-= opening-bracket ?< gnus-tmp-closing-bracket ?>) (setq gnus-tmp-opening-brac= ket ?\[ gnus-tmp-closing-bracket ?\])) (setq gnus-tmp-indentation (aref gnu= s-thread-indent-array gnus-tmp-level) gnus-tmp-lines (mail-header-lines gnu= s-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 (c= ond ... ... ...) gnus-tmp-thread-tree-header-string (cond ... ... ...)) (wh= en (string=3D gnus-tmp-name "") (setq gnus-tmp-name gnus-tmp-from)) (unless= (numberp gnus-tmp-lines) (setq gnus-tmp-lines -1)) (if (=3D gnus-tmp-lines= -1) (setq gnus-tmp-lines "?") (setq gnus-tmp-lines ...)) (gnus-put-text-pr= operty (point) (progn ... ...) (quote gnus-number) number) (when gnus-visua= l-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 g= nus-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 nu= mber gnus-tmp-unread ... gnus-tmp-header gnus-tmp-level) gnus-newsgroup-dat= a) (setq gnus-tmp-subject-or-nil (cond ... ... ...)) (if (and ... ... ...) = (setq gnus-tmp-opening-bracket ?< gnus-tmp-closing-bracket ?>) (setq gnus-t= mp-opening-bracket ?\[ gnus-tmp-closing-bracket ?\])) (setq gnus-tmp-indent= ation (aref gnus-thread-indent-array gnus-tmp-level) gnus-tmp-lines (mail-h= eader-lines gnus-tmp-header) gnus-tmp-score (or ... gnus-summary-default-sc= ore 0) gnus-tmp-score-char (if ... ?\ ...) gnus-tmp-replied (cond ... ... = ... ... ... ... ... ...) gnus-tmp-from (mail-header-from gnus-tmp-header) g= nus-tmp-name (cond ... ... ...) gnus-tmp-thread-tree-header-string (cond ..= . ... ...)) (when (string=3D gnus-tmp-name "") (setq gnus-tmp-name gnus-tmp= -from)) (unless (numberp gnus-tmp-lines) (setq gnus-tmp-lines -1)) (if (=3D= gnus-tmp-lines -1) (setq gnus-tmp-lines "?") (setq gnus-tmp-lines ...)) (g= nus-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) s= ubject (mail-header-subject gnus-tmp-header) simp-subject (gnus-simplify-su= bject-fully subject)) (cond (... ...) (... ... ... ...) (... ... ...)) (whe= n gnus-tmp-header (when ... ... ...) (setq gnus-tmp-unread ...) (push ... g= nus-newsgroup-data) (setq gnus-tmp-subject-or-nil ...) (if ... ... ...) (se= tq gnus-tmp-indentation ... gnus-tmp-lines ... gnus-tmp-score ... gnus-tmp-= score-char ... gnus-tmp-replied ... gnus-tmp-from ... gnus-tmp-name ... gnu= s-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 gnu= s-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 thread= s (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 ... ... ...) (se= tq gnus-tmp-false-parent nil) (setq gnus-tmp-root-expunged nil) (setq threa= d-end nil) (if ... ... ... ... ...) (when ... ...) (push ... tree-stack) (i= ncf 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-t= mp-lines gnus-tmp-score gnus-tmp-score-char gnus-tmp-from gnus-tmp-name gnu= s-tmp-number gnus-tmp-opening-bracket gnus-tmp-closing-bracket tree-stack) = (setq gnus-tmp-prev-subject nil) (if (vectorp ...) (gnus-summary-prepare-un= threaded threads) (while ... ... ... ... ... ... ... ... ... ... ...))) | gnus-summary-prepare-threads((("RE: HTTP proxy tunnel for SSH?" (... ..= .) (...)) ([414 "Talk: WEDNESDAY Nov. 20, 2002 on anonymous networking" "Jo= hn Viega " "Sun, 10 Nov 2002 09:36:25 -0500" "" "" 4056 56 "nnmaild= ir 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-sho= w-threads ... ...))) | (let ((buffer-read-only nil)) (erase-buffer) (setq gnus-newsgroup-data = nil gnus-newsgroup-data-reverse nil) (gnus-run-hooks (quote gnus-summary-ge= nerate-hook)) (when gnus-newsgroup-headers (gnus-summary-prepare-threads ..= .)) (setq gnus-newsgroup-data (nreverse gnus-newsgroup-data)) (goto-char (p= oint-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 gn= us-newsgroup-active ...) (gnus-run-hooks ...) (gnus-update-format-specifica= tions 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 qu= ietly))) | (while (and group (null ...) (eq gnus-auto-select-next ...)) (set-buffe= r 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 --=-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- iD8DBQA953YcUEvv1b/iXy8RAuhLAJ9jx3M/GzH+erVlM77CrRoUhb3+2ACaAnot /PxFcJA78pDPxz/tjt+gJ+Q= =Hn1/ -----END PGP SIGNATURE----- --=-=-=--