* Problem setting marks when exiting a group
@ 2003-01-02 15:11 David S Goldberg
2003-01-02 18:25 ` Lars Magne Ingebrigtsen
0 siblings, 1 reply; 5+ messages in thread
From: David S Goldberg @ 2003-01-02 15:11 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 400 bytes --]
After a CVS update this morning Thu Jan 2 10:09:03 2003, I now get the
following when trying to exit a group. The message it's triggering on
was replied to. That appears to be a factor as I read another group
previously, didn't reply to anything, and had no trouble exiting the
group. Backtrace (after evaling gnus-sum.el and gnus-range.el)
attached.
--
Dave Goldberg
david.goldberg6@verizon.net
[-- Attachment #2: Type: text/plain, Size: 6067 bytes --]
Signaling: (wrong-type-argument number-char-or-marker-p (13091))
=((13091) (13091))
(cond ((= last ...) nil) ((= ... ...) (setq last ...)) (t (setq result ...) (setq first ...) (setq last ...)))
(while numbers (cond (... nil) (... ...) (t ... ... ...)) (setq numbers (cdr numbers)))
(if (not (listp ...)) numbers (while numbers (cond ... ... ...) (setq numbers ...)) (if (and ... ...) (if ... ... ...) (nreverse ...)))
(if (null numbers) nil (if (not ...) numbers (while numbers ... ...) (if ... ... ...)))
(let* ((first ...) (last ...) result) (if (null numbers) nil (if ... numbers ... ...)))
gnus-compress-sequence(((13091)) t)
(setq list (gnus-compress-sequence (set symbol ...) t))
(if (eq (gnus-article-mark-to-type ...) (quote list)) (setq list (gnus-compress-sequence ... t)))
(when (eq (gnus-article-mark-to-type ...) (quote list)) (setq list (gnus-compress-sequence ... t)))
(while (setq type (pop types)) (setq list (symbol-value ...)) (when list (when ... ...)) (when (eq ... ...) (setq list ...)) (when (eq ... ...) (setq list ...)) (when (and ... ...) (let* ... ... ...)) (when list (push ... newmarked)))
(progn (while (setq type ...) (setq list ...) (when list ...) (when ... ...) (when ... ...) (when ... ...) (when list ...)) (when delta-marks (unless ... ...) (gnus-request-set-mark gnus-newsgroup-name delta-marks)) (if (nthcdr 3 info) (setcar ... newmarked) (when newmarked ...)) (let (...) (while ... ...)))
(if info (progn (while ... ... ... ... ... ... ...) (when delta-marks ... ...) (if ... ... ...) (let ... ...)))
(when info (while (setq type ...) (setq list ...) (when list ...) (when ... ...) (when ... ...) (when ... ...) (when list ...)) (when delta-marks (unless ... ...) (gnus-request-set-mark gnus-newsgroup-name delta-marks)) (if (nthcdr 3 info) (setcar ... newmarked) (when newmarked ...)) (let (...) (while ... ...)))
(let ((types gnus-article-mark-lists) (info ...) type list newmarked symbol delta-marks) (when info (while ... ... ... ... ... ... ...) (when delta-marks ... ...) (if ... ... ...) (let ... ...)))
gnus-update-marks()
(save-excursion (gnus-update-marks))
(let ((gnus-newsgroup-scored ...)) (save-excursion (gnus-update-marks)))
(let ((headers gnus-newsgroup-headers)) (save-excursion (set-buffer gnus-group-buffer) (gnus-undo-force-boundary)) (gnus-update-read-articles group (gnus-sorted-union gnus-newsgroup-unreads gnus-newsgroup-unselected)) (let (...) (save-excursion ...)) (when gnus-use-cross-reference (gnus-mark-xrefs-as-read group headers gnus-newsgroup-unreads)) (set-buffer gnus-group-buffer) (unless (gnus-ephemeral-group-p group) (gnus-group-update-group group)))
(progn (when gnus-newsgroup-kill-headers (setq gnus-newsgroup-killed ...)) (unless (listp ...) (setq gnus-newsgroup-killed ...)) (let (...) (save-excursion ... ...) (gnus-update-read-articles group ...) (let ... ...) (when gnus-use-cross-reference ...) (set-buffer gnus-group-buffer) (unless ... ...)))
(if group (progn (when gnus-newsgroup-kill-headers ...) (unless ... ...) (let ... ... ... ... ... ... ...)))
(when group (when gnus-newsgroup-kill-headers (setq gnus-newsgroup-killed ...)) (unless (listp ...) (setq gnus-newsgroup-killed ...)) (let (...) (save-excursion ... ...) (gnus-update-read-articles group ...) (let ... ...) (when gnus-use-cross-reference ...) (set-buffer gnus-group-buffer) (unless ... ...)))
(let ((group gnus-newsgroup-name)) (when group (when gnus-newsgroup-kill-headers ...) (unless ... ...) (let ... ... ... ... ... ... ...)))
(save-excursion (let (...) (when group ... ... ...)))
gnus-summary-update-info()
(if quit-config nil (gnus-run-hooks (quote gnus-exit-group-hook)) (gnus-summary-update-info))
(unless quit-config (gnus-run-hooks (quote gnus-exit-group-hook)) (gnus-summary-update-info))
(let* ((group gnus-newsgroup-name) (quit-config ...) (mode major-mode) (group-point nil) (buf ...)) (unless quit-config (when gnus-newsgroup-adaptive ...) (when gnus-use-scoring ...)) (gnus-run-hooks (quote gnus-summary-prepare-exit-hook)) (unless gnus-single-article-buffer (gnus-kill-buffer gnus-original-article-buffer) (setq gnus-article-current nil)) (when gnus-use-cache (gnus-cache-possibly-remove-articles) (gnus-cache-save-buffers)) (gnus-async-prefetch-remove-group group) (when gnus-suppress-duplicates (gnus-dup-enter-articles)) (when gnus-use-trees (gnus-tree-close group)) (when gnus-use-cache (gnus-cache-write-active)) (nnmail-purge-split-history (gnus-group-real-name group)) (unless quit-config (gnus-run-hooks ...) (gnus-summary-update-info)) (gnus-close-group group) (set-buffer gnus-group-buffer) (unless quit-config (gnus-group-jump-to-group group)) (gnus-run-hooks (quote gnus-summary-exit-hook)) (unless (or quit-config ...) (gnus-group-next-unread-group 1)) (setq group-point (point)) (if temporary nil (unless gnus-single-article-buffer ... ... ...) (set-buffer buf) (if ... ... ... ... ... ... ... ...) (setq gnus-current-select-method gnus-select-method) (pop-to-buffer gnus-group-buffer) (if ... ... ...) (when ... ...) (unless quit-config ...)))
(lambda (&optional temporary) "Exit reading current newsgroup, and then return to group selection mode.\n`gnus-exit-group-hook' is called with no arguments if that value is non-nil." (interactive) (gnus-set-global-variables) (when (gnus-buffer-live-p gnus-article-buffer) (save-excursion ... ... ... ...)) (gnus-kill-save-kill-buffer) (gnus-async-halt-prefetch) (let* (... ... ... ... ...) (unless quit-config ... ...) (gnus-run-hooks ...) (unless gnus-single-article-buffer ... ...) (when gnus-use-cache ... ...) (gnus-async-prefetch-remove-group group) (when gnus-suppress-duplicates ...) (when gnus-use-trees ...) (when gnus-use-cache ...) (nnmail-purge-split-history ...) (unless quit-config ... ...) (gnus-close-group group) (set-buffer gnus-group-buffer) (unless quit-config ...) (gnus-run-hooks ...) (unless ... ...) (setq group-point ...) (if temporary nil ... ... ... ... ... ... ... ...)))()
call-interactively(gnus-summary-exit)
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Problem setting marks when exiting a group
2003-01-02 15:11 Problem setting marks when exiting a group David S Goldberg
@ 2003-01-02 18:25 ` Lars Magne Ingebrigtsen
2003-01-02 18:32 ` David S Goldberg
0 siblings, 1 reply; 5+ messages in thread
From: Lars Magne Ingebrigtsen @ 2003-01-02 18:25 UTC (permalink / raw)
David S Goldberg <david.goldberg6@verizon.net> writes:
> After a CVS update this morning Thu Jan 2 10:09:03 2003, I now get the
> following when trying to exit a group. The message it's triggering on
> was replied to. That appears to be a factor as I read another group
> previously, didn't reply to anything, and had no trouble exiting the
> group. Backtrace (after evaling gnus-sum.el and gnus-range.el)
> attached.
> --
> Dave Goldberg
> david.goldberg6@verizon.net
> Signaling: (wrong-type-argument number-char-or-marker-p (13091))
> =((13091) (13091))
Hm. What's the value of the `type' variable when you get this
backtrace?
--
(domestic pets only, the antidote for overdose, milk.)
larsi@gnus.org * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Problem setting marks when exiting a group
2003-01-02 18:25 ` Lars Magne Ingebrigtsen
@ 2003-01-02 18:32 ` David S Goldberg
2003-01-02 20:19 ` David S Goldberg
0 siblings, 1 reply; 5+ messages in thread
From: David S Goldberg @ 2003-01-02 18:32 UTC (permalink / raw)
>>>>> On Thu, 02 Jan 2003 19:25:01 +0100, Lars Magne Ingebrigtsen <larsi@gnus.org> said:
> David S Goldberg <david.goldberg6@verizon.net> writes:
>> After a CVS update this morning Thu Jan 2 10:09:03 2003, I now get the
>> following when trying to exit a group. The message it's triggering on
>> was replied to. That appears to be a factor as I read another group
>> previously, didn't reply to anything, and had no trouble exiting the
>> group. Backtrace (after evaling gnus-sum.el and gnus-range.el)
>> attached.
>> --
>> Dave Goldberg
>> david.goldberg6@verizon.net
>> Signaling: (wrong-type-argument number-char-or-marker-p (13091))
>> =((13091) (13091))
> Hm. What's the value of the `type' variable when you get this
> backtrace?
I don't know and I have not been able to repeat the problem. Perhaps
it was something transient in that instance of Gnus (I run on a
windows box so naturally I had to reboot a couple of hours ago :-).
I'll keep that question in mind, though, should it recur.
Thanks,
--
Dave Goldberg
david.goldberg6@verizon.net
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Problem setting marks when exiting a group
2003-01-02 18:32 ` David S Goldberg
@ 2003-01-02 20:19 ` David S Goldberg
2003-01-02 20:26 ` Lars Magne Ingebrigtsen
0 siblings, 1 reply; 5+ messages in thread
From: David S Goldberg @ 2003-01-02 20:19 UTC (permalink / raw)
>>>>> On Thu, 02 Jan 2003 19:25:01 +0100, Lars Magne Ingebrigtsen
>>>>> <larsi@gnus.org> said:
>> Hm. What's the value of the `type' variable when you get this
>> backtrace?
Just happened again.
`type' is a variable declared in Lisp.
Value: (forwarded . forward)
Documentation:
not documented as a variable.
Thanks,
--
Dave Goldberg
david.goldberg6@verizon.net
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Problem setting marks when exiting a group
2003-01-02 20:19 ` David S Goldberg
@ 2003-01-02 20:26 ` Lars Magne Ingebrigtsen
0 siblings, 0 replies; 5+ messages in thread
From: Lars Magne Ingebrigtsen @ 2003-01-02 20:26 UTC (permalink / raw)
David S Goldberg <david.goldberg6@verizon.net> writes:
> Just happened again.
>
> `type' is a variable declared in Lisp.
>
> Value: (forwarded . forward)
Ah; found the bug. Related to the multi-R-marking stuff. Fixed.
--
(domestic pets only, the antidote for overdose, milk.)
larsi@gnus.org * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2003-01-02 20:26 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2003-01-02 15:11 Problem setting marks when exiting a group David S Goldberg
2003-01-02 18:25 ` Lars Magne Ingebrigtsen
2003-01-02 18:32 ` David S Goldberg
2003-01-02 20:19 ` David S Goldberg
2003-01-02 20:26 ` Lars Magne Ingebrigtsen
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).