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

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

[Scott A Crosby]

I'm not sure what the root cause of this is, but this version of gnus
seems to be trying to treat 'nntp as if it were "nntp". This causes an
error when trying to build the *Group* buffer and gnus never fully
initializes.

The backtrace is:

Signaling: (wrong-type-argument sequencep nntp)
  mapcar(#<compiled-function (char) "...(8)" [char length gnus-char-width] 3> nntp)
  gnus-correct-length(nntp)
  (- 10 (gnus-correct-length gnus-tmp-news-method))
  (let ((need ...)) (if (> need 0) (concat ... gnus-tmp-news-method nil) gnus-tmp-news-method))
  (gnus-xmas-format "   %s:%s\n" (let (...) (if ... ... gnus-tmp-news-method)) (let (...) (if ... ... gnus-tmp-news-server)))
  (insert (gnus-xmas-format "   %s:%s\n" (let ... ...) (let ... ...)))
  (progn (insert (gnus-xmas-format "%s%s %s %s/%s: " ... ... gnus-group-indentation ... ...)) (gnus-put-text-property (point) (progn ... ...) gnus-mouse-face-prop gnus-mouse-face) (insert (gnus-xmas-format "   %s:%s\n" ... ...)))
  eval((progn (insert (gnus-xmas-format "%s%s %s %s/%s: " ... ... gnus-group-indentation ... ...)) (gnus-put-text-property (point) (progn ... ...) gnus-mouse-face-prop gnus-mouse-face) (insert (gnus-xmas-format "   %s:%s\n" ... ...))))
  gnus-group-insert-group-line("nntp+news.rice.edu:rice.majors.cs" 3 ((reply 932) (tick 932 963)) 61 "nntp:news.rice.edu")
  gnus-group-prepare-flat(5 nil nil)
  gnus-group-list-groups(nil)
  gnus-group-get-new-news(nil)
  call-interactively(gnus-group-get-new-news)


My select methods are:


(setq gnus-select-method
      '(nnml ""	
	     (nnml-directory "~/Mesg/NNML/")
	     (nnml-active-file "~/Mesg/NNML/active")
	    (nnml-newsgroups-file "~/Mesg/NNML/newsgroups"))
      )

(setq gnus-secondary-select-methods 
      '(
	(nndraft ""
		 (nndraft-directory "~/Mesg/Drafts"))
	(nntp "news.rice.edu")
	;;	(nntp "news.gmane.org")
	))


I have a workaround that lets me read email, I am commenting out the
line '(nntp "news.rice.edu"). I would like to get nntp working
soon. 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.

Thanks for creating a great email reader!

Scott

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

[Scott A Crosby]

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.

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

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

[Katsumi Yamaoka]

>>>>> In <oyd7jrmftmz.fsf@bert.cs.rice.edu>
>>>>>	Scott A Crosby <scrosby@cs.rice.edu> wrote:

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

> I suspect its the %n or $s format character.

Thanks.  That's a good hint.  I could reproduce the same error
using the following test:

;--8<---------------cut here---------------start------------->8---
(setq gnus-group-line-format
      "%M%S %P %6y/%-6t: %(%-40,40G%)   %10n:%-10s\n")

(gnus-update-format-specifications t 'group)

(let ((gnus-select-method
      '(nnml ""
	     (nnml-directory "~/Mesg/NNML/")
	     (nnml-active-file "~/Mesg/NNML/active")
	    (nnml-newsgroups-file "~/Mesg/NNML/newsgroups")))
      (gnus-secondary-select-methods
      '((nndraft ""
		 (nndraft-directory "~/Mesg/Drafts"))
	(nntp "news.rice.edu"))))
  (gnus-group-insert-group-line
   "nntp+news.rice.edu:rice.majors.cs" 3
   '((reply 932) (tick 932 963)) 61 "nntp:news.rice.edu"))
;--8<---------------cut here---------------end--------------->8---

That's a bug which will arise with recent Gnus.  However, people
have not noticed it because it arises only when the `%n' spec is
used with XEmacs.  I will fix it in the CVS repository later.

Put the following lines in your ~/.gnus.el file and you will be
able to use the format including the `%10n' spec without needing
to reinstall Gnus.

(setcar (cdr (assq ?n gnus-group-line-format-alist))
	'(symbol-name gnus-tmp-news-method))

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

[Katsumi Yamaoka]

>>>>> In <b9y4qmqh0c0.fsf@jpl.org> Katsumi Yamaoka wrote:

> Put the following lines in your ~/.gnus.el file and you will be
> able to use the format including the `%10n' spec without needing
> to reinstall Gnus.

> (setcar (cdr (assq ?n gnus-group-line-format-alist))
> 	'(symbol-name gnus-tmp-news-method))

Oops.  You may need to evaluate the following form only once.

(gnus-update-format-specifications t 'group)