Trouble selecting group in recent cvs

Trouble selecting group in recent cvs

[John A. Martin]

[-- Attachment #1.1: Type: text/plain, Size: 2734 bytes --]

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()
|   run-hooks(gnus-summary-highlight-line)
|   apply(run-hooks gnus-summary-highlight-line)
|   gnus-run-hooks(gnus-summary-update-hook)
|   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" ...])))
|   gnus-summary-prepare()
|   gnus-summary-read-group-1("nnmaildir:sg-dc" nil t nil nil nil)
|   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)
`----

Selecting any mail or news group gives similar results.  I have no
such trouble with an older CVS version.

,----[diff \*cvs-status\*-old \*cvs-status\*-new ]
| < Working directory: /home/jam/.xemacs/lisp/qgnus/lisp/
| ---
| > Working directory: /home/jam/.xemacs/lisp/pgnus/lisp/
| 10c10
| < 6.1697        Need-Update 6.1675      ChangeLog
| ---
| >               Up-To-Date  6.1697      ChangeLog
| 23,24c23,24
| < 6.102         Need-Update 6.96        gnus-agent.el
| < 6.254         Need-Update 6.253       gnus-art.el
| ---
| >               Up-To-Date  6.102       gnus-agent.el
| >               Up-To-Date  6.254       gnus-art.el
| 52c52
| < 6.13          Need-Update 6.12        gnus-range.el
| ---
| >               Up-To-Date  6.13        gnus-range.el
| 60,61c60,61
| < 6.53          Need-Update 6.52        gnus-start.el
| < 6.246         Need-Update 6.235       gnus-sum.el
| ---
| >               Up-To-Date  6.53        gnus-start.el
| >               Up-To-Date  6.246       gnus-sum.el
| 65c65
| < 6.20          Need-Update 6.16        gnus-uu.el
| ---
| >               Up-To-Date  6.20        gnus-uu.el
| 119c119
| < 6.32          Need-Update 6.31        nnrss.el
| ---
| >               Up-To-Date  6.32        nnrss.el
| 151c151
| < 6.24          Need-Update 6.22        spam.el
| ---
| >               Up-To-Date  6.24        spam.el
`----

Here is the body of the message generated by C-c C-b in the recent cvs

,----
| Oort Gnus v0.08
| XEmacs 21.4 (patch 8) "Honest Recruiter" [Lucid] (i386-debian-linux) of Tue Aug  6 2002 on eeyore
| 200 quimby.gnus.org InterNetNews NNRP server INN 2.2.2 13-Dec-1999 ready (posting ok).
| 
| 
| 
| 
| 
| 

