Re: Bug in v5.10.6 under xemacs21 not generating the *Group*

[Scott A Crosby <scrosby@cs.rice.edu>]

On Thu, 26 Aug 2004 10:31:46 +0900, Katsumi Yamaoka <yamaoka@jpl.org> writes:

>>>>>> In <oyd1xhu2931.fsf@bert.cs.rice.edu>
>>>>>>	Scott A Crosby <scrosby@cs.rice.edu> wrote:
>
>> Signaling: (wrong-type-argument sequencep nntp)
> [...]
>>   eval((progn (insert (gnus-xmas-format "%s%s %s %s/%s: " ... ...
>>   gnus-group-insert-group-line("nntp+news.rice.edu:rice.majors.cs"...
>
> [...]
>
>> This configuration is known-good for v5.8.8 which is what I used
>> until last night. I'm not subscribed, so please CC me on any replies.
>
> I guess there's something wrong in the `gnus-group-line-format'
> variable.  What's the value you are using?  Let us know the
> value for the `gnus-group-line-format-spec' variable as well if
> you don't use gnus-compile (which means the value is not
> compiled).

(setq gnus-group-line-format
        "%M%S %P %6y/%-6t: %(%-40,40G%)   %10n:%-10s\n")

I suspect its the %n or $s format character.  I do not use
'gnus-compile. I will when this gets solved. I attach the value of
'gnus-group-line-format-spec at the end.

I've switched to the default 'gnus-group-line-format configuration
value ("%M%S%p%P%5y:%B%(%g%)%l %O\n") and the problem has disappeared.

> Otherwise, you may be able to solve it by evaluating the
> following Lisp form:
>
> (gnus-update-format-specifications t 'group)

I tried running this, it didn't help. 

Thanks for the help. 

Scott



***********************

`gnus-group-line-format-spec' is a variable declared in Lisp.
  -- loaded from "gnus-spec"

Value: (progn (insert (gnus-xmas-format "%s%s %s %s/%s: " (char-to-string gnus-tmp-marked-mark) (char-to-string gnus-tmp-subscribed) gnus-group-indentation (let ((need (- 6 (gnus-correct-length gnus-tmp-number-of-unread)))) (if (> need 0) (concat (make-string need ?\ ) gnus-tmp-number-of-unread nil) gnus-tmp-number-of-unread)) (let* ((val (eval (int-to-string gnus-tmp-number-total))) (need (- 6 (gnus-correct-length val)))) (if (> need 0) (concat nil val (make-string need ?\ )) val)))) (gnus-put-text-property (point) (progn (insert (let* ((val (eval (if (> (gnus-correct-length gnus-tmp-qualified-group) 40) (gnus-correct-substring gnus-tmp-qualified-group 0 40) gnus-tmp-qualified-group))) (need (- 40 (gnus-correct-length val)))) (if (> need 0) (concat nil val (make-string need ?\ )) val))) (point)) gnus-mouse-face-prop gnus-mouse-face) (insert (gnus-xmas-format "   %s:%s\n" (let ((need (- 10 (gnus-correct-length gnus-tmp-news-method)))) (if (> need 0) (concat (make-string need ?\ ) gnus-tmp-news-method nil) gnus-tmp-news-method)) (let ((need (- 10 (gnus-correct-length gnus-tmp-news-server)))) (if (> need 0) (concat nil gnus-tmp-news-server (make-string need ?\ )) gnus-tmp-news-server)))))

Documentation:
not documented as a variable.

**********************