[-- Attachment #1.2: User settings --]
[-- Type: application/emacs-lisp, Size: 4031 bytes --]

[-- Attachment #2: Type: application/pgp-signature, Size: 154 bytes --]

Re: Trouble selecting group in recent cvs

[Kai Großjohann]

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()

Could you load gnus-sum.el (the .el is important) and get another
backtrace?  I think the new one will contain more information.

Thanks.
-- 
~/.signature is: umop ap!sdn    (Frank Nobis)

Re: Trouble selecting group in recent cvs

[John A. Martin]

[-- 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 --]

Re: Trouble selecting group in recent cvs

[Kai Großjohann]

jam@jamux.com (John A. Martin) writes:

>>>>>> "Kai" == Kai Großjohann
>>>>>> "Re: Trouble selecting group in recent cvs"
>>>>>>  Fri, 29 Nov 2002 14:22:04 +0100
>
>     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()

Uh.  There are two instances of `funcall' in that function, and the
first one invokes gnus-summary-highlight-line-0.

Does your gnus-sum.el contain gnus-summary-highlight-line-0?  If not,
try updating from CVS.  If yes, then I'm stumped.  Please investigate
as follows:

Put point inside the definition of gnus-summary-highlight-line and
type M-x edebug-defun RET.  Then do stuff that reproduces the error.
During execution, Emacs will show you the source code of
gnus-summary-highlight-line and allows you to single-step with SPC.
Do that single-stepping and report where it fails.  Also report any
other strange things that you might see.

Thanks!

-- 
~/.signature is: umop ap!sdn    (Frank Nobis)

Re: Trouble selecting group in recent cvs

[John A. Martin]

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

>>>>> "Kai" == Kai Großjohann
>>>>> "Re: Trouble selecting group in recent cvs"
>>>>>  Fri, 29 Nov 2002 16:36:03 +0100

    Kai> jam@jamux.com (John A. Martin) writes:
    >>>>>> "Kai" == Kai Großjohann
    >>>>>> "Re: Trouble selecting group in recent cvs"
    >>>>>>  Fri, 29 Nov 2002 14:22:04 +0100
    >>
    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()

    Kai> Uh.  There are two instances of `funcall' in that function,
    Kai> and the first one invokes gnus-summary-highlight-line-0.

    Kai> Does your gnus-sum.el contain gnus-summary-highlight-line-0?

Yes.

    Kai> If not, try updating from CVS.  If yes, then I'm stumped.
    Kai> Please investigate as follows:

    Kai> Put point inside the definition of
    Kai> gnus-summary-highlight-line and type M-x edebug-defun RET.
    Kai> Then do stuff that reproduces the error.  During execution,
    Kai> Emacs will show you the source code of
    Kai> gnus-summary-highlight-line and allows you to single-step
    Kai> with SPC.  Do that single-stepping and report where it fails.
    Kai> Also report any other strange things that you might see.

,----
| ;; New implementation by Christian Limpach <Christian.Limpach@nice.ch>.
| (defun gnus-summary-highlight-line ()
|   "Highlight current line according to `gnus-summary-highlight'."
|   (let* ((list gnus-summary-highlight)
| 	 (beg (gnus-point-at-bol))
| 	 (article (gnus-summary-article-number))
| 	 (score (or (cdr (assq (or article gnus-current-article)
| 			       gnus-newsgroup-scored))
| 		    gnus-summary-default-score 0))
| 	 (mark (or (gnus-summary-article-mark) gnus-unread-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 (and (boundp 'gnus-agent-article-alist)
|                           gnus-agent-article-alist
|                           ;; Optimized for when gnus-summary-highlight-line is called multiple times for articles in ascending order (i.e. initial generation of summary buffer).
|                           (progn 
|                             (if (and (eq gnus-summary-highlight-line-downloaded-alist gnus-agent-article-alist)
|                                      (<= (caar gnus-summary-highlight-line-downloaded-cached) article))
|                                 nil
|                               (setq gnus-summary-highlight-line-downloaded-alist  gnus-agent-article-alist
|                                     gnus-summary-highlight-line-downloaded-cached gnus-agent-article-alist))
|                             (let (n)
|                               (while (and (< (caar gnus-summary-highlight-line-downloaded-cached) article)
|                                           (setq n (cdr gnus-summary-highlight-line-downloaded-cached)))
|                                 (setq gnus-summary-highlight-line-downloaded-cached n)))
|                             (and (eq (caar gnus-summary-highlight-line-downloaded-cached) article)
|                                  (cdar gnus-summary-highlight-line-downloaded-cached))))))
| =>  (let ((face (funcall (gnus-summary-highlight-line-0))-!-))
|       (unless (eq face (get-text-property beg 'face))
| 	(gnus-put-text-property-excluding-characters-with-faces
| 	 beg (gnus-point-at-eol) 'face
| 	 (setq face (if (boundp face) (symbol-value face) face)))
| 	(when gnus-summary-highlight-line-function
| 	  (funcall gnus-summary-highlight-line-function article face))))))
`----v
,----^
| Recent minibuffer messages (most recent first):
| 
| Result: nil
| Result: nil
| Result: nil
| Result: t
| Result: 0 = C-@
| Result: 0 = C-@
| Result: 0 = C-@
| Result: ?!
| Result: ?!
| Result: 0 = C-@
| Result: 0 = C-@
| Result: nil
| Result: nil
| Result: nil
| Result: 368
| Result: 368
| Result: 368
| Result: 1 = C-a
| C-c C-a not defined.
| Quit
| Result: (((eq mark gnus-canceled-mark) . gnus-summary-cancelled-face) ((and (> score default-high) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-high-ticked-face) ((and (< score default-low) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-low-ticked-face) ((or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark)) . gnus-summary-normal-ticked-face) ((and (> score default-high) (eq mark gnus-ancient-mark)) . gnus-summary-high-ancient-face) ((and (< score default-low) (eq mark gnus-ancient-mark)) . gnus-summary-low-ancient-face) ((eq mark gnus-ancient-mark) . gnus-summary-normal-ancient-face) (downloaded . gnus-agent-downloaded-article-face) ((and (> score default-high) (eq mark gnus-unread-mark)) . gnus-summary-high-unread-face) ((and (< score default-low) (eq mark gnus-unread-mark)) . gnus-summary-low-unread-face) ((eq mark gnus-unread-mark) . gnus-summary-normal-unread-face) ((and (> score default-high) (memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))) . gnus-summary-high-unread-face) ((and (< score default-low) (memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))) . gnus-summary-low-unread-face) ((and (memq mark (list gnus-downloadable-mark gnus-undownloaded-mark)) (memq article gnus-newsgroup-unreads)) . gnus-summary-normal-unread-face) ((memq mark (list gnus-downloadable-mark gnus-undownloaded-mark)) . gnus-summary-normal-read-face) ((> score default-high) . gnus-summary-high-read-face) ((< score default-low) . gnus-summary-low-read-face) (t . gnus-summary-normal-read-face))
| Generating summary...
| Fetching headers for nnmaildir:sg-dc...done
| Fetching headers for nnmaildir:sg-dc...
| Retrieving newsgroup: nnmaildir:sg-dc...
| Edebug: gnus-summary-highlight-line
| Loading lazy-lock...done
| Loading lazy-lock...
| Loading gnus-sum.el...done
| Loading gnus-sum.el...
| Symbol's function definition is void: nil
| Generating summary...
| Fetching headers for nnmaildir:sg-dc...done
| Loading sort...done
| Loading sort...
| Fetching headers for nnmaildir:sg-dc...
| Loading gnus-ml...done
| Loading gnus-ml...
| Retrieving newsgroup: nnmaildir:sg-dc...
| Checking new news...done
| Opening nntp server on news.gnus.org...done
| Opening nntp server on news.gnus.org...
| nnmh: Reading incoming mail (no new mail)...done
| nnmh: Reading incoming mail from file...
| Opening nnmh server...done
| Opening nnmh server...
| Opening nndoc server on gnus-help...done
| Opening nndoc server on gnus-help...
| Checking new news...
| No new newsgroups
| Reading active file from archive via nnfolder...done
| Reading active file from archive via nnfolder...
| Opening nnfolder server on archive...done
| Opening nnfolder server on archive...
| Reading active file from archive via nnfolder...
| Opening nnmaildir server...done
| Opening nnmaildir server...
| Reading active file via nnmaildir...
| Reading active file via nnnil...done
| Reading active file via nnnil...
| Reading active file via nnnil...
| Reading /home/jam/.newsrc.eld...
| Loading bbdb-gnus...done
| Loading bbdb-gnus...
| Loading gnus-agent...done
| Loading gnus-agent...
| Loading regexp-opt...done
| Loading regexp-opt...
| Loading edebug...done
| Loading edebug...
| Loading /home/jam/.xemacs/lisp/boxquote...done
| Loading /home/jam/.xemacs/lisp/boxquote...
| Loading /home/jam/.xemacs/lisp/smiley...done
| Loading /home/jam/.xemacs/lisp/smiley...
| Reading directory /home/jam/...done
| Reading directory /home/jam/...
| Reading directory /home/jam/.saves-*...done
| Reading directory /home/jam/.saves-*...
| Loading font...done
| Loading font...
`----

I'm too clumbsy to nail it down clearly but I think, in

,----
| (defun gnus-summary-highlight-line-0 ()
|   (if (and (eq gnus-summary-highlight-line-trigger 
|                gnus-summary-highlight)
|            gnus-summary-highlight-line-cached)
|       gnus-summary-highlight-line-cached
|     (setq gnus-summary-highlight-line-trigger gnus-summary-highlight
|           gnus-summary-highlight-line-cached
|           (let* ((cond (list 'cond))
|                  (c cond)
|                  (list gnus-summary-highlight))
|             (while list
|               (setcdr c (cons (list (caar list) (list 'quote (cdar list))) nil))
|               (setq c (cdr c)
|                     list (cdr list)))
|            (gnus-byte-compile (list 'lambda nil cond))))))
`----

the while is exited with nil.  It is for sure nil over the first few
iterations.  I can't seem to get edebug to run up to a breakpoint and
show the value coming out of the loop.  For example, SPACE doesn't
seem to work here for me.

        jam


[-- Attachment #2: Type: application/pgp-signature, Size: 154 bytes --]

Re: Trouble selecting group in recent cvs

[ShengHuo ZHU]

jam@jamux.com (John A. Martin) writes:

[...]

> ,----
> | (defun gnus-summary-highlight-line-0 ()
> |   (if (and (eq gnus-summary-highlight-line-trigger 
> |                gnus-summary-highlight)
> |            gnus-summary-highlight-line-cached)
> |       gnus-summary-highlight-line-cached
> |     (setq gnus-summary-highlight-line-trigger gnus-summary-highlight
> |           gnus-summary-highlight-line-cached
> |           (let* ((cond (list 'cond))
> |                  (c cond)
> |                  (list gnus-summary-highlight))
> |             (while list
> |               (setcdr c (cons (list (caar list) (list 'quote (cdar list))) nil))
> |               (setq c (cdr c)
> |                     list (cdr list)))
> |            (gnus-byte-compile (list 'lambda nil cond))))))
> `----
>
> the while is exited with nil.  It is for sure nil over the first few
> iterations.  I can't seem to get edebug to run up to a breakpoint and
> show the value coming out of the loop.  For example, SPACE doesn't
> seem to work here for me.

It is probably related to gnus-byte-compile.  It seems that
gnus-byte-compile doesn't work correctly in some versions of XEmacs
for some unknown reasons.  The work around is to set
gnus-use-byte-compile to nil in .gnus. 
Or (defalias 'gnus-byte-compile 'identity)

ShengHuo

Re: Trouble selecting group in recent cvs

[John A. Martin]

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

>>>>> "ZSH" == ShengHuo ZHU
>>>>> "Re: Trouble selecting group in recent cvs"
>>>>>  Fri, 29 Nov 2002 20:01:18 -0500

    ZSH> jam@jamux.com (John A. Martin) writes: [...]

    >> ,----
    >> | (defun gnus-summary-highlight-line-0 ()
    >> |   (if (and (eq gnus-summary-highlight-line-trigger 
    >> |                gnus-summary-highlight)
    >> |            gnus-summary-highlight-line-cached)
    >> |       gnus-summary-highlight-line-cached
    >> |     (setq gnus-summary-highlight-line-trigger gnus-summary-highlight
    >> |           gnus-summary-highlight-line-cached
    >> |           (let* ((cond (list 'cond))
    >> |                  (c cond)
    >> |                  (list gnus-summary-highlight))
    >> |             (while list
    >> |               (setcdr c (cons (list (caar list) (list 'quote (cdar list))) nil))
    >> |               (setq c (cdr c)
    >> |                     list (cdr list)))
    >> |            (gnus-byte-compile (list 'lambda nil cond))))))
    >> `----
    >>
    >> the while is exited with nil.  It is for sure nil over the
    >> first few iterations.  I can't seem to get edebug to run up to
    >> a breakpoint and show the value coming out of the loop.  For
    >> example, SPACE doesn't seem to work here for me.

    ZSH> It is probably related to gnus-byte-compile.  It seems that
    ZSH> gnus-byte-compile doesn't work correctly in some versions of
    ZSH> XEmacs for some unknown reasons.  The work around is to set
    ZSH> gnus-use-byte-compile to nil in .gnus.  Or (defalias
    ZSH> 'gnus-byte-compile 'identity)

Good job!  Thanks much.

In .gnus I had (defun gnus-byte-compile (gnus-compile)).  I don't
remember why, but being a beginner with gnus I must have seen a
suggestion to do that.

Replacing that with (defalias 'gnus-byte-compile 'identity) works fine
as does using neither.  This is now with:

,----[ xemacs21-nomule 21.4.10-2 ]
| XEmacs 21.4 (patch 10) "Military Intelligence" [Lucid]
|   (i386-debian-linux) of Sun Nov 24 2002 on eeyore
`----

        jam






[-- Attachment #2: Type: application/pgp-signature, Size: 154 bytes --]

Re: Trouble selecting group in recent cvs

[Kai Großjohann]

jam@jamux.com (John A. Martin) writes:

> Replacing that with (defalias 'gnus-byte-compile 'identity) works fine
> as does using neither.  This is now with:

Does it mean it works if you don't do anything with
gnus-byte-compile?  Then it is advisable to just leave it at that.
Don't frob more than you really need to frob.

-- 
~/.signature is: umop ap!sdn    (Frank Nobis)

Re: Trouble selecting group in recent cvs

[John A. Martin]

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

>>>>> "Kai" == Kai Großjohann
>>>>> "Re: Trouble selecting group in recent cvs"
>>>>>  Sat, 30 Nov 2002 18:33:55 +0100

    Kai> jam@jamux.com (John A. Martin) writes:
    >> Replacing that with (defalias 'gnus-byte-compile 'identity)
    >> works fine as does using neither.  This is now with:

    Kai> Does it mean it works if you don't do anything with
    Kai> gnus-byte-compile?

Yes.

    Kai> Then it is advisable to just leave it at that.  Don't frob
    Kai> more than you really need to frob.

Yes, of course.  :)

I hope the suggestion I took to frob it in the first place is not
lurking somewhere waiting for a chance to confuse someone else.

Thank you and ShengHuo for your help.

        jam


[-- Attachment #2: Type: application/pgp-signature, Size: 154 bytes --]

Re: Trouble selecting group in recent cvs

[Kai Großjohann]

jam@jamux.com (John A. Martin) writes:

> I hope the suggestion I took to frob it in the first place is not
> lurking somewhere waiting for a chance to confuse someone else.

Ah, now I see what you meant.

Well, I don't know where the suggestion comes from, but if anyone
knows, please ask the author to reconsider the suggestion.  (In other
words, to test if it works without.)
-- 
~/.signature is: umop ap!sdn    (Frank Nobis